# HG changeset patch
# User Matti Hamalainen <ccr@tnsp.org>
# Date 1315220976 -10800
# Node ID 47c73165754b54017df26790c2dde48a9e89bd49
# Parent  7ceb3b5aeaa4cb99e7b71ac5b03a804f16b2f2cf
laske: Cleanups.

diff -r 7ceb3b5aeaa4 -r 47c73165754b laske.tcl
--- 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"
   }
 }