b6449cae87
* `lib_stdlib`: basic extended OCaml stdlib and generic data structures
* `lib_data_encoding`: almost independant 'Data_encoding'
* `lib_error_monad`: almost independant 'Error_monad'
* `lib_stdlib_lwt`: extended Lwt library
* `lib_crypto`: all the crypto stuff (hashing, signing, cryptobox).
* `lib_base`:
- basic type definitions (Block_header, Operation, ...)
- a module `TzPervasives` to bind them all and to be the
single module opened everywhere.
In the process, I splitted `Tezos_data` and `Hash` in multiple
submodules, thus removing a lot of `-open`.
The following two modules may not have found their place yet:
- Base58 (currently in `lib_crypto`)
- Cli_entries (currently in `lib_stdlib_lwt`)
60 lines
2.0 KiB
Standard ML
60 lines
2.0 KiB
Standard ML
(**************************************************************************)
|
|
(* *)
|
|
(* Copyright (c) 2014 - 2017. *)
|
|
(* Dynamic Ledger Solutions, Inc. <contact@tezos.com> *)
|
|
(* *)
|
|
(* All rights reserved. No warranty, explicit or implicit, provided. *)
|
|
(* *)
|
|
(**************************************************************************)
|
|
|
|
type shell_header = {
|
|
branch: Block_hash.t ;
|
|
}
|
|
|
|
let shell_header_encoding =
|
|
let open Data_encoding in
|
|
conv
|
|
(fun { branch } -> branch)
|
|
(fun branch -> { branch })
|
|
(obj1 (req "branch" Block_hash.encoding))
|
|
|
|
type t = {
|
|
shell: shell_header ;
|
|
proto: MBytes.t ;
|
|
}
|
|
let encoding =
|
|
let open Data_encoding in
|
|
conv
|
|
(fun { shell ; proto } -> (shell, proto))
|
|
(fun (shell, proto) -> { shell ; proto })
|
|
(merge_objs
|
|
shell_header_encoding
|
|
(obj1 (req "data" Variable.bytes)))
|
|
|
|
let pp fmt op =
|
|
Format.pp_print_string fmt @@
|
|
Data_encoding_ezjsonm.to_string (Data_encoding.Json.construct encoding op)
|
|
|
|
let compare o1 o2 =
|
|
let (>>) x y = if x = 0 then y () else x in
|
|
Block_hash.compare o1.shell.branch o1.shell.branch >> fun () ->
|
|
MBytes.compare o1.proto o2.proto
|
|
let equal b1 b2 = compare b1 b2 = 0
|
|
|
|
let (=) = equal
|
|
let (<>) x y = compare x y <> 0
|
|
let (<) x y = compare x y < 0
|
|
let (<=) x y = compare x y <= 0
|
|
let (>=) x y = compare x y >= 0
|
|
let (>) x y = compare x y > 0
|
|
let min x y = if x <= y then x else y
|
|
let max x y = if x <= y then y else x
|
|
|
|
let to_bytes v = Data_encoding.Binary.to_bytes encoding v
|
|
let of_bytes b = Data_encoding.Binary.of_bytes encoding b
|
|
let of_bytes_exn b = Data_encoding.Binary.of_bytes_exn encoding b
|
|
|
|
let hash op = Operation_hash.hash_bytes [to_bytes op]
|
|
let hash_raw bytes = Operation_hash.hash_bytes [bytes]
|
|
|