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. *)
|
|
|
|
(* *)
|
|
|
|
(**************************************************************************)
|
|
|
|
|
|
|
|
(** Low-level part of the [Updater]. *)
|
|
|
|
|
2016-10-24 21:15:35 +04:00
|
|
|
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
|
2016-09-08 21:13:10 +04:00
|
|
|
|
2016-10-24 21:15:35 +04:00
|
|
|
module Meta : sig
|
|
|
|
val to_file: string -> ?hash:Protocol_hash.t -> string list -> unit
|
|
|
|
val of_file: string -> Protocol_hash.t option * string list
|
2016-09-08 21:13:10 +04:00
|
|
|
end
|
|
|
|
|
|
|
|
val main: unit -> unit
|