Codebase list libcrypt-ssleay-perl / fresh-snapshots/main typemap
fresh-snapshots/main

Tree @fresh-snapshots/main (Download .tar.gz)

typemap @fresh-snapshots/main — raw · history · blame 

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