egghelp/eggheads community

proc decr as incr in tcl - input an expression in proc

2003-11-28T17:07:16-04:00

Thx a lot both

1) user I haven't taught tcl and I know only a few commands and I didn't know that in incr command u would use numbers < 0, so my problem has sold

2) Perfect

P.S. in "1 = 1" expression I forgot one more "=" and in my code I didn't returned anything, so that's why I wrote null Thanks a lot

Statistics: Posted by cerberus_gr — Fri Nov 28, 2003 5:07 pm

proc decr as incr in tcl - input an expression in proc

2003-11-27T13:03:47-04:00

1) To work with the actual variable you'll have to import it using 'upvar' or execute the expr/incr in the scope your variable exists in using 'uplevel'

Code:

proc decr var {upvar 1 $var blaincr bla -1}

...or:

Code:

proc decr var {uplevel 1 [list incr $var -1]}

2) use 'expr':

Code:

proc chk expr {if {[expr $expr]} {return "true"} {return "null"}}

...or use the C-style "if-then-else" structure:

Code:

proc chk expr {expr $expr?"true":"null"}

...but then you might aswell use 'expr' directly where you want the check imo. Oh, and btw: "1 = 1" is not a valid expression in tcl and the string "null" doesn't mean anything speacial.

Statistics: Posted by user — Thu Nov 27, 2003 1:03 pm

proc decr as incr in tcl - input an expression in proc

2003-11-27T12:03:25-04:00

your code should be:

Code:

proc decr { var } { set var "[expr $var -1]" }

Statistics: Posted by Sir_Fz — Thu Nov 27, 2003 12:03 pm

proc decr as incr in tcl - input an expression in proc

2003-11-27T11:35:13-04:00

$var will return the name of the variable and not it's value

if ($hello == 10) then "decr hello" will set var = hello and not var = 10
I want to "read" bot name and value, $var returns the name, but HOW could I take the value?

Statistics: Posted by cerberus_gr — Thu Nov 27, 2003 11:35 am

proc decr as incr in tcl - input an expression in proc

2003-11-27T11:17:15-04:00

try $var instead of ${var}

Statistics: Posted by Sir_Fz — Thu Nov 27, 2003 11:17 am

proc decr as incr in tcl - input an expression in proc

2003-11-27T11:37:54-04:00

Hello,

1)
I want to write a procedure decr as incr command in tcl.

I have already done this:

Code:

proc decr { var } { set ${var} "[expr ${var} - 1]" }

but it stops with error:
Tcl error: can't read "$var": no such variable

set variable_name variable_value
variable_name = ?
variable_value = ?

2)
I want to have a procedure which has as input an expression

examples:
proc chk { expr } { if {$expr} { return "true" } }

[chk "1 = 1"] -> true
[chk "string match a hsagsa'] -> true
[chk "3 >= 4"] -> null

but my code just checks if $expr is/isn't " "

Any help?

Statistics: Posted by cerberus_gr — Thu Nov 27, 2003 10:54 am