findnext ( matcher -- matcher match/f )

Vocabulary

pcre.private

Inputs

matcher

an object

Outputs

matcher	an object
match/f	an object

Definition

USING: accessors alien.enums arrays combinators kernel math pcre
pcre.ffi sequences ;

IN: pcre.private

: findnext ( matcher -- matcher match/f )
    dup {
        [ pcre>> ]
        [ extra>> ]
        [ subject>> ]
        [ ofs>> ]
        [ exec-opts>> ]
    } cleave exec over dup -1 <
    [ PCRE_ERRORS number>enum pcre-error ] [
        -1 = [
            2drop dup exec-opts>> 0 =
            [ f ] [
                dup [ subject>> ] [ ofs>> ] bi next-utf8-char
                [ >>ofs 0 >>exec-opts findnext ] [ f ] if*
            ] if
        ] [
            [
                nip [
                    first2 = [ empty-match-opts ] [ 0 ] if
                    >>exec-opts
                ] [ second >>ofs ] bi
            ] [ 2array ] 2bi
        ] if
    ] if ;