ssl-error-syscall ( ssl-handle -- event/f )

Vocabulary

io.sockets.secure.openssl

Inputs

ssl-handle

an object

Outputs

event/f

an object

Definition

USING: accessors combinators io.sockets.secure kernel libc
openssl.libcrypto ;

IN: io.sockets.secure.openssl

: ssl-error-syscall ( ssl-handle -- event/f )
    f >>connected t >>terminated drop ERR_get_error {
        {
            -1
            [
                errno ECONNRESET =
                [ premature-close-error ] [ throw-errno ] if f
            ]
        }
        { 0 [ f ] }
    } case ;