101 lines
2.3 KiB
OCaml
101 lines
2.3 KiB
OCaml
|
(**************************************************************************)
|
||
|
|
(* *)
|
||
|
|
(* Copyright (c) 2014 - 2016. *)
|
||
|
|
(* Dynamic Ledger Solutions, Inc. <contact@tezos.com> *)
|
||
|
|
(* *)
|
||
|
|
(* All rights reserved. No warranty, explicit or implicit, provided. *)
|
||
|
|
(* *)
|
||
|
|
(**************************************************************************)
|
||
|
|
|
||
|
|
open Hash
|
||
|
|
|
||
|
|
module type DATA = sig
|
||
|
|
|
||
|
|
type t
|
||
|
|
|
||
|
|
val compare: t -> t -> int
|
||
|
|
val equal: t -> t -> bool
|
||
|
|
|
||
|
|
val pp: Format.formatter -> t -> unit
|
||
|
|
|
||
|
|
val encoding: t Data_encoding.t
|
||
|
|
val to_bytes: t -> MBytes.t
|
||
|
|
val of_bytes: MBytes.t -> t option
|
||
|
|
|
||
|
|
end
|
||
|
|
|
||
|
|
module Fitness : DATA with type t = MBytes.t list
|
||
|
|
|
||
|
|
module type HASHABLE_DATA = sig
|
||
|
|
|
||
|
|
include DATA
|
||
|
|
|
||
|
|
type hash
|
||
|
|
val hash: t -> hash
|
||
|
|
val hash_raw: MBytes.t -> hash
|
||
|
|
|
||
|
|
end
|
||
|
|
|
||
|
|
module Operation : sig
|
||
|
|
|
||
|
|
type shell_header = {
|
||
|
|
net_id: Net_id.t ;
|
||
|
|
}
|
||
|
|
val shell_header_encoding: shell_header Data_encoding.t
|
||
|
|
|
||
|
|
type t = {
|
||
|
|
shell: shell_header ;
|
||
|
|
proto: MBytes.t ;
|
||
|
|
}
|
||
|
|
|
||
|
|
include HASHABLE_DATA with type t := t
|
||
|
|
and type hash := Operation_hash.t
|
||
|
|
|
||
|
|
end
|
||
|
|
|
||
|
|
module Block_header : sig
|
||
|
|
|
||
|
|
type shell_header = {
|
||
|
|
net_id: Net_id.t ;
|
||
|
|
level: Int32.t ;
|
||
|
|
proto_level: int ; (* uint8 *)
|
||
|
|
predecessor: Block_hash.t ;
|
||
|
|
timestamp: Time.t ;
|
||
|
|
operations_hash: Operation_list_list_hash.t ;
|
||
|
|
fitness: MBytes.t list ;
|
||
|
|
}
|
||
|
|
|
||
|
|
val shell_header_encoding: shell_header Data_encoding.t
|
||
|
|
|
||
|
|
type t = {
|
||
|
|
shell: shell_header ;
|
||
|
|
proto: MBytes.t ;
|
||
|
|
}
|
||
|
|
|
||
|
|
include HASHABLE_DATA with type t := t
|
||
|
|
and type hash := Block_hash.t
|
||
|
|
|
||
|
|
end
|
||
|
|
|
||
|
|
module Protocol : sig
|
||
|
|
|
||
|
|
(** An OCaml source component of a protocol implementation. *)
|
||
|
|
type component = {
|
||
|
|
(** The OCaml module name. *)
|
||
|
|
name : string ;
|
||
|
|
(** The OCaml interface source code *)
|
||
|
|
interface : string option ;
|
||
|
|
(** The OCaml source code *)
|
||
|
|
implementation : string ;
|
||
|
|
}
|
||
|
|
|
||
|
|
type t = component list
|
||
|
|
|
||
|
|
|
||
|
|
val component_encoding: component Data_encoding.t
|
||
|
|
|
||
|
|
include HASHABLE_DATA with type t := t
|
||
|
|
and type hash := Protocol_hash.t
|
||
|
|
|
||
|
|
end
|