ext/Compress/Zlib/typemap

   1 Compress::Zlib::gzFile          T_PTROBJ
   2 Compress::Zlib::deflateStream   T_PTROBJ
   3 Compress::Zlib::inflateStream   T_PTROBJ
   4 Compress::Zlib::inflateScanStream       T_PTROBJ
   5 Bytef *                         T_PV
   6 #uInt                           T_IV
   7 #uLongf                         T_IV
   8 const char *                    T_PV
   9 char *                          T_PV
  10 uLong                           T_UV
  11 z_off_t                         T_UV
  12 DualType                        T_DUAL
  13 int_undef           T_IV_undef
  14
  15
  16 #############################################################################
  17 INPUT
  18 T_UV
  19         $var = (unsigned long)SvUV($arg)
  20 T_IV_undef
  21         if (SvOK($arg))
  22         $var = SvIV($arg);
  23     else
  24         $var = 0 ;
  25 T_PV
  26         if (SvOK($arg))
  27             $var = ($type)SvPVbyte_nolen($arg);
  28         else
  29             $var = NULL ;
  30
  31
  32 #############################################################################
  33 OUTPUT
  34 T_UV
  35         sv_setuv($arg, (IV)$var);
  36
  37 T_DUAL
  38         setDUALstatus($arg, $var) ;
  39
  40 T_PV
  41         sv_setpv((SV*)$arg, $var);
  42
  43