punk::nav::fs fix

src/bootsupport/modules/punk/nav/fs-0.1.0.tm

@@ -482,7 +482,7 @@ tcl::namespace::eval punk::nav::fs {
                 } else {
                     set stripbase 1
                 }
-                set out [dirfiles_dict_as_lines -stripbase $stripbase $matchinfo]
+                set out [dirfiles_dict_as_lines -listing $v -stripbase $stripbase $matchinfo]
 
                 #lappend chunklist [list stdout "[punk::ansi::a+ brightwhite]$out[punk::ansi::a]\n"]
                 if {$result ne ""} {
@@ -549,7 +549,7 @@ tcl::namespace::eval punk::nav::fs {
             lappend result filebytes [punk::lib::format_number $filebytes]
         }
 
-        set out [dirfiles_dict_as_lines -stripbase 1 $matchinfo]
+        set out [dirfiles_dict_as_lines -listing / -stripbase 1 $matchinfo]
         #return $out\n[pwd]
         set chunklist [list]
         lappend chunklist [list stdout "[punk::ansi::a+ brightwhite]$out[punk::ansi::a]\n"]

src/bootsupport/modules/punk/winlnk-0.1.1.tm

@@ -676,6 +676,8 @@ tcl::namespace::eval punk::winlnk {
             if {"windows" eq $::tcl_platform(platform)} {
                 set link_target [file join $localbase_path $suffix_path]
             } else {
+                #review - calling mount and parsing its output every time we parse a .lnk file makes this slow on large folders with .lnk files
+                # - we may want to cache the results of mount for some period of time or until we detect a change in the system's mounts (e.g. by monitoring /proc/mounts for changes or using a filesystem watcher on /mnt)
                 set suffix_path [string trimleft [string map {\\ /} $suffix_path] /]
                 if {[regexp {([a-zA-Z]):\\(.*)} $localbase_path _match drive_letter tail]} {
                     set localbase_path [string map {\\ /} $localbase_path]

src/modules/punk/nav/fs-999999.0a1.0.tm

@@ -482,7 +482,7 @@ tcl::namespace::eval punk::nav::fs {
                 } else {
                     set stripbase 1
                 }
-                set out [dirfiles_dict_as_lines -stripbase $stripbase $matchinfo]
+                set out [dirfiles_dict_as_lines -listing $v -stripbase $stripbase $matchinfo]
 
                 #lappend chunklist [list stdout "[punk::ansi::a+ brightwhite]$out[punk::ansi::a]\n"]
                 if {$result ne ""} {
@@ -549,7 +549,7 @@ tcl::namespace::eval punk::nav::fs {
             lappend result filebytes [punk::lib::format_number $filebytes]
         }
 
-        set out [dirfiles_dict_as_lines -stripbase 1 $matchinfo]
+        set out [dirfiles_dict_as_lines -listing / -stripbase 1 $matchinfo]
         #return $out\n[pwd]
         set chunklist [list]
         lappend chunklist [list stdout "[punk::ansi::a+ brightwhite]$out[punk::ansi::a]\n"]

src/modules/punk/winlnk-999999.0a1.0.tm

@@ -676,6 +676,8 @@ tcl::namespace::eval punk::winlnk {
             if {"windows" eq $::tcl_platform(platform)} {
                 set link_target [file join $localbase_path $suffix_path]
             } else {
+                #review - calling mount and parsing its output every time we parse a .lnk file makes this slow on large folders with .lnk files
+                # - we may want to cache the results of mount for some period of time or until we detect a change in the system's mounts (e.g. by monitoring /proc/mounts for changes or using a filesystem watcher on /mnt)
                 set suffix_path [string trimleft [string map {\\ /} $suffix_path] /]
                 if {[regexp {([a-zA-Z]):\\(.*)} $localbase_path _match drive_letter tail]} {
                     set localbase_path [string map {\\ /} $localbase_path]

src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/nav/fs-0.1.0.tm

@@ -482,7 +482,7 @@ tcl::namespace::eval punk::nav::fs {
                 } else {
                     set stripbase 1
                 }
-                set out [dirfiles_dict_as_lines -stripbase $stripbase $matchinfo]
+                set out [dirfiles_dict_as_lines -listing $v -stripbase $stripbase $matchinfo]
 
                 #lappend chunklist [list stdout "[punk::ansi::a+ brightwhite]$out[punk::ansi::a]\n"]
                 if {$result ne ""} {
@@ -549,7 +549,7 @@ tcl::namespace::eval punk::nav::fs {
             lappend result filebytes [punk::lib::format_number $filebytes]
         }
 
-        set out [dirfiles_dict_as_lines -stripbase 1 $matchinfo]
+        set out [dirfiles_dict_as_lines -listing / -stripbase 1 $matchinfo]
         #return $out\n[pwd]
         set chunklist [list]
         lappend chunklist [list stdout "[punk::ansi::a+ brightwhite]$out[punk::ansi::a]\n"]

src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/winlnk-0.1.1.tm

@@ -676,6 +676,8 @@ tcl::namespace::eval punk::winlnk {
             if {"windows" eq $::tcl_platform(platform)} {
                 set link_target [file join $localbase_path $suffix_path]
             } else {
+                #review - calling mount and parsing its output every time we parse a .lnk file makes this slow on large folders with .lnk files
+                # - we may want to cache the results of mount for some period of time or until we detect a change in the system's mounts (e.g. by monitoring /proc/mounts for changes or using a filesystem watcher on /mnt)
                 set suffix_path [string trimleft [string map {\\ /} $suffix_path] /]
                 if {[regexp {([a-zA-Z]):\\(.*)} $localbase_path _match drive_letter tail]} {
                     set localbase_path [string map {\\ /} $localbase_path]

src/project_layouts/custom/_project/punk.shell-0.1/src/bootsupport/modules/punk/nav/fs-0.1.0.tm

@@ -482,7 +482,7 @@ tcl::namespace::eval punk::nav::fs {
                 } else {
                     set stripbase 1
                 }
-                set out [dirfiles_dict_as_lines -stripbase $stripbase $matchinfo]
+                set out [dirfiles_dict_as_lines -listing $v -stripbase $stripbase $matchinfo]
 
                 #lappend chunklist [list stdout "[punk::ansi::a+ brightwhite]$out[punk::ansi::a]\n"]
                 if {$result ne ""} {
@@ -549,7 +549,7 @@ tcl::namespace::eval punk::nav::fs {
             lappend result filebytes [punk::lib::format_number $filebytes]
         }
 
-        set out [dirfiles_dict_as_lines -stripbase 1 $matchinfo]
+        set out [dirfiles_dict_as_lines -listing / -stripbase 1 $matchinfo]
         #return $out\n[pwd]
         set chunklist [list]
         lappend chunklist [list stdout "[punk::ansi::a+ brightwhite]$out[punk::ansi::a]\n"]

src/project_layouts/custom/_project/punk.shell-0.1/src/bootsupport/modules/punk/winlnk-0.1.1.tm

@@ -676,6 +676,8 @@ tcl::namespace::eval punk::winlnk {
             if {"windows" eq $::tcl_platform(platform)} {
                 set link_target [file join $localbase_path $suffix_path]
             } else {
+                #review - calling mount and parsing its output every time we parse a .lnk file makes this slow on large folders with .lnk files
+                # - we may want to cache the results of mount for some period of time or until we detect a change in the system's mounts (e.g. by monitoring /proc/mounts for changes or using a filesystem watcher on /mnt)
                 set suffix_path [string trimleft [string map {\\ /} $suffix_path] /]
                 if {[regexp {([a-zA-Z]):\\(.*)} $localbase_path _match drive_letter tail]} {
                     set localbase_path [string map {\\ /} $localbase_path]

src/vfs/_vfscommon.vfs/modules/punk/nav/fs-0.1.0.tm

@@ -482,7 +482,7 @@ tcl::namespace::eval punk::nav::fs {
                 } else {
                     set stripbase 1
                 }
-                set out [dirfiles_dict_as_lines -stripbase $stripbase $matchinfo]
+                set out [dirfiles_dict_as_lines -listing $v -stripbase $stripbase $matchinfo]
 
                 #lappend chunklist [list stdout "[punk::ansi::a+ brightwhite]$out[punk::ansi::a]\n"]
                 if {$result ne ""} {
@@ -549,7 +549,7 @@ tcl::namespace::eval punk::nav::fs {
             lappend result filebytes [punk::lib::format_number $filebytes]
         }
 
-        set out [dirfiles_dict_as_lines -stripbase 1 $matchinfo]
+        set out [dirfiles_dict_as_lines -listing / -stripbase 1 $matchinfo]
         #return $out\n[pwd]
         set chunklist [list]
         lappend chunklist [list stdout "[punk::ansi::a+ brightwhite]$out[punk::ansi::a]\n"]

src/vfs/_vfscommon.vfs/modules/punk/winlnk-0.1.1.tm

@@ -676,6 +676,8 @@ tcl::namespace::eval punk::winlnk {
             if {"windows" eq $::tcl_platform(platform)} {
                 set link_target [file join $localbase_path $suffix_path]
             } else {
+                #review - calling mount and parsing its output every time we parse a .lnk file makes this slow on large folders with .lnk files
+                # - we may want to cache the results of mount for some period of time or until we detect a change in the system's mounts (e.g. by monitoring /proc/mounts for changes or using a filesystem watcher on /mnt)
                 set suffix_path [string trimleft [string map {\\ /} $suffix_path] /]
                 if {[regexp {([a-zA-Z]):\\(.*)} $localbase_path _match drive_letter tail]} {
                     set localbase_path [string map {\\ /} $localbase_path]