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