default-pasword ( ctx -- alien )


Vocabulary
io.sockets.secure.openssl

Inputs
ctxan object


Outputs
alienan object


Definition
USING: accessors alien.data io.encodings.latin1 kernel sequences
;

IN: io.sockets.secure.openssl

: default-pasword ( ctx -- alien )
[ config>> password>> latin1 malloc-string ] [ aliens>> ] bi
[ push ] [ drop ] 2bi ;