2011-06-09 14:38:58 +02:00
|
|
|
(* The core module *)
|
|
|
|
(* To compile : heptc -nopervasives pervasives.epi *)
|
2010-06-21 12:11:06 +02:00
|
|
|
type bool = true | false
|
|
|
|
type int
|
|
|
|
type float
|
2011-05-10 16:55:46 +02:00
|
|
|
type string
|
2010-06-21 12:11:06 +02:00
|
|
|
val fun (&)(bool;bool) returns (bool)
|
|
|
|
val fun ( * )(int;int) returns (int)
|
|
|
|
val fun ( *. )(float;float) returns (float)
|
2010-10-02 12:59:44 +02:00
|
|
|
val fun (%)(int;int) returns (int)
|
2010-06-21 12:11:06 +02:00
|
|
|
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)
|
2011-06-09 14:38:58 +02:00
|
|
|
val fun ( = )(int;int) returns (bool)
|
2011-03-21 20:45:48 +01:00
|
|
|
val fun ( <= )(int;int) returns (bool)
|
|
|
|
val fun ( <=. )(float;float) returns (bool)
|
|
|
|
val fun ( < )(int;int) returns (bool)
|
|
|
|
val fun ( <. )(float;float) returns (bool)
|
|
|
|
val fun ( >= )(int;int) returns (bool)
|
|
|
|
val fun ( >=. )(float;float) returns (bool)
|
|
|
|
val fun ( > )(int;int) returns (bool)
|
|
|
|
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)
|
2010-08-02 16:13:58 +02:00
|
|
|
val fun (xor)(bool;bool) returns (bool)
|
2010-06-21 12:11:06 +02:00
|
|
|
val fun (~-)(int) returns (int)
|
|
|
|
val fun (~-.)(float) returns (float)
|
2011-02-14 15:22:13 +01:00
|
|
|
val fun do_stuff(int) returns (int)
|
2011-03-22 17:43:04 +01:00
|
|
|
val fun between(int;int) returns (int)
|
2011-04-27 14:48:01 +02:00
|
|
|
|
|
|
|
val fun exit(bool) returns ()
|
2011-06-09 14:38:58 +02:00
|
|
|
val fun assert(bool) returns ()
|