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

gdbm: add shorthands for common cases

db4
Dmitry Shubin 2010-07-04 02:12:07 +04:00
parent 2446a59744
commit 18c93fa1bd
2 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
extra/gdbm/gdbm-tests.factor
View File

@ -25,7 +25,7 @@ CLEANUP
[ ] [ [ "foo" 41 insert ] with-test.db ] unit-test [ ] [ [ "foo" 41 insert ] with-test.db ] unit-test
[ [
[ "foo" 42 insert ] with-test.db db-path [ "foo" 42 insert ] with-gdbm-writer
] [ gdbm-cannot-replace = ] must-fail-with ] [ gdbm-cannot-replace = ] must-fail-with
[ ] [ ]
@ -37,7 +37,7 @@ CLEANUP
] with-test.db ] with-test.db
] unit-test ] unit-test
[ 42 t ] [ [ "foo" fetch* ] with-test.db ] unit-test [ 42 t ] [ db-path [ "foo" fetch* ] with-gdbm-reader ] unit-test
[ f f ] [ [ "unknown" fetch* ] with-test.db ] unit-test [ f f ] [ [ "unknown" fetch* ] with-test.db ] unit-test

10
extra/gdbm/gdbm.factor
View File

@ -148,3 +148,13 @@ PRIVATE>
: with-gdbm ( gdbm quot -- ) : with-gdbm ( gdbm quot -- )
[ gdbm-open &gdbm-close current-dbf set ] prepose curry [ gdbm-open &gdbm-close current-dbf set ] prepose curry
[ with-scope ] curry with-destructors ; inline [ with-scope ] curry with-destructors ; inline
:: with-gdbm-role ( name role quot -- )
<gdbm> name >>name role >>role quot with-gdbm ; inline
: with-gdbm-reader ( name quot -- )
reader swap with-gdbm-role ; inline
: with-gdbm-writer ( name quot -- )
writer swap with-gdbm-role ; inline