768cf91cd6
It wait for the node to be synchronized with the network. The heuristic is currently: - the timestamp of current head is less than 1 minute old ; - there was a period of 30 seconds without new block discovered.
42 lines
1.6 KiB
OCaml
42 lines
1.6 KiB
OCaml
(**************************************************************************)
|
|
(* *)
|
|
(* Copyright (c) 2014 - 2016. *)
|
|
(* Dynamic Ledger Solutions, Inc. <contact@tezos.com> *)
|
|
(* *)
|
|
(* All rights reserved. No warranty, explicit or implicit, provided. *)
|
|
(* *)
|
|
(**************************************************************************)
|
|
|
|
type worker
|
|
|
|
val create_worker: State.t -> Distributed_db.t -> worker
|
|
val shutdown: worker -> unit Lwt.t
|
|
|
|
val notify_block: worker -> Block_hash.t -> State.Block_header.t -> unit Lwt.t
|
|
|
|
type t
|
|
|
|
val activate: worker -> State.Net.t -> t Lwt.t
|
|
val get: worker -> State.Net_id.t -> t tzresult Lwt.t
|
|
val get_exn: worker -> State.Net_id.t -> t Lwt.t
|
|
val deactivate: t -> unit Lwt.t
|
|
|
|
val net_state: t -> State.Net.t
|
|
val net_db: t -> Distributed_db.net
|
|
|
|
val fetch_block:
|
|
t -> Block_hash.t -> State.Valid_block.t tzresult Lwt.t
|
|
|
|
val inject_block:
|
|
worker -> ?force:bool -> MBytes.t ->
|
|
(Block_hash.t * State.Valid_block.t tzresult Lwt.t) tzresult Lwt.t
|
|
|
|
val prevalidator: t -> Prevalidator.t
|
|
val test_validator: t -> (t * Distributed_db.net) option
|
|
|
|
val watcher: t -> State.Valid_block.t Lwt_stream.t * Watcher.stopper
|
|
val new_head_watcher: t -> State.Valid_block.t Lwt_stream.t * Watcher.stopper
|
|
val global_watcher: worker -> State.Valid_block.t Lwt_stream.t * Watcher.stopper
|
|
|
|
val bootstrapped: t -> unit Lwt.t
|