X-Git-Url: http://git.ieval.ro/?a=blobdiff_plain;f=typemap;fp=typemap;h=12c4fdd0d0b606a3ef8b76916b91a3738689c655;hb=eed4cab11beebd224a0aaf0193a13e929bef6cfe;hp=c780241374648cc7c32c81972a485c01a2858840;hpb=f9bbe8963866129322920bf80b8e2675d84338b9;p=audio-opusfile.git

diff --git a/typemap b/typemap
index c780241..12c4fdd 100644
--- a/typemap
+++ b/typemap
@@ -1,65 +1,4 @@
-const OggOpusFile*    T_OGG_OPUS_FILE
-      OggOpusFile*    T_OGG_OPUS_FILE
-const OpusHead*       T_OPUS_HEAD
-      OpusHead*       T_OPUS_HEAD
-const OpusTags*       T_OPUS_TAGS
-      OpusTags*       T_OPUS_TAGS
-const OpusPictureTag* T_OPUS_PICTURE_TAG
-      OpusPictureTag* T_OPUS_PICTURE_TAG
-
-INPUT
-# All three types are copies of T_PTROBJ, only difference being the class name
-
-T_OGG_OPUS_FILE
-	if (SvROK($arg) && sv_derived_from($arg, \"Audio::Opusfile\")) {
-		IV tmp = SvIV((SV*)SvRV($arg));
-		$var = INT2PTR($type,tmp);
-	}
-	else
-		Perl_croak_nocontext(\"%s: %s is not of type %s\",
-			${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]},
-			\"$var\", \"Audio::Opusfile\")
-
-T_OPUS_HEAD
-	if (SvROK($arg) && sv_derived_from($arg, \"Audio::Opusfile::Head\")) {
-		IV tmp = SvIV((SV*)SvRV($arg));
-		$var = INT2PTR($type,tmp);
-	}
-	else
-		Perl_croak_nocontext(\"%s: %s is not of type %s\",
-			${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]},
-			\"$var\", \"Audio::Opusfile::Head\")
-
-T_OPUS_TAGS
-	if (SvROK($arg) && sv_derived_from($arg, \"Audio::Opusfile::Tags\")) {
-		IV tmp = SvIV((SV*)SvRV($arg));
-		$var = INT2PTR($type,tmp);
-	}
-	else
-		Perl_croak_nocontext(\"%s: %s is not of type %s\",
-			${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]},
-			\"$var\", \"Audio::Opusfile::Tags\")
-
-T_OPUS_PICTURE_TAG
-	if (SvROK($arg) && sv_derived_from($arg, \"Audio::Opusfile::PictureTag\")) {
-		IV tmp = SvIV((SV*)SvRV($arg));
-		$var = INT2PTR($type,tmp);
-	}
-	else
-		Perl_croak_nocontext(\"%s: %s is not of type %s\",
-			${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]},
-			\"$var\", \"Audio::Opusfile::Tags\")
-
-OUTPUT
-
-T_OGG_OPUS_FILE
-	sv_setref_pv($arg, \"Audio::Opusfile\", (void*)$var);
-
-T_OPUS_HEAD
-	sv_setref_pv($arg, \"Audio::Opusfile::Head\", (void*)$var);
-
-T_OPUS_TAGS
-	sv_setref_pv($arg, \"Audio::Opusfile::Tags\", (void*)$var);
-
-T_OPUS_PICTURE_TAG
-	sv_setref_pv($arg, \"Audio::Opusfile::PictureTag\", (void*)$var);
+Audio::Opusfile             T_PTROBJ
+Audio::Opusfile::Head       T_PTROBJ
+Audio::Opusfile::Tags       T_PTROBJ
+Audio::Opusfile::PictureTag T_PTROBJ