(make-input/output-secure) ( input output hostname -- )

Vocabulary

io.sockets.secure.openssl

Inputs

input	an object
output	an object
hostname	an object

Outputs

None

Definition

USING: accessors io.sockets.secure kernel ;

IN: io.sockets.secure.openssl

: (make-input/output-secure) ( input output hostname -- )
    [
        dup handle>> non-ssl-socket?
        [ upgrade-on-non-socket ] unless
    ] dip '[ _ <ssl-socket> ] change-handle handle>> >>handle
    drop ;