pcre2-name-table-entries ( handle -- alist )

Vocabulary

pcre2.private

Inputs

handle

an object

Outputs

alist

an object

Definition

USING: alien.data alien.strings assocs endian grouping
io.encodings.utf8 kernel math sequences sorting ;

IN: pcre2.private

:: pcre2-name-table-entries ( handle -- alist )
    handle pcre2-name-count :> name-count name-count zero?
    [ f ] [
        handle pcre2-name-table handle pcre2-name-entry-size
        [ name-count * memory>byte-array ] keep <groups>
        [ 2 cut [ be> ] [ utf8 alien>string ] bi* ] map>alist
        sort-keys
    ] if ;