diff --git a/src/modules/punk-0.1.tm b/src/modules/punk-0.1.tm index 6380474..99d96ab 100644 --- a/src/modules/punk-0.1.tm +++ b/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=\{]*)=(.*)} diff --git a/src/modules/punk/du-999999.0a1.0.tm b/src/modules/punk/du-999999.0a1.0.tm index 03cfac3..fb57a05 100644 --- a/src/modules/punk/du-999999.0a1.0.tm +++ b/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 +# Meta license BSD # @@ Meta End diff --git a/src/modules/shellrun-0.1.tm b/src/modules/shellrun-0.1.tm index a59ec1f..6a0cf5c 100644 --- a/src/modules/shellrun-0.1.tm +++ b/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 +}] diff --git a/src/modules/zzzload-999999.0a1.0.tm b/src/modules/zzzload-999999.0a1.0.tm index 2cddc6d..567ff70 100644 --- a/src/modules/zzzload-999999.0a1.0.tm +++ b/src/modules/zzzload-999999.0a1.0.tm @@ -9,7 +9,7 @@ # @@ Meta Begin # Application zzzload 999999.0a1.0 # Meta platform tcl -# Meta license +# Meta license BSD # @@ Meta End