~mdw
/
ircbot
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
blight-startup.tcl: Take personality config name as argument.
[ircbot]
/
blight-startup.tcl
diff --git
a/blight-startup.tcl
b/blight-startup.tcl
index
c2a2436
..
59d9e2e
100755
(executable)
--- a/
blight-startup.tcl
+++ b/
blight-startup.tcl
@@
-1,5
+1,12
@@
-#!/usr/bin/tcl -f
-source blight.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
set tcl_prompt1 { puts -nonewline "% " }
set tcl_prompt2 { puts -nonewline "> " }
commandloop -async -interactive on