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

Add debug-mode flag

Browse source
This commit is contained in:
Peter Taoussanis 2013-10-31 13:15:22 +07:00
parent ba37d1a03c
commit b1dab1dc4b
1 changed files with 6 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
src/taoensso/nippy.clj
View file

@ -28,6 +28,8 @@
(byte 2) {:version 1 :compressed? false :encrypted? true} (byte 2) {:version 1 :compressed? false :encrypted? true}
(byte 3) {:version 1 :compressed? true :encrypted? true}}) (byte 3) {:version 1 :compressed? true :encrypted? true}})
(def ^:private ^:const debug-mode? false)
;;;; Data type IDs ;;;; Data type IDs
;; **Negative ids reserved for user-defined types** ;; **Negative ids reserved for user-defined types**
@ -187,13 +189,15 @@
(freeze-to-stream* [x ^DataOutputStream s] (freeze-to-stream* [x ^DataOutputStream s]
(if (instance? Serializable x) (if (instance? Serializable x)
(do ;; Fallback #1: Java's Serializable interface (do ;; Fallback #1: Java's Serializable interface
;;(println (format "DEBUG - Serializable fallback: %s" (type x))) (when debug-mode?
(println (format "DEBUG - Serializable fallback: %s" (type x))))
(write-id s id-serializable) (write-id s id-serializable)
(write-utf8 s (.getName (class x))) ; Reflect (write-utf8 s (.getName (class x))) ; Reflect
(.writeObject (java.io.ObjectOutputStream. s) x)) (.writeObject (java.io.ObjectOutputStream. s) x))
(do ;; Fallback #2: Clojure's Reader (do ;; Fallback #2: Clojure's Reader
;;(println (format "DEBUG - Reader fallback: %s" (type x))) (when debug-mode?
(println (format "DEBUG - Reader fallback: %s" (type x))))
(write-id s id-reader) (write-id s id-reader)
(write-bytes s (.getBytes (pr-str x) "UTF-8")))))) (write-bytes s (.getBytes (pr-str x) "UTF-8"))))))