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

Improve converting vectors to SCM lists.

Browse Source
This commit is contained in:
John Ralls 2021-08-15 14:25:52 -07:00
parent 1cd2cf211c
commit 474bc360f4
1 changed files with 9 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
libgnucash/app-utils/gnc-optiondb.i
View File

@ -358,12 +358,9 @@ scm_from_value<GncOptionAccountList>(GncOptionAccountList value)
{
SCM s_list = SCM_EOL;
for (auto acct : value)
{
SCM elem = scm_list_1(SWIG_NewPointerObj(acct, SWIGTYPE_p_Account, 0));
s_list = scm_append(scm_list_2(s_list, elem));
}
return s_list;
s_list = scm_cons(SWIG_NewPointerObj(acct, SWIGTYPE_p_Account, 0),
s_list);
return scm_reverse(s_list);
}
QofBook* gnc_option_test_book_new();
@ -533,20 +530,18 @@ gnc_option_test_book_destroy(QofBook* book)
{
$result = SCM_EOL;
for (auto acct : $1)
{
SCM elem = scm_list_1(SWIG_NewPointerObj(acct, SWIGTYPE_p_Account, 0));
$result = scm_append(scm_list_2($result, elem));
}
$result = scm_cons(SWIG_NewPointerObj(acct, SWIGTYPE_p_Account, 0),
$result);
$result = scm_reverse($result);
}
%typemap(out) GncOptionAccountList&
{
$result = SCM_EOL;
for (auto acct : *$1)
{
SCM elem = scm_list_1(SWIG_NewPointerObj(acct, SWIGTYPE_p_Account, 0));
$result = scm_append(scm_list_2($result, elem));
}
$result = scm_cons(SWIG_NewPointerObj(acct, SWIGTYPE_p_Account, 0),
$result);
$result = scm_reverse ($result)
}
wrap_unique_ptr(GncOptionDBPtr, GncOptionDB);