diff options
Diffstat (limited to 'xapian')
| -rw-r--r-- | xapian/xapian.scm | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/xapian/xapian.scm b/xapian/xapian.scm index caa84b4..af1cf5b 100644 --- a/xapian/xapian.scm +++ b/xapian/xapian.scm @@ -195,7 +195,8 @@ generated." (phrases? #t) (love-hate? #t) any-case-boolean? - wildcard?) + wildcard? + pure-not?) "Parse @var{querystring} and return a @code{Query} object. @var{prefixes} and @var{boolean-prefixes} must be association lists @@ -214,7 +215,10 @@ supported. When @var{any-case-boolean?} is @code{#t}, boolean operators are supported even if they are not in capitals. -When @var{wildcard?} is @code{#t}, wildcards are supported." +When @var{wildcard?} is @code{#t}, wildcards are supported. + +When @var{pure-not?} is @code{#t}, pure @code{NOT} queries such as +@samp{NOT apples} are allowed." (let ((queryparser (new-QueryParser))) (QueryParser-set-stemmer queryparser stemmer) (when stemming-strategy @@ -235,7 +239,8 @@ When @var{wildcard?} is @code{#t}, wildcards are supported." (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?))))) + (get-flag QueryParser-FLAG-WILDCARD wildcard?) + (get-flag QueryParser-FLAG-PURE-NOT pure-not?))))) (delete-QueryParser queryparser) query))) |