luciano/mongo-driver-3
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

improve mongo-id

Browse source
This commit is contained in:
jimpil 2024-01-17 22:03:06 +00:00
parent 3ac5a5cf69
commit c09581a587
1 changed files with 20 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

29
src/mongo_driver_3/data_literals.clj
View file

@ -8,18 +8,27 @@
(defmethod print-method ObjectId [^ObjectId c ^Writer w] (.write w ^String (str "#mongo/id \"" (.toHexString c) "\""))) (defmethod print-method ObjectId [^ObjectId c ^Writer w] (.write w ^String (str "#mongo/id \"" (.toHexString c) "\"")))
(defmethod print-dup ObjectId [^ObjectId c ^Writer w] (.write w ^String (str "#mongo/id \"" (.toHexString c) "\""))) (defmethod print-dup ObjectId [^ObjectId c ^Writer w] (.write w ^String (str "#mongo/id \"" (.toHexString c) "\"")))
(defprotocol AsObjectId
(oid-from [this]))
(extend-protocol AsObjectId
(Class/forName "[B")
(oid-from [this] (ObjectId. ^bytes this))
nil
(oid-from [_] (ObjectId.))
String
(oid-from [this] (ObjectId. this))
Date
(oid-from [this] (ObjectId. this))
ByteBuffer
(oid-from [this] (ObjectId. this))
)
(defn mongo-id ;; https://mongodb.github.io/mongo-java-driver/4.8/apidocs/bson/org/bson/types/ObjectId.html (defn mongo-id ;; https://mongodb.github.io/mongo-java-driver/4.8/apidocs/bson/org/bson/types/ObjectId.html
(^ObjectId [] (ObjectId.)) (^ObjectId [] (ObjectId.))
(^ObjectId [o] (^ObjectId [o] (oid-from o))
(cond
(string? o) (ObjectId. ^String o)
(bytes? o) (ObjectId. ^bytes o)
(instance? Date o) (ObjectId. ^Date o)
(instance? ByteBuffer o) (ObjectId. ^ByteBuffer o)
:else
(throw
(IllegalArgumentException.
(str "Can not construct an ObjectId from class: " (type o))))))
([o1 o2] ([o1 o2]
(if (and (int? o1) (if (and (int? o1)
(int? o2)) (int? o2))