0af5f6e7c3
* Read TEZOS_PROTOCOL in json format * Define Protocol module here * Fix dependent modules to use Protocol defined here * Compute hash of protocol if absent in TEZOS_PROTOCOL
32 lines
1.2 KiB
OCaml
32 lines
1.2 KiB
OCaml
(**************************************************************************)
|
|
(* *)
|
|
(* Copyright (c) 2014 - 2016. *)
|
|
(* Dynamic Ledger Solutions, Inc. <contact@tezos.com> *)
|
|
(* *)
|
|
(* All rights reserved. No warranty, explicit or implicit, provided. *)
|
|
(* *)
|
|
(**************************************************************************)
|
|
|
|
(** Low-level part of the [Updater]. *)
|
|
|
|
module Protocol : sig
|
|
type component = {
|
|
name : string;
|
|
interface : string option;
|
|
implementation : string;
|
|
}
|
|
val component_encoding : component Data_encoding.encoding
|
|
type t = component list
|
|
val encoding : component list Data_encoding.encoding
|
|
val to_bytes : component list -> MBytes.t
|
|
val of_bytes : MBytes.t -> component list option
|
|
val hash : component list -> Hash.Protocol_hash.t
|
|
end
|
|
|
|
module Meta : sig
|
|
val to_file: string -> ?hash:Protocol_hash.t -> string list -> unit
|
|
val of_file: string -> Protocol_hash.t option * string list
|
|
end
|
|
|
|
val main: unit -> unit
|