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

gdbm: implement gdbm-setopt

db4
Dmitry Shubin 2010-06-17 03:51:28 +04:00
parent 77465c8755
commit cb361af8b4
1 changed files with 15 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
extra/gdbm/gdbm.factor
View File

@ -2,7 +2,8 @@
! 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.destructors assocs USING: accessors alien.c-types alien.data alien.destructors assocs
biassocs classes.struct combinators destructors gdbm.ffi io.backend biassocs classes.struct combinators destructors gdbm.ffi io.backend
kernel libc literals math namespaces sequences serialize strings ; kernel libc literals locals math namespaces sequences serialize
strings ;
IN: gdbm IN: gdbm
TUPLE: gdbm TUPLE: gdbm
@ -125,7 +126,19 @@ PRIVATE>
[ dbf swap object>datum gdbm_exists c-bool> ] [ dbf swap object>datum gdbm_exists c-bool> ]
with-destructors ; with-destructors ;
! : gdbm-setopt ( option value size -- ret ) ; <PRIVATE
:: (gdbm-setopt) ( option value -- )
[
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 ;
PRIVATE>
: gdbm-setopt ( option value -- )
over GDBM_CACHESIZE = [ >c-bool ] unless (gdbm-setopt) ;
: gdbm-fdesc ( -- desc ) dbf gdbm_fdesc ; : gdbm-fdesc ( -- desc ) dbf gdbm_fdesc ;