egghelp/eggheads community

Passing Arrays to and from a procedure

2002-10-24T17:29:04-04:00

Thanks for the examples guys!

I also come from a php background which is why I was having so much trouble understanding arrays in tcl.

BTW, I found a great explanation here.

Thanks again,

Juno

Statistics: Posted by Guest — Thu Oct 24, 2002 5:29 pm

Passing Arrays to and from a procedure

2002-10-24T11:45:52-04:00

OOPS - I am have been seeling with too many PHP script lately.

There is that option, but the actual one I was aiming at, which will provide the protection I was talking about is.

Code:

proc test5 {input1 input2} {  puts stdout "STANDARD VAR: $input1"  array set arr $input2  foreach a [array names $arr] {    puts stdout "ARRAY: name = $a : value = $arr($a)"  }}test5 "hello" [array get arr]

This would allow the array to be passed over the proc arguments, as my first example had intended. It's entirly up to you how you do it.

Statistics: Posted by ppslim — Thu Oct 24, 2002 11:45 am

Passing Arrays to and from a procedure

2002-10-24T10:36:47-04:00

Arrays can be passed to and from procedures with ease, and don't need any special treatment.

See netbots.tcl for a lot of helpful examples of this. Something like the following.
Code:
set arr(item1) "value2"set arr(item3) "value4"proc test5 {input1 input2} {  puts stdout "STANDARD VAR: $input1"  foreach a [array names input2] {    puts stdout "ARRAY: name = $a : value = $input2($a)"  }}proc test6 {input1} {  global arr  puts stdout "STANDARD VAR: $input1"  foreach a [array names arr] {    puts stdout "ARRAY: name = $a : value = $arr($a)"  }}test5 "hello" $arrtest6 "hello"
Both the test5 and test6 procedure output the same thing, the only differance being,t he way these arrays are passed.

test5 is genraly safer, as you can modify the values within the array, without them becoming global.

Doing this (for test5) would only generate a 'can't read "arr": variable is array' error.
What I think you may have meant is the following:

Code:

proc test5 {input1 input2} {  global $input2 ;# ofcourse, the array needs to be set globally  puts stdout "STANDARD VAR: $input1"  foreach a [array names $input2] {    puts stdout "ARRAY: name = $a : value = [lindex [array get $input2 $a] 1]" ;# split not needed since array get already returns a -list-  }}

And to be called with a string representing the array name, such as:

Code:

test5 "hello" "arr"

Statistics: Posted by strikelight — Thu Oct 24, 2002 10:36 am

Passing Arrays to and from a procedure

2002-10-24T04:27:33-04:00

Arrays can be passed to and from procedures with ease, and don't need any special treatment.

See netbots.tcl for a lot of helpful examples of this. Something like the following.

Code:

set arr(item1) "value2"set arr(item3) "value4"proc test5 {input1 input2} {  puts stdout "STANDARD VAR: $input1"  foreach a [array names input2] {    puts stdout "ARRAY: name = $a : value = $input2($a)"  }}proc test6 {input1} {  global arr  puts stdout "STANDARD VAR: $input1"  foreach a [array names arr] {    puts stdout "ARRAY: name = $a : value = $arr($a)"  }}test5 "hello" $arrtest6 "hello"

Both the test5 and test6 procedure output the same thing, the only differance being,t he way these arrays are passed.

test5 is genraly safer, as you can modify the values within the array, without them becoming global.

Statistics: Posted by ppslim — Thu Oct 24, 2002 4:27 am

Passing Arrays to and from a procedure

2002-10-23T23:49:01-04:00

I'm not too sure exactly what you are trying to do, but here is a link for documentation on 'upvar' and the rest of the tcl commands. tcl-commands.txt or whatever comes with eggdrop only lists the eggdrop specific commands and their uses. http://www.tcl.tk/man/

Statistics: Posted by tainted — Wed Oct 23, 2002 11:49 pm

Passing Arrays to and from a procedure

2002-10-23T20:41:21-04:00

Hi,
I'm new to tcl and I'm having trouble passing arrays to and from procedures. I know it has something to do with upvar, but I can't find any documentation on it. Could someone please give an example?

Thanks,

Juno

Statistics: Posted by Guest — Wed Oct 23, 2002 8:41 pm