<ssl-socket> ( winsock hostname -- ssl )

Vocabulary

io.sockets.secure.openssl

Inputs

winsock	an object
hostname	an object

Outputs

ssl

an object

Definition

USING: accessors alien.strings destructors io.encodings.utf8
io.sockets.secure kernel openssl openssl.libcrypto
openssl.libssl ;

IN: io.sockets.secure.openssl

:: <ssl-socket> ( winsock hostname -- ssl )
    [
        winsock |dispose <ssl-handle> |dispose :> handle handle
        handle>> :> native-handle winsock socket-handle
        BIO_NOCLOSE BIO_new_socket dup ssl-error
        :> bio native-handle bio bio SSL_set_bio hostname [
            dup ip-host?
            [ drop ] [
                utf8 string>alien
                native-handle swap SSL_set_tlsext_host_name
                ssl-error
            ] if
        ] when* handle
    ] with-destructors ;