coyotes rand mair fheal wrote in [the comp.lang.tcl newsgroup]:


 proc rangedswitch {index switches} {
     for {set i 0} {$i<[llength $switches]} {incr i} {
         if {[string equal $switches([expr {$i+1}]) ..]} {
             set match [expr {$switches($i)<=$index &&$index<=$switches([expr {$i+2}])}]
             incr i 2
         } else {
             set match [expr {$switches($i)==$index}]
         }
    et cetera

    rangedswitch $i {
        0 {do a}
        2 .. 5 {do b}
    }

----

* Could someone elaborate on this?  It won't work as-is. -- Sy / jrandomhacker.info