2016-09-08 21:13:10 +04:00
|
|
|
(**************************************************************************)
|
|
|
|
|
(* *)
|
|
|
|
|
(* Copyright (c) 2014 - 2016. *)
|
|
|
|
|
(* Dynamic Ledger Solutions, Inc. <contact@tezos.com> *)
|
|
|
|
|
(* *)
|
|
|
|
|
(* All rights reserved. No warranty, explicit or implicit, provided. *)
|
|
|
|
|
(* *)
|
|
|
|
|
(**************************************************************************)
|
|
|
|
|
|
|
|
|
|
type worker
|
|
|
|
|
|
2016-11-07 17:32:10 +04:00
|
|
|
module P2p = Netparams
|
|
|
|
|
|
2016-09-08 21:13:10 +04:00
|
|
|
val create_worker: P2p.net -> State.t -> worker
|
|
|
|
|
val shutdown: worker -> unit Lwt.t
|
|
|
|
|
|
2016-10-19 22:47:04 +04:00
|
|
|
val notify_block: worker -> Block_hash.t -> Store.block -> unit Lwt.t
|
2016-09-08 21:13:10 +04:00
|
|
|
|
|
|
|
|
type t
|
|
|
|
|
|
|
|
|
|
val activate: worker -> State.Net.t -> t Lwt.t
|
|
|
|
|
val get: worker -> State.net_id -> t tzresult Lwt.t
|
|
|
|
|
val get_exn: worker -> State.net_id -> t Lwt.t
|
|
|
|
|
val deactivate: t -> unit Lwt.t
|
|
|
|
|
|
|
|
|
|
val fetch_block:
|
|
|
|
|
t -> Block_hash.t -> State.Valid_block.t tzresult Lwt.t
|
|
|
|
|
val prevalidator: t -> Prevalidator.t
|
|
|
|
|
val test_validator: t -> (t * State.Net.t) option
|
