next-match ( i string regexp quot: ( i string regexp -- j ) reverse? -- start end ? )

Vocabulary

regexp.private

Inputs

i	an object
string	an object
regexp	an object
quot	a quotation with stack effect ( i string regexp -- j )
reverse?	an object

Outputs

start	an object
end	an object
?	an object

Definition

USING: kernel sequences ;

IN: regexp.private

:: next-match
    ( i string regexp quot: ( i string regexp -- j ) reverse? -- start end ? )
    f f f i string reverse? search-range
    [ 3nip string regexp quot reverse? (next-match) dup ] find
    2drop ; inline