Mercurial > hg > egg-tcls
diff laske.tcl @ 9:47c73165754b
laske: Cleanups.
author | Matti Hamalainen <ccr@tnsp.org> |
---|---|
date | Mon, 05 Sep 2011 14:09:36 +0300 |
parents | 1c4e2814cd41 |
children | 7b03971c6d28 |
line wrap: on
line diff
--- a/laske.tcl Thu Aug 18 12:46:12 2011 +0300 +++ b/laske.tcl Mon Sep 05 14:09:36 2011 +0300 @@ -1,7 +1,7 @@ ############################################################################ # -# Laske v0.2 by ccr/TNSP <ccr@tnsp.org> -# (C) Copyright 2008 Tecnic Software productions (TNSP) +# Laske v0.3 by ccr/TNSP <ccr@tnsp.org> +# (C) Copyright 2008-2011 Tecnic Software productions (TNSP) # # This script is freely distributable under GNU GPL (version 2) license. # @@ -13,8 +13,9 @@ ############################################################################ # No need to look below this line ############################################################################ -set laske_message "Laske v0.2 by ccr/TNSP" -set laske_reps [split "\$|| ||^|**|pi|3.14159265|e|2.71828183" "|"] +set laske_message "Laske v0.3 by ccr/TNSP" +#set laske_reps [split "\$|| ||^|**|pi|3.14159265|e|2.71828183" "|"] +set laske_reps [split "\$||\;||^|**|pi|3.141592653589793238|PI|3.141592653589793238|e|2.71828183" "|"] putlog "$laske_message" bind pub - !laske laske_pubmsg @@ -34,11 +35,10 @@ # Tama on jotain ihan uskomattoman perverssia set lasku [join [join [string map $laske_reps $args] ""] ""] -# putlog "Laske: $args :: $lasku" if {[catch { set res [expr $lasku] } errmsg]} { - return $errmsg + return $errmsg } else { - return "$lasku = $res" + return "$lasku = $res" } }