2017-11-11 06:34:12 +04:00
|
|
|
(**************************************************************************)
|
|
|
|
(* *)
|
2018-02-06 00:17:03 +04:00
|
|
|
(* Copyright (c) 2014 - 2018. *)
|
2017-11-11 06:34:12 +04:00
|
|
|
(* Dynamic Ledger Solutions, Inc. <contact@tezos.com> *)
|
|
|
|
(* *)
|
|
|
|
(* All rights reserved. No warranty, explicit or implicit, provided. *)
|
|
|
|
(* *)
|
|
|
|
(**************************************************************************)
|
|
|
|
|
|
|
|
type t
|
|
|
|
|
|
|
|
val create: Distributed_db.t -> t
|
|
|
|
|
|
|
|
val validate:
|
|
|
|
t ->
|
|
|
|
Protocol_hash.t -> Protocol.t ->
|
2018-02-05 22:40:16 +04:00
|
|
|
Registred_protocol.t tzresult Lwt.t
|
2017-11-11 06:34:12 +04:00
|
|
|
|
|
|
|
val shutdown: t -> unit Lwt.t
|
|
|
|
|
|
|
|
val fetch_and_compile_protocol:
|
|
|
|
t ->
|
2018-01-24 15:48:25 +04:00
|
|
|
?peer:P2p_peer.Id.t ->
|
2017-11-11 06:34:12 +04:00
|
|
|
?timeout:float ->
|
2018-02-05 22:40:16 +04:00
|
|
|
Protocol_hash.t -> Registred_protocol.t tzresult Lwt.t
|
2017-11-11 06:34:12 +04:00
|
|
|
|
|
|
|
val fetch_and_compile_protocols:
|
|
|
|
t ->
|
2018-01-24 15:48:25 +04:00
|
|
|
?peer:P2p_peer.Id.t ->
|
2017-11-11 06:34:12 +04:00
|
|
|
?timeout:float ->
|
|
|
|
State.Block.t -> unit tzresult Lwt.t
|
|
|
|
|
|
|
|
val prefetch_and_compile_protocols:
|
|
|
|
t ->
|
2018-01-24 15:48:25 +04:00
|
|
|
?peer:P2p_peer.Id.t ->
|
2017-11-11 06:34:12 +04:00
|
|
|
?timeout:float ->
|
|
|
|
State.Block.t -> unit
|
|
|
|
|