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

Merge branch 'mongo-factor-driver' of git@github.com:x6j8x/factor into mongo-factor-driver

db4
Sascha Matzke 2009-05-11 10:08:22 +02:00
parent dec89ac4fd 6e491a3e4f
commit 90378f7429
2 changed files with 18 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
extra/mongodb/tuple/collection/collection.factor
View File

@ -92,6 +92,8 @@ GENERIC: mdb-index-map ( tuple -- sequence )
[ ] [ name>> ] bi H{ } clone [ set-at ] keep [ ] [ name>> ] bi H{ } clone [ set-at ] keep
] [ 2drop H{ } clone ] if ; ] [ 2drop H{ } clone ] if ;
PRIVATE> PRIVATE>
: MDB_ADDON_SLOTS ( -- slots ) : MDB_ADDON_SLOTS ( -- slots )
@ -116,7 +118,7 @@ PRIVATE>
[ drop MDB_USER_KEY set-word-prop ] [ 3drop ] if ; inline [ drop MDB_USER_KEY set-word-prop ] [ 3drop ] if ; inline
: set-index-map ( class index-list -- ) : set-index-map ( class index-list -- )
[ [ dup user-defined-key-index ] dip index-list>map ] output>sequence [ dup user-defined-key-index ] dip index-list>map 2array
assoc-combine MDB_INDEX_MAP set-word-prop ; inline assoc-combine MDB_INDEX_MAP set-word-prop ; inline
M: tuple-class tuple-collection ( tuple -- mdb-collection ) M: tuple-class tuple-collection ( tuple -- mdb-collection )

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

@ -54,19 +54,30 @@ 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
save ;
: delete-tuple ( tuple -- ) : delete-tuple ( tuple -- )
[ tuple-collection name>> ] keep [ tuple-collection name>> ] keep
id-selector delete ; id-selector delete ;
: delete-tuples ( seq -- )
[ delete-tuple ] each ;
: tuple>query ( tuple -- query ) : tuple>query ( tuple -- query )
[ tuple-collection name>> ] keep [ tuple-collection name>> ] keep
tuple>selector <query> ; tuple>selector <query> ;