Mercurial > hg > egg-tcls

comparison calc.tcl @ 649:92aefade4466

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
calc: Cleanup.
author Matti Hamalainen <ccr@tnsp.org>
date Wed, 17 Feb 2021 10:29:41 +0200
parents 14dfb925a64a
children abd05400481d
comparison
equal deleted inserted replaced
648:0f206ab6a0e4 649:92aefade4466
29 proc calc_smsg {udest umsg} { 29 proc calc_smsg {udest umsg} {
30 global calc_preferredmsg 30 global calc_preferredmsg
31 putserv "$calc_preferredmsg $udest :$umsg" 31 putserv "$calc_preferredmsg $udest :$umsg"
32 } 32 }
33 33
34
34 # ------------------------------------------------------------------------ 35 # ------------------------------------------------------------------------
35 proc calc_do {args} { 36 proc calc_do {args} {
36 37
37 # This is something rather perverse 38 # This is something rather perverse
38 set equ [join [join $args ""] ""] 39 set equ [join [join $args ""] ""]
53 calc_smsg $chan "$calc_err_noargs" 54 calc_smsg $chan "$calc_err_noargs"
54 return 1 55 return 1
55 } 56 }
56 57
57 set result [calc_do $args] 58 set result [calc_do $args]
58 calc_smsg $chan "$nick, $result" 59 calc_smsg $chan "${nick}, ${result}"
59 return 1 60 return 1
60 } 61 }
61 62
62 # ------------------------------------------------------------------------- 63 # -------------------------------------------------------------------------
63 proc calc_cmd_msg {nick uhost hand args} { 64 proc calc_cmd_msg {nick uhost hand args} {