mirror of
https://github.com/Gnucash/gnucash.git
synced 2024-11-22 08:57:17 -06:00
327 lines
11 KiB
OpenEdge ABL
327 lines
11 KiB
OpenEdge ABL
/** @file
|
|
@brief interface file for SWIG, used by python-bindings and scheme/guile.
|
|
@addtogroup python_bindings
|
|
*/
|
|
/********************************************************************\
|
|
* This program is free software; you can redistribute it and/or *
|
|
* modify it under the terms of the GNU General Public License as *
|
|
* published by the Free Software Foundation; either version 2 of *
|
|
* the License, or (at your option) any later version. *
|
|
* *
|
|
* This program is distributed in the hope that it will be useful, *
|
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of *
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the *
|
|
* GNU General Public License for more details. *
|
|
* *
|
|
* You should have received a copy of the GNU General Public License*
|
|
* along with this program; if not, contact: *
|
|
* *
|
|
* Free Software Foundation Voice: +1-617-542-5942 *
|
|
* 51 Franklin Street, Fifth Floor Fax: +1-617-542-2652 *
|
|
* Boston, MA 02110-1301, USA gnu@gnu.org *
|
|
* *
|
|
\********************************************************************/
|
|
%include "constraints.i"
|
|
%include <stdint.i>
|
|
|
|
typedef void * gpointer; // Not sure why SWIG doesn't figure this out.
|
|
%typemap(newfree) gchar * "g_free($1);"
|
|
|
|
#if defined(SWIGGUILE)
|
|
|
|
typedef int gint;
|
|
typedef gint64 time64;
|
|
typedef unsigned int guint;
|
|
typedef double gdouble;
|
|
typedef float gfloat;
|
|
typedef char gchar;
|
|
|
|
%typemap (out) char * {
|
|
$result = SCM_UNSPECIFIED;
|
|
if ($1) {
|
|
$result = scm_from_utf8_string((const char *)$1);
|
|
}
|
|
if (!$1 || !scm_is_true($result)) {
|
|
$result = scm_c_make_string(0, SCM_UNDEFINED);
|
|
}
|
|
}
|
|
%typemap(in) GNCPrintAmountInfo "$1 = gnc_scm2printinfo($input);"
|
|
%typemap(out) GNCPrintAmountInfo "$result = gnc_printinfo2scm($1);"
|
|
|
|
%typemap(in) gboolean "$1 = scm_is_true($input) ? TRUE : FALSE;"
|
|
%typemap(out) gboolean "$result = $1 ? SCM_BOOL_T : SCM_BOOL_F;"
|
|
|
|
%typemap(in) GDate "$1 = gnc_time64_to_GDate($input);"
|
|
|
|
%typemap(in) GncGUID "$1 = gnc_scm2guid($input);"
|
|
%typemap(out) GncGUID "$result = gnc_guid2scm($1);"
|
|
%typemap(in) GncGUID * (GncGUID g) " g = gnc_scm2guid($input); $1 = &g; "
|
|
%typemap(out) GncGUID * " $result = ($1) ? gnc_guid2scm(*($1)): SCM_BOOL_F; "
|
|
|
|
%typemap(in) gnc_numeric "$1 = gnc_scm_to_numeric($input);"
|
|
%typemap(out) gnc_numeric "$result = gnc_numeric_to_scm($1);"
|
|
|
|
%typemap(in) gint64 " $1 = scm_to_int64($input); "
|
|
%typemap(out) gint64 " $result = scm_from_int64($1); "
|
|
|
|
%typemap(in) time64 " $1 = scm_to_int64($input); "
|
|
%typemap(out) time64 " $result = scm_from_int64($1); "
|
|
%typemap(in) time64 * (time64 t) "t = scm_to_int64($input); $1 = &t;"
|
|
%typemap(out) time64 * " $result = ($1) ? scm_from_int64(*($1)) : SCM_BOOL_F; "
|
|
|
|
%typemap(in) QofIdType " $1 = scm_to_utf8_string ($input); "
|
|
%typemap(out) QofIdType " $result = $1 ? scm_from_utf8_string ($1) : SCM_BOOL_F; "
|
|
%typemap(freearg) QofIdType " g_free ((gpointer)$1); "
|
|
%typemap(newfree) QofIdType " g_free ((gpointer)$1); "
|
|
|
|
%typemap(in) QofIdTypeConst " $1 = scm_to_utf8_string ($input); "
|
|
%typemap(out) QofIdTypeConst " $result = $1 ? scm_from_utf8_string ($1) : SCM_BOOL_F; "
|
|
%typemap(freearg) QofIdTypeConst " g_free ((gpointer)$1); "
|
|
%typemap(newfree) QofIdTypeConst " g_free ((gpointer)$1); "
|
|
|
|
%typemap(in) struct tm * (struct tm t, char *tzone) {
|
|
SCM tm = $input;
|
|
t.tm_sec = scm_to_int(SCM_SIMPLE_VECTOR_REF(tm, 0));
|
|
t.tm_min = scm_to_int(SCM_SIMPLE_VECTOR_REF(tm, 1));
|
|
t.tm_hour = scm_to_int(SCM_SIMPLE_VECTOR_REF(tm, 2));
|
|
t.tm_mday = scm_to_int(SCM_SIMPLE_VECTOR_REF(tm, 3));
|
|
t.tm_mon = scm_to_int(SCM_SIMPLE_VECTOR_REF(tm, 4));
|
|
t.tm_year = scm_to_int(SCM_SIMPLE_VECTOR_REF(tm, 5));
|
|
t.tm_wday = scm_to_int(SCM_SIMPLE_VECTOR_REF(tm, 6));
|
|
t.tm_yday = scm_to_int(SCM_SIMPLE_VECTOR_REF(tm, 7));
|
|
t.tm_isdst = scm_to_int(SCM_SIMPLE_VECTOR_REF(tm, 8));
|
|
%#ifdef HAVE_STRUCT_TM_GMTOFF
|
|
t.tm_gmtoff = scm_to_int(SCM_SIMPLE_VECTOR_REF(tm, 9));
|
|
SCM zone = SCM_SIMPLE_VECTOR_REF(tm, 10);
|
|
tzone = SCM_UNBNDP(zone) ? NULL : scm_to_locale_string(zone);
|
|
t.tm_zone = tzone;
|
|
%#endif
|
|
$1 = &t;
|
|
}
|
|
%typemap(freearg) struct tm * {
|
|
%#ifdef HAVE_STRUCT_TM_GMTOFF
|
|
free(tzone$argnum);
|
|
%#endif
|
|
}
|
|
|
|
%typemap(out) struct tm * {
|
|
SCM tm = scm_c_make_vector(11, SCM_UNDEFINED);
|
|
struct tm* t = $1;
|
|
if (t != NULL)
|
|
{
|
|
SCM_SIMPLE_VECTOR_SET(tm, 0, scm_from_int(t->tm_sec));
|
|
SCM_SIMPLE_VECTOR_SET(tm, 1, scm_from_int(t->tm_min));
|
|
SCM_SIMPLE_VECTOR_SET(tm, 2, scm_from_int(t->tm_hour));
|
|
SCM_SIMPLE_VECTOR_SET(tm, 3, scm_from_int(t->tm_mday));
|
|
SCM_SIMPLE_VECTOR_SET(tm, 4, scm_from_int(t->tm_mon));
|
|
SCM_SIMPLE_VECTOR_SET(tm, 5, scm_from_int(t->tm_year));
|
|
SCM_SIMPLE_VECTOR_SET(tm, 6, scm_from_int(t->tm_wday));
|
|
SCM_SIMPLE_VECTOR_SET(tm, 7, scm_from_int(t->tm_yday));
|
|
SCM_SIMPLE_VECTOR_SET(tm, 8, scm_from_int(t->tm_isdst));
|
|
%#ifdef HAVE_STRUCT_TM_GMTOFF
|
|
SCM_SIMPLE_VECTOR_SET(tm, 9, scm_from_long(t->tm_gmtoff));
|
|
SCM_SIMPLE_VECTOR_SET(tm, 10, scm_from_locale_string(t->tm_zone?t->tm_zone:"Unset"));
|
|
%#else
|
|
SCM_SIMPLE_VECTOR_SET(tm, 9, scm_from_long(0));
|
|
SCM_SIMPLE_VECTOR_SET(tm, 10, scm_from_locale_string("GMT"));
|
|
%#endif
|
|
}
|
|
$result = tm;
|
|
}
|
|
|
|
%typemap(newfree) struct tm * "gnc_tm_free($1);"
|
|
|
|
%define GLIST_HELPER_INOUT(ListType, ElemSwigType)
|
|
%typemap(in) ListType * {
|
|
SCM list = $input;
|
|
GList *c_list = NULL;
|
|
|
|
while (!scm_is_null(list)) {
|
|
void *p;
|
|
|
|
SCM p_scm = SCM_CAR(list);
|
|
if (scm_is_false(p_scm) || scm_is_null(p_scm))
|
|
p = NULL;
|
|
else
|
|
p = SWIG_MustGetPtr(p_scm, ElemSwigType, 1, 0);
|
|
|
|
c_list = g_list_prepend(c_list, p);
|
|
list = SCM_CDR(list);
|
|
}
|
|
|
|
$1 = g_list_reverse(c_list);
|
|
}
|
|
%typemap(out) ListType * {
|
|
SCM list = SCM_EOL;
|
|
GList *node;
|
|
|
|
for (node = $1; node; node = node->next)
|
|
list = scm_cons(SWIG_NewPointerObj(node->data,
|
|
ElemSwigType, 0), list);
|
|
|
|
$result = scm_reverse(list);
|
|
}
|
|
%enddef
|
|
|
|
|
|
%define VECTOR_HELPER_INOUT(VectorType, ElemSwigType, ElemType)
|
|
%typemap(in) VectorType {
|
|
std::vector<ElemType*> accum;
|
|
for (auto node = $input; !scm_is_null (node); node = scm_cdr (node))
|
|
{
|
|
auto p_scm = scm_car (node);
|
|
auto p = (scm_is_false (p_scm) || scm_is_null (p_scm)) ? static_cast<ElemType*>(nullptr) :
|
|
static_cast<ElemType*>(SWIG_MustGetPtr(p_scm, ElemSwigType, 1, 0));
|
|
accum.push_back (p);
|
|
}
|
|
accum.swap ($1);
|
|
}
|
|
|
|
%typemap(out) VectorType {
|
|
SCM list = SCM_EOL;
|
|
std::for_each ($1.rbegin(), $1.rend(), [&list](auto n)
|
|
{ list = scm_cons(SWIG_NewPointerObj(n, ElemSwigType, 0), list); });
|
|
$result = list;
|
|
}
|
|
%enddef
|
|
|
|
#elif defined(SWIGPYTHON) /* Typemaps for Python */
|
|
|
|
%import "glib.h"
|
|
|
|
%apply int { gint };
|
|
%apply unsigned int { guint };
|
|
%apply long { glong };
|
|
%apply int32_t { gint32 };
|
|
%apply int64_t { gint64 };
|
|
%apply unsigned long { gulong };
|
|
%apply uint64_t { guint64 };
|
|
%apply double { gdouble };
|
|
%apply char* { gchar* };
|
|
|
|
%typemap(in) gboolean {
|
|
if ($input == Py_True)
|
|
$1 = TRUE;
|
|
else if ($input == Py_False)
|
|
$1 = FALSE;
|
|
else
|
|
{
|
|
PyErr_SetString(
|
|
PyExc_ValueError,
|
|
"Python object passed to a gboolean argument was not True "
|
|
"or False" );
|
|
return NULL;
|
|
}
|
|
}
|
|
|
|
%typemap(out) gboolean {
|
|
if ($1 == TRUE)
|
|
{
|
|
$result = Py_True;
|
|
Py_INCREF($result);
|
|
}
|
|
else if ($1 == FALSE)
|
|
{
|
|
$result = Py_False;
|
|
Py_INCREF($result);
|
|
}
|
|
else
|
|
{
|
|
PyErr_SetString(
|
|
PyExc_ValueError,
|
|
"function returning gboolean returned a value that wasn't "
|
|
"TRUE or FALSE.");
|
|
return NULL;
|
|
}
|
|
}
|
|
|
|
%typemap(in) QofIdType {
|
|
if (PyUnicode_Check($input)) {
|
|
$1 = PyUnicode_AsUTF8($input);
|
|
} else if (PyBytes_Check($input)) {
|
|
$1 = PyBytes_AsString($input);
|
|
} else {
|
|
PyErr_SetString(PyExc_TypeError, "not a string or bytes object");
|
|
return NULL;
|
|
}
|
|
}
|
|
|
|
%typemap(in) QofIdTypeConst {
|
|
if (PyUnicode_Check($input)) {
|
|
$1 = PyUnicode_AsUTF8($input);
|
|
} else if (PyBytes_Check($input)) {
|
|
$1 = PyBytes_AsString($input);
|
|
} else {
|
|
PyErr_SetString(PyExc_TypeError, "not a string or bytes object");
|
|
return NULL;
|
|
}
|
|
}
|
|
|
|
%typemap(in) GSList *, QofQueryParamList * {
|
|
$1 = NULL;
|
|
/* Check if is a list */
|
|
if (PyList_Check($input)) {
|
|
int i;
|
|
int size = PyList_Size($input);
|
|
for (i = size-1; i >= 0; i--) {
|
|
PyObject *o = PyList_GetItem($input, i);
|
|
if (PyUnicode_Check(o)) {
|
|
/* There's no way to preserve constness in GSList items. */
|
|
$1 = g_slist_prepend($1, (char*)PyUnicode_AsUTF8(PyList_GetItem($input, i)));
|
|
} else {
|
|
PyErr_SetString(PyExc_TypeError, "list must contain strings");
|
|
g_slist_free($1);
|
|
return NULL;
|
|
}
|
|
}
|
|
} else {
|
|
PyErr_SetString(PyExc_TypeError, "not a list");
|
|
return NULL;
|
|
}
|
|
}
|
|
|
|
%typemap(out) GList *, CommodityList *, SplitList *, AccountList *, LotList *,
|
|
MonetaryList *, PriceList *, EntryList * {
|
|
gpointer data;
|
|
GList *l;
|
|
PyObject *list = PyList_New(0);
|
|
for (l = $1; l != NULL; l = l->next)
|
|
{
|
|
data = l->data;
|
|
if (GNC_IS_ACCOUNT(data))
|
|
PyList_Append(list, SWIG_NewPointerObj(data, SWIGTYPE_p_Account, 0));
|
|
else if (GNC_IS_SPLIT(data))
|
|
PyList_Append(list, SWIG_NewPointerObj(data, SWIGTYPE_p_Split, 0));
|
|
else if (GNC_IS_TRANSACTION(data))
|
|
PyList_Append(list, SWIG_NewPointerObj(data, SWIGTYPE_p_Transaction, 0));
|
|
else if (GNC_IS_COMMODITY(data))
|
|
PyList_Append(list, SWIG_NewPointerObj(data, SWIGTYPE_p_gnc_commodity, 0));
|
|
else if (GNC_IS_COMMODITY_NAMESPACE(data))
|
|
PyList_Append(list, SWIG_NewPointerObj(data, SWIGTYPE_p_gnc_commodity_namespace, 0));
|
|
else if (GNC_IS_LOT(data))
|
|
PyList_Append(list, SWIG_NewPointerObj(data, SWIGTYPE_p_GNCLot, 0));
|
|
else if (GNC_IS_PRICE(data))
|
|
PyList_Append(list, SWIG_NewPointerObj(data, SWIGTYPE_p_GNCPrice, 0));
|
|
else if (GNC_IS_INVOICE(data))
|
|
PyList_Append(list, SWIG_NewPointerObj(data, SWIGTYPE_p__gncInvoice, 0));
|
|
else if (GNC_IS_ENTRY(data))
|
|
PyList_Append(list, SWIG_NewPointerObj(data, SWIGTYPE_p__gncEntry, 0));
|
|
else if (GNC_IS_CUSTOMER(data))
|
|
PyList_Append(list, SWIG_NewPointerObj(data, SWIGTYPE_p__gncCustomer, 0));
|
|
else if (GNC_IS_VENDOR(data))
|
|
PyList_Append(list, SWIG_NewPointerObj(data, SWIGTYPE_p__gncVendor, 0));
|
|
else if (GNC_IS_EMPLOYEE(data))
|
|
PyList_Append(list, SWIG_NewPointerObj(data, SWIGTYPE_p__gncEmployee, 0));
|
|
else if (GNC_IS_JOB(data))
|
|
PyList_Append(list, SWIG_NewPointerObj(data, SWIGTYPE_p__gncJob, 0));
|
|
else if (GNC_IS_TAXTABLE(data))
|
|
PyList_Append(list, SWIG_NewPointerObj(data, SWIGTYPE_p__gncTaxTable, 0));
|
|
else if ($1_descriptor == $descriptor(MonetaryList *))
|
|
PyList_Append(list, SWIG_NewPointerObj(data, $descriptor(gnc_monetary *), 0));
|
|
else
|
|
PyList_Append(list, SWIG_NewPointerObj(data, SWIGTYPE_p_void, 0));
|
|
}
|
|
$result = list;
|
|
}
|
|
#endif
|