1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
(if (not (defined? 'db-open))
(begin
(dynamic-call "scm_init_db3" (dynamic-link "/usr/lib/guile/libguiledb3.so"))))
(define-module (database berkeley))
(define (data->string data)
(with-output-to-string
(lambda ()
(write data))))
(define (string->data string)
(with-input-from-string
string
(lambda ()
(read))))
(define-public (db-put handle key data)
(let (
(k (data->string key))
(d (data->string data)))
(db-put-text handle k d)))
(define-public (db-get handle key)
(let (
(k (data->string key)))
(string->data (db-get-text k))))
(define-public (db-del handle key)
(let (
(k (data->string key)))
(db-del-text k)))
|
