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

gdbm: better option setters

db4
Dmitry Shubin 2010-06-26 23:00:00 +04:00
parent d1d742211b
commit 9a1a60f804
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
extra/gdbm/gdbm.factor
View File

@ -44,13 +44,16 @@ DESTRUCTOR: gdbm-close
gdbm_store check-error
] with-destructors ;
:: (gdbm-setopt) ( option value -- )
:: (setopt) ( value option -- )
[
int heap-size dup malloc &free :> ( size ptr )
value ptr 0 int set-alien-value
dbf option ptr size gdbm_setopt check-error
] with-destructors ;
: setopt ( value option -- )
[ GDBM_CACHESIZE = [ >c-bool ] unless ] keep (setopt) ;
PRIVATE>
@ -86,8 +89,10 @@ ALIAS: gdbm-error-message gdbm_strerror
[ dbf swap object>datum gdbm_exists c-bool> ]
with-destructors ;
: gdbm-setopt ( option value -- )
over GDBM_CACHESIZE = [ >c-bool ] unless (gdbm-setopt) ;
: gdbm-set-cache-size ( size -- ) GDBM_CACHESIZE setopt ;
: gdbm-set-sync-mode ( ? -- ) GDBM_SYNCMODE setopt ;
: gdbm-set-block-pool ( ? -- ) GDBM_CENTFREE setopt ;
: gdbm-set-block-merging ( ? -- ) GDBM_COALESCEBLKS setopt ;
: gdbm-fdesc ( -- desc ) dbf gdbm_fdesc ;