status-im/reagent
2
0
Fork 0
mirror of https://github.com/status-im/reagent.git synced 2025-01-29 13:16:29 +00:00
Code Issues Projects Releases Wiki Activity

Get rid of complex deref watching code

Browse Source
This commit is contained in:
Dan Holmsand 2015-10-03 21:47:06 +02:00
parent b399f30daf
commit c8b86af635
1 changed files with 14 additions and 28 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

42
src/reagent/ratom.cljs
View File

@ -32,43 +32,29 @@
false))))))
(defn- in-context [obj f]
(set! (.-capPos obj) 0)
(binding [*ratom-context* obj]
(f)))
(defn- deref-capture [f obj]
(let [watch (.-watching obj)]
(set! (.-captured obj) (.-watching obj))
(defn- deref-capture [f r]
(let [watch (.-watching r)]
(set! (.-captured r) nil)
(when (dev?)
(set! (.-ratomGeneration obj)
(set! (.-ratomGeneration r)
(set! generation (inc generation))))
(let [res (in-context obj f)
capt (.-captured obj)]
(set! (.-dirty? obj) false)
(when-not (or (identical? capt watch)
(arr-eq capt watch))
(._update-watching obj capt))
(let [res (in-context r f)
capt (.-captured r)]
(set! (.-dirty? r) false)
(when-not (arr-eq capt watch)
(._update-watching r capt))
res)))
(defn- add-item [a x]
(when (== -1 (.indexOf a x))
(.push a x)))
(defn- notify-deref-watcher! [derefable]
(when-some [obj *ratom-context*]
(let [c (.-captured obj)]
(when-some [r *ratom-context*]
(let [c (.-captured r)]
(if (nil? c)
(do (set! (.-capPos obj) -1)
(set! (.-captured obj) (array derefable)))
;; Try to avoid allocating new array
(let [p (.-capPos obj)]
(if (== p -1)
(add-item c derefable)
(if (identical? derefable (aget c p))
(set! (.-capPos obj) (inc p))
(let [c1 (set! (.-captured obj) (.slice c 0 p))]
(add-item c1 derefable)
(set! (.-capPos obj) -1)))))))))
(set! (.-captured r) (array derefable))
(when (== -1 (.indexOf c derefable))
(.push c derefable))))))
(defn- check-watches [old new]
(when debug