81 lines
1.5 KiB
Scheme
81 lines
1.5 KiB
Scheme
(define-interface berkeley-db-interface
|
|
(export
|
|
|
|
with-database-env
|
|
with-database
|
|
with-database-flags
|
|
as-transaction
|
|
|
|
flag-object?
|
|
flag-elements
|
|
flag-name
|
|
(flag :syntax)
|
|
|
|
return-code-object?
|
|
return-code-elements
|
|
return-code-name
|
|
(return-code :syntax)
|
|
|
|
database-type-object?
|
|
database-type-elements
|
|
database-type-name
|
|
(database-type :syntax)
|
|
|
|
&bdb-error bdb-error?
|
|
&bdb-lock-deadlock bdb-lock-deadlock?
|
|
&bdb-lock-not-granted bdb-lock-not-granted?
|
|
&bdb-old-db-version bdb-old-db-version?
|
|
&bdb-db-handle-dead bdb-db-handle-dead?
|
|
&bdb-secondary-index-bad bdb-secondary-index-bad?
|
|
&bdb-invalid-flag bdb-invalid-flag?
|
|
|
|
database?
|
|
database-env?
|
|
mpoolfile?
|
|
transaction?
|
|
cursor?
|
|
|
|
make-database-env
|
|
database-env-open
|
|
database-env-close
|
|
|
|
make-database
|
|
open-database
|
|
close-database
|
|
|
|
database-put
|
|
database-get
|
|
database-delete-item
|
|
database-truncate
|
|
database-sync
|
|
|
|
make-cursor
|
|
database-get-via-cursor
|
|
|
|
begin-transaction
|
|
abort-transaction
|
|
commit-transaction
|
|
|
|
string->byte-vector
|
|
byte-vector->string
|
|
|
|
value->byte-vector
|
|
byte-vector->value))
|
|
|
|
(define-structure berkeley-db berkeley-db-interface
|
|
(open scheme
|
|
srfi-1
|
|
srfi-34
|
|
srfi-35
|
|
fluids
|
|
weak
|
|
byte-vectors
|
|
extended-ports
|
|
ascii
|
|
let-opt
|
|
bitwise
|
|
define-record-types
|
|
finite-types
|
|
external-calls)
|
|
(files bdb))
|
|
|