You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
16 lines
357 B
16 lines
357 B
package provide app_shell 1.0 |
|
|
|
package require Thread |
|
package require shellfilter |
|
package require punk::repl |
|
repl::init -type 0 |
|
set replresult [repl::start stdin -title app_shell] |
|
if {[string is integer -strict $replresult]} { |
|
exit $replresult |
|
} else { |
|
if {$replresult ne ""} { |
|
puts stdout $replresult |
|
flush stdout |
|
} |
|
exit 0 |
|
} |