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

Vocabulary

io.sockets.secure.openssl

Inputs

ssl-handle	an object
ret	an object
system-error	an object

Outputs

event/f

an object

Definition

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

IN: io.sockets.secure.openssl

:: (ssl-error-syscall)
    ( ssl-handle ret system-error -- event/f )
    ssl-handle f >>connected t >>terminated drop
    ERR_get_error dup zero? [
        drop ret zero?
        [ f ] [
            system-error dup ECONNRESET =
            [ drop premature-close-error ] [
                dup zero?
                [ drop premature-close-error ] [ (throw-errno) ]
                if
            ] if
        ] if
    ] [ (ssl-error-string) throw ] if ;