establish-connection ( client-out remote -- )

Vocabulary

io.sockets.private

Inputs

client-out	an object
remote	an object

Outputs

None

Definition

IN: io.sockets.private

GENERIC: establish-connection ( client-out remote -- )

Methods

USING: accessors combinators io.backend.unix io.sockets.private
io.sockets.unix kernel libc unix.ffi ;

M: object establish-connection
    2dup [ handle>> handle-fd ] [ make-sockaddr/size ] bi*
    connect 0 =
    [ 2drop ] [
        errno {
            { EINTR [ establish-connection ] }
            { EINPROGRESS [ drop wait-to-connect ] }
            [ (throw-errno) ]
        } case
    ] if ;


USING: accessors io.sockets.private io.sockets.secure
io.sockets.secure.openssl kernel ;

M: secure establish-connection
    addrspec>>
    [ establish-connection ] [ secure-connection ] 2bi ;