namespace eval request {
proc setvars { args } {
foreach a $args {
set globalvar [ lindex $a 2 ]
set arr1 [ lindex $a 0 ]
set arrvar "[lindex $a 0]([lindex $a 1])"
puts "$globalvar $arr1 $arrvar"
variable $arr1
if { [ info vars $arr1 ] != "" && [ info exists $arrvar ] } {
upvar $arrvar localvar
} else {
set localvar ""
}
variable $globalvar
set $globalvar $localvar
}
}
set VARS(dtcl) foo
setvars [list VARS dtcl dtcl]
puts $dtcl
}
This illustrates a way (that might be improved) to create a variable,
such as 'dtcl' in this example, that is guaranteed to exist, from an
array element like VARS(dtcl)...
--
David N. Welton
Free Software: http://people.debian.org/~davidw/
Apache Tcl: http://tcl.apache.org/
Personal: http://www.efn.org/~davidw/
Work: http://www.innominate.com/
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
