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

[nop] Refactor deftype freezer

Browse source
This commit is contained in:
Peter Taoussanis 2024-03-19 22:14:32 +01:00
parent f749e07eed
commit af928ed6a4
1 changed files with 14 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

25
src/taoensso/nippy.clj
View file

@ -1094,22 +1094,25 @@
(-freeze-without-meta! (into {} x) out)))
(let [munge-cached (enc/fmemoize munge)]
(let [munged-name (enc/fmemoize #(munge (name %)))
get-basis
(do #_enc/fmemoize ; Small perf benefit not worth the loss of dynamism
(fn [^java.lang.Class aclass]
(let [basis-method (.getMethod aclass "getBasis" nil)]
(.invoke basis-method nil nil))))]
(freezer IType nil true
(let [aclass (class x)
class-name (.getName aclass)]
(write-id out id-type)
(write-str out class-name)
;; Could cache basis generation for given class-name with generalized
;; `-cache-proxy` or something like it, but probably not worth the extra complexity.
(let [basis-method (.getMethod aclass "getBasis" nil)
basis (.invoke basis-method nil nil)]
(-run!
(fn [b]
(let [^Field cfield (.getField aclass (munge-cached (name b)))]
(let [fvalue (.get cfield x)]
(-freeze-without-meta! fvalue out))))
basis)))))
(-run!
(fn [b]
(let [^Field cfield (.getField aclass (munged-name b))]
(-freeze-without-meta! (.get cfield x) out)))
(get-basis aclass)))))
(comment (do (deftype T1 [x]) (.invoke (.getMethod (class (T1. :x)) "getBasis" nil) nil nil)))
(enc/compile-if java.time.Instant
(freezer java.time.Instant id-time-instant true