39 lines
1.1 KiB
OCaml
39 lines
1.1 KiB
OCaml
(**************************************************************************)
|
|
(* *)
|
|
(* Copyright (c) 2014 - 2018. *)
|
|
(* 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 ->
|
|
Registered_protocol.t tzresult Lwt.t
|
|
|
|
val shutdown: t -> unit Lwt.t
|
|
|
|
val fetch_and_compile_protocol:
|
|
t ->
|
|
?peer:P2p_peer.Id.t ->
|
|
?timeout:float ->
|
|
Protocol_hash.t -> Registered_protocol.t tzresult Lwt.t
|
|
|
|
val fetch_and_compile_protocols:
|
|
t ->
|
|
?peer:P2p_peer.Id.t ->
|
|
?timeout:float ->
|
|
State.Block.t -> unit tzresult Lwt.t
|
|
|
|
val prefetch_and_compile_protocols:
|
|
t ->
|
|
?peer:P2p_peer.Id.t ->
|
|
?timeout:float ->
|
|
State.Block.t -> unit
|
|
|