Commit | Line | Data |
---|---|---|
081556a4 MW |
1 | #!/usr/bin/tclsh8.4 |
2 | package require Tclx | |
00535832 MW |
3 | if {[llength $argv] > 0} { |
4 | set script [lindex $argv 0] | |
5 | set argv [lrange $argv 1 end] | |
6 | } else { | |
7 | set script blight.tcl | |
8 | } | |
9 | source $script.tcl | |
b31f054e IJ |
10 | set tcl_prompt1 { puts -nonewline "% " } |
11 | set tcl_prompt2 { puts -nonewline "> " } | |
12 | commandloop -async -interactive on | |
13 | mainloop |