(check-peer-timeout! {:keys [messenger subscriber-liveness-timeout] :as state})
(checkpoint-complete? {:keys [initiated? epoch] :as checkpoint} status)
(complete-job {:keys [tenancy-id log job-id messenger checkpoint group-ch
curr-replica]
:as state})
(completed-checkpoint
{:keys [checkpoint messenger job-id tenancy-id log curr-replica] :as state})
(next-state this old-replica new-replica)
(start this)
(started? this)
(stop this scheduler-event)
(coordinator-iteration {:keys [messenger checkpoint last-heartbeat-time
allocation-ch shutdown-ch barrier job job-id
curr-replica subscriber-liveness-timeout]
:as state}
coordinator-max-sleep-ns
barrier-period-ns
heartbeat-ns)
(initialise-state {:keys [log messenger job-id tenancy-id curr-replica]
:as state})
(input-publications {:keys [peer-sites message-short-ids] :as replica}
peer-config
peer-id
job-id)
(new-peer-coordinator workflow
resume-point
log
messenger-group
monitoring
peer-config
job-config
peer-id
job-id
group-ch)
(next-replica {:keys [log job-id peer-id messenger curr-replica tenancy-id
peer-config]
:as state}
barrier-period-ns
new-replica)
(periodic-barrier {:keys [tenancy-id workflow-depth log curr-replica job-id
messenger barrier checkpoint]
:as state})
(start-coordinator! {:keys [allocation-ch shutdown-ch peer-config job-config]
:as state})
(stop-coordinator! {:keys [shutdown-ch allocation-ch peer-id]} scheduler-event)
cljdoc is a website building & hosting documentation for Clojure/Script libraries
× close