summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBob1312021-09-02 07:48:38 +1000
committerArun Isaac2021-09-07 01:23:59 +0530
commit110bca15a7d89955805589cd3451ab52f9a52748 (patch)
treedb91f272c25036358dc7c75b5d0a799b1fc55b75
parentec334fae367af039b83b824e29460b059b0c12af (diff)
downloadguile-xapian-110bca15a7d89955805589cd3451ab52f9a52748.tar.gz
guile-xapian-110bca15a7d89955805589cd3451ab52f9a52748.tar.lz
guile-xapian-110bca15a7d89955805589cd3451ab52f9a52748.zip
xapian: make-document: Accept bytevectors.
* xapian/xapian.scm (make-document): Support setting document values and body from bytevectors. Signed-off-by: Arun Isaac <arunisaac@systemreboot.net>
-rw-r--r--xapian/xapian.scm13
1 files changed, 10 insertions, 3 deletions
diff --git a/xapian/xapian.scm b/xapian/xapian.scm
index bd613a7..171203d 100644
--- a/xapian/xapian.scm
+++ b/xapian/xapian.scm
@@ -82,14 +82,21 @@ in-memory database would always remain empty and is of little use."
(define* (make-document #:key data (terms '()) (values '()))
(let ((doc (new-Document)))
(when data
- (Document-set-data doc data))
+ (cond
+ ((string? data)
+ (Document-set-data doc data))
+ ((bytevector? data)
+ (Document-set-data-bytes doc data))
+ (else (error "Invalid document data" data))))
(for-each (match-lambda
((term . wdf-increment)
(Document-add-term doc term wdf-increment)))
terms)
(for-each (match-lambda
- ((slot . value)
- (Document-add-value doc slot value)))
+ ((slot . (? string? value))
+ (Document-add-value doc slot value))
+ ((slot . (? bytevector? value))
+ (Document-add-value-bytes doc slot value)))
values)
doc))