alpn_select_cb_func ( -- alien )

Vocabulary

io.sockets.secure.openssl.private

Inputs

None

Outputs

alien

an object

Definition

USING: accessors classes.struct kernel locals.backend
openssl.libssl ;

IN: io.sockets.secure.openssl.private

: alpn_select_cb_func ( -- alien )
    [
        6 load-locals
        -4 get-local -3 get-local 0 get-local alpn-protocols
        memory>struct [ data>> ] [ length>> ] bi
        -2 get-local -1 get-local SSL_select_next_proto
        OPENSSL_NPN_NEGOTIATED =
        [ SSL_TLSEXT_ERR_OK ] [ SSL_TLSEXT_ERR_ALERT_FATAL ] if
        6 drop-locals
    ] SSL_CTX_alpn_select_cb_func ;