Julian Noble
1 year ago
1 changed files with 14 additions and 5 deletions
@ -1,10 +1,19 @@
|
||||
|
||||
package require starkit |
||||
starkit::startup |
||||
if {[llength $::argv]} { |
||||
package require starkit |
||||
starkit::startup |
||||
|
||||
#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 |
||||
} else { |
||||
} else { |
||||
package require app-punk |
||||
repl::start stdin |
||||
} |
||||
} |
||||
|
||||
|
Loading…
Reference in new issue