diff options
author | Ralf S. Engelschall <rse@openssl.org> | 1999-02-10 09:38:31 +0000 |
---|---|---|
committer | Ralf S. Engelschall <rse@openssl.org> | 1999-02-10 09:38:31 +0000 |
commit | 8073036dd62848b616c6a817c155c3255074ec83 (patch) | |
tree | 8ae62e46c555ccc9e65b5dffd43cff25234c96af /perl/typemap | |
parent | 0517335e3cdc565edbecb53dec8ef9091c936763 (diff) |
Overhauled the Perl interface (perl/*):
- ported BN stuff to OpenSSL's different BN library
- made the perl/ source tree CVS-aware
- renamed the package from SSLeay to OpenSSL (the files still contain
their history because I've copied them in the repository)
- removed obsolete files (the test scripts will be replaced
by better Test::Harness variants in the future)
Diffstat (limited to 'perl/typemap')
-rw-r--r-- | perl/typemap | 52 |
1 files changed, 26 insertions, 26 deletions
diff --git a/perl/typemap b/perl/typemap index 5226fbc369..f67b598adf 100644 --- a/perl/typemap +++ b/perl/typemap @@ -14,83 +14,83 @@ INPUT T_DATUM $var.dptr=SvPV($arg,$var.dsize); T_MD_CTX - if (sv_derived_from($arg, \"SSLeay::MD\")) { + if (sv_derived_from($arg, \"OpenSSL::MD\")) { IV tmp = SvIV((SV*)SvRV($arg)); $var = (EVP_MD_CTX *) tmp; } else - croak(\"$var is not of type SSLeay::MD\") + croak(\"$var is not of type OpenSSL::MD\") T_CIPHER_CTX - if (sv_derived_from($arg, \"SSLeay::Cipher\")) { + if (sv_derived_from($arg, \"OpenSSL::Cipher\")) { IV tmp = SvIV((SV*)SvRV($arg)); $var = (EVP_CIPHER_CTX *) tmp; } else - croak(\"$var is not of type SSLeay::Cipher\") + croak(\"$var is not of type OpenSSL::Cipher\") T_BIGNUM - sv_to_BIGNUM(&($var),$arg,\"$var is not of type SSLeay::MD, int or string\") + sv_to_BIGNUM(&($var),$arg,\"$var is not of type OpenSSL::MD, int or string\") T_SSL_METHOD - if (sv_derived_from($arg, \"SSLeay::SSL::METHOD\")) { + if (sv_derived_from($arg, \"OpenSSL::SSL::METHOD\")) { IV tmp = SvIV((SV*)SvRV($arg)); $var = (SSL_METHOD *) tmp; } else - croak(\"$var is not of type SSLeay::SSL::METHOD\") + croak(\"$var is not of type OpenSSL::SSL::METHOD\") T_SSL_CTX - if (sv_derived_from($arg, \"SSLeay::SSL::CTX\")) { + if (sv_derived_from($arg, \"OpenSSL::SSL::CTX\")) { IV tmp = SvIV((SV*)SvRV($arg)); $var = (SSL_CTX *) tmp; } else - croak(\"$var is not of type SSLeay::SSL::CTX\") + croak(\"$var is not of type OpenSSL::SSL::CTX\") T_SSL_CIPHER - if (sv_derived_from($arg, \"SSLeay::SSL::CIPHER\")) { + if (sv_derived_from($arg, \"OpenSSL::SSL::CIPHER\")) { IV tmp = SvIV((SV*)SvRV($arg)); $var = (SSL_CIPHER *) tmp; } else - croak(\"$var is not of type SSLeay::SSL::CIPHER\") + croak(\"$var is not of type OpenSSL::SSL::CIPHER\") T_SSL - if (sv_derived_from($arg, \"SSLeay::SSL\")) { + if (sv_derived_from($arg, \"OpenSSL::SSL\")) { IV tmp = SvIV((SV*)SvRV($arg)); $var = (SSL *) tmp; } else - croak(\"$var is not of type SSLeay::SSL\") + croak(\"$var is not of type OpenSSL::SSL\") T_BIO - if (sv_derived_from($arg, \"SSLeay::BIO\")) { + if (sv_derived_from($arg, \"OpenSSL::BIO\")) { IV tmp = SvIV((SV*)SvRV($arg)); $var = (BIO *) tmp; } else - croak(\"$var is not of type SSLeay::BIO\") + croak(\"$var is not of type OpenSSL::BIO\") T_X509 - if (sv_derived_from($arg, \"SSLeay::X509\")) { + if (sv_derived_from($arg, \"OpenSSL::X509\")) { IV tmp = SvIV((SV*)SvRV($arg)); $var = (X509 *) tmp; } else - croak(\"$var is not of type SSLeay::X509\") + croak(\"$var is not of type OpenSSL::X509\") OUTPUT T_DATUM sv_setpvn($arg,$var.dptr,$var.dsize); T_MD_CTX - sv_setref_pv($arg, \"SSLeay::MD\", (void*)$var); + sv_setref_pv($arg, \"OpenSSL::MD\", (void*)$var); T_CIPHER_CTX - sv_setref_pv($arg, \"SSLeay::Cipher\", (void*)$var); + sv_setref_pv($arg, \"OpenSSL::Cipher\", (void*)$var); T_BIGNUM - sv_setref_pv($arg, \"SSLeay::BN\", (void*)$var); + sv_setref_pv($arg, \"OpenSSL::BN\", (void*)$var); T_SSL_METHOD - sv_setref_pv($arg, \"SSLeay::SSL::METHOD\", (void*)$var); + sv_setref_pv($arg, \"OpenSSL::SSL::METHOD\", (void*)$var); T_SSL_CTX - sv_setref_pv($arg, \"SSLeay::SSL::CTX\", (void*)$var); + sv_setref_pv($arg, \"OpenSSL::SSL::CTX\", (void*)$var); T_SSL_CIPHER - sv_setref_pv($arg, \"SSLeay::SSL::CIPHER\", (void*)$var); + sv_setref_pv($arg, \"OpenSSL::SSL::CIPHER\", (void*)$var); T_SSL - sv_setref_pv($arg, \"SSLeay::SSL\", (void*)$var); + sv_setref_pv($arg, \"OpenSSL::SSL\", (void*)$var); T_BIO - sv_setref_pv($arg, \"SSLeay::BIO\", (void*)$var); + sv_setref_pv($arg, \"OpenSSL::BIO\", (void*)$var); T_X509 - sv_setref_pv($arg, \"SSLeay::X509\", (void*)$var); + sv_setref_pv($arg, \"OpenSSL::X509\", (void*)$var); |