IN: regexp.classes

TUPLE: range-class { from read-only } { to read-only } ;

USING: accessors kernel math.order regexp.classes ;

M: range-class class-member?
[ from>> ] [ to>> ] bi between? ; inline

USING: accessors arrays kernel regexp.ast regexp.classes
regexp.nfa unicode.data ;

M: range-class modify-class
case-insensitive option? [
dup cased-range? [
[ from>> ] [ to>> ] bi
[ [ ch>lower ] bi@ <range-class> ]
[ [ ch>upper ] bi@ <range-class> ] 2bi 2array
<or-class>
] when
] when ;