egghelp/eggheads community

Tcl Problem

2002-07-12T13:56:45-04:00

Code:

proc pub:Cmds {nick uhost handle chan text} {  set misc1 [lindex [split $text] 0]  set misc2 [lrange [split $text] 1 end]  if {$misc1 == "country"} {    set chr [string tolower $misc2]    regsub -all -- { } $chr {_} chr     if {![info exists $country($chr)]} {      putserv "NOTICE $nick :Error: \002Country does not exist\002"      return 0    }    putserv "PRIVMSG $chan :$country($chr)"  }}

Statistics: Posted by ppslim — Fri Jul 12, 2002 1:56 pm

Tcl Problem

2002-07-12T12:18:16-04:00

Code:

proc pub:Cmds {nick uhost handle chan text} {    set misc1    "[lindex $text 0]"    set misc2    "[lindex $text 1]"if {$misc1 == "country"} {    set chr [string tolower $misc2]    regsub -all -- { } $chr {_} chr     if {![info exists $country($chr)]} {    putserv "NOTICE $nick :Error: \002Country does not exist\002"    return 0    }    putserv "PRIVMSG $chan :$country($chr)"}}

Statistics: Posted by Guest — Fri Jul 12, 2002 12:18 pm

Tcl Problem

2002-07-12T11:53:19-04:00

Then the variable being passed only has the word south in it.

Seeing the rest of the script would help

Statistics: Posted by ppslim — Fri Jul 12, 2002 11:53 am

Tcl Problem

2002-07-12T11:25:30-04:00

ok then fixed it but now getting...

[16:17] Tcl error [pub:Cmds]: can't read "country(south)": no such element in array

Sorry to be such a pain!!!!!

Statistics: Posted by Guest — Fri Jul 12, 2002 11:25 am

Tcl Problem

2002-07-12T10:27:55-04:00

I have got the syntax of the regsub command mixed up.

It should actualy be

regsub ?switches? exp string subSpec varName

I got the exp and string the wrong way round

it should be

Code:

proc de_spacer {str} {  regsub -all -- { } $str {_} str  return $str}

Statistics: Posted by ppslim — Fri Jul 12, 2002 10:27 am

Tcl Problem

2002-07-12T09:15:08-04:00

ok then so it should be.....

Code:

if {$misc1 == "country"} {    set chr [string tolower $misc2]    set checkcountry [de_spacer $chr]    if {![info exists country($checkcountry)]} {    putserv "NOTICE $nick :Error: \002Country does not exist\002"    return 0    }    putserv "PRIVMSG $chan :$country($checkcountry)"}

Code:

proc de_spacer {str} {   regsub -all -- $str { } {_} str   return $str }

Think thats right, but it dont work, keeps saying country does not exist...

Statistics: Posted by Guest — Fri Jul 12, 2002 9:15 am

Tcl Problem

2002-07-12T05:24:09-04:00

the setting should be

Code:

set country(south_africa) "Code: \002ZA\002 Country: \002South Africa\002"

In your script, as well as performing a [string] tolower command, your should run it through a de-spacer if you like.

Code:

proc de_spacer {str} {  regsub -all -- $str { } {_} str  return $str}

Once this is in the script, you can pass the country names through it, to convert them to array identifiers.

Statistics: Posted by ppslim — Fri Jul 12, 2002 5:24 am

Tcl Problem

2002-07-11T19:11:08-04:00

hmmmz.

Well this is wot im trying to do...

Code:

if {$misc1 == "country"} {    set chr [string tolower $misc2]    if {![info exists country($chr)]} {    putserv "NOTICE $nick :Error: \002Country does not exist\002"    return 0    }    putserv "PRIVMSG $chan :$country($chr)"}

Example of how the vars are set...

Code:

set country(south africa) "Code: \002ZA\002 Country: \002South Africa\002"

Code:

set country(za) "Country: \002South Africa\002 Code: \002ZA\002"

So any ideas how i can do it using the underscores then?

Statistics: Posted by Guest — Thu Jul 11, 2002 7:11 pm

Tcl Problem

2002-07-11T18:46:03-04:00

spaces in variables == bad. a space is a core delimiter - using them in varible names will lead to problems later on. this is a core programming rule, which has been in effect ever since the concept of a named variable (or constant) was born. substitute your spaces for underscores (_)

Statistics: Posted by Petersen — Thu Jul 11, 2002 6:46 pm

Tcl Problem

2002-07-11T17:53:16-04:00

I tried what you said an adding the '\' dont work, because it accepts it has 'south\ africa' not just 'south africa'

Anymore ideas?

Statistics: Posted by Guest — Thu Jul 11, 2002 5:53 pm

Re: Tcl Problem

2002-07-11T16:47:27-04:00

Code:

set country(south africa) "Code: \002ZA\002 Country: \002South Africa\002"

Try escaping the space, like you have the control codes. EG

Code:

set country(south\ africa) "Code: \002ZA\002 Country: \002South Africa\002"

Another method method includes

Code:

set temp "south africa"set country($temp) "Code: \002ZA\002 Country: \002South Africa\002"

Statistics: Posted by ppslim — Thu Jul 11, 2002 4:47 pm

Tcl Problem

2002-07-11T14:16:29-04:00

I have been setting vars like this...

Code:

set country(south africa) "Code: \002ZA\002 Country: \002South Africa\002"

Then I find out that eggdrop dont like that.

Is there anyway around this with keeping the space?

Thanks
Jason

Statistics: Posted by Guest — Thu Jul 11, 2002 2:16 pm