egghelp/eggheads community

problem with switch [solved] now really ^^

2005-03-14T19:55:52-04:00

okay, the last one now really helped (even improoven readability again ).
I finally got through, here the proof:

[00:54:09] #De_Kus# set europingloki
Currently: 3004

this is normaly 0 if the switch doesn't save the expr and clock feedback .

Code:

switch $ip \$::euroipchaos {set ::eurostatuschaos 1} \$::euroiploki {set ::eurostatusloki 1}

Statistics: Posted by De Kus — Mon Mar 14, 2005 7:55 pm

Re: problem with switch

2005-03-14T19:38:29-04:00

The switch command can match against variables and not just literals, as shown here

Heh..that's a weird thing to say... The switch command can match against strings, not variables...variable substitution is performed BEFORE switch recieves the values, so that manual comment is a bit misleading.
Btw: you can still add whitespace between the braces to avoid having your entire switch on a single, unreadable line:

Code:

switch -- $a \$b {...} $c {...} default {...}

You missed the "string" part of your statement...and btw: to get a little less verbose bgerrors, (and have them displayed when they occur) make a proc called bgerror that takes a single argument and displays the contents on the partyline or whatever...
eg

Code:

proc bgerror a {putlog "BGERR: $a"}

Statistics: Posted by user — Mon Mar 14, 2005 7:38 pm

problem with switch [solved] now really ^^

2005-03-14T19:47:40-04:00

okay, that was a bit early... when I took a close look, I cannot get rid of this error now:

[00:34:25] #De_Kus# set errorInfo
Currently: invalid command name "bgerror"
Currently: while invoking
Currently: "unknown bgerror wrong # args: should be "switch ?switches? string pattern body ..."

Code:

switch [list $ip $::euroipchaos {set ::eurostatuschaos 1} $::euroiploki {set ::eurostatusloki 1}]

did I understand something wrong again?

list seems not to be the problem, looks like its doing its job:

set list [list $ip $::euroipchaos {set ::eurostatuschaos 1} $::euroiploki {set ::eurostatusloki 1}]
for {set i 0} {$i < [llength $list]} {incr i} {
putdcc 12 [lindex $list $i]
}
-->
62.109.138.134
62.109.138.134
set ::eurostatuschaos 1
62.109.138.138
set ::eurostatusloki 1

if i leave out

it seems to work

Statistics: Posted by De Kus — Mon Mar 14, 2005 7:37 pm

Re: problem with switch

2005-03-14T19:21:44-04:00

According to http://tcl.tk/man/tcl8.5/TclCmd/Tcl.htm#M10 variable substitution is not performed between braces
try something like this
Code:
switch -- whatever [list $var {code} $var2 {code} default {code}]
instead.

I only read this

The switch command can match against variables and not just literals, as shown here (the result is 2):

set foo "abc"
switch abc a - b {expr 1} $foo {expr 2} default {expr 3}

but to say it in short... user, you are my hero! that helped .

Statistics: Posted by De Kus — Mon Mar 14, 2005 7:21 pm

Re: problem with switch

2005-03-14T19:09:51-04:00

according to http://www.tcl.tk/man/tcl8.4/TclCmd/switch.htm this statement looks perfectly fine for me.

According to http://tcl.tk/man/tcl8.5/TclCmd/Tcl.htm#M10 variable substitution is not performed between braces
try something like this

Code:

switch -- whatever [list $var {code} $var2 {code} default {code}]

instead.

Statistics: Posted by user — Mon Mar 14, 2005 7:09 pm

problem with switch [solved] now really ^^

2005-03-14T19:56:25-04:00

Code:

set ip [lindex [fconfigure $sock -peername] 0]putdcc 12 "'$ip' '$::euroipchaos' '$::euroiploki'"if { [fconfigure $sock -error] == "" } {switch $ip {$::euroipchaos {set ::eurostatuschaos 1putdcc 12 "status chaos"}$::euroiploki {set ::eurostatusloki 1putdcc 12 "status loki"}default {putdcc 12 "noob"}}}

this is called on fileevent twice in a row each for the other ip.
here the partyline log caused by the debug code:

'62.109.138.138' '62.109.138.134' '62.109.138.138'
noob
'62.109.138.134' '62.109.138.134' '62.109.138.138'
noob

according to http://www.tcl.tk/man/tcl8.4/TclCmd/switch.htm this statement looks perfectly fine for me. I also tried to use ${::euroipchaos} which won't change anything. I also tried to use the variable via global and without :: within the switch structure, but still no change... it still calls default .

Statistics: Posted by De Kus — Mon Mar 14, 2005 7:03 pm