!calc - calculator script

[3zzy]

Is there one out there? not the one which also works as a definition engine, i need only a calculator script which would respond to public commands e.g. !calc 5+5 etc..

[ppslim]

Code: Select all

proc pub:calc {nick uh hand chan arg} {
  set x 0
  set z +
  foreach a [split $arg] {
    switch -- $a {
      {*} -
      {-} -
      {/} -
      {+} { set z $a }
      default {
         if {![regexp {^[0-9]+$} $a]} {
           puthelp "PRIVMSG $chan :Invalid character found"
           return
         }
         set x [expr $x $z $a]
      }
  }
  puthelp "PRIVMSG $chan :Calculated value = $x"
}
bind pub - "!calc" pub:calc

[user]

Here's a safe way to expr stuff (works with math functions like sin/rand/abs etc too). The price you have to pay is less descriptive error messages.

Code: Select all

proc sexpr {e} {
	if {[catch {expr 0+[list $e]} r]} {
		set e "syntax error in expression \"$e\""
	} {
		set e "$e = $r"
	}
}

[ppslim]

Why not use errinfo to give that description then.

[user]

Why not use errinfo to give that description then.

Because of the "0+" making it return the wrong error (the error is captured by catch in my proc, but i don't display it)

[3zzy]

Starange behaviour..

[11:55:10] [@3zzy]: !calc 5+5
[11:55:15] [@barabashka]: Invalid character found

[11:54:41] [@3zzy]: !calc 5 + 5
[11:54:43] [@barabashka]: Calculated value = 5
[11:54:45] [@barabashka]: Calculated value = 10

[11:55:34] [@3zzy]: !calc 5 * 5
[11:55:36] [@barabashka]: Calculated value = 5
[11:55:38] [@barabashka]: Calculated value = 25

[ppslim]

Can anybody else solve that one, I am finding it very hard.

Looking at my code, it is near impossible. It would require that the proc physicaly be called twice.

The puthelp line is only called once, and isn't in a loop of any kind.

As for your outputs, 5+5 is invalid, due to the way to does syntax and security checks.

You have two options, you can try using the other script provided, or add this small bit of code below

Code: Select all

set x 0 
  set z +

Code: Select all

if {[llength [split $arg]] == 1} { set arg [join [split $arg {}]] }

[user]

Can anybody else solve that one, I am finding it very hard.

Looking at my code, it is near impossible. It would require that the proc physicaly be called twice.

The puthelp line is only called once, and isn't in a loop of any kind.

Your switch is missing a }, so the putserv is in fact inside the foreach loop ....if you get the code compiled by adding a } to the end (which normal people wouldn't do )

Code: Select all

set x 0 
set z +

Code: Select all

if {[llength [split $arg]] == 1} { set arg [join [split $arg {}]] }

!calc 10+10 = 2 if you do that