Browse Source

temporarily put aside tcl:™️:list paths while loading core punk modules

master
Julian Noble 1 year ago
parent
commit
97bbf25341
  1. 13
      src/punk86.vfs/lib/app-shellspy/shellspy.tcl

13
src/punk86.vfs/lib/app-shellspy/shellspy.tcl

@ -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

Loading…
Cancel
Save