$$var and switch question

[arcane]

hi
got some problem. in my script i have several standard settings which can be overwritten by chan settings.
e.g. i have var vonend(standard), vonend(#mychan) and vonend(#anotherchan). now if vonend(#mychan) exists, the script should use vonend(#mychan), otherwise vonend(standard).
now to prevent an [info exists] every time i need a variable, i wrote a proc which should decide wheter chan setting or standard setting is taken.
here is what i got:

Code: Select all

proc avote:getValue {var value} {

	if {[info exists $var($value)]} {
		return $$var($value)
	} else {
		return $$var(standard)
	}
}

its called with

Code: Select all

avote:getValue "vonend" "#mychan"

but i always get "Tcl error [avote:getValue]: can't read "var(standard)": variable isn't array". normally it should check if vonend(#mychan) exists and then decide whether to use vonend(#mychan) or vonend(standard)
can anyone please correct my code?
and then ive got a question about the switch command.
ive got: if {x=="1" || x=="2"} {
what would that be in a switch command?

[caesar]

Code: Select all

if {[info exists var($value)]} {

also, call globaly the vonend (add a "global vonend" line in the proc) and there is no need of two $ when calling the variable/array

[user]

Your code fails because you're working with the local variable "var" and not the target array. Try this:

Code: Select all

proc avote:getValue {array element} {
	upvar 1 $array var
	if {[info exists var($element)]} {
		set var($element)
	} {
		set var(standard)
	}
}

and then ive got a question about the switch command.
ive got: if {x=="1" || x=="2"} {
what would that be in a switch command?

Code: Select all

switch -- x {
    "1" - "2" {do stuff}
}

[arcane]

Code: Select all

if {[info exists var($value)]} {

wouldnt this check for var? it should check if vonend($value) exists.

also, call globaly the vonend (add a "global vonend" line in the proc) and there is no need of two $ when calling the variable/array

sorry, forgot that. of course i have this global line with all possible values for "var".

@user: yes, this seems more correct to me thx and ill come back if you told me nonsense

[caesar]

I'm shure he didn't

[arcane]

yeah... seems good work