alpn_select_cb_func ( -- alien )

Vocabulary

io.sockets.secure.openssl.private

Inputs

None

Outputs

alien

an object

Definition

USING: accessors io.encodings.string io.encodings.utf8
io.sockets.secure.openssl kernel locals.backend openssl.libssl
sequences ;

IN: io.sockets.secure.openssl.private

: alpn_select_cb_func ( -- alien )
    [
        6 load-locals
        current-secure-context config>>
        alpn-supported-protocols>>
        [ SSL_TLSEXT_ERR_NOACK ] -4 get-local -3 get-local -2
        get-local -1 get-local [
            4 load-locals -3 get-local -2 get-local [
                2 load-locals
                -1 get-local 0 get-local 2 drop-locals
            ] curry curry dip
            [ utf8 encode dup length prefix ] map
            concat dup length -1 get-local 0 get-local
            SSL_select_next_proto OPENSSL_NPN_NEGOTIATED =
            [ SSL_TLSEXT_ERR_OK ] [ SSL_TLSEXT_ERR_ALERT_FATAL ]
            if 4 drop-locals
        ] curry curry curry curry if-empty 6 drop-locals
    ] SSL_CTX_alpn_select_cb_func ;