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`)
66 lines
2.2 KiB
OCaml
66 lines
2.2 KiB
OCaml
(**************************************************************************)
|
|
(* *)
|
|
(* Copyright (c) 2014 - 2017. *)
|
|
(* Dynamic Ledger Solutions, Inc. <contact@tezos.com> *)
|
|
(* *)
|
|
(* All rights reserved. No warranty, explicit or implicit, provided. *)
|
|
(* *)
|
|
(**************************************************************************)
|
|
|
|
type t = MBytes.t list
|
|
|
|
(* Fitness comparison:
|
|
- shortest lists are smaller ;
|
|
- lexicographical order for lists of the same length. *)
|
|
let compare_bytes b1 b2 =
|
|
let len1 = MBytes.length b1 in
|
|
let len2 = MBytes.length b2 in
|
|
let c = compare len1 len2 in
|
|
if c <> 0
|
|
then c
|
|
else
|
|
let rec compare_byte b1 b2 pos len =
|
|
if pos = len
|
|
then 0
|
|
else
|
|
let c = compare (MBytes.get_char b1 pos) (MBytes.get_char b2 pos) in
|
|
if c <> 0
|
|
then c
|
|
else compare_byte b1 b2 (pos+1) len
|
|
in
|
|
compare_byte b1 b2 0 len1
|
|
|
|
let compare f1 f2 =
|
|
let rec compare_rec f1 f2 = match f1, f2 with
|
|
| [], [] -> 0
|
|
| i1 :: f1, i2 :: f2 ->
|
|
let i = compare_bytes i1 i2 in
|
|
if i = 0 then compare_rec f1 f2 else i
|
|
| _, _ -> assert false in
|
|
let len = compare (List.length f1) (List.length f2) in
|
|
if len = 0 then compare_rec f1 f2 else len
|
|
|
|
let equal f1 f2 = compare f1 f2 = 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 rec pp fmt = function
|
|
| [] -> ()
|
|
| [f] -> Format.fprintf fmt "%s" (Hex_encode.hex_of_bytes f)
|
|
| f1 :: f -> Format.fprintf fmt "%s::%a" (Hex_encode.hex_of_bytes f1) pp f
|
|
|
|
let encoding =
|
|
let open Data_encoding in
|
|
describe ~title: "Tezos block fitness"
|
|
(list bytes)
|
|
|
|
let to_bytes v = Data_encoding.Binary.to_bytes encoding v
|
|
let of_bytes b = Data_encoding.Binary.of_bytes encoding b
|