M2compiler-V3/stdlib/wrapc.def

DEFINITION MODULE wrapc;
(* gm2-compatible: assorted C-library wrappers. *)

FROM SYSTEM IMPORT ADDRESS;

PROCEDURE strtime () : ADDRESS;
PROCEDURE filesize (f : INTEGER; VAR low, high : CARDINAL) : INTEGER;
PROCEDURE fileinode (f : INTEGER; VAR low, high : CARDINAL) : INTEGER;
PROCEDURE filemtime (f : INTEGER) : INTEGER;
PROCEDURE getrand (n : INTEGER) : INTEGER;
PROCEDURE getusername () : ADDRESS;
PROCEDURE getnameuidgid (name : ADDRESS; VAR uid, gid : INTEGER);
PROCEDURE signbit (r : REAL) : INTEGER;
PROCEDURE signbitf (s : SHORTREAL) : INTEGER;
PROCEDURE signbitl (l : LONGREAL) : INTEGER;
PROCEDURE isfinite (x : REAL) : INTEGER;
PROCEDURE isfinitef (x : SHORTREAL) : INTEGER;
PROCEDURE isfinitel (x : LONGREAL) : INTEGER;
PROCEDURE isnan (x : REAL) : INTEGER;
PROCEDURE isnanf (x : SHORTREAL) : INTEGER;
PROCEDURE isnanl (x : LONGREAL) : INTEGER;
PROCEDURE SeekSet () : INTEGER;
PROCEDURE SeekEnd () : INTEGER;
PROCEDURE ReadOnly () : CARDINAL;
PROCEDURE WriteOnly () : CARDINAL;

END wrapc.