X-Git-Url: https://git.dogcows.com/gitweb?a=blobdiff_plain;f=src%2Ftypemap;fp=src%2Ftypemap;h=fc4a616e339a39fe043a571f3c23b78e1773b9f3;hb=5b7b5519d955cd0c99d094ba140514e0a2b73083;hp=0000000000000000000000000000000000000000;hpb=8988b3bef0760b4cab8144715cc3d8f55688861c;p=chaz%2Fhomebank

diff --git a/src/typemap b/src/typemap
new file mode 100644
index 0000000..fc4a616
--- /dev/null
+++ b/src/typemap
@@ -0,0 +1,60 @@
+
+TYPEMAP
+
+Account*        T_HB_OBJECT
+Transaction*    T_HB_OBJECT
+GObject*        T_GOBJECT
+
+gint            T_IV
+guint           T_UV
+gdouble         T_NV
+gboolean        T_GBOOLEAN
+gchar           T_CHAR
+gchar*          T_GCHAR_PTR
+const gchar*    T_GCHAR_PTR
+
+GPtrArray*      T_GPTRARRAY
+GHashTable*     T_GHASHTABLE
+
+
+INPUT
+
+T_HB_OBJECT
+	EXT_P2C_OBJECT(\"HomeBank::${ my ($t) = $ntype =~ /(.+)Ptr$/; \$t }\", $arg, $var, $type);
+
+T_GOBJECT
+	$var = SvGobject($arg);
+
+T_GCHAR_PTR
+	$var = SvGchar_ptr($arg);
+
+T_GBOOLEAN
+	$var = SvGboolean($arg);
+
+T_GPTRARRAY
+	$var = SvGptrarray($arg);
+
+T_GHASHTABLE
+	$var = SvGhashtable($arg);
+
+
+OUTPUT
+
+T_HB_OBJECT
+	EXT_C2P_OBJECT(\"HomeBank::${ my ($t) = $ntype =~ /(.+)Ptr$/; \$t }\", $arg, rc_ref($var));
+
+T_GOBJECT
+	$arg = newSVgobject($var);
+
+T_GCHAR_PTR
+	$arg = newSVgchar_ptr($var);
+
+T_GBOOLEAN
+	$arg = newSVgboolean($var);
+
+T_GPTRARRAY
+	$arg = newSVgptrarray($var);
+
+T_GHASHTABLE
+	$arg = newSVghashtable($var);
+