[new] [#474] Add UUID support to Msgpack packer (@jrgvf)

Author: jrgvf

src/taoensso/msgpack/impl.clj

@@ -321,6 +321,21 @@
   (unpack [ba]
     (CachedKey. (get @c/*key-cache_* (bit-and 0xff (aget ^bytes ba 0))))))
 
+(c/extend-packable 9 java.util.UUID
+  (pack   [u]  (.getBytes (str u)                            StandardCharsets/UTF_8))
+  (unpack [ba] (java.util.UUID/fromString (String. ^bytes ba StandardCharsets/UTF_8))))
+
+#_ ; Unfortunately no simple equivalent for Cljs
+(c/extend-packable 9 java.util.UUID
+  (pack [u]
+    (with-out [out 64]
+      (.writeLong out (.getMostSignificantBits  u))
+      (.writeLong out (.getLeastSignificantBits u))))
+
+  (unpack [ba] (with-in [in ba] (java.util.UUID. (.readLong in) (.readLong in)))))
+
+(comment (unpack (pack (java.util.UUID/randomUUID))))
+
 ;;;;
 
 (defn pack

src/taoensso/msgpack/impl.cljs

@@ -452,6 +452,10 @@
   (unpack [u8s]
     (CachedKey. (get @c/*key-cache_* (aget ^js u8s 0)))))
 
+(c/extend-packable 9 UUID
+  (pack   [u]             (.encode text-encoder (str u)))
+  (unpack [^js u8s] (uuid (.decode text-decoder ^js u8s))))
+
 ;;;;
 
 (defn unpack [in] (unpack-1 (in-stream* in)))

test/taoensso/msgpack_tests.cljc

@@ -118,6 +118,8 @@
    #?(:clj  (is (rt? "Timestamps" (java.time.Instant/now) (java.util.Date.) (java.util.Date. -1))))
    #?(:cljs (is (rt? "Timestamps" (js/Date.))))
 
+   (rt? "UUID" #uuid "66d96ab4-9834-40db-a3cd-42b361503ab9")
+
    (testing "Key caching"
      [(rt? "Basic" [{:a :A} {:a :A}] {:foo {1 {:x :X} 2 {:y :Y}}})
       (rt? ">256    keys" (let [m (into {} (map (fn [n] [(str "key" n) n])) (range 512))] [m m {:a :A :b :B} m]))