password [ B{ 0 } password! ] unless
[let | len [ password strlen ] |
- buf password len 1+ size min memcpy
+ buf password len 1 + size min memcpy
len
]
] alien-callback ;
SYMBOL: default-secure-context
-: context-expired? ( context -- ? )
- dup [ handle>> expired? ] [ drop t ] if ;
-
: current-secure-context ( -- ctx )
secure-context get [
- default-secure-context get dup context-expired? [
- drop
- <secure-config> <secure-context> default-secure-context set-global
- current-secure-context
- ] when
+ default-secure-context [
+ <secure-config> <secure-context>
+ ] initialize-alien
] unless* ;
: <ssl-handle> ( fd -- ssl )
] [ 2drop ] if ;
: get-session ( addrspec -- session/f )
- current-secure-context sessions>> at
- dup expired? [ drop f ] when ;
+ current-secure-context sessions>> at ;
: save-session ( session addrspec -- )
current-secure-context sessions>> set-at ;