39 lines
1.3 KiB
OCaml
39 lines
1.3 KiB
OCaml
|
(**************************************************************************)
|
||
|
|
(* *)
|
||
|
|
(* Copyright (c) 2014 - 2016. *)
|
||
|
|
(* Dynamic Ledger Solutions, Inc. <contact@tezos.com> *)
|
||
|
|
(* *)
|
||
|
|
(* All rights reserved. No warranty, explicit or implicit, provided. *)
|
||
|
|
(* *)
|
||
|
|
(**************************************************************************)
|
||
|
|
|
||
|
|
type t = int32
|
||
|
|
type raw_level = t
|
||
|
|
include (Compare.Int32 : Compare.S with type t := t)
|
||
|
|
let encoding = Data_encoding.int32
|
||
|
|
let pp ppf level = Format.fprintf ppf "%ld" level
|
||
|
|
let arg =
|
||
|
|
let construct raw_level = Int32.to_string raw_level in
|
||
|
|
let destruct str =
|
||
|
|
match Int32.of_string str with
|
||
|
|
| exception _ -> Error "Cannot parse level"
|
||
|
|
| raw_level -> Ok raw_level in
|
||
|
|
RPC.Arg.make
|
||
|
|
~descr:"A level integer"
|
||
|
|
~name: "block_level"
|
||
|
|
~construct
|
||
|
|
~destruct
|
||
|
|
|
||
|
|
let root = 0l
|
||
|
|
let succ = Int32.succ
|
||
|
|
let pred l =
|
||
|
|
if l = 0l
|
||
|
|
then None
|
||
|
|
else Some (Int32.pred l)
|
||
|
|
|
||
|
|
let to_int32 l = l
|
||
|
|
let of_int32_exn l =
|
||
|
|
if Compare.Int32.(l >= 0l)
|
||
|
|
then l
|
||
|
|
else invalid_arg "Level_repr.of_int32"
|