~mdw
/
ircbot
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
blame
|
history
|
raw
|
HEAD
helpinfos: Customize for local installation.
[ircbot]
/
blight-startup.tcl
1
#!/usr/bin/tclsh8.4
2
package
require Tclx
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
10
set
tcl_prompt1
{
puts
-nonewline
"% "
}
11
set
tcl_prompt2
{
puts
-nonewline
"> "
}
12
commandloop
-async -interactive
on
13
mainloop