34 lines
1.0 KiB
OCaml
34 lines
1.0 KiB
OCaml
(**************************************************************************)
|
|
(* *)
|
|
(* Copyright (c) 2014 - 2017. *)
|
|
(* 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
|
|
|
|
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
|
|
|
|
(** Hack for the alphanet. *)
|
|
val too_many_roll: t -> int
|