luciano/monger
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Clean up

Browse source
This commit is contained in:
Michael S. Klishin 2011-10-13 18:03:53 +04:00
parent a7264122e3
commit d966fabd3e
1 changed files with 4 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
src/monger/conversion.clj
View file

@ -84,24 +84,16 @@
(from-db-object [^DBObject input keywordize] (from-db-object [^DBObject input keywordize]
;; DBObject provides .toMap, but the implementation in ;; DBObject provides .toMap, but the implementation in
;; subclass GridFSFile unhelpfully throws ;; subclass GridFSFile unhelpfully throws
;; UnsupportedOperationException ;; UnsupportedOperationException. This part is taken from congomongo and
;; may need revisiting at a later point. MK.
(associate-pairs (for [key-set (.keySet input)] [key-set (.get input key-set)]) (associate-pairs (for [key-set (.keySet input)] [key-set (.get input key-set)])
keywordize)) keywordize)))
;; this idea needs to be tested out first, we will see how well
;; it works. MK.
;; DBCursor
;; (from-db-object [^DBCursor input]
;; (if (empty? input)
;; []
;; (lazy-seq (seq input))))
)
(defn- associate-pairs [pairs keywordize] (defn- associate-pairs [pairs keywordize]
;; Taking the keywordize test out of the fn reduces derefs ;; Taking the keywordize test out of the fn reduces derefs
;; dramatically, which was the main barrier to matching pure-Java ;; dramatically, which was the main barrier to matching pure-Java
;; performance for this marshalling ;; performance for this marshalling. Take from congomongo. MK.
(reduce (if keywordize (reduce (if keywordize
(fn [m [^String k v]] (fn [m [^String k v]]
(assoc m (keyword k) (from-db-object v true))) (assoc m (keyword k) (from-db-object v true)))