Merge branch 'mongo-factor-driver' of git@github.com:x6j8x/factor into mongo-factor-driver
commit
90378f7429
|
@ -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 )
|
||||||
|
|
|
@ -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> ;
|
||||||
|
|
Loading…
Reference in New Issue