reworked insert, save and update; added save-deep

db4
Sascha Matzke 2009-05-07 10:32:32 +02:00
parent 97da4e994b
commit f0bd82b2dd
1 changed files with 12 additions and 4 deletions

View File

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