check-ssl-error ( ssl ret exra-cases/f -- event/f )

Vocabulary

io.sockets.secure.openssl

Inputs

ssl	a SSL
ret	error code returned by an SSL function
exra-cases/f	f or an assoc of error codes and quotations

Outputs

event/f

f or a symbol indicating the desired operation

Word description

Checks if the last SSL function returned successfully or not. If so, returns f or a symbol, +input+ or +output+, that indicates the socket operation required by libssl.

Definition

USING: assocs combinators io.files kernel openssl openssl.libssl
sequences ;

IN: io.sockets.secure.openssl

: check-ssl-error ( ssl ret exra-cases/f -- event/f )
    [ tuck SSL_get_error ] dip {
        { SSL_ERROR_NONE [ drop f ] }
        { SSL_ERROR_WANT_READ [ drop +input+ ] }
        { SSL_ERROR_WANT_WRITE [ drop +output+ ] }
        { SSL_ERROR_SYSCALL [ syscall-error ] }
        { SSL_ERROR_SSL [ drop (ssl-error) ] }
    } append [ [ ( -- n ) execute-effect ] dip ] assoc-map at
    [ ( x -- y ) call-effect ] [ no-cond ] if* ;