egghelp/eggheads community

Jumping to one proc after another

2003-11-16T16:55:09-04:00

uuuuh now it all makes sense thanks a lot once again! :>

Statistics: Posted by Tristam — Sun Nov 16, 2003 4:55 pm

Jumping to one proc after another

2003-11-16T16:51:06-04:00

Code:

set number 1switch -- $number {  "1" {    # do something with this number  }  "2" {    # do something with this number  }  "3" {    # do something with this number  }}

Statistics: Posted by caesar — Sun Nov 16, 2003 4:51 pm

Jumping to one proc after another

2003-11-16T16:12:09-04:00

Hmm...

No TALES, that's what I can do already. The problem is, when I use if's and elseif's, that it stops after making all the commands. And if I use one if or elseif to make commands, I cant use if or elseif in the commands again..

caesar, I tried to look for an "switch" command, here it is: http://www.tcl.tk/man/tcl8.4/TclCmd/switch.htm. The only problem is that I dont understand it Could you please help me out and make a _simple_ example of the usage? (I really dont understand how that command would help me with my problem..)

help a noobi, thanks :>

EDIT:// I'll try to explain the problem again: First, I take a number from a text file, check it with if and elseif commands to set up few variables depending what's the number in the text file. After that, I want it to continue with a code, which gives different output depending which variables were set. I hope you understand it

Statistics: Posted by Tristam — Sun Nov 16, 2003 4:12 pm

Jumping to one proc after another

2003-11-15T06:44:03-04:00

could be something like this ??

example:

Code:

if {$topic_sections == "0"} { puthelp "PRIVMSG $chan :There is no topic set in $chan!"  } elseif {$topic_sections == "1"} {  #your code  set topic_sections "2" } elseif {$topic_sections == "2"} {  #your code  set topic_sections "1" } else {  #your code  set topic_section "1" }}

Statistics: Posted by TALES — Sat Nov 15, 2003 6:44 am

Jumping to one proc after another

2003-11-15T03:55:56-04:00

Instead of a lot ifs and elses use the switch command.

Statistics: Posted by caesar — Sat Nov 15, 2003 3:55 am

Jumping to one proc after another

2003-11-14T20:29:10-04:00

Yello! I would like to ask if there is a command in tcl similiar to "go to" or "then"..? Let me explain:

I have a simple script:

Code:

proc topic_set { nick host hand chan text } { set fileid [open tristam-topic_theme.txt r]gets $fileid topic_themeclose $fileid  if {$topic_theme == "1"} {set t_start "7,1.::"set t_colour "15"set t_middle "7::"set t_end "7::."  } elseif {$topic_theme == "2"} {set t_start "1,14.::"set t_colour "0"set t_middle "1::"set t_end "1::."  } elseif {$topic_theme == "3"} {set t_start "7,1» 0» 7»"set t_colour "7"set t_middle "7«0?7»"set t_end "7« 0« 7«" } }

See, it opens up a file and reads the value (which is set with a different command before, and sets the t_xxx variables according to what the value in the file is, understood? good ) So, I want it to "move" along with the script, or just "move" to another proc, which does the rest. I could fix it by typing the rest of it after each 1,2,3 varible chack commands, but that would make my code 47834786 lines long and stupid

So what I really want to know it: Is there a way to "jump" or "move" to another proc after finished the other? Or a command like "then". I hope you understand

Here is the rest of the code btw, if anyone is interested what am I trying to do :>

Code:

set fileid [open tristam-topic_sections.txt r]gets $fileid topic_sections  if {$topic_sections == "0"} {puthelp "PRIVMSG $chan :There is no topic set in $chan!" } elseif {$topic_sections == "1"} {set fileid [open tristam-topic_1.txt r]gets $fileid topic_section_1putserv "TOPIC $chan :$t_start $t_colour $topic_section_1 $t_end"close $fileid } elseif {$topic_sections == "2"} {set fileid [open tristam-topic_1.txt r]gets $fileid topic_section_1close $fileidset fileid [open tristam-topic_2.txt r]gets $fileid topic_section_2putserv "TOPIC $chan :$t_start $t_colour $topic_section_1 $t_middle $t_colour $topic_section_2 $t_end"close $fileid } elseif {$topic_sections == "3"} {set fileid [open tristam-topic_1.txt r]gets $fileid topic_section_1close $fileidset fileid [open tristam-topic_2.txt r]gets $fileid topic_section_2close $fileidset fileid [open tristam-topic_3.txt r]gets $fileid topic_section_3putserv "TOPIC $chan :$t_start $t_colour $topic_section_1 $t_middle $t_colour $topic_section_2 $t_middle $t_colour $topic_section_3 $t_end"close $fileid } elseif {$topic_sections == "4"} {set fileid [open tristam-topic_1.txt r]gets $fileid topic_section_1close $fileidset fileid [open tristam-topic_2.txt r]gets $fileid topic_section_2close $fileidset fileid [open tristam-topic_3.txt r]gets $fileid topic_section_3close $fileidset fileid [open tristam-topic_4.txt r]gets $fileid topic_section_4putserv "TOPIC $chan :$t_start $t_colour $topic_section_1 $t_middle $t_colour $topic_section_2 $t_middle $t_colour $topic_section_3 $t_middle $t_colour $topic_section_4 $t_end"close $fileid } elseif {$topic_sections == "5"} {set fileid [open tristam-topic_1.txt r]gets $fileid topic_section_1close $fileidset fileid [open tristam-topic_2.txt r]gets $fileid topic_section_2close $fileidset fileid [open tristam-topic_3.txt r]gets $fileid topic_section_3close $fileidset fileid [open tristam-topic_4.txt r]gets $fileid topic_section_4close $fileidset fileid [open tristam-topic_5.txt r]gets $fileid topic_section_5putserv "TOPIC $chan :$t_start $t_colour $topic_section_1 $t_middle $t_colour $topic_section_2 $t_middle $t_colour $topic_section_3 $t_middle $t_colour $topic_section_4 $t_middle $t_colour $topic_section_5 $t_end"close $fileid } else {puthelp "PRIVMSG $chan :ERROR :P" } }

Statistics: Posted by Tristam — Fri Nov 14, 2003 8:29 pm