4 EVP_CIPHER_CTX * T_CIPHER_CTX
6 SSL_METHOD * T_SSL_METHOD
8 SSL_CIPHER * T_SSL_CIPHER
15 $var.dptr=SvPV($arg,$var.dsize);
17 if (sv_derived_from($arg, \"OpenSSL::MD\")) {
18 IV tmp = SvIV((SV*)SvRV($arg));
19 $var = (EVP_MD_CTX *) tmp;
22 croak(\"$var is not of type OpenSSL::MD\")
24 if (sv_derived_from($arg, \"OpenSSL::Cipher\")) {
25 IV tmp = SvIV((SV*)SvRV($arg));
26 $var = (EVP_CIPHER_CTX *) tmp;
29 croak(\"$var is not of type OpenSSL::Cipher\")
31 sv_to_BIGNUM(&($var),$arg,\"$var is not of type OpenSSL::MD, int or string\")
33 if (sv_derived_from($arg, \"OpenSSL::SSL::METHOD\")) {
34 IV tmp = SvIV((SV*)SvRV($arg));
35 $var = (SSL_METHOD *) tmp;
38 croak(\"$var is not of type OpenSSL::SSL::METHOD\")
40 if (sv_derived_from($arg, \"OpenSSL::SSL::CTX\")) {
41 IV tmp = SvIV((SV*)SvRV($arg));
42 $var = (SSL_CTX *) tmp;
45 croak(\"$var is not of type OpenSSL::SSL::CTX\")
47 if (sv_derived_from($arg, \"OpenSSL::SSL::CIPHER\")) {
48 IV tmp = SvIV((SV*)SvRV($arg));
49 $var = (SSL_CIPHER *) tmp;
52 croak(\"$var is not of type OpenSSL::SSL::CIPHER\")
54 if (sv_derived_from($arg, \"OpenSSL::SSL\")) {
55 IV tmp = SvIV((SV*)SvRV($arg));
59 croak(\"$var is not of type OpenSSL::SSL\")
61 if (sv_derived_from($arg, \"OpenSSL::BIO\")) {
62 IV tmp = SvIV((SV*)SvRV($arg));
66 croak(\"$var is not of type OpenSSL::BIO\")
68 if (sv_derived_from($arg, \"OpenSSL::X509\")) {
69 IV tmp = SvIV((SV*)SvRV($arg));
73 croak(\"$var is not of type OpenSSL::X509\")
76 sv_setpvn($arg,$var.dptr,$var.dsize);
78 sv_setref_pv($arg, \"OpenSSL::MD\", (void*)$var);
80 sv_setref_pv($arg, \"OpenSSL::Cipher\", (void*)$var);
82 sv_setref_pv($arg, \"OpenSSL::BN\", (void*)$var);
84 sv_setref_pv($arg, \"OpenSSL::SSL::METHOD\", (void*)$var);
86 sv_setref_pv($arg, \"OpenSSL::SSL::CTX\", (void*)$var);
88 sv_setref_pv($arg, \"OpenSSL::SSL::CIPHER\", (void*)$var);
90 sv_setref_pv($arg, \"OpenSSL::SSL\", (void*)$var);
92 sv_setref_pv($arg, \"OpenSSL::BIO\", (void*)$var);
94 sv_setref_pv($arg, \"OpenSSL::X509\", (void*)$var);