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

forestdb: allow setting byte-arrays.

db4
Doug Coleman 2016-02-19 17:58:37 -08:00
parent 64db45c536
commit 97296e7199
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -46,9 +46,14 @@ SYMBOL: current-fdb-kvs-handle
: get-kvs-handle ( -- handle ) : get-kvs-handle ( -- handle )
current-fdb-kvs-handle get handle>> ; current-fdb-kvs-handle get handle>> ;
GENERIC: encode-kv ( object -- bytes )
M: string encode-kv utf8 encode ;
M: byte-array encode-kv ;
: fdb-set-kv ( key value -- ) : fdb-set-kv ( key value -- )
[ get-kvs-handle ] 2dip [ get-kvs-handle ] 2dip
[ utf8 encode dup length ] bi@ fdb_set_kv fdb-check-error ; [ encode-kv dup length ] bi@ fdb_set_kv fdb-check-error ;
: <key-doc> ( key -- doc ) : <key-doc> ( key -- doc )
fdb_doc malloc-struct fdb_doc malloc-struct