Mercurial > hg > egg-tcls
changeset 9:47c73165754b
laske: Cleanups.
author | Matti Hamalainen <ccr@tnsp.org> |
---|---|
date | Mon, 05 Sep 2011 14:09:36 +0300 |
parents | 7ceb3b5aeaa4 |
children | fbf718c24de4 |
files | laske.tcl |
diffstat | 1 files changed, 7 insertions(+), 7 deletions(-) [+] |
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" } }