emo/thin-provisioning-tools
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

[functional-tests] Export some more from (persistent-data btree)

Browse Source
This commit is contained in:
Joe Thornber 2017-10-04 10:30:15 +01:00
parent 5fd33b9560
commit 48b3ac960c
1 changed files with 14 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
functional-tests/persistent-data/btree.scm
View File

@ -1,7 +1,8 @@
(library (library
(persistent-data btree) (persistent-data btree)
(export btree-value-type (export btree-node-salt
btree-value-type
btree-root btree-root
btree-open btree-open
btree-lookup btree-lookup
@ -10,13 +11,24 @@
define-value-type define-value-type
define-compound-value-type define-compound-value-type
BTreeNodeHeader)
BTreeNodeHeader
leaf-node?
internal-node?
block->header
block->values
block->keys
key-at
value-at
)
(import (bcache block-manager) (import (bcache block-manager)
(chezscheme) (chezscheme)
(list-utils) (list-utils)
(utils)) (utils))
(define btree-node-salt 121107)
(define-ftype BTreeNodeHeader (define-ftype BTreeNodeHeader
(packed (packed
(endian little (endian little