do-ssl-write ( buffer ssl-handle -- event/f )

Vocabulary

io.sockets.secure.openssl

Inputs

buffer	a buffer
ssl-handle	a ssl-handle

Outputs

event/f

a symbol indicating the desired operation or f

Word description

Writes from the buffer to the ssl connection.

Definition

USING: accessors io.buffers io.files kernel math
openssl.libcrypto openssl.libssl ;

IN: io.sockets.secure.openssl

: do-ssl-write ( buffer ssl-handle -- event/f )
    2dup handle>> swap [ buffer@ ] [ buffer-length ] bi
    ERR_clear_error SSL_write dup 0 >
    [ nip over buffer-consume buffer-empty? f +output+ ? ]
    [ check-ssl-error nip ] if ;