procedure calls 1

[Thodd]

Hi,

I'm trying to call serveral procedures in a for-loop, but each cycle of the loop calls another procedure (named procedure0, procedure1,...), like this:

for {set x 0} {$x < 10} {incr x} {
puts "loopcount [expr $x + 1]"
$ns at $x "procedureX"
}

Does someone know how I can do this?
thx

 

[feherke]

Hi

For that you have to use the [tt]eval[/tt] command.

proc procedure1 {} { puts "one" }
proc procedure2 {} { puts "two" }
proc procedure3 {} { puts "three" }

for {set i 1} {$i<=3} {incr i} { eval "procedure$i" }

one
two
three

Feherke.

http://rootshell.be/~feherke/

 

[Thodd]

Ok thx, it works!

 

[ulis]

You're right feherke.
Tcl also permits array of procedures:

proc procedure(1) {} { puts "one" }
proc procedure(2) {} { puts "two" }
proc procedure(3) {} { puts "three" }

for {set i 1} {$i<=3} {incr i} { procedure($i) }

No more eval.

ulis

 

[feherke]

Hi

Wow ! How efficient ! Nice one, ulis.

Feherke.

http://rootshell.be/~feherke/

 

[Thodd]

Is Ulis's solution a lot faster, instead of using "eval"?

 

[feherke]

Hi

Yes, my measurement says it is 25% faster then my [tt]eval[/tt] based solution. ( I mean, my works 100% time, Ulis's takes only 75% of it. )

Feherke.

http://rootshell.be/~feherke/