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

Handle #f input to option typemap(in)s.

Browse Source
This commit is contained in:
John Ralls 2021-03-08 11:16:35 -08:00
parent 86a2f1551f
commit 7d0cdf7c94
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -341,7 +341,7 @@ gnc_option_test_book_destroy(QofBook* book)
%typemap(in) GncMultichoiceOptionChoices&& (GncMultichoiceOptionChoices choices) %typemap(in) GncMultichoiceOptionChoices&& (GncMultichoiceOptionChoices choices)
{ {
using KeyType = GncOptionMultichoiceKeyType; using KeyType = GncOptionMultichoiceKeyType;
auto len = scm_to_size_t(scm_length($input)); auto len = scm_is_true($input) ? scm_to_size_t(scm_length($input)) : 0;
for (std::size_t i = 0; i < len; ++i) for (std::size_t i = 0; i < len; ++i)
{ {
SCM vec = scm_list_ref($input, scm_from_size_t(i)); SCM vec = scm_list_ref($input, scm_from_size_t(i));
@ -375,7 +375,7 @@ gnc_option_test_book_destroy(QofBook* book)
%typemap(in) GncOptionAccountList %typemap(in) GncOptionAccountList
{ {
auto len = scm_to_size_t(scm_length($input)); auto len = scm_is_true($input) ? scm_to_size_t(scm_length($input)) : 0;
for (std::size_t i = 0; i < len; ++i) for (std::size_t i = 0; i < len; ++i)
{ {
SCM s_account = scm_list_ref($input, scm_from_size_t(i)); SCM s_account = scm_list_ref($input, scm_from_size_t(i));
@ -387,7 +387,7 @@ gnc_option_test_book_destroy(QofBook* book)
%typemap(in) GncOptionAccountTypeList& (GncOptionAccountTypeList types) %typemap(in) GncOptionAccountTypeList& (GncOptionAccountTypeList types)
{ {
auto len = scm_to_size_t(scm_length($input)); auto len = scm_is_true($input) ? scm_to_size_t(scm_length($input)) : 0;
for (std::size_t i = 0; i < len; ++i) for (std::size_t i = 0; i < len; ++i)
{ {
SCM s_type = scm_list_ref($input, scm_from_size_t(i)); SCM s_type = scm_list_ref($input, scm_from_size_t(i));
@ -399,7 +399,7 @@ gnc_option_test_book_destroy(QofBook* book)
%typemap(in) GncOptionAccountTypeList&& (GncOptionAccountTypeList types) %typemap(in) GncOptionAccountTypeList&& (GncOptionAccountTypeList types)
{ {
auto len = scm_to_size_t(scm_length($input)); auto len = scm_is_true($input) ? scm_to_size_t(scm_length($input)) : 0;
for (std::size_t i = 0; i < len; ++i) for (std::size_t i = 0; i < len; ++i)
{ {
SCM s_type = scm_list_ref($input, scm_from_size_t(i)); SCM s_type = scm_list_ref($input, scm_from_size_t(i));
@ -411,7 +411,7 @@ gnc_option_test_book_destroy(QofBook* book)
%typemap(in) GncOptionAccountList %typemap(in) GncOptionAccountList
{ {
auto len = scm_to_size_t(scm_length($input)); auto len = scm_is_true($input) ? scm_to_size_t(scm_length($input)) : 0;
for (std::size_t i = 0; i < len; ++i) for (std::size_t i = 0; i < len; ++i)
{ {
SCM s_account = scm_list_ref($input, scm_from_size_t(i)); SCM s_account = scm_list_ref($input, scm_from_size_t(i));
@ -423,7 +423,7 @@ gnc_option_test_book_destroy(QofBook* book)
%typemap(in) GncOptionAccountList& (GncOptionAccountList acclist) %typemap(in) GncOptionAccountList& (GncOptionAccountList acclist)
{ {
auto len = scm_to_size_t(scm_length($input)); auto len = scm_is_true($input) ? scm_to_size_t(scm_length($input)) : 0;
for (std::size_t i = 0; i < len; ++i) for (std::size_t i = 0; i < len; ++i)
{ {
SCM s_account = scm_list_ref($input, scm_from_size_t(i)); SCM s_account = scm_list_ref($input, scm_from_size_t(i));