password-callback ( -- alien )

Vocabulary

io.sockets.secure.openssl

Inputs

None

Outputs

alien

an 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 4 load-locals 0 get-local local-value 0 get-local 
        [
            load-local B{ 0 } 0 get-local set-local-value
            1 drop-locals
        ] curry unless 0 get-local local-value strlen load-local
        -4 get-local -1 get-local local-value 0 get-local 1 +
        -3 get-local min memcpy 0 get-local 5 drop-locals
    ] alien-callback ;