[ircbot] / blight-startup.tcl

#!/usr/bin/tclsh8.4
package require Tclx
if {[llength $argv] > 0} {
  set script [lindex $argv 0]
  set argv [lrange $argv 1 end]
} else {
  set script blight.tcl
}
source $script.tcl
set tcl_prompt1 { puts -nonewline "% " }
set tcl_prompt2 { puts -nonewline "> " }
commandloop -async -interactive on
mainloop