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