1########################################################################
2TYPEMAP
3
4OggVorbis_File *        T_VORBIS
5vorbis_info *           T_VORBINFO
6vorbis_comment *        T_HVREF
7ov_callbacks *          T_PTROBJ
8ogg_int64_t             T_IV
9int *                   T_PTR
10
11
12########################################################################
13INPUT
14
15T_VORBIS
16        if (sv_derived_from($arg, \"Ogg::Vorbis\")) {
17                IV tmp = SvIV((SV*)SvRV($arg));
18                $var = ($type) tmp;
19        }
20        else
21                croak(\"$var is not of type Ogg::Vorbis\");
22
23T_VORBINFO
24        if (sv_derived_from($arg, \"Ogg::Vorbis::Info\")) {
25                IV tmp = SvIV((SV*)SvRV($arg));
26                $var = ($type) tmp;
27        }
28        else
29                croak(\"$var is not of type Ogg::Vorbis::Info\");
30
31
32########################################################################
33OUTPUT
34
35T_VORBIS
36        sv_setref_pv($arg, \"Ogg::Vorbis\", (void*)$var);
37
38T_VORBINFO
39        sv_setref_pv($arg, \"Ogg::Vorbis::Info\", (void*)$var);
40
41