https://perl5.git.perl.org / perl5.git / blame
| Commit | Line | Data |
|---|---|---|
| bdb7fd9f RGS |
1 | Compress::Raw::Bzip2 T_PTROBJ |
| 2 | Compress::Raw::Bunzip2 T_PTROBJ | |
| 3 | ||
| 4 | const char * T_PV | |
| 5 | char * T_PV | |
| 6 | uLong T_UV | |
| 7 | z_off_t T_UV | |
| 8 | DualType T_DUAL | |
| 9 | int_undef T_IV_undef | |
| 10 | ||
| 11 | ||
| 12 | ############################################################################# | |
| 13 | INPUT | |
| 14 | T_UV | |
| 15 | $var = (unsigned long)SvUV($arg) | |
| 16 | T_IV_undef | |
| 17 | if (SvOK($arg)) | |
| 18 | $var = SvIV($arg); | |
| 19 | else | |
| 20 | $var = 0 ; | |
| 21 | T_PV | |
| 22 | if (SvOK($arg)) | |
| 23 | $var = ($type)SvPVbyte_nolen($arg); | |
| 24 | else | |
| 25 | $var = NULL ; | |
| 26 | ||
| 27 | T_PTROBJ_AV | |
| 28 | if ($arg == &PL_sv_undef || $arg == NULL) | |
| 29 | $var = NULL ; | |
| 30 | else if (sv_derived_from($arg, \"${ntype}\")) { | |
| 31 | IV tmp = SvIV(getInnerObject($arg)) ; | |
| 32 | $var = INT2PTR($type, tmp); | |
| 33 | ||
| 34 | } | |
| 35 | else | |
| 36 | croak(\"$var is not of type ${ntype}\") | |
| 37 | ||
| 38 | ||
| 39 | ||
| 40 | ############################################################################# | |
| 41 | OUTPUT | |
| 42 | T_UV | |
| 43 | sv_setuv($arg, (IV)$var); | |
| 44 | ||
| 45 | ||
| 46 | T_DUAL | |
| 47 | setDUALstatus($arg, $var) ; | |
| 48 | ||
| 49 | ||
| 50 | T_PV | |
| 51 | sv_setpv((SV*)$arg, $var); | |
| 52 | ||
| 53 | ||
| 54 |