From 921ae11562125cd1ea83e45f4c9a0f0b29bf01f7 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Tue, 7 May 2024 23:10:01 +0100
Subject: xapian: Accept range processors in parse-query.

* xapian/xapian.scm (parse-query): Accept range processors.
---
 xapian/xapian.scm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'xapian')

diff --git a/xapian/xapian.scm b/xapian/xapian.scm
index f395162..7222e69 100644
--- a/xapian/xapian.scm
+++ b/xapian/xapian.scm
@@ -166,7 +166,7 @@ generated."
 
 (define increase-termpos! TermGenerator-increase-termpos)
 
-(define* (parse-query querystring #:key stemmer stemming-strategy (prefixes '()))
+(define* (parse-query querystring #:key stemmer stemming-strategy (prefixes '()) (range-processors '()))
   (let ((queryparser (new-QueryParser)))
     (QueryParser-set-stemmer queryparser stemmer)
     (when stemming-strategy
@@ -175,6 +175,8 @@ generated."
                 ((field . prefix)
                  (QueryParser-add-prefix queryparser field prefix)))
               prefixes)
+    (for-each (cut QueryParser-add-rangeprocessor queryparser <>)
+              range-processors)
     (let ((query (QueryParser-parse-query queryparser querystring)))
       (delete-QueryParser queryparser)
       query)))
-- 
cgit v1.2.3