<secure-context> ( config -- context )

Vocabulary

io.sockets.secure

Inputs

config

a secure-config

Outputs

context

a secure-context

Word description

Creates a new secure-context. This word should not usually be called directly, use with-secure-context instead.

Definition

IN: io.sockets.secure

HOOK: <secure-context> secure-socket-backend
    ( config -- context )

Methods

USING: accessors combinators destructors io.sockets.secure
io.sockets.secure.openssl kernel openssl openssl.libssl system ;

M: openssl <secure-context>
    maybe-init-ssl [
        dup method>> ssl-method SSL_CTX_new dup ssl-error
        <openssl-context> |dispose {
            [ set-session-cache ]
            [ load-certificate-chain ]
            [ set-default-password ]
            [ use-private-key-file ]
            [ load-verify-locations ]
            [ set-verify-depth ]
            [ load-dh-params ]
            [ set-ecdh-params ]
            [ os macosx? [ drop ] [ ignore-unexpected-eof ] if ]
            [ ]
        } cleave
    ] with-destructors ;