From: ijackson <ijackson>
Date: Sun, 17 May 2009 21:16:16 +0000 (+0000)
Subject: new tclX-based startup
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ijackson/git?a=commitdiff_plain;h=429a3f5865899c28736d7eabbffe6bf1f1d29b8f;p=ircbot.git

new tclX-based startup
---

diff --git a/blight-startup.tcl b/blight-startup.tcl
new file mode 100755
index 0000000..c2a2436
--- /dev/null
+++ b/blight-startup.tcl
@@ -0,0 +1,6 @@
+#!/usr/bin/tcl -f
+source blight.tcl
+set tcl_prompt1 { puts -nonewline "% " }
+set tcl_prompt2 { puts -nonewline "> " }
+commandloop -async -interactive on
+mainloop
diff --git a/startup.sh b/startup.sh
index 88d1200..42a3eb8 100755
--- a/startup.sh
+++ b/startup.sh
@@ -3,5 +3,5 @@ set -e
 cd "`dirname $0`"
 sleep 1
 set +e
-HOME=. tclsh8.2
+./blight-startup.tcl
 sleep ${1:-5000000}