C type to Perl type mappings

CVS patchset: 3745
CVS date: 2000/05/22 08:37:02

diff --git a/Perl-RPM/typemap b/Perl-RPM/typemap
new file mode 100644 (file)
index 0000000..0a592a2
--- /dev/null
+++ b/Perl-RPM/typemap
@@ -0,0 +1,45 @@
+# Treat this as -*- text -*-
+
+TYPEMAP
+
+const char *           T_PTROBJ
+RPM                    T_PTROBJ
+RPM::Database          O_RPM_Database
+RPM::Header            O_RPM_Header
+
+#
+# The following mappings for O_HvRV are taken directly from Dean Roehrich's
+# excellent XS Cookbook, vol. A.
+#
+
+OUTPUT
+
+O_RPM_Database
+       $arg = sv_bless(newRV_noinc((SV*)$var),
+                       gv_stashpv("RPM::Database", TRUE));
+       hv_magic($var, (GV *)Nullhv, 'P');
+
+O_RPM_Header
+       $arg = sv_bless(newRV_noinc((SV*)$var),
+                       gv_stashpv("RPM::Header", TRUE));
+       hv_magic($var, (GV *)Nullhv, 'P');
+
+INPUT
+
+O_RPM_Database
+       if (sv_isobject($arg) && (SvTYPE(SvRV($arg)) == SVt_PVHV))
+           $var = (HV*)SvRV($arg);
+        else
+       {
+           warn(\"${Package}::$func_name() -- $var is not a blessed HV reference\");
+           XSRETURN_UNDEF;
+       }
+
+O_RPM_Header
+       if (sv_isobject($arg) && (SvTYPE(SvRV($arg)) == SVt_PVHV))
+           $var = (HV*)SvRV($arg);
+        else
+       {
+           warn(\"${Package}::$func_name() -- $var is not a blessed HV reference\");
+           XSRETURN_UNDEF;
+       }