alternative-names ( certificate type -- names )

Vocabulary

io.sockets.secure.openssl.private

Inputs

certificate	an object
type	an object

Outputs

names

an object

Definition

USING: accessors alien.data continuations
io.sockets.secure.openssl kernel openssl.libssl sequences ;

IN: io.sockets.secure.openssl.private

:: alternative-names ( certificate type -- names )
    certificate NID_subject_alt_name f f X509_get_ext_d2i [
        [
            name-stack>sequence [ type>> type = ] filter [
                d>> dNSName>> [ data>> ] [ length>> ] bi
                memory>byte-array
            ] map
        ] over '[ _ GENERAL_NAMES_free ] finally
    ] [ { } ] if* ;