no_comment

1 files changed, 25 insertions, 0 deletions

diff --git a/perl-install/Newt/typemap b/perl-install/Newt/typemap
new file mode 100644
index 000000000..5aaa2f668
--- /dev/null
+++ b/perl-install/Newt/typemap
@@ -0,0 +1,25 @@
+TYPEMAP
+
+const char *		T_PV
+const void *		T_PV
+int *			T_PV
+void **			T_PACKED
+
+enum newtFlagsSense	T_IV
+enum newtGridElement	T_IV
+SV **			T_SV
+
+Newt::Component		NewtComponent
+Newt::Grid		NewtGrid
+
+INPUT
+NewtComponent
+	$var = ($type) SvIV((SV*)SvRV($arg))
+NewtGrid
+	$var = ($type) SvIV((SV*)SvRV($arg))
+
+OUTPUT
+NewtComponent
+	sv_setref_pv($arg, "Newt::Component", (void*) $var);
+NewtGrid
+	sv_setref_pv($arg, "Newt::Grid", (void*) $var);