From c97631728ce7d6d3f4692a56c3cda7476b42a968 Mon Sep 17 00:00:00 2001
From: Lorry Tar Creator <lorry-tar-importer@baserock.org>
Date: Tue, 20 Nov 2007 14:28:05 +0000
Subject: Imported from
 /home/lorry/working-area/delta_perl-xml-parser/XML-Parser-2.36.tar.gz.

---
 Expat/typemap | 24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)
 create mode 100644 Expat/typemap

(limited to 'Expat/typemap')

diff --git a/Expat/typemap b/Expat/typemap
new file mode 100644
index 0000000..47d7dc5
--- /dev/null
+++ b/Expat/typemap
@@ -0,0 +1,24 @@
+#
+##### XML::Parser::Expat typemap
+#
+
+XML_Parser				T_PTR
+Encinfo *				T_ENCOBJ
+
+################################################################
+INPUT
+T_ENCOBJ
+	if (sv_derived_from($arg, \"XML::Parser::Encinfo\")) {
+	    IV tmp = SvIV((SV*)SvRV($arg));
+	    $var = ($type) tmp;
+	}
+	else
+	    croak(\"$var is not of type XML::Parser::Encinfo\")
+################################################################
+OUTPUT
+T_ENCOBJ
+	if ($var) {
+	    sv_setref_pv($arg, \"XML::Parser::Encinfo\", (void*)$var);
+	}
+	else
+	    $arg = &PL_sv_undef;
-- 
cgit v1.2.1