aboutsummaryrefslogtreecommitdiff
path: root/xapian
diff options
context:
space:
mode:
authorArun Isaac2024-05-07 23:29:58 +0100
committerArun Isaac2024-05-07 23:48:24 +0100
commit551f6bea36c0f3f4f44667998f29ebdd0c3bb1bf (patch)
tree9ba10ec6d42b7242d02abd8262db111817f3c887 /xapian
parent99cc1a52fd7f5efdede86e3d5f2df5c7ec57a0d5 (diff)
downloadguile-xapian-551f6bea36c0f3f4f44667998f29ebdd0c3bb1bf.tar.gz
guile-xapian-551f6bea36c0f3f4f44667998f29ebdd0c3bb1bf.tar.lz
guile-xapian-551f6bea36c0f3f4f44667998f29ebdd0c3bb1bf.zip
xapian: Support common query parser flags.
* xapian/xapian.scm (parse-query): Add boolean?, phrases?, love-hate?, any-case-boolean?, wildcard? flags.
Diffstat (limited to 'xapian')
-rw-r--r--xapian/xapian.scm21
1 files changed, 19 insertions, 2 deletions
diff --git a/xapian/xapian.scm b/xapian/xapian.scm
index 6ab879c..d219c30 100644
--- a/xapian/xapian.scm
+++ b/xapian/xapian.scm
@@ -166,7 +166,18 @@ generated."
(define increase-termpos! TermGenerator-increase-termpos)
-(define* (parse-query querystring #:key stemmer stemming-strategy (prefixes '()) (boolean-prefixes '()) (range-processors '()))
+(define* (parse-query querystring
+ #:key
+ stemmer
+ stemming-strategy
+ (prefixes '())
+ (boolean-prefixes '())
+ (range-processors '())
+ (boolean? #t)
+ (phrases? #t)
+ (love-hate? #t)
+ any-case-boolean?
+ wildcard?)
(let ((queryparser (new-QueryParser)))
(QueryParser-set-stemmer queryparser stemmer)
(when stemming-strategy
@@ -181,7 +192,13 @@ generated."
boolean-prefixes)
(for-each (cut QueryParser-add-rangeprocessor queryparser <>)
range-processors)
- (let ((query (QueryParser-parse-query queryparser querystring)))
+ (let ((query (QueryParser-parse-query queryparser
+ querystring
+ (bitwise-ior (get-flag QueryParser-FLAG-BOOLEAN boolean?)
+ (get-flag QueryParser-FLAG-PHRASE phrases?)
+ (get-flag QueryParser-FLAG-LOVEHATE love-hate?)
+ (get-flag QueryParser-FLAG-BOOLEAN-ANY-CASE any-case-boolean?)
+ (get-flag QueryParser-FLAG-WILDCARD wildcard?)))))
(delete-QueryParser queryparser)
query)))