[ircbot] / blight-startup.tcl

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