<pcre2> ( expr -- pcre2 )

Vocabulary

pcre2.private

Inputs

expr

an object

Outputs

pcre2

an object

Definition

USING: accessors alien.c-types alien.data destructors
io.encodings.string io.encodings.utf8 kernel pcre2 pcre2.ffi
sequences ;

IN: pcre2.private

: <pcre2> ( expr -- pcre2 )
    utf8 encode dup length 0
    { int PCRE2_SIZE } [ f pcre2_compile ] with-out-parameters
    pick
    [ 2drop pcre2 new-disposable swap >>handle ]
    [ [ int deref ] [ PCRE2_SIZE deref ] bi* pcre2-error ] if ;