mirror of
https://github.com/Gnucash/gnucash.git
synced 2024-11-24 09:50:54 -06:00
5bf9ca0b55
Previous swigged function- note the `new` is never deleted. Because
they are both const char*, they must be swigged similarly to strings.
static SCM
_wrap_QOF_ID_BOOK_SCM ()
{
#define FUNC_NAME "QOF-ID-BOOK-SCM"
SCM gswig_result;
SWIGUNUSED int gswig_list_p = 0;
QofIdTypeConst result;
result = QOF_ID_BOOK_SCM();
{
QofIdTypeConst * resultptr;
resultptr = new QofIdTypeConst((const QofIdTypeConst &) result);
gswig_result = SWIG_NewPointerObj (resultptr, SWIGTYPE_p_QofIdTypeConst, 1);
}
return gswig_result;
#undef FUNC_NAME
}
After this change:
static SCM
_wrap_QOF_ID_BOOK_SCM ()
{
#define FUNC_NAME "QOF-ID-BOOK-SCM"
SCM gswig_result;
SWIGUNUSED int gswig_list_p = 0;
QofIdType result;
result = QOF_ID_BOOK_SCM();
gswig_result = result ? scm_from_utf8_string (result) : SCM_BOOL_F;
return gswig_result;
#undef FUNC_NAME
}
304 lines
11 KiB
OpenEdge ABL
304 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
|
|
#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
|