From 007890b634cd782ed09bae1368df561815c27d9f Mon Sep 17 00:00:00 2001 From: Bob131 Date: Thu, 2 Sep 2021 08:50:23 +1000 Subject: 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 --- xapian/xapian.scm | 9 +++++++++ 1 file changed, 9 insertions(+) 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) -- cgit v1.2.3