Mercurial > hg > egg-tcls

comparison calc.tcl @ 424:825cac46b1cb

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Cosmetic / stray trailing whitespace cleanup.
author Matti Hamalainen <ccr@tnsp.org>
date Sun, 08 Jan 2017 03:55:55 +0200
parents fd0635443234
children b45fc205f425
comparison
equal deleted inserted replaced
423:44c9128097cd 424:825cac46b1cb
1 ########################################################################## 1 ##########################################################################
2 # 2 #
3 # Calc v0.4 by Matti 'ccr' Hamalainen <ccr@tnsp.org> 3 # Calc v0.4 by Matti 'ccr' Hamalainen <ccr@tnsp.org>
4 # (C) Copyright 2008-2011 Tecnic Software productions (TNSP) 4 # (C) Copyright 2008-2011 Tecnic Software productions (TNSP)
5 # 5 #
6 # A simple calculator for Eggdrop. 6 # A simple calculator for Eggdrop.
7 # 7 #
8 # This script is freely distributable under GNU GPL (version 2) license. 8 # This script is freely distributable under GNU GPL (version 2) license.
9 # 9 #
57 set result [calc_do $args] 57 set result [calc_do $args]
58 calc_smsg $chan "$nick, $result" 58 calc_smsg $chan "$nick, $result"
59 return 1 59 return 1
60 } 60 }
61 61
62 # ------------------------------------------------------------------------- 62 # -------------------------------------------------------------------------
63 proc calc_msg {nick uhost hand args} { 63 proc calc_msg {nick uhost hand args} {
64 global calc_err_noargs 64 global calc_err_noargs
65 65
66 if {$args == {} || $args == ""} { 66 if {$args == {} || $args == ""} {
67 calc_smsg $nick "$calc_err_noargs" 67 calc_smsg $nick "$calc_err_noargs"
68 return 1 68 return 1
69 } 69 }
70 70
71 set result [calc_do $args] 71 set result [calc_do $args]
72 calc_smsg $nick "$result" 72 calc_smsg $nick "$result"
73 return 1 73 return 1
74 } 74 }
75 75