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 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 ;