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. *)
|
|
|
|
(* *)
|
|
|
|
(**************************************************************************)
|
|
|
|
|
|
|
|
module type S = sig
|
|
|
|
type t
|
|
|
|
val (=) : t -> t -> bool
|
|
|
|
val (<>) : t -> t -> bool
|
|
|
|
val (<) : t -> t -> bool
|
|
|
|
val (<=) : t -> t -> bool
|
|
|
|
val (>=) : t -> t -> bool
|
|
|
|
val (>) : t -> t -> bool
|
|
|
|
val compare : t -> t -> int
|
|
|
|
val max : t -> t -> t
|
|
|
|
val min : t -> t -> t
|
|
|
|
end
|
|
|
|
|
|
|
|
module Char : S with type t = char
|
|
|
|
module Bool : S with type t = bool
|
|
|
|
module Int : S with type t = int
|
|
|
|
module Int32 : S with type t = int32
|
2016-11-17 17:56:27 +04:00
|
|
|
module Uint32 : S with type t = int32
|
2016-09-08 21:13:10 +04:00
|
|
|
module Int64 : S with type t = int64
|
2016-11-17 17:56:27 +04:00
|
|
|
module Uint64 : S with type t = int64
|
2016-09-08 21:13:10 +04:00
|
|
|
module Float : S with type t = float
|
|
|
|
module String : S with type t = string
|
|
|
|
module List(P : S) : S with type t = P.t list
|
|
|
|
module Option(P : S) : S with type t = P.t option
|