vcs.maemo.org Git - pkg-perl/blob - deb-src/libnet-ssleay-perl/libnet-ssleay-perl-1.35/typemap

   1 TYPEMAP
   2 SSL_METHOD *    T_IV
   3 SSL_CTX *       T_IV
   4 SSL_SESSION *   T_IV
   5 SSL *           T_IV
   6 RSA *           T_IV
   7 DH *            T_IV
   8 X509 *          T_IV
   9 X509_CRL *      T_IV
  10 X509_LOOKUP *   T_IV
  11 X509_NAME *     T_IV
  12 X509_EXTENSION *        T_IV
  13 BIO *           T_IV
  14 BIO_METHOD *    T_IV
  15 EVP_PKEY *      T_IV
  16 CERT *          T_IV
  17 LHASH *         T_IV
  18 struct cert_st * T_IV
  19 X509_STORE_CTX * T_IV
  20 ASN1_UTCTIME *   T_IV
  21 ASN1_OCTET_STRING *   T_IV
  22 EVP_PKEY *       T_IV
  23 const char *     T_PV
  24 const unsigned char * T_PV
  25 CRYPTO_EX_new *  T_IV
  26 CRYPTO_EX_dup *  T_IV
  27 CRYPTO_EX_free * T_IV
  28 SSL_CIPHER *     T_IV
  29 int *            T_IV
  30 COMP_METHOD *    T_IV
  31 X509_STORE *     T_IV
  32 X509_NAME_STACK *  T_IV
  33 ENGINE *         T_IV
  34 pem_password_cb *  T_IV
  35 generate_key_cb *  T_IV
  36 callback_ret_int * T_IV
  37 callback_no_ret *  T_IV
  38 cb_ssl_int_int_ret_void *  T_IV
  39 cb_ssl_int_int_ret_RSA *  T_IV
  40 cb_ssl_int_int_ret_DH  *  T_IV
  41 perl_filehandle_t T_PERL_IO_HANDLE
  42
  43 INPUT
  44
  45 T_PERL_IO_HANDLE
  46         if ($arg && SvOK($arg) && SvROK($arg)) {
  47                 $var = ($type)PerlIO_fileno( IoIFP( sv_2io(SvRV($arg)) ) );
  48         } else {
  49                 $var = ($type)SvIV($arg);
  50         }