minor edits

src/modules/punk-0.1.tm

@@ -2819,6 +2819,17 @@ namespace eval punk {
        set nscaller [uplevel 1 [list namespace current]]
        tailcall interp alias {} $targetcmd {} apply [list args [append cmdcopy " {*}\$args"] $nscaller] 
     }
+    proc pipealias_extract {targetcmd} {
+        set applybody [lindex [interp alias "" $targetcmd] 1 1]
+        #strip off trailing " {*}$args"
+        return [lrange [string range $applybody 0 end-9] 0 end] 
+    }
+    #although the pipealias2 'concat' alias is cleaner in that the original pipeline can be extracted using list commands - it runs much slower
+    proc pipealias2 {targetcmd args} {
+       set cmdcopy [punk::objclone $args] 
+       set nscaller [uplevel 1 [list namespace current]]
+       tailcall interp alias {} $targetcmd {} apply [list args [concat "\[concat" [list $cmdcopy] "\$args]"] $nscaller]
+    }
 
     #same as used in unknown func for initial launch
     #variable re_assign         {^([^\r\n=\{]*)=(.*)} 

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

@@ -9,7 +9,7 @@
 # @@ Meta Begin
 # Application punk::du 999999.0a1.0
 # Meta platform     tcl
-# Meta license      <unspecified>
+# Meta license      BSD 
 # @@ Meta End
 
 

src/modules/shellrun-0.1.tm

@@ -1,9 +1,5 @@
 # vim: set ft=tcl
 #
-package provide shellrun [namespace eval shellrun {
-    variable version
-    set version 0.1
-}]
 #purpose: handle the run commands that call shellfilter::run
 #e.g run,runout,runerr,runx
 
@@ -638,3 +634,7 @@ namespace eval shellrun {
 
 }
 
+package provide shellrun [namespace eval shellrun {
+    variable version
+    set version 0.1
+}]

src/modules/zzzload-999999.0a1.0.tm

@@ -9,7 +9,7 @@
 # @@ Meta Begin
 # Application zzzload 999999.0a1.0
 # Meta platform     tcl
-# Meta license      <unspecified>
+# Meta license     BSD 
 # @@ Meta End