2016-09-08 21:13:10 +04:00
|
|
|
(**************************************************************************)
|
|
|
|
(* *)
|
2017-11-14 03:36:14 +04:00
|
|
|
(* Copyright (c) 2014 - 2017. *)
|
2016-09-08 21:13:10 +04:00
|
|
|
(* Dynamic Ledger Solutions, Inc. <contact@tezos.com> *)
|
|
|
|
(* *)
|
|
|
|
(* All rights reserved. No warranty, explicit or implicit, provided. *)
|
|
|
|
(* *)
|
|
|
|
(**************************************************************************)
|
|
|
|
|
|
|
|
type t
|
|
|
|
type roll = t
|
|
|
|
|
|
|
|
val encoding: roll Data_encoding.t
|
|
|
|
|
|
|
|
val random:
|
|
|
|
Seed_repr.sequence -> bound:roll -> roll * Seed_repr.sequence
|
|
|
|
|
|
|
|
val first: roll
|
|
|
|
val succ: roll -> roll
|
|
|
|
|
|
|
|
val to_int32: roll -> Int32.t
|
|
|
|
|
|
|
|
val (=): roll -> roll -> bool
|
2017-11-16 19:45:22 +04:00
|
|
|
|
|
|
|
module Index : sig
|
|
|
|
type t = roll
|
|
|
|
val path_length: int
|
|
|
|
val to_path: t -> string list -> string list
|
|
|
|
val of_path: string list -> t option
|
|
|
|
end
|