|
|
@ -32,6 +32,8 @@ package provide app-shellspy 1.0 |
|
|
|
#fconfigure stdout -encoding utf-16le |
|
|
|
#fconfigure stdout -encoding utf-16le |
|
|
|
|
|
|
|
|
|
|
|
#tcl::tm::remove {*}[tcl::tm::list] |
|
|
|
#tcl::tm::remove {*}[tcl::tm::list] |
|
|
|
|
|
|
|
set original_tm_list [tcl::tm::list] |
|
|
|
|
|
|
|
tcl::tm::remove {*}$original_tm_list |
|
|
|
|
|
|
|
|
|
|
|
#add dir outside of tclkit/exe so we can override with higher versions if necessary without rebuilding |
|
|
|
#add dir outside of tclkit/exe so we can override with higher versions if necessary without rebuilding |
|
|
|
set m_dir [file normalize [file join [file dirname [info nameofexecutable]] modules]] |
|
|
|
set m_dir [file normalize [file join [file dirname [info nameofexecutable]] modules]] |
|
|
@ -71,11 +73,22 @@ if {[file extension $arg1] in [list .tCl]} { |
|
|
|
#set m_dir [file join $starkit::topdir modules] |
|
|
|
#set m_dir [file join $starkit::topdir modules] |
|
|
|
|
|
|
|
|
|
|
|
#lappend auto_path c:/tcl/lib/tcllib1.20 |
|
|
|
#lappend auto_path c:/tcl/lib/tcllib1.20 |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
#require core modules only from punk distribution (REVIEW - override option?) |
|
|
|
package require flagfilter |
|
|
|
package require flagfilter |
|
|
|
package require shellfilter |
|
|
|
package require shellfilter |
|
|
|
package require Thread |
|
|
|
package require Thread |
|
|
|
package require punk |
|
|
|
package require punk |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
#restore module paths |
|
|
|
|
|
|
|
set tm_list_now [tcl::tm::list] |
|
|
|
|
|
|
|
foreach p [$original_tm_list] { |
|
|
|
|
|
|
|
if {$p ni $tm_list_now} { |
|
|
|
|
|
|
|
tcl::tm::add $p |
|
|
|
|
|
|
|
} |
|
|
|
|
|
|
|
} |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
#package require packageTrace |
|
|
|
#package require packageTrace |
|
|
|
|
|
|
|
|
|
|
|
set ::testconfig 5 |
|
|
|
set ::testconfig 5 |
|
|
|