Commit | Line | Data |
25f0751f |
1 | Compress::Raw::Zlib::gzFile T_PTROBJ |
2 | Compress::Raw::Zlib::deflateStream T_PTROBJ |
3 | Compress::Raw::Zlib::inflateStream T_PTROBJ |
4 | Compress::Raw::Zlib::inflateScanStream T_PTROBJ |
5 | |
6 | #Compress::Raw::Zlib::gzFile T_PTROBJ_AV |
7 | #Compress::Raw::Zlib::Deflate T_PTROBJ_AV |
8 | #Compress::Raw::Zlib::Inflate T_PTROBJ_AV |
9 | #Compress::Raw::Zlib::InflateScan T_PTROBJ_AV |
10 | |
11 | Bytef * T_PV |
12 | #uInt T_IV |
13 | #uLongf T_IV |
14 | const char * T_PV |
15 | char * T_PV |
16 | uLong T_UV |
17 | z_off_t T_UV |
18 | DualType T_DUAL |
19 | int_undef T_IV_undef |
20 | |
21 | |
22 | ############################################################################# |
23 | INPUT |
24 | T_UV |
25 | $var = (unsigned long)SvUV($arg) |
26 | T_IV_undef |
27 | if (SvOK($arg)) |
28 | $var = SvIV($arg); |
29 | else |
30 | $var = 0 ; |
31 | T_PV |
32 | if (SvOK($arg)) |
33 | $var = ($type)SvPVbyte_nolen($arg); |
34 | else |
35 | $var = NULL ; |
36 | |
37 | T_PTROBJ_AV |
38 | if ($arg == &PL_sv_undef || $arg == NULL) |
39 | $var = NULL ; |
40 | else if (sv_derived_from($arg, \"${ntype}\")) { |
41 | IV tmp = SvIV(getInnerObject($arg)) ; |
42 | $var = INT2PTR($type, tmp); |
43 | |
44 | } |
45 | else |
46 | croak(\"$var is not of type ${ntype}\") |
47 | |
48 | |
49 | |
50 | ############################################################################# |
51 | OUTPUT |
52 | T_UV |
53 | sv_setuv($arg, (IV)$var); |
54 | |
55 | T_DUAL |
56 | setDUALstatus($arg, $var) ; |
57 | |
58 | T_PV |
59 | sv_setpv((SV*)$arg, $var); |
60 | |
61 | |