56 lines
1.5 KiB
OCaml
56 lines
1.5 KiB
OCaml
(**************************************************************************)
|
|
(* *)
|
|
(* Copyright (c) 2014 - 2017. *)
|
|
(* Dynamic Ledger Solutions, Inc. <contact@tezos.com> *)
|
|
(* *)
|
|
(* All rights reserved. No warranty, explicit or implicit, provided. *)
|
|
(* *)
|
|
(**************************************************************************)
|
|
|
|
type t = int32
|
|
type cycle = t
|
|
|
|
let encoding = Data_encoding.int32
|
|
let arg =
|
|
let construct = Int32.to_string in
|
|
let destruct str =
|
|
match Int32.of_string str with
|
|
| exception _ -> Error "Cannot parse cycle"
|
|
| cycle -> Ok cycle in
|
|
RPC.Arg.make
|
|
~descr:"A cycle integer"
|
|
~name: "block_cycle"
|
|
~construct
|
|
~destruct
|
|
()
|
|
|
|
let pp ppf cycle = Format.fprintf ppf "%ld" cycle
|
|
|
|
include (Compare.Int32 : Compare.S with type t := t)
|
|
|
|
let root = 0l
|
|
let succ = Int32.succ
|
|
let pred = function
|
|
| 0l -> None
|
|
| i -> Some (Int32.pred i)
|
|
|
|
let to_int32 i = i
|
|
|
|
let of_int32_exn l =
|
|
if Compare.Int32.(l >= 0l)
|
|
then l
|
|
else invalid_arg "Level_repr.Cycle.of_int32"
|
|
|
|
module Index = struct
|
|
type t = cycle
|
|
let path_length = 1
|
|
let to_path c l =
|
|
Int32.to_string (to_int32 c) :: l
|
|
let of_path = function
|
|
| [s] -> begin
|
|
try Some (Int32.of_string s)
|
|
with _ -> None
|
|
end
|
|
| _ -> None
|
|
end
|