Vocabulary
regexp.private

Inputs
ian object
stringan object
regexpan object
quota quotation with stack effect ( i string regexp -- j )
reverse?an object


Outputs
startan object
endan object
?an object


Definition


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