tcl "goto" command?

Dedan · Post by **Dedan** » Wed Aug 13, 2003 1:26 pm

I was wondering if there was any kind of "goto"
command in tcl like many other languages have.

I have saerched a bit and have come up with nothing.

Thank for any help given.

Post by **caesar** » Wed Aug 13, 2003 1:54 pm

Where do you exactly want to make a *goto* thing? Paste a part of your code or give an example.

Dedan · Post by **Dedan** » Wed Aug 13, 2003 2:16 pm

Code: Select all


bind pubm -|- "*" protect:channel
proc protect:channel {nick uhost handle channel text} {
  global botnick my text codes caps spaces rp
  set chan [string tolower $channel]
  if {![botisop $chan] || [isop $nick $chan]} {return 0}
  if {[string length $text >= $text(large)]} {

     codes:search

     strip:codes

     caps:search

     spaces:search

     goto skip

  }
     
  strip:codes

  :skip

  badword:search

}

Post by **Sir_Fz** » Wed Aug 13, 2003 2:27 pm

I think that can be only used in mIRC language.

cuz that's how it works there.

ppslim · Post by **ppslim** » Wed Aug 13, 2003 2:36 pm

Nope, there is no goto command in Tcl, however, you code can be re-written to perform the same effect with an extention to the if command.

Code: Select all

bind pubm -|- "*" protect:channel
proc protect:channel {nick uhost handle channel text} {
  global botnick my text codes caps spaces rp
  set chan [string tolower $channel]
  if {![botisop $chan] || [isop $nick $chan]} {return 0}
  if {[string length $text >= $text(large)]} {

     codes:search

     strip:codes

     caps:search

     spaces:search

  } else {
    
    strip:codes
  }

  badword:search

}

Dedan · Post by **Dedan** » Wed Aug 13, 2003 2:48 pm

that will work just fine.

Thanks ppslim :^)