[ircbot] / blight-startup.tcl

#!/usr/bin/tclsh
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
Commit	Line	Data
df78d81f	1	#!/usr/bin/tclsh
081556a4	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