From 6ba98a9f9f48e13738d9736cba9c45b5e94f42f2 Mon Sep 17 00:00:00 2001
From: Brian Cully <bjc@kublai.com>
Date: Mon, 14 Apr 2008 21:52:55 -0400
Subject: Initial import

---
 perl/typemap | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)
 create mode 100644 perl/typemap

(limited to 'perl/typemap')

diff --git a/perl/typemap b/perl/typemap
new file mode 100644
index 0000000..c22830d
--- /dev/null
+++ b/perl/typemap
@@ -0,0 +1,23 @@
+const char *	T_PV
+nasth *		T_PTROBJ
+NASTD::Hole	O_NASTH
+
+#
+# Output methods
+#
+OUTPUT
+O_NASTH
+	sv_setref_pv($arg, "Asshole", (void *)$var);
+
+#
+# Input methods
+#
+INPUT
+O_NASTH
+	if (sv_isobject($arg) && (SvTYPE(SvRV($arg)) == SVt_PVMG)) {
+		$var = ($type)SvIV((SV *)SvRV($arg));
+	} else {
+		warn(\"${Package}::$func_name() --\"
+		     \" $var is not a valid nasthole.\");
+		XSRETURN_UNDEF;
+	}
-- 
cgit v1.2.3