X-Git-Url: http://git.ieval.ro/?a=blobdiff_plain;f=typemap;fp=typemap;h=c780241374648cc7c32c81972a485c01a2858840;hb=2f4b5b1be44a659661b40871a41b9e3c40539498;hp=1181bcfe236ab4aba1e6a21630134b25303e5c12;hpb=77f5c7e4df6e22c6ae2f23aaf6a7a4062b0e9ba6;p=audio-opusfile.git

diff --git a/typemap b/typemap
index 1181bcf..c780241 100644
--- a/typemap
+++ b/typemap
@@ -1,9 +1,11 @@
-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 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
@@ -38,6 +40,16 @@ T_OPUS_TAGS
 			${$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
@@ -48,3 +60,6 @@ T_OPUS_HEAD
 
 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);