| Compress::Raw::Zlib::gzFile T_PTROBJ |
| Compress::Raw::Zlib::deflateStream T_PTROBJ |
| Compress::Raw::Zlib::inflateStream T_PTROBJ |
| Compress::Raw::Zlib::inflateScanStream T_PTROBJ |
| |
| #Compress::Raw::Zlib::gzFile T_PTROBJ_AV |
| #Compress::Raw::Zlib::Deflate T_PTROBJ_AV |
| #Compress::Raw::Zlib::Inflate T_PTROBJ_AV |
| #Compress::Raw::Zlib::InflateScan T_PTROBJ_AV |
| |
| Bytef * T_PV |
| #uInt T_IV |
| #uLongf T_IV |
| const char * T_PV |
| char * T_PV |
| uLong T_UV |
| z_off_t T_UV |
| DualType T_DUAL |
| int_undef T_IV_undef |
| |
| |
| ############################################################################# |
| INPUT |
| T_UV |
| $var = (unsigned long)SvUV($arg) |
| T_IV_undef |
| if (SvOK($arg)) |
| $var = SvIV($arg); |
| else |
| $var = 0 ; |
| T_PV |
| if (SvOK($arg)) |
| $var = ($type)SvPVbyte_nolen($arg); |
| else |
| $var = NULL ; |
| |
| T_PTROBJ_AV |
| if ($arg == &PL_sv_undef || $arg == NULL) |
| $var = NULL ; |
| else if (sv_derived_from($arg, \"${ntype}\")) { |
| IV tmp = SvIV(getInnerObject($arg)) ; |
| $var = INT2PTR($type, tmp); |
| |
| } |
| else |
| croak(\"$var is not of type ${ntype}\") |
| |
| |
| |
| ############################################################################# |
| OUTPUT |
| T_UV |
| sv_setuv($arg, (IV)$var); |
| |
| T_DUAL |
| setDUALstatus($arg, $var) ; |
| |
| T_PV |
| sv_setpv((SV*)$arg, $var); |
| |
| |