Mid-changes: organize state changes
This commit is contained in:
Nicholas Kariniemi
parent
fe5bd00427
commit
1b8339dec0
1 changed files with 113 additions and 80 deletions
|
|
@ -5,19 +5,21 @@
|
||||||
[clojure.core.async :as a :refer [<! >! chan go]]
|
[clojure.core.async :as a :refer [<! >! chan go]]
|
||||||
[hasch.core :as hasch]))
|
[hasch.core :as hasch]))
|
||||||
|
|
||||||
(def initial-state {:hash (hasch/uuid cs/empty-state)
|
(defn initial-state [grubs recipes]
|
||||||
:state cs/empty-state})
|
[{:grubs (util/map-by-key :id grubs)
|
||||||
(def states (atom [initial-state]))
|
:recipes (util/map-by-key :id recipes)}])
|
||||||
|
|
||||||
|
(def states (ref []))
|
||||||
|
|
||||||
(defn get-history-state [states hash]
|
(defn get-history-state [states hash]
|
||||||
(:state (first (filter #(= (:hash %) hash) states))))
|
(:state (first (filter #(= (:hash %) hash) states))))
|
||||||
|
|
||||||
(defn add-history-state [current new-state]
|
(defn add-history-state [states new-state]
|
||||||
(let [{:keys [state hash]} (first current)
|
(let [{:keys [state hash]} (first states)
|
||||||
new-hash (hasch/uuid new-state)]
|
new-hash (hasch/uuid new-state)]
|
||||||
(if (= hash new-hash)
|
(if (= hash new-hash)
|
||||||
current
|
states
|
||||||
(conj current {:hash hash :state state}))))
|
(conj states {:hash hash :state state}))))
|
||||||
|
|
||||||
(defn receive-diff [states diff shadow-hash]
|
(defn receive-diff [states diff shadow-hash]
|
||||||
(let [state (:state (first states))
|
(let [state (:state (first states))
|
||||||
|
|
@ -30,84 +32,115 @@
|
||||||
:new-shadow state
|
:new-shadow state
|
||||||
:full-sync? true})))
|
:full-sync? true})))
|
||||||
|
|
||||||
|
(defn apply-diff? [states diff shadow-hash]
|
||||||
|
(get-history-state states shadow-hash))
|
||||||
|
|
||||||
|
|
||||||
(def state (atom cs/empty-state))
|
|
||||||
(def to-db (atom nil))
|
(def to-db (atom nil))
|
||||||
(def to-all (chan))
|
|
||||||
(def from-all (a/mult to-all))
|
|
||||||
|
|
||||||
(def state-history (atom []))
|
(defn make-client [in client-state states]
|
||||||
|
(let [out (chan)
|
||||||
|
full-sync! (fn [] (let [new-client (dosync (ref-set client-state @states))]
|
||||||
|
(a/put! out (cs/complete-sync-response new-client))))]
|
||||||
|
(a/go-loop
|
||||||
|
[]
|
||||||
|
(when-let [{:keys [type diff shadow-hash state]} (<! in)]
|
||||||
|
(condp = type
|
||||||
|
:new-state (a/put! out (diff/diff-states @client-state (first @states)))
|
||||||
|
:diff (dosync
|
||||||
|
(let [state (:state (first @states))
|
||||||
|
shadow (get-history-state states shadow-hash)]
|
||||||
|
(if shadow
|
||||||
|
(do (alter states add-history-state (diff/patch-state state diff))
|
||||||
|
(alter client-state diff/patch-state shadow diff))
|
||||||
|
(full-sync!))))
|
||||||
|
:full-sync (full-sync!)
|
||||||
|
nil)
|
||||||
|
(recur)))
|
||||||
|
out))
|
||||||
|
|
||||||
(defn save-history-state [history new-state]
|
(defn sync-new-client! [>client <client]
|
||||||
(when-not (= (hasch/uuid (last history)) (hasch/uuid new-state))
|
|
||||||
(conj history new-state)))
|
|
||||||
|
|
||||||
(defn get-history-state [hash]
|
|
||||||
(first (filter #(= (hasch/uuid %) hash) @state-history)))
|
|
||||||
|
|
||||||
(add-watch state :history (fn [_ _ _ new-state]
|
|
||||||
(swap! state-history save-history-state new-state)))
|
|
||||||
|
|
||||||
(defn initial-state [grubs recipes]
|
|
||||||
{:grubs (util/map-by-key :id grubs)
|
|
||||||
:recipes (util/map-by-key :id recipes)})
|
|
||||||
|
|
||||||
|
|
||||||
(defn sync-new-client! [to from]
|
|
||||||
(let [client-id (java.util.UUID/randomUUID)
|
(let [client-id (java.util.UUID/randomUUID)
|
||||||
client-state (atom cs/empty-state)
|
state-changes (chan)
|
||||||
log (fn [& args]
|
events (chan)
|
||||||
(apply println client-id args))]
|
client-state (ref cs/empty-state)]
|
||||||
(add-watch state client-id (fn [_ _ _ current-state]
|
(add-watch states client-id (fn [_ _ _ [state _]] (a/put! state-changes state)))
|
||||||
(let [msg (cs/diff-states @client-state current-state)]
|
(a/pipe (a/merge <client
|
||||||
(a/put! to msg)
|
(a/map< (fn [s] {:type :new-state :state s}) state-changes))
|
||||||
(reset! client-state current-state))))
|
events)
|
||||||
(a/go-loop []
|
(let [out (make-client events client-id client-state states)]
|
||||||
(if-let [{:keys [type diff hash shadow-hash] :as msg} (<! from)]
|
(a/go-loop [] (if-let [v (<! out)]
|
||||||
(do (condp = type
|
(do (>! >client v)
|
||||||
:diff
|
(recur))
|
||||||
(if (= (hasch/uuid @client-state) shadow-hash)
|
(remove-watch states client-id))))
|
||||||
;; We have what they thought we had
|
|
||||||
;; Apply changes normally
|
;; (let [full-sync! (fn [] (let [new-client (dosync (ref-set client-state @states))]
|
||||||
(let [new-shadow (swap! client-state diff/patch-state diff)]
|
;; (a/put! >client (cs/complete-sync-response new-client))))]
|
||||||
(log "Hash matched state, apply changes")
|
;; (a/go-loop
|
||||||
(if (= (hasch/uuid new-shadow) hash)
|
;; []
|
||||||
(let [new-state (swap! state diff/patch-state diff)]
|
;; (if-let [{:keys [type diff shadow-hash state]} (<! events)]
|
||||||
(>! @to-db diff))
|
;; (condp = type
|
||||||
(do (log "Applying diff failed --> full sync")
|
;; :new-state (a/put! >client (diff/diff-states @client-state (first @states)))
|
||||||
(let [sync-state @state]
|
;; :diff (dosync
|
||||||
(reset! client-state sync-state)
|
;; (let [state (:state (first @states))
|
||||||
(a/put! to (cs/complete-sync-response sync-state))))))
|
;; shadow (get-history-state states shadow-hash)]
|
||||||
;; We have something different than they thought
|
;; (if shadow
|
||||||
;; Check history
|
;; (do (alter states add-history-state (diff/patch-state state diff))
|
||||||
(do
|
;; (alter client-state diff/patch-state shadow diff))
|
||||||
(log "Hash check failed --> Reset from history")
|
;; (full-sync!))))
|
||||||
(if-let [history-state (get-history-state shadow-hash)]
|
;; :full-sync (full-sync!))
|
||||||
;; Found what they thought we had in history,
|
;; (remove-watch states client-id))))
|
||||||
;; reset client state to this and continue as normal
|
))
|
||||||
(do
|
|
||||||
(reset! client-state history-state)
|
;; (defn sync-new-client! [to from]
|
||||||
(let [new-shadow (swap! client-state diff/patch-state diff)]
|
;; (let [client-id (java.util.UUID/randomUUID)
|
||||||
(if (= (hasch/uuid new-shadow) hash)
|
;; state-changes (chan)]
|
||||||
(let [new-state (swap! state diff/patch-state diff)]
|
;; (add-watch states client-id (fn [_ _ _ [current-state _]]
|
||||||
(>! @to-db diff))
|
;; (put! state-changes current-state)))
|
||||||
(do (log "Applying diff failed --> full sync")
|
;; (a/go-loop [client-state cs/empty-state]
|
||||||
(let [sync-state @state]
|
;; (if-let [[{:keys [type] :as msg} c] (<! from)]
|
||||||
(reset! client-state sync-state)
|
;; (do (condp = type
|
||||||
(a/put! to (cs/complete-sync-response sync-state)))))))
|
;; :diff
|
||||||
;; Not found in history, do complete sync
|
;; (if (= (hasch/uuid @client-state) shadow-hash)
|
||||||
(do (log "Hash check failed, not in history --> full sync")
|
;; ;; We have what they thought we had
|
||||||
(let [sync-state @state]
|
;; ;; Apply changes normally
|
||||||
(reset! client-state sync-state)
|
;; (let [new-shadow (swap! client-state diff/patch-state diff)]
|
||||||
(a/put! to (cs/complete-sync-response sync-state)))))))
|
;; (log "Hash matched state, apply changes")
|
||||||
:complete (let [new-state (reset! client-state @state)]
|
;; (if (= (hasch/uuid new-shadow) hash)
|
||||||
(log "full sync")
|
;; (let [new-state (swap! state diff/patch-state diff)]
|
||||||
(a/put! to (cs/complete-sync-response new-state)))
|
;; (>! @to-db diff))
|
||||||
(log "Invalid msg:" msg))
|
;; (do (log "Applying diff failed --> full sync")
|
||||||
(recur))
|
;; (let [sync-state @state]
|
||||||
(remove-watch state client-id)))))
|
;; (reset! client-state sync-state)
|
||||||
|
;; (a/put! to (cs/complete-sync-response sync-state))))))
|
||||||
|
;; ;; We have something different than they thought
|
||||||
|
;; ;; Check history
|
||||||
|
;; (do
|
||||||
|
;; (log "Hash check failed --> Reset from history")
|
||||||
|
;; (if-let [history-state (get-history-state shadow-hash)]
|
||||||
|
;; ;; Found what they thought we had in history,
|
||||||
|
;; ;; reset client state to this and continue as normal
|
||||||
|
;; (do
|
||||||
|
;; (reset! client-state history-state)
|
||||||
|
;; (let [new-shadow (swap! client-state diff/patch-state diff)]
|
||||||
|
;; (if (= (hasch/uuid new-shadow) hash)
|
||||||
|
;; (let [new-state (swap! state diff/patch-state diff)]
|
||||||
|
;; (>! @to-db diff))
|
||||||
|
;; (do (log "Applying diff failed --> full sync")
|
||||||
|
;; (let [sync-state @state]
|
||||||
|
;; (reset! client-state sync-state)
|
||||||
|
;; (a/put! to (cs/complete-sync-response sync-state)))))))
|
||||||
|
;; ;; Not found in history, do complete sync
|
||||||
|
;; (do (log "Hash check failed, not in history --> full sync")
|
||||||
|
;; (let [sync-state @state]
|
||||||
|
;; (reset! client-state sync-state)
|
||||||
|
;; (a/put! to (cs/complete-sync-response sync-state)))))))
|
||||||
|
;; :complete (let [new-state (reset! client-state @state)]
|
||||||
|
;; (log "full sync")
|
||||||
|
;; (a/put! to (cs/complete-sync-response new-state)))
|
||||||
|
;; (log "Invalid msg:" msg))
|
||||||
|
;; (recur))
|
||||||
|
;; (remove-watch state client-id)))))
|
||||||
|
|
||||||
(defn init [_to-db grubs recipes]
|
(defn init [_to-db grubs recipes]
|
||||||
(reset! state (initial-state grubs recipes))
|
(reset! states (initial-state grubs recipes))
|
||||||
(reset! to-db _to-db))
|
(reset! to-db _to-db))
|
||||||
|
|
|
||||||
Loading…
Reference in a new issue