diff options
| author | Bob131 | 2021-09-02 08:50:23 +1000 |
|---|---|---|
| committer | Arun Isaac | 2021-09-07 01:23:59 +0530 |
| commit | 007890b634cd782ed09bae1368df561815c27d9f (patch) | |
| tree | f20e8bf8f89a8b52521cb3e9fcf865fe58141b1d | |
| parent | 110bca15a7d89955805589cd3451ab52f9a52748 (diff) | |
| download | guile-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>
| -rw-r--r-- | xapian/xapian.scm | 9 |
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) |