modify-class ( char-class -- char-class' )

Vocabulary

regexp.nfa

Inputs

char-class

an object

Outputs

char-class'

an object

Definition

IN: regexp.nfa

GENERIC: modify-class ( char-class -- char-class' )

Methods

USING: regexp.classes regexp.nfa ;

M: $crlf modify-class $unix end-of-input line-option ;


USING: regexp.classes regexp.nfa ;

M: LETTER-class modify-class modify-letter-class ;


USING: regexp.classes regexp.nfa ;

M: ^crlf modify-class ^unix beginning-of-input line-option ;


USING: accessors kernel regexp.ast regexp.nfa ;

M: alternation modify-class
    [ first>> ] [ second>> ] bi [ modify-class ] bi@
    alternation boa ;


USING: accessors kernel regexp.ast regexp.nfa ;

M: concatenation modify-class
    [ first>> ] [ second>> ] bi [ modify-class ] bi@
    concatenation boa ;


USING: kernel regexp.ast regexp.classes regexp.nfa ;

M: dot modify-class
    drop dotall option?
    [ t ] [ unix-lines option? unix-dot nonl-dot ? ] if ;


USING: arrays kernel math regexp.ast regexp.classes regexp.nfa
unicode ;

M: integer modify-class
    case-insensitive option? [
        dup Letter?
        [ [ ch>lower ] [ ch>upper ] bi 2array <or-class> ] when
    ] when ;


USING: regexp.classes regexp.nfa ;

M: letter-class modify-class modify-letter-class ;


USING: accessors kernel regexp.ast regexp.nfa ;

M: lookahead modify-class term>> modify-class lookahead boa ;


USING: accessors kernel regexp.ast regexp.nfa ;

M: lookbehind modify-class term>> modify-class lookbehind boa ;


USING: accessors regexp.classes regexp.nfa ;

M: not-class modify-class class>> modify-class <not-class> ;


USING: kernel regexp.nfa ;

M: object modify-class ;


USING: accessors regexp.classes regexp.nfa sequences ;

M: or-class modify-class seq>> [ modify-class ] map <or-class> ;


USING: accessors regexp.classes regexp.nfa ;

M: primitive-class modify-class
    class>> modify-class <primitive-class> ;


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

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 ;