package octez-libs

You can search for identifiers within the package.

in-package search v0.2.0

A package that contains multiple base libraries used by the Octez suite

Install

Dune Dependency

www.tezos.com Readme Edit opam file Versions (5)

Authors

T

Tezos devteam

Maintainers

C

contact@tezos.com

Sources

octez-19.1.tar.gz

sha256=55ea1fb8bb3273a7fc270ca8f650d45c56449665619482aad9bc12f3ea736b7e

sha512=fec850fc2d17d7490bbabd5147d62aad13b3aaed8774270f8a38ab419670ed03e0fd30cf8642a97984eca5c2446726fe590ad99c015f7ec50919dc7652f25053

doc/src/octez-libs.base/genesis.ml.html

Source file `genesis.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
(** The chain starts from a genesis block associated to a seed protocol *)
type t = {
  time : Time.Protocol.t;
  block : Tezos_crypto.Hashed.Block_hash.t;
  protocol : Tezos_crypto.Hashed.Protocol_hash.t;
}

let encoding =
  let open Data_encoding in
  conv
    (fun {time; block; protocol} -> (time, block, protocol))
    (fun (time, block, protocol) -> {time; block; protocol})
    (obj3
       (req "timestamp" Time.Protocol.encoding)
       (req "block" Tezos_crypto.Hashed.Block_hash.encoding)
       (req "protocol" Tezos_crypto.Hashed.Protocol_hash.encoding))

let equal g1 g2 =
  let {time = t1; block = b1; protocol = p1} = g1 in
  let {time = t2; block = b2; protocol = p2} = g2 in
  Time.Protocol.equal t1 t2
  && Tezos_crypto.Hashed.Block_hash.equal b1 b2
  && Tezos_crypto.Hashed.Protocol_hash.equal p1 p2

let pp ppf genesis =
  Data_encoding.Json.pp ppf (Data_encoding.Json.construct encoding genesis)

module Parameters = struct
  type t = {context_key : string; values : Data_encoding.json}

  let encoding =
    let open Data_encoding in
    conv
      (fun {context_key; values} -> (context_key, values))
      (fun (context_key, values) -> {context_key; values})
      (obj2 (dft "context_key" string "sandbox_parameter") (req "values" json))
end