Imported from /home/lorry/working-area/delta_perl-xml-parser/XML-Parser-2.36.tar.gz.HEADXML-Parser-2.36master

1 files changed, 24 insertions, 0 deletions

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;