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

reworked insert, save and update; added save-deep

db4
Sascha Matzke 2009-05-07 10:32:32 +02:00
parent 741e97e57e
commit 1e7506f7c1
1 changed files with 12 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
extra/mongodb/tuple/tuple.factor
View File

@ -54,14 +54,22 @@ M: mdb-persistent id-selector
<update> >upsert update ] assoc-each ; inline <update> >upsert update ] assoc-each ; inline
PRIVATE> PRIVATE>
: save-tuple ( tuple -- ) : save-tuple-deep ( tuple -- )
tuple>storable [ (save-tuples) ] assoc-each ; tuple>storable [ (save-tuples) ] assoc-each ;
: update-tuple ( tuple -- ) : update-tuple ( tuple -- )
save-tuple ; [ tuple-collection name>> ]
[ id-selector ]
[ tuple>assoc ] tri
<mdb-update-msg> update ;
: save-tuple ( tuple -- )
update-tuple ;
: insert-tuple ( tuple -- ) : insert-tuple ( tuple -- )
save-tuple ; [ tuple-collection name>> ]
[ tuple>assoc ] bi
<mdb-insert-msg> save ;
: delete-tuple ( tuple -- ) : delete-tuple ( tuple -- )
[ tuple-collection name>> ] keep [ tuple-collection name>> ] keep