egghelp/eggheads community

${type}game($number) - reading

2004-03-03T12:13:17-04:00

It's only with subst and eval. And to use $z you probably have to do \$z, but I can't check right now.

Statistics: Posted by stdragon — Wed Mar 03, 2004 12:13 pm

${type}game($number) - reading

2004-03-03T10:35:15-04:00

I'm afraid i'm allready in it

That what you are tying to do with $${x}y($z) gives errors with me, or is this what you do only valid with the subst command?

Statistics: Posted by Guest — Wed Mar 03, 2004 10:35 am

${type}game($number) - reading

2004-03-03T10:04:48-04:00

Another way to do it is with upvar, especially if it's a global variable. You create a link to the array and then manipulate it as if it were the other variable.

proc doit {} {
set type green
set var hunger
upvar #0 ${type}dragon link
set link($var) "sheep"
}

now global greendragon(hunger) = sheep

The same thing works for local variables, using 0 instead of #0 in upvar.

You can also do tricks like the set one with subst and eval:

set type green
set a [subst $${type}dragon(hunger)]
eval set b $${type}dragon(hunger)

now $a = $b = sheep

You are entering the dark side of tcl scripting. Don't let its power draw you in!

Statistics: Posted by stdragon — Wed Mar 03, 2004 10:04 am

${type}game($number) - reading

2004-03-03T09:46:35-04:00

woohoo! now it works

Could you give me the alternative means to do this aswell?

thanks for the help, been bashing my head on this for a few days now, trying to work around it with no luck

Statistics: Posted by Guest — Wed Mar 03, 2004 9:46 am

${type}game($number) - reading

2004-03-03T09:21:50-04:00

A couple ways to do it. Maybe the easiest way is to use the set command. It returns the value of the variable you give it, so you can do more advanced substitution using it:

set num [set ${type}game($number)]

Now $num = $jasdfgame($number)

Statistics: Posted by stdragon — Wed Mar 03, 2004 9:21 am

${type}game($number) - reading

2004-03-03T08:44:48-04:00

Code:

set i 0 lappend game "" set id [array startsearch alias] while {[array anymore alias $id]} {        set item [array nextelement alias $id]        set ding [split $item #]        set type [lindex $ding 0]        set number [lindex $ding 1]        set ${type}game($number) "$alias($item)" if {$type == "jkja"} { putchan $chan "debug1: ${type}game($number)" }        lappend num $i        lappend output $type        if {[lsearch -all $game $type] >= 1} {                continue        } else {                lappend game $type        }        incr i }

The problem is that in the 'if {$type == "jkja"}' line the output of the putchan is jkjagame(1) rather then what that value holds, if i change ${type}game($number) into $jkjagame($number) it works and displays just that what the array value holds...

What am i doing wrong here?

Statistics: Posted by Guest — Wed Mar 03, 2004 8:44 am