1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
|
SSL_CTX* T_CTXOBJ
SSL* T_SSLOBJ
X509* T_X509OBJ
INPUT
T_CTXOBJ
if (sv_derived_from($arg, \"Crypt::SSLeay::CTX\")) {
IV stack_top = SvIV((SV*)SvRV($arg));
$var = INT2PTR($type, stack_top);
}
else
croak(\"$var is not an Crypt::SSLeay::CTX\")
T_SSLOBJ
if (sv_derived_from($arg, \"Crypt::SSLeay::Conn\")) {
IV stack_top = SvIV((SV*)SvRV($arg));
$var = INT2PTR($type, stack_top);
}
else
croak(\"$var is not an Crypt::SSLeay::Conn\")
T_X509OBJ
if (sv_derived_from($arg, \"Crypt::SSLeay::X509\")) {
IV stack_top = SvIV((SV*)SvRV($arg));
$var = INT2PTR($type, stack_top);
}
else
croak(\"$var is not an Crypt::SSLeay::X509\")
OUTPUT
T_CTXOBJ
sv_setref_pv($arg, \"Crypt::SSLeay::CTX\", (void*)$var);
T_SSLOBJ
sv_setref_pv($arg, \"Crypt::SSLeay::Conn\", (void*)$var);
T_X509OBJ
sv_setref_pv($arg, \"Crypt::SSLeay::X509\", (void*)$var);
|
