parse-match ( rc ovector name_table subject_bytes subject_length -- match )

Vocabulary

pcre2.private

Inputs

rc	an object
ovector	an object
name_table	an object
subject_bytes	an object
subject_length	an object

Outputs

match

an object

Definition

USING: arrays assocs kernel math sequences ;

IN: pcre2.private

:: parse-match
    ( rc ovector name_table subject_bytes subject_length -- match )
    rc <iota> [| i |
        i 2 * :> start_index i name_table at
        start_index ovector nth dup subject_length >
        [ drop "" ] [
            start_index 1 + ovector nth
            subject_bytes match-substring
        ] if 2array
    ] map ;