IntenseFinance/gnucash
3
0
Fork 0
mirror of https://github.com/Gnucash/gnucash.git synced 2025-02-25 18:55:30 -06:00
Code Issues Packages Projects Releases Wiki Activity

#483796, Fancy Invoice: Convert the elements of an AccountValueList when wrapping.

Browse Source 
GLIST_HELPER_INOUT does not touch the single elements and
GncAccountValue typemaps do not work here.


git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@16554 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Andreas Köhler 2007-10-06 23:05:16 +00:00
parent 058772449e
commit 5e325fa41d
2 changed files with 30 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/base-typemaps.i
View File

@ -41,7 +41,7 @@ typedef char gchar;
GList *c_list = NULL;
while (!SCM_NULLP(list)) {
Account *p;
void *p;
SCM p_scm = SCM_CAR(list);
if (SCM_FALSEP(p_scm) || SCM_NULLP(p_scm))

30
src/business/business-core/business-core.i
View File

@ -64,10 +64,38 @@ static GncEmployee * gncEmployeeLookupFlip(GUID g, QofBook *b)
%}
GLIST_HELPER_INOUT(EntryList, SWIGTYPE_p__gncEntry);
GLIST_HELPER_INOUT(AccountValueList, SWIGTYPE_p__gncAccountValue);
%typemap(in) GncAccountValue * "$1 = gnc_scm_to_account_value_ptr($input);"
%typemap(out) GncAccountValue * "$result = gnc_account_value_ptr_to_scm($1);"
%typemap(in) AccountValueList * {
SCM list = $input;
GList *c_list = NULL;
while (!SCM_NULLP(list)) {
GncAccountValue *p;
SCM p_scm = SCM_CAR(list);
if (SCM_FALSEP(p_scm) || SCM_NULLP(p_scm))
p = NULL;
else
p = gnc_scm_to_account_value_ptr(p_scm);
c_list = g_list_prepend(c_list, p);
list = SCM_CDR(list);
}
$1 = g_list_reverse(c_list);
}
%typemap(out) AccountValueList * {
SCM list = SCM_EOL;
GList *node;
for (node = $1; node; node = node->next)
list = scm_cons(gnc_account_value_ptr_to_scm(node->data), list);
$result = scm_reverse(list);
}
/* Parse the header files to generate wrappers */