|
|
@ -10,64 +10,67 @@ module Empty = struct end |
|
|
|
module Float = struct |
|
|
|
include Float |
|
|
|
|
|
|
|
(* Taken from base *) |
|
|
|
external ( < ) : float -> float -> bool = "%lessthan" |
|
|
|
module Infix = struct |
|
|
|
external ( < ) : float -> float -> bool = "%lessthan" |
|
|
|
|
|
|
|
external ( <= ) : float -> float -> bool = "%lessequal" |
|
|
|
external ( <= ) : float -> float -> bool = "%lessequal" |
|
|
|
|
|
|
|
external ( <> ) : float -> float -> bool = "%notequal" |
|
|
|
external ( <> ) : float -> float -> bool = "%notequal" |
|
|
|
|
|
|
|
external ( = ) : float -> float -> bool = "%equal" |
|
|
|
external ( = ) : float -> float -> bool = "%equal" |
|
|
|
|
|
|
|
external ( > ) : float -> float -> bool = "%greaterthan" |
|
|
|
external ( > ) : float -> float -> bool = "%greaterthan" |
|
|
|
|
|
|
|
external ( >= ) : float -> float -> bool = "%greaterequal" |
|
|
|
external ( >= ) : float -> float -> bool = "%greaterequal" |
|
|
|
|
|
|
|
external compare : float -> float -> int = "%compare" |
|
|
|
external compare : float -> float -> int = "%compare" |
|
|
|
|
|
|
|
external equal : float -> float -> bool = "%equal" |
|
|
|
external equal : float -> float -> bool = "%equal" |
|
|
|
end |
|
|
|
end |
|
|
|
|
|
|
|
module Int32 = struct |
|
|
|
include Int32 |
|
|
|
|
|
|
|
(* Taken from base *) |
|
|
|
external ( < ) : int32 -> int32 -> bool = "%lessthan" |
|
|
|
module Infix = struct |
|
|
|
external ( < ) : int32 -> int32 -> bool = "%lessthan" |
|
|
|
|
|
|
|
external ( <= ) : int32 -> int32 -> bool = "%lessequal" |
|
|
|
external ( <= ) : int32 -> int32 -> bool = "%lessequal" |
|
|
|
|
|
|
|
external ( <> ) : int32 -> int32 -> bool = "%notequal" |
|
|
|
external ( <> ) : int32 -> int32 -> bool = "%notequal" |
|
|
|
|
|
|
|
external ( = ) : int32 -> int32 -> bool = "%equal" |
|
|
|
external ( = ) : int32 -> int32 -> bool = "%equal" |
|
|
|
|
|
|
|
external ( > ) : int32 -> int32 -> bool = "%greaterthan" |
|
|
|
external ( > ) : int32 -> int32 -> bool = "%greaterthan" |
|
|
|
|
|
|
|
external ( >= ) : int32 -> int32 -> bool = "%greaterequal" |
|
|
|
external ( >= ) : int32 -> int32 -> bool = "%greaterequal" |
|
|
|
|
|
|
|
external compare : int32 -> int32 -> int = "%compare" |
|
|
|
external compare : int32 -> int32 -> int = "%compare" |
|
|
|
|
|
|
|
external equal : int32 -> int32 -> bool = "%equal" |
|
|
|
external equal : int32 -> int32 -> bool = "%equal" |
|
|
|
end |
|
|
|
end |
|
|
|
|
|
|
|
module Int64 = struct |
|
|
|
include Int64 |
|
|
|
|
|
|
|
(* Taken from base *) |
|
|
|
external ( < ) : int64 -> int64 -> bool = "%lessthan" |
|
|
|
module Infix = struct |
|
|
|
external ( < ) : int64 -> int64 -> bool = "%lessthan" |
|
|
|
|
|
|
|
external ( <= ) : int64 -> int64 -> bool = "%lessequal" |
|
|
|
external ( <= ) : int64 -> int64 -> bool = "%lessequal" |
|
|
|
|
|
|
|
external ( <> ) : int64 -> int64 -> bool = "%notequal" |
|
|
|
external ( <> ) : int64 -> int64 -> bool = "%notequal" |
|
|
|
|
|
|
|
external ( = ) : int64 -> int64 -> bool = "%equal" |
|
|
|
external ( = ) : int64 -> int64 -> bool = "%equal" |
|
|
|
|
|
|
|
external ( > ) : int64 -> int64 -> bool = "%greaterthan" |
|
|
|
external ( > ) : int64 -> int64 -> bool = "%greaterthan" |
|
|
|
|
|
|
|
external ( >= ) : int64 -> int64 -> bool = "%greaterequal" |
|
|
|
external ( >= ) : int64 -> int64 -> bool = "%greaterequal" |
|
|
|
|
|
|
|
external compare : int64 -> int64 -> int = "%compare" |
|
|
|
external compare : int64 -> int64 -> int = "%compare" |
|
|
|
|
|
|
|
external equal : int64 -> int64 -> bool = "%equal" |
|
|
|
external equal : int64 -> int64 -> bool = "%equal" |
|
|
|
end |
|
|
|
end |
|
|
|
|
|
|
|
(* Use the fmt library instead. *) |
|
|
|