(each-match-forward) ( ... i string regexp quot: ( ... start end string -- ... ) -- ... )

Vocabulary

regexp.private

Inputs

i	an object
string	an object
regexp	an object
quot	a quotation with stack effect ( ... start end string -- ... )

Outputs

None

Definition

USING: kernel math sequences ;

IN: regexp.private

:: (each-match-forward)
    ( ... i string regexp quot: ( ... start end string -- ... ) -- ... )
    i string length <= [
        i string regexp do-next-match [| start end |
            start end string quot call start end eq?
            [ end 1 + ] [ end ] if
            string regexp quot (each-match-forward)
        ] [ 2drop ] if
    ] when ; inline recursive