projects / audio-opusfile.git / blame
| Commit | Line | Data |
|---|---|---|
| 2f4b5b1b MG |
1 | const OggOpusFile* T_OGG_OPUS_FILE |
| 2 | OggOpusFile* T_OGG_OPUS_FILE | |
| 3 | const OpusHead* T_OPUS_HEAD | |
| 4 | OpusHead* T_OPUS_HEAD | |
| 5 | const OpusTags* T_OPUS_TAGS | |
| 6 | OpusTags* T_OPUS_TAGS | |
| 7 | const OpusPictureTag* T_OPUS_PICTURE_TAG | |
| 8 | OpusPictureTag* T_OPUS_PICTURE_TAG | |
| a3f1cbda MG |
9 | |
| 10 | INPUT | |
| 11 | # All three types are copies of T_PTROBJ, only difference being the class name | |
| 12 | ||
| 13 | T_OGG_OPUS_FILE | |
| 14 | if (SvROK($arg) && sv_derived_from($arg, \"Audio::Opusfile\")) { | |
| 15 | IV tmp = SvIV((SV*)SvRV($arg)); | |
| 16 | $var = INT2PTR($type,tmp); | |
| 17 | } | |
| 18 | else | |
| 19 | Perl_croak_nocontext(\"%s: %s is not of type %s\", | |
| 20 | ${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]}, | |
| 21 | \"$var\", \"Audio::Opusfile\") | |
| 22 | ||
| 23 | T_OPUS_HEAD | |
| 24 | if (SvROK($arg) && sv_derived_from($arg, \"Audio::Opusfile::Head\")) { | |
| 25 | IV tmp = SvIV((SV*)SvRV($arg)); | |
| 26 | $var = INT2PTR($type,tmp); | |
| 27 | } | |
| 28 | else | |
| 29 | Perl_croak_nocontext(\"%s: %s is not of type %s\", | |
| 30 | ${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]}, | |
| 31 | \"$var\", \"Audio::Opusfile::Head\") | |
| 32 | ||
| 33 | T_OPUS_TAGS | |
| 34 | if (SvROK($arg) && sv_derived_from($arg, \"Audio::Opusfile::Tags\")) { | |
| 35 | IV tmp = SvIV((SV*)SvRV($arg)); | |
| 36 | $var = INT2PTR($type,tmp); | |
| 37 | } | |
| 38 | else | |
| 39 | Perl_croak_nocontext(\"%s: %s is not of type %s\", | |
| 40 | ${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]}, | |
| 41 | \"$var\", \"Audio::Opusfile::Tags\") | |
| 42 | ||
| 2f4b5b1b MG |
43 | T_OPUS_PICTURE_TAG |
| 44 | if (SvROK($arg) && sv_derived_from($arg, \"Audio::Opusfile::PictureTag\")) { | |
| 45 | IV tmp = SvIV((SV*)SvRV($arg)); | |
| 46 | $var = INT2PTR($type,tmp); | |
| 47 | } | |
| 48 | else | |
| 49 | Perl_croak_nocontext(\"%s: %s is not of type %s\", | |
| 50 | ${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]}, | |
| 51 | \"$var\", \"Audio::Opusfile::Tags\") | |
| 52 | ||
| a3f1cbda MG |
53 | OUTPUT |
| 54 | ||
| 55 | T_OGG_OPUS_FILE | |
| 56 | sv_setref_pv($arg, \"Audio::Opusfile\", (void*)$var); | |
| 57 | ||
| 58 | T_OPUS_HEAD | |
| 59 | sv_setref_pv($arg, \"Audio::Opusfile::Head\", (void*)$var); | |
| 60 | ||
| 61 | T_OPUS_TAGS | |
| 62 | sv_setref_pv($arg, \"Audio::Opusfile::Tags\", (void*)$var); | |
| 2f4b5b1b MG |
63 | |
| 64 | T_OPUS_PICTURE_TAG | |
| 65 | sv_setref_pv($arg, \"Audio::Opusfile::PictureTag\", (void*)$var); |