michael/grub-fork
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

Try breaking apart sync algorithm

Browse source
This commit is contained in:
Nicholas Kariniemi 2014-09-07 09:29:06 +03:00
parent 49aa9c784d
commit 560b895a9b
2 changed files with 11 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/cljs/grub/core.cljs
View file

@ -12,7 +12,7 @@
(state/sync-state! from-remote to-remote reset? state-changes)))
(defn init-app []
(let [state-changes (view/render-app state/state state-changes)]
(let [state-changes (view/render-app state/state)]
(connect-to-server true state-changes)))
(init-app)

16
src/cljs/grub/state.cljs
View file

@ -16,14 +16,16 @@
@server-state
(get @unacked-states hash)))
(defn sync-state! [to from reset? state-changes]
(defn send-state-changes-to-server! [state-changes from]
(go-loop []
(when-let [current-state (<! state-changes)]
(when-not (= @server-state current-state)
(let [msg (cs/diff-states @server-state current-state)]
(swap! unacked-states assoc (:hash msg) current-state)
(a/put! from msg)))
(recur)))
(recur))))
(defn handle-received-changes! [to from]
(go-loop []
(if-let [{:keys [type diff hash shadow-hash] :as msg} (<! to)]
(do (condp = type
@ -45,7 +47,9 @@
(reset! state (:state msg)))
(logs "Invalid msg:" msg))
(recur))
(remove-watch state :state)))
(if reset?
(a/put! from cs/complete-sync-request)
(a/put! from (cs/diff-states @server-state @state))))
(remove-watch state :state))))
(defn sync-state! [to from reset? state-changes]
(send-state-changes-to-server! state-changes from)
(handle-received-changes! to from)
(a/put! from (if reset? cs/complete-sync-request (cs/diff-states @server-state @state))))