Browse Source

fix auto_execs for tclkit so able to call self as sub process

master
Julian Noble 1 year ago
parent
commit
bf769adac6
  1. 19
      src/punk86.vfs/main.tcl

19
src/punk86.vfs/main.tcl

@ -1,10 +1,19 @@
package require starkit package require starkit
starkit::startup starkit::startup
if {[llength $::argv]} {
#when run as a tclkit - the exe is mounted as a dir and Tcl's auto_execok doesn't find it
set thisexe [file tail [info nameofexecutable]]
set thisexeroot [file rootname $thisexe]
set ::auto_execs($thisexeroot) [info nameofexecutable]
if {$thisexe ne $thisexeroot} {
set ::auto_execs($thisexe) [info nameofexecutable]
}
if {[llength $::argv]} {
package require app-shellspy package require app-shellspy
} else { } else {
package require app-punk package require app-punk
repl::start stdin repl::start stdin
} }

Loading…
Cancel
Save