r14950 - gnucash/branches/swig-redo/src/business - Add SWIG interface definitions for the business modules.

[Chris Shoemaker]

Author: chris
Date: 2006-10-09 19:46:02 -0400 (Mon, 09 Oct 2006)
New Revision: 14950
Trac: http://svn.gnucash.org/trac/changeset/14950

Added:
   gnucash/branches/swig-redo/src/business/business-core/business-core.i
   gnucash/branches/swig-redo/src/business/dialog-tax-table/dialog-tax-table.i
Log:
Add SWIG interface definitions for the business modules.



Added: gnucash/branches/swig-redo/src/business/business-core/business-core.i
===================================================================
--- gnucash/branches/swig-redo/src/business/business-core/business-core.i	2006-10-09 23:44:11 UTC (rev 14949)
+++ gnucash/branches/swig-redo/src/business/business-core/business-core.i	2006-10-09 23:46:02 UTC (rev 14950)
@@ -0,0 +1,161 @@
+%module sw_business_core
+%{
+/* Includes the header in the wrapper code */
+#include <config.h>
+#include <gncAddress.h>
+#include <gncBillTerm.h>
+#include <gncCustomer.h>
+#include <gncEmployee.h>
+#include <gncEntry.h>
+#include <gncInvoice.h>
+#include <gncJob.h>
+#include <gncOrder.h>
+#include <gncOwner.h>
+#include <gncTaxTable.h>
+#include <gncVendor.h>
+#include <gncBusGuile.h>
+#include "engine-helpers.h"
+#include "gncBusGuile.h"
+
+#include <g-wrap-wct.h> //Temporary. Adds no link dep?!?
+%}
+
+// Temporary SWIG<->G-wrap converters for engine types
+%typemap(in) QofBook * "$1 = (QofBook *)gw_wcp_get_ptr($input);"
+%typemap(out) QofBook * {
+  $result = gw_wcp_assimilate_ptr($1, scm_c_eval_string("<gnc:Book*>"));
+}
+%typemap(in) gboolean "$1 = SCM_NFALSEP($input) ? TRUE : FALSE;"
+%typemap(out) gboolean "$result = $1 ? SCM_BOOL_T : SCM_BOOL_F;"
+
+%typemap(in) Timespec "$1 = gnc_timepair2timespec($input);"
+%typemap(out) Timespec "$result = gnc_timespec2timepair($1);"
+
+%typemap(in) GUID "$1 = gnc_scm2guid($input);"
+%typemap(out) GUID "$result = gnc_guid2scm($1);"
+
+%typemap(in) gnc_numeric "$1 = gnc_scm_to_numeric($input);"
+%typemap(out) gnc_numeric "$result = gnc_numeric_to_scm($1);"
+
+// End of temporary typemaps.
+
+
+%rename(gncOwnerReturnGUID) gncOwnerRetGUID;
+
+%inline %{
+GUID gncTaxTableReturnGUID(GncTaxTable *x)
+{ return (x ? *(qof_instance_get_guid(QOF_INSTANCE(x))) : *(guid_null())); }
+
+GUID gncInvoiceReturnGUID(GncInvoice *x)
+{ return (x ? *(qof_instance_get_guid(QOF_INSTANCE(x))) : *(guid_null())); }
+
+GUID gncJobReturnGUID(GncJob *x)
+{ return (x ? *(qof_instance_get_guid(QOF_INSTANCE(x))) : *(guid_null())); }
+
+GUID gncVendorReturnGUID(GncVendor *x)
+{ return (x ? *(qof_instance_get_guid(QOF_INSTANCE(x))) : *(guid_null())); }
+
+GUID gncCustomerReturnGUID(GncCustomer *x)
+{ return (x ? *(qof_instance_get_guid(QOF_INSTANCE(x))) : *(guid_null())); }
+
+GUID gncEmployeeReturnGUID(GncEmployee *x)
+{ return (x ? *(qof_instance_get_guid(QOF_INSTANCE(x))) : *(guid_null())); }
+
+GncTaxTable * gncTaxTableLookupFlip(GUID g, QofBook *b)
+{ return gncTaxTableLookup(b, &g); }
+
+GncInvoice * gncInvoiceLookupFlip(GUID g, QofBook *b)
+{ return gncInvoiceLookup(b, &g); }
+
+GncJob * gncJobLookupFlip(GUID g, QofBook *b)
+{ return gncJobLookup(b, &g); }
+
+GncVendor * gncVendorLookupFlip(GUID g, QofBook *b)
+{ return gncVendorLookup(b, &g); }
+
+GncCustomer * gncCustomerLookupFlip(GUID g, QofBook *b)
+{ return gncCustomerLookup(b, &g); }
+
+GncEmployee * gncEmployeeLookupFlip(GUID g, QofBook *b)
+{ return gncEmployeeLookup(b, &g); }
+
+%}
+
+%typemap(out) EntryList * {
+  SCM list = SCM_EOL;
+  GList *node;
+
+  for (node = $1; node; node = node->next)
+    list = scm_cons(SWIG_NewPointerObj(node->data,
+        SWIGTYPE_p__gncEntry, 0), list);
+
+  $result = scm_reverse(list);
+}
+
+%typemap(out) AccountValueList * {
+  SCM list = SCM_EOL;
+  GList *node;
+
+  for (node = $1; node; node = node->next)
+    list = scm_cons(SWIG_NewPointerObj(node->data,
+        SWIGTYPE_p__gncAccountValue, 0), list);
+
+  $result = scm_reverse(list);
+}
+
+%typemap(in) GncAccountValue * "$1 = gnc_scm_to_account_value_ptr($input);"
+%typemap(out) GncAccountValue * "$result = gnc_account_value_ptr_to_scm($1);"
+
+
+/* Parse the header file to generate wrappers */
+%include <gncAddress.h>
+%include <gncBillTerm.h>
+%include <gncCustomer.h>
+%include <gncEmployee.h>
+%include <gncEntry.h>
+%include <gncInvoice.h>
+%include <gncJob.h>
+%include <gncOrder.h>
+%include <gncOwner.h>
+%include <gncTaxTable.h>
+%include <gncVendor.h>
+%include <gncBusGuile.h>
+
+#define URL_TYPE_CUSTOMER GNC_ID_CUSTOMER
+#define URL_TYPE_VENDOR GNC_ID_VENDOR
+#define URL_TYPE_EMPLOYEE GNC_ID_EMPLOYEE
+#define URL_TYPE_INVOICE GNC_ID_INVOICE
+// not exactly clean
+#define URL_TYPE_OWNERREPORT "owner-report"
+
+%init {
+  {
+    char tmp[100];
+
+#define SET_ENUM(e) snprintf(tmp, 100, "(set! %s (%s))", (e), (e));  \
+    scm_c_eval_string(tmp);
+
+    SET_ENUM("GNC-OWNER-CUSTOMER");
+    SET_ENUM("GNC-OWNER-VENDOR");
+    SET_ENUM("GNC-OWNER-EMPLOYEE");
+    SET_ENUM("GNC-OWNER-JOB");
+    SET_ENUM("GNC-AMT-TYPE-VALUE");
+    SET_ENUM("GNC-AMT-TYPE-PERCENT");
+
+    SET_ENUM("URL-TYPE-CUSTOMER");
+    SET_ENUM("URL-TYPE-VENDOR");
+    SET_ENUM("URL-TYPE-EMPLOYEE");
+    SET_ENUM("URL-TYPE-INVOICE");
+    SET_ENUM("URL-TYPE-OWNERREPORT");
+
+    SET_ENUM("INVOICE-FROM-TXN");
+    SET_ENUM("INVOICE-FROM-LOT");
+    SET_ENUM("INVOICE-OWNER");
+    SET_ENUM("OWNER-PARENTG");
+    SET_ENUM("OWNER-FROM-LOT");
+
+
+#undefine SET_ENUM
+  }
+
+}

Added: gnucash/branches/swig-redo/src/business/dialog-tax-table/dialog-tax-table.i
===================================================================
--- gnucash/branches/swig-redo/src/business/dialog-tax-table/dialog-tax-table.i	2006-10-09 23:44:11 UTC (rev 14949)
+++ gnucash/branches/swig-redo/src/business/dialog-tax-table/dialog-tax-table.i	2006-10-09 23:46:02 UTC (rev 14950)
@@ -0,0 +1,8 @@
+%module sw_dialog_tax_table
+%{
+/* Includes the header in the wrapper code */
+#include <config.h>
+#include <dialog-tax-table.h>
+%}
+
+TaxTableWindow * gnc_ui_tax_table_window_new (GNCBook *book);