diff options
Diffstat (limited to 'xapian.i.in')
| -rw-r--r-- | xapian.i.in | 19 |
1 files changed, 18 insertions, 1 deletions
diff --git a/xapian.i.in b/xapian.i.in index 84695e9..ba923d4 100644 --- a/xapian.i.in +++ b/xapian.i.in @@ -1,5 +1,5 @@ /* guile-xapian --- Guile bindings for Xapian - * Copyright © 2020, 2023–2024 Arun Isaac <arunisaac@systemreboot.net> + * Copyright © 2020, 2023–2024, 2026 Arun Isaac <arunisaac@systemreboot.net> * Copyright © 2021, 2022 Bob131 <bob@bob131.so> * * This file is part of guile-xapian. @@ -206,3 +206,20 @@ class GuileXapianFieldProcessorWrapper ~GuileXapianFieldProcessorWrapper(); Xapian::Query operator()(std::string const&); }; + +// Build query from subqueries. This needs to be in C++ because we +// need to provide Xapian::Query with an iterator. +%{ + Xapian::Query guile_xapian_build_query(Xapian::Query::op op, SCM subqueries) { + int length = scm_to_int(scm_length(subqueries)); + Xapian::Query **subqueries_arr = (Xapian::Query**) malloc(length * sizeof(Xapian::Query*)); + for (int i=0; i<length; i++) + SWIG_ConvertPtr(scm_list_ref(subqueries, scm_from_int(i)), + (void**)&subqueries_arr[i], + SWIGTYPE_p_Xapian__Query, + 0); + return Xapian::Query(op, subqueries_arr, subqueries_arr + length); + } +%} + +Xapian::Query guile_xapian_build_query(Xapian::Query::op, SCM); |