From 22c8e5d33d17f54496d5e44c98a024c46155eb5b Mon Sep 17 00:00:00 2001 From: Arun Isaac Date: Mon, 6 Sep 2021 00:11:15 +0530 Subject: xapian: Support in-memory databases. * xapian/xapian.scm (call-with-in-memory-database): New public function. --- xapian/xapian.scm | 8 ++++++++ 1 file changed, 8 insertions(+) (limited to 'xapian') diff --git a/xapian/xapian.scm b/xapian/xapian.scm index 112e6c5..a0876d1 100644 --- a/xapian/xapian.scm +++ b/xapian/xapian.scm @@ -30,6 +30,7 @@ xapian-open-writable xapian-close-writable call-with-writable-database + call-with-in-memory-database add-document! replace-document! make-document @@ -66,6 +67,13 @@ (let ((db (xapian-open-writable dbpath))) (dynamic-wind noop (cut proc db) (cut xapian-close-writable db)))) +(define (call-with-in-memory-database proc) + "Call PROC passing it an in-memory writable database. Only a +writable in-memory database can be created, since a read-only +in-memory database would always remain empty and is of little use." + (let ((db (inmemory-open))) + (dynamic-wind noop (cut proc db) (cut xapian-close-writable db)))) + (define add-document! WritableDatabase-add-document) (define replace-document! WritableDatabase-replace-document) -- cgit v1.2.3