~mdw / ircbot / blame_incremental
| Commit | Line | Data |
|---|---|---|
| 1 | #!/usr/bin/tclsh8.4 | |
| 2 | package require Tclx | |
| 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 | |
| 10 | set tcl_prompt1 { puts -nonewline "% " } | |
| 11 | set tcl_prompt2 { puts -nonewline "> " } | |
| 12 | commandloop -async -interactive on | |
| 13 | mainloop |