2010-06-21 12:11:06 +02:00
|
|
|
(* the core module *)
|
|
|
|
(* $Id: pervasives.epi 77 2009-03-11 16:07:00Z delaval $ *)
|
|
|
|
(* pour debugger set arguments -nopervasives -i lib/pervasives.epi *)
|
|
|
|
type bool = true | false
|
|
|
|
type int
|
|
|
|
type float
|
|
|
|
val fun (&)(bool;bool) returns (bool)
|
|
|
|
val fun ( * )(int;int) returns (int)
|
|
|
|
val fun ( *. )(float;float) returns (float)
|
|
|
|
val fun (+)(int;int) returns (int)
|
|
|
|
val fun (+.)(float;float) returns (float)
|
|
|
|
val fun (-)(int;int) returns (int)
|
|
|
|
val fun (-.)(float;float) returns (float)
|
|
|
|
val fun (/)(int;int) returns (int)
|
|
|
|
val fun (/.)(float;float) returns (float)
|
|
|
|
val fun (<=)(int;int) returns (bool)
|
2010-07-27 15:32:51 +02:00
|
|
|
val fun (<=.)(float;float) returns (bool)
|
2010-06-21 12:11:06 +02:00
|
|
|
val fun (<)(int;int) returns (bool)
|
2010-07-27 15:32:51 +02:00
|
|
|
val fun (<.)(float;float) returns (bool)
|
2010-06-21 12:11:06 +02:00
|
|
|
val fun (<>)(int;int) returns (bool)
|
2010-07-27 15:32:51 +02:00
|
|
|
val fun (<>.)(float;float) returns (bool)
|
2010-06-21 12:11:06 +02:00
|
|
|
val fun (=)(int;int) returns (bool)
|
2010-07-27 15:32:51 +02:00
|
|
|
val fun (=.)(float;float) returns (bool)
|
2010-06-21 12:11:06 +02:00
|
|
|
val fun (>=)(int;int) returns (bool)
|
2010-07-27 15:32:51 +02:00
|
|
|
val fun (>=.)(float;float) returns (bool)
|
2010-06-21 12:11:06 +02:00
|
|
|
val fun (>)(int;int) returns (bool)
|
2010-07-27 15:32:51 +02:00
|
|
|
val fun (>.)(float;float) returns (bool)
|
2010-06-21 12:11:06 +02:00
|
|
|
val fun (not)(bool) returns (bool)
|
|
|
|
val fun (or)(bool;bool) returns (bool)
|
|
|
|
val fun (~-)(int) returns (int)
|
|
|
|
val fun (~-.)(float) returns (float)
|
|
|
|
|