]>
Commit | Line | Data |
---|---|---|
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 | |
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 | ||
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 | ||
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); | |
63 | ||
64 | T_OPUS_PICTURE_TAG | |
65 | sv_setref_pv($arg, \"Audio::Opusfile::PictureTag\", (void*)$var); |