Forum OpenACS Development: Re: 'in' operator in if tag seems messed up.

Collapse
3: Re: 'in' operator in if tag seems messed up. (response to 1)
Posted by Tom Jackson on 02/13/03 05:46 PM

How do you construct the regexp using the word anchors? the current code for in is: 

    in { 
      set expr [join [lrange $args $i end] "|"]
      append condition "\[regexp \"$expr\" $arg1\] " 
      set next [llength $args]
    }

The 'inlist' addition uses the following: 

    inlist { 
      set expr [lrange $args $i end]
      append condition "\[expr \[lsearch \"$expr\" $arg1\] + 1] " 
      set next [llength $args]
    }

inlist works even when you construct the list in tcl, will your regexp work in that situation? Should inlist be added for future use?

Collapse
4: Re: 'in' operator in if tag seems messed up. (response to 3)
Posted by Dan Wickstrom on 02/13/03 06:50 PM
Sorry about that, I confused perl's re flavor with tcl's. For tcl you need to use \m and \M. Something like the following should work: 

in { 
    set expr "\\m([join [lrange $args $i end] "|"]\\M"
    append condition "\[regexp \"$expr\" $arg1\] " 
    set next [llength $args]
}
Collapse
5: Re: 'in' operator in if tag seems messed up. (response to 4)
Posted by Dan Wickstrom on 02/13/03 06:52 PM
There should have been a close parenthesis:

set expr "\\m([join [lrange $args $i end] "|"])\\M"