removed some more inlines
parent
7b0d5b2432
commit
d6cb050942
|
@ -15,7 +15,7 @@ TUPLE: state
|
||||||
[ state new ] dip
|
[ state new ] dip
|
||||||
[ clone >>exemplar ] keep
|
[ clone >>exemplar ] keep
|
||||||
clone [ >>result ] [ V{ } clone [ push ] keep >>scope ] bi
|
clone [ >>result ] [ V{ } clone [ push ] keep >>scope ] bi
|
||||||
V{ } clone [ T_Object "" element boa swap push ] keep >>element ; inline
|
V{ } clone [ T_Object "" element boa swap push ] keep >>element ;
|
||||||
|
|
||||||
PREDICATE: bson-eoo < integer T_EOO = ;
|
PREDICATE: bson-eoo < integer T_EOO = ;
|
||||||
PREDICATE: bson-not-eoo < integer T_EOO > ;
|
PREDICATE: bson-not-eoo < integer T_EOO > ;
|
||||||
|
|
|
@ -84,7 +84,7 @@ CONSTRUCTOR: mdb-connection ( instance -- mdb-connection ) ;
|
||||||
"nonce" get-nonce 2array
|
"nonce" get-nonce 2array
|
||||||
3array >hashtable
|
3array >hashtable
|
||||||
[ [ "nonce" ] dip at calculate-key-digest "key" ] keep
|
[ [ "nonce" ] dip at calculate-key-digest "key" ] keep
|
||||||
[ set-at ] keep ; inline
|
[ set-at ] keep ;
|
||||||
|
|
||||||
: perform-authentication ( -- )
|
: perform-authentication ( -- )
|
||||||
cmd-collection build-auth-query send-query-1result
|
cmd-collection build-auth-query send-query-1result
|
||||||
|
@ -137,7 +137,7 @@ PRIVATE>
|
||||||
: mdb-open ( mdb -- mdb-connection )
|
: mdb-open ( mdb -- mdb-connection )
|
||||||
clone [ <mdb-connection> ] keep
|
clone [ <mdb-connection> ] keep
|
||||||
master-node open-connection
|
master-node open-connection
|
||||||
[ authenticate-connection ] keep ; inline
|
[ authenticate-connection ] keep ;
|
||||||
|
|
||||||
: mdb-close ( mdb-connection -- )
|
: mdb-close ( mdb-connection -- )
|
||||||
[ dispose f ] change-handle drop ;
|
[ dispose f ] change-handle drop ;
|
||||||
|
|
|
@ -84,9 +84,7 @@ M: mdb-collection create-collection ( mdb-collection -- )
|
||||||
[ [ size>> "size" ] dip set-at ]
|
[ [ size>> "size" ] dip set-at ]
|
||||||
[ [ max>> "max" ] dip set-at ] 2tri ] when
|
[ [ max>> "max" ] dip set-at ] 2tri ] when
|
||||||
] 2bi
|
] 2bi
|
||||||
] keep <mdb-query-msg> 1 >>return# send-query-plain
|
] keep <mdb-query-msg> 1 >>return# send-query-plain drop ;
|
||||||
objects>> first check-ok
|
|
||||||
[ drop ] [ throw ] if ;
|
|
||||||
|
|
||||||
: load-collection-list ( -- collection-list )
|
: load-collection-list ( -- collection-list )
|
||||||
namespaces-collection
|
namespaces-collection
|
||||||
|
@ -107,7 +105,7 @@ USE: tools.continuations
|
||||||
[ [ "name" ] dip at "." split second <mdb-collection> ] map
|
[ [ "name" ] dip at "." split second <mdb-collection> ] map
|
||||||
over '[ [ ] [ name>> ] bi _ set-at ] each ] [ ] if
|
over '[ [ ] [ name>> ] bi _ set-at ] each ] [ ] if
|
||||||
[ dup ] dip key? [ drop ]
|
[ dup ] dip key? [ drop ]
|
||||||
[ [ ensure-valid-collection-name ] keep create-collection ] if ; inline
|
[ [ ensure-valid-collection-name ] keep create-collection ] if ;
|
||||||
|
|
||||||
MEMO: reserved-namespace? ( name -- ? )
|
MEMO: reserved-namespace? ( name -- ? )
|
||||||
[ "$cmd" = ] [ "system" head? ] bi or ;
|
[ "$cmd" = ] [ "system" head? ] bi or ;
|
||||||
|
@ -118,7 +116,7 @@ MEMO: check-collection ( collection -- fq-collection )
|
||||||
[ nip ] [ drop ] if
|
[ nip ] [ drop ] if
|
||||||
[ ] [ reserved-namespace? ] bi
|
[ ] [ reserved-namespace? ] bi
|
||||||
[ [ (ensure-collection) ] keep ] unless
|
[ [ (ensure-collection) ] keep ] unless
|
||||||
[ mdb-instance name>> ] dip "%s.%s" sprintf ; inline
|
[ mdb-instance name>> ] dip "%s.%s" sprintf ;
|
||||||
|
|
||||||
: fix-query-collection ( mdb-query -- mdb-query )
|
: fix-query-collection ( mdb-query -- mdb-query )
|
||||||
[ check-collection ] change-collection ; inline
|
[ check-collection ] change-collection ; inline
|
||||||
|
|
|
@ -161,7 +161,7 @@ USE: tools.walker
|
||||||
[ query>> "query" selector set-at ]
|
[ query>> "query" selector set-at ]
|
||||||
} cleave
|
} cleave
|
||||||
selector
|
selector
|
||||||
] ; inline flushable
|
] ;
|
||||||
|
|
||||||
PRIVATE>
|
PRIVATE>
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue