Julian Noble
1 year ago
1 changed files with 14 additions and 5 deletions
@ -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…
Reference in new issue