alpn-wire-format ( protocols -- bytes )

Vocabulary

io.sockets.secure.openssl.private

Inputs

protocols

an object

Outputs

bytes

an object

Definition

USING: io.encodings.string io.encodings.utf8 kernel math.order
sequences ;

IN: io.sockets.secure.openssl.private

: alpn-wire-format ( protocols -- bytes )
    [
        utf8 encode dup length dup 1 255 between?
        [ prefix ] [ drop invalid-alpn-protocol ] if
    ] map B{ } concat-as ;