chiark
/
gitweb
/
~mdw
/
ircbot
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Improvements.
[ircbot]
/
parsecmd.tcl
diff --git
a/parsecmd.tcl
b/parsecmd.tcl
index 6c6f81d0c26314d8b67d5da7e2b172d425acafdb..925eed3000e3d0be993503258a4fd4b3988d39fc 100644
(file)
--- a/
parsecmd.tcl
+++ b/
parsecmd.tcl
@@
-70,6
+70,10
@@
proc def_ucmd {cmdname body} {
proc ucmd/$cmdname {p dest} " upvar 1 text text\n$body"
}
proc ucmd/$cmdname {p dest} " upvar 1 text text\n$body"
}
+proc def_ucmd_alias {alias canon} {
+ proc ucmd/$alias {p dest} " uplevel 1 \[list ucmd/$canon \$p \$dest\]\n"
+}
+
proc ucmdr {priv pub args} {
return -code return [concat [list $priv $pub] $args]
}
proc ucmdr {priv pub args} {
return -code return [concat [list $priv $pub] $args]
}