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 ? )
f f f i string reverse? search-range
[ 3nip string regexp quot reverse? (next-match) dup ] find
2drop ; inline