Commit | Line | Data |
---|---|---|
a3f1cbda 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 | ||
8 | INPUT | |
9 | # All three types are copies of T_PTROBJ, only difference being the class name | |
10 | ||
11 | T_OGG_OPUS_FILE | |
12 | if (SvROK($arg) && sv_derived_from($arg, \"Audio::Opusfile\")) { | |
13 | IV tmp = SvIV((SV*)SvRV($arg)); | |
14 | $var = INT2PTR($type,tmp); | |
15 | } | |
16 | else | |
17 | Perl_croak_nocontext(\"%s: %s is not of type %s\", | |
18 | ${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]}, | |
19 | \"$var\", \"Audio::Opusfile\") | |
20 | ||
21 | T_OPUS_HEAD | |
22 | if (SvROK($arg) && sv_derived_from($arg, \"Audio::Opusfile::Head\")) { | |
23 | IV tmp = SvIV((SV*)SvRV($arg)); | |
24 | $var = INT2PTR($type,tmp); | |
25 | } | |
26 | else | |
27 | Perl_croak_nocontext(\"%s: %s is not of type %s\", | |
28 | ${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]}, | |
29 | \"$var\", \"Audio::Opusfile::Head\") | |
30 | ||
31 | T_OPUS_TAGS | |
32 | if (SvROK($arg) && sv_derived_from($arg, \"Audio::Opusfile::Tags\")) { | |
33 | IV tmp = SvIV((SV*)SvRV($arg)); | |
34 | $var = INT2PTR($type,tmp); | |
35 | } | |
36 | else | |
37 | Perl_croak_nocontext(\"%s: %s is not of type %s\", | |
38 | ${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]}, | |
39 | \"$var\", \"Audio::Opusfile::Tags\") | |
40 | ||
41 | OUTPUT | |
42 | ||
43 | T_OGG_OPUS_FILE | |
44 | sv_setref_pv($arg, \"Audio::Opusfile\", (void*)$var); | |
45 | ||
46 | T_OPUS_HEAD | |
47 | sv_setref_pv($arg, \"Audio::Opusfile::Head\", (void*)$var); | |
48 | ||
49 | T_OPUS_TAGS | |
50 | sv_setref_pv($arg, \"Audio::Opusfile::Tags\", (void*)$var); |