From f11f45ebeb1131c3a6af8dde374463fa63c0249b Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Sat, 17 Oct 2020 11:06:21 +0530
Subject: xapian: Introduce document-bytes.

* xapian/xapian.scm (document-bytes): New function.
---
 xapian/xapian.scm | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/xapian/xapian.scm b/xapian/xapian.scm
index 92bf5d3..112e6c5 100644
--- a/xapian/xapian.scm
+++ b/xapian/xapian.scm
@@ -19,6 +19,7 @@
 
 (define-module (xapian xapian)
   #:use-module (rnrs arithmetic bitwise)
+  #:use-module (rnrs bytevectors)
   #:use-module (ice-9 match)
   #:use-module (srfi srfi-26)
   #:use-module (xapian wrap)
@@ -33,6 +34,7 @@
             replace-document!
             make-document
             document-data
+            document-bytes
             document-slot-ref
             make-stem
             make-term-generator
@@ -84,6 +86,11 @@
 (define document-data Document-get-data)
 (define document-slot-ref Document-get-value)
 
+(define (document-bytes document)
+  "Return the data of DOCUMENT as a bytevector."
+  (u8-list->bytevector
+   (map char->integer (string->list (document-data document)))))
+
 (define make-stem new-Stem)
 
 (define* (make-term-generator #:key stem document)
-- 
cgit v1.2.3