compile-next-match ( regexp -- regexp )

Vocabulary

regexp.private

Inputs

regexp

an object

Outputs

regexp

an object

Definition

USING: accessors kernel kernel.private regexp sequences.private
strings words ;

IN: regexp.private

: compile-next-match ( regexp -- regexp )
    dup [ [ drop ] ] dip [
        [ compile-regexp dfa>> def>> ] [ reverse-regexp? ] bi
        [ [ [ { array-capacity string regexp } declare ] ] dip ]
        dip [ next-match ] 2curry compose
        ( i string regexp -- start end string ) define-temp
    ] curry compose [ [ dup \ next-initial-word = ] ] dip
    [ when ] curry compose change-next-match ;