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

Implement gnc-optiondb-foreach.

Browse Source
This commit is contained in:
John Ralls 2021-02-20 11:42:42 -08:00
parent 81d261897e
commit f7f2d22909
1 changed files with 17 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -832,6 +832,23 @@ wrap_unique_ptr(GncOptionDBPtr, GncOptionDB);
auto option{odb->find_option(section, name)}; auto option{odb->find_option(section, name)};
option->set_ui_item_selectable(selectable); option->set_ui_item_selectable(selectable);
} }
void
gnc_optiondb_foreach(GncOptionDBPtr& odb, SCM thunk)
{
odb->foreach_section(
[&thunk](const GncOptionSectionPtr& section)
{
section->foreach_option(
[&thunk](auto& option)
{
auto optvoidptr{reinterpret_cast<void*>(
const_cast<GncOption*>(&option))};
auto scm_opt{scm_from_pointer(optvoidptr, nullptr)};
scm_call_1(thunk, scm_opt);
});
});
}
%} %}
#endif //SWIGGUILE #endif //SWIGGUILE