steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

forestdb.lib: Adding code to do compaction.

db4
Doug Coleman 2014-11-10 15:22:15 -08:00
parent bc25858a4e
commit 89c33e9e30
2 changed files with 28 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
extra/forestdb/lib/lib-tests.factor
View File

@ -33,7 +33,6 @@ IN: forestdb.lib
: set-kv-range ( a b -- ) : set-kv-range ( a b -- )
make-kv-range [ fdb-set-kv ] assoc-each ; make-kv-range [ fdb-set-kv ] assoc-each ;
{ } [ [ delete-test-db-0 ] ignore-errors ] unit-test { } [ [ delete-test-db-0 ] ignore-errors ] unit-test
{ } [ [ delete-test-db-1 ] ignore-errors ] unit-test { } [ [ delete-test-db-1 ] ignore-errors ] unit-test

43
extra/forestdb/lib/lib.factor
View File

@ -1,10 +1,11 @@
! Copyright (C) 2014 Doug Coleman. ! Copyright (C) 2014 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors alien.c-types alien.data alien.strings USING: accessors alien.c-types alien.data arrays classes.struct
alien.syntax arrays classes.struct combinators constructors combinators constructors continuations destructors forestdb.ffi
continuations destructors forestdb.ffi fry generalizations forestdb.paths fry generalizations io.encodings.string
io.encodings.string io.encodings.utf8 io.pathnames kernel libc io.encodings.utf8 io.pathnames kernel libc math multiline
math multiline namespaces sequences ; namespaces sequences ;
QUALIFIED: sets
IN: forestdb.lib IN: forestdb.lib
/* /*
@ -20,12 +21,7 @@ IN: forestdb.lib
ERROR: fdb-error error ; ERROR: fdb-error error ;
: fdb-check-error ( ret -- ) : fdb-check-error ( ret -- )
dup FDB_RESULT_SUCCESS = [ dup FDB_RESULT_SUCCESS = [ drop ] [ fdb-error ] if ;
drop
] [
fdb-error
] if ;
TUPLE: fdb-handle < disposable handle ; TUPLE: fdb-handle < disposable handle ;
: <fdb-handle> ( handle -- obj ) : <fdb-handle> ( handle -- obj )
@ -61,6 +57,8 @@ TUPLE: fdb-doc < disposable doc ;
M: fdb-doc dispose* M: fdb-doc dispose*
fdb_doc_free fdb-check-error ; fdb_doc_free fdb-check-error ;
SYMBOL: fdb-current
: get-kvs-default-config ( -- kvs-config ) : get-kvs-default-config ( -- kvs-config )
S{ fdb_kvs_config S{ fdb_kvs_config
{ create_if_missing t } { create_if_missing t }
@ -81,7 +79,7 @@ M: fdb-doc dispose*
: fdb-open ( path config kvs-config -- fdb-handle-pair ) : fdb-open ( path config kvs-config -- fdb-handle-pair )
[ [
[ f void* <ref> ] 2dip [ f void* <ref> ] 2dip
[ absolute-path ] dip [ absolute-path ensure-fdb-filename-directory ] dip
[ fdb_open fdb-check-error ] 3keep [ fdb_open fdb-check-error ] 3keep
2drop void* deref <fdb-file-handle> 2drop void* deref <fdb-file-handle>
] dip fdb-open-kvs ; ] dip fdb-open-kvs ;
@ -93,8 +91,6 @@ M: fdb-doc dispose*
[ void* deref ] [ size_t deref ] bi* [ void* deref ] [ size_t deref ] bi*
[ memory>byte-array utf8 decode ] [ drop (free) ] 2bi ; [ memory>byte-array utf8 decode ] [ drop (free) ] 2bi ;
SYMBOL: fdb-current
: get-file-handle ( -- handle ) : get-file-handle ( -- handle )
fdb-current get file-handle>> handle>> ; fdb-current get file-handle>> handle>> ;
@ -197,7 +193,24 @@ SYMBOL: fdb-current
: fdb-commit-wal-flush ( -- ) FDB_COMMIT_MANUAL_WAL_FLUSH fdb-commit ; : fdb-commit-wal-flush ( -- ) FDB_COMMIT_MANUAL_WAL_FLUSH fdb-commit ;
FUNCTION: fdb_status fdb_rollback ( fdb_handle** handle_ptr, fdb_seqnum_t rollback_seqnum ) ; : fdb-compact ( new-path -- )
[ get-file-handle ] dip absolute-path
fdb_compact fdb-check-error ;
: fdb-compact-commit ( new-path -- )
fdb-compact fdb-commit-wal-flush ;
: fdb-swap-current-db ( new-path -- )
[
fdb-current get dispose
fdb-open-default-config fdb-current set
] with-destructors ;
: fdb-compact-and-swap-db ( path -- )
next-vnode-version-name
[ fdb-compact fdb-commit-wal-flush ]
[ fdb-swap-current-db ] bi ;
! Call from within with-foresdb ! Call from within with-foresdb
: fdb-open-snapshot ( seqnum -- handle-pair ) : fdb-open-snapshot ( seqnum -- handle-pair )