(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 ;

IN: regexp.private

:: (next-match)
    ( i string regexp quot: ( i string regexp -- j ) reverse? -- start end ? )
    i string regexp quot call dup
    [| j | reverse? [ j i ] [ i j ] if string ] [ drop f f f ]
    if ; inline