simon/ocaml-containers
1
0
Fork 0
mirror of https://github.com/c-cube/ocaml-containers.git synced 2025-12-09 04:35:29 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions 2

small change in CCOrd

Browse source
This commit is contained in:
Simon Cruanes 2014-06-14 02:16:14 +02:00
parent e3bde40598
commit 2492ee48a6
2 changed files with 13 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
core/CCOrd.ml
View file

@ -31,6 +31,13 @@ type 'a t = 'a -> 'a -> int
let compare = Pervasives.compare let compare = Pervasives.compare
let opp f x y = - (f x y)
let equiv i j =
if i<0 then j<0
else if i>0 then j>0
else j=0
let int_ (x:int) y = Pervasives.compare x y let int_ (x:int) y = Pervasives.compare x y
let string_ (x:string) y = Pervasives.compare x y let string_ (x:string) y = Pervasives.compare x y
let bool_ (x:bool) y = Pervasives.compare x y let bool_ (x:bool) y = Pervasives.compare x y

6
core/CCOrd.mli
View file

@ -32,6 +32,12 @@ type 'a t = 'a -> 'a -> int
val compare : 'a t val compare : 'a t
(** Polymorphic "magic" comparison *) (** Polymorphic "magic" comparison *)
val opp : 'a t -> 'a t
(** Opposite order *)
val equiv : int -> int -> bool
(** Returns [true] iff the two comparison results are the same *)
val int_ : int t val int_ : int t
val string_ : string t val string_ : string t
val bool_ : bool t val bool_ : bool t