summaryrefslogtreecommitdiff
path: root/xapian/xapian.scm
diff options
context:
space:
mode:
authorBob1312021-09-02 08:50:23 +1000
committerArun Isaac2021-09-07 01:23:59 +0530
commit007890b634cd782ed09bae1368df561815c27d9f (patch)
treef20e8bf8f89a8b52521cb3e9fcf865fe58141b1d /xapian/xapian.scm
parent110bca15a7d89955805589cd3451ab52f9a52748 (diff)
downloadguile-xapian-007890b634cd782ed09bae1368df561815c27d9f.tar.gz
guile-xapian-007890b634cd782ed09bae1368df561815c27d9f.tar.lz
guile-xapian-007890b634cd782ed09bae1368df561815c27d9f.zip
xapian: Introduce document setters.
* xapian/xapian.scm (document-set-data!, document-set-bytes!, document-slot-set!, document-slot-set-bytes!): New functions. Signed-off-by: Arun Isaac <arunisaac@systemreboot.net>
Diffstat (limited to 'xapian/xapian.scm')
-rw-r--r--xapian/xapian.scm9
1 files changed, 9 insertions, 0 deletions
diff --git a/xapian/xapian.scm b/xapian/xapian.scm
index 171203d..bde52a1 100644
--- a/xapian/xapian.scm
+++ b/xapian/xapian.scm
@@ -37,8 +37,12 @@
make-document
document-data
document-bytes
+ document-set-data!
+ document-set-bytes!
document-slot-ref
document-slot-ref-bytes
+ document-slot-set!
+ document-slot-set-bytes!
make-stem
make-term-generator
index-text!
@@ -102,8 +106,13 @@ in-memory database would always remain empty and is of little use."
(define document-data Document-get-data)
(define document-bytes Document-get-data-bytes)
+(define document-set-data! Document-set-data)
+(define document-set-bytes! Document-set-data-bytes)
+
(define document-slot-ref Document-get-value)
(define document-slot-ref-bytes Document-get-value-bytes)
+(define document-slot-set! Document-add-value)
+(define document-slot-set-bytes! Document-add-value-bytes)
(define make-stem new-Stem)