egghelp/eggheads community

non case-sensitive arrays?

2003-07-04T13:35:45-04:00

alright, thx

Or how about asking them not to use uppercase letters?

this wont work - theres always some idiot whats more, some of the $chans are taken from eggdrops chanlist. but doesnt matter.

Statistics: Posted by arcane — Fri Jul 04, 2003 1:35 pm

non case-sensitive arrays?

2003-07-04T06:50:25-04:00

Code:

proc array_names_to_lowercase {array} {  upvar 1 $array a  set b [array get a]  unset a  foreach {n v} $b {set a([string tolower $n]) $v}}

Or, if keeping the screwed up case is importtant, you could do an lsearch in a lowercase version of [array names the_array] and then fetch [lindex [array names the_array] index_returned_by_lsearch]

Or how about asking them not to use uppercase letters?

Statistics: Posted by user — Fri Jul 04, 2003 6:50 am

non case-sensitive arrays?

2003-07-04T06:45:09-04:00

hi
does anyone know an easy way of making arrays non case-sensitive? means, array(#chan) should be the same as array(#ChAn).

thats what i use in my script:
1. if { [info exists array($chan)] } { ...
2. if { $array($chan) == "value" } { ...
3. set array(#chan) "value"
4. [llength $array($chan)]
5. [lsearch $array($chan) ...

3. is set by users, so i dont know whether they use #chan or #ChaN or whatever else.
users can set values for each channel like "set flags(#mychan) o" but they dont have to. so flags(#mychan) may exist or may not exist.

so all these commands should see array(#chan) as array(#Chan) and so on... i found no easy way of switching off case-sensitivity, but perhaps one of you knows a way. hope this post is not too confusing...

Statistics: Posted by arcane — Fri Jul 04, 2003 6:45 am