Handbook Glossary
factorcode.org
password-callback ( -- alien )


Vocabulary
io.sockets.secure.openssl

Inputs
None

Outputs
alienan object


Definition
USING: alien alien.c-types arrays kernel libc locals.backend
math math.order ;

IN: io.sockets.secure.openssl

: password-callback ( -- alien )
int { void* int bool void* } cdecl [
1array load-local load-local load-local load-local
-3 get-local local-value -3 get-local [
1 load-locals B{ 0 } 0 get-local set-local-value
1 drop-locals
] curry unless
-3 get-local local-value strlen load-local
-1 get-local -4 get-local local-value 0 get-local 1 +
-2 get-local min memcpy 0 get-local 5 drop-locals
] alien-callback ;