secure-connection ( client-out addrspec -- )

Vocabulary

io.sockets.secure.openssl

Inputs

client-out	an object
addrspec	an object

Outputs

None

Definition

USING: accessors io.timeouts kernel ;

IN: io.sockets.secure.openssl

: secure-connection ( client-out addrspec -- )
    [ handle>> ] dip [
        [
            dup get-session
            [ resume-session ] [ begin-session ] ?if
        ] curry with-timeout
    ] [ drop t >>connected drop ] 2bi ;