[ircbot] / blight-startup.tcl

#!/usr/bin/tcl -f
source blight.tcl
set tcl_prompt1 { puts -nonewline "% " }
set tcl_prompt2 { puts -nonewline "> " }
commandloop -async -interactive on
mainloop
Commit	Line	Data
b31f054e IJ	1	#!/usr/bin/tcl -f
	2	source blight.tcl
	3	set tcl_prompt1 { puts -nonewline "% " }
	4	set tcl_prompt2 { puts -nonewline "> " }
	5	commandloop -async -interactive on
	6	mainloop