do-ssl-connect-once ( ssl-handle -- event/f )

Vocabulary

io.sockets.secure.openssl

Inputs

ssl-handle

an object

Outputs

event/f

an object

Definition

USING: accessors kernel openssl.libcrypto openssl.libssl ;

IN: io.sockets.secure.openssl

: do-ssl-connect-once ( ssl-handle -- event/f )
    dup handle>> ERR_clear_error SSL_connect dup 1 =
    [ 2drop f ] [ check-handshake-result ] if ;