M2compiler-V3/runtime/syslib/SysShim.mod

IMPLEMENTATION MODULE SysShim;
(* Binds the C shim (shim.c) directly. *)

FROM SYSTEM IMPORT ADDRESS;

PROCEDURE m2fopenread (VAR name : ARRAY OF CHAR) : ADDRESS;
  EXTERNAL;
PROCEDURE m2fopenwrite (VAR name : ARRAY OF CHAR) : ADDRESS;
  EXTERNAL;
PROCEDURE m2fclose (h : ADDRESS);
  EXTERNAL;
PROCEDURE m2fread (h : ADDRESS; VAR buf : ARRAY OF CHAR;
                   max : CARDINAL) : CARDINAL;
  EXTERNAL;
PROCEDURE m2freadline (h : ADDRESS; VAR buf : ARRAY OF CHAR;
                       max : CARDINAL) : CARDINAL;
  EXTERNAL;
PROCEDURE m2fputc (h : ADDRESS; c : CHAR);
  EXTERNAL;
PROCEDURE m2fputs (h : ADDRESS; VAR s : ARRAY OF CHAR);
  EXTERNAL;
PROCEDURE m2fwriteln (h : ADDRESS);
  EXTERNAL;
PROCEDURE m2fwriteintw (h : ADDRESS; v : INTEGER; wid : CARDINAL);
  EXTERNAL;
PROCEDURE m2stdout () : ADDRESS;
  EXTERNAL;
PROCEDURE m2stderr () : ADDRESS;
  EXTERNAL;
PROCEDURE m2stdin () : ADDRESS;
  EXTERNAL;
PROCEDURE m2ftell (h : ADDRESS) : INTEGER;
  EXTERNAL;
PROCEDURE m2fseek (h : ADDRESS; pos : INTEGER) : BOOLEAN;
  EXTERNAL;
PROCEDURE m2fgetc (h : ADDRESS) : CHAR;
  EXTERNAL;
PROCEDURE m2freadint (h : ADDRESS) : INTEGER;
  EXTERNAL;
PROCEDURE m2fwriteint (h : ADDRESS; v : INTEGER);
  EXTERNAL;
PROCEDURE m2argc () : CARDINAL;
  EXTERNAL;
PROCEDURE m2arg (i : CARDINAL; VAR s : ARRAY OF CHAR;
                 cap : CARDINAL) : BOOLEAN;
  EXTERNAL;
PROCEDURE m2getenv (VAR name : ARRAY OF CHAR; VAR value : ARRAY OF CHAR;
                    cap : CARDINAL) : BOOLEAN;
  EXTERNAL;

PROCEDURE fopenread (VAR name : ARRAY OF CHAR) : ADDRESS;
BEGIN
  RETURN m2fopenread(name)
END fopenread;

PROCEDURE fopenwrite (VAR name : ARRAY OF CHAR) : ADDRESS;
BEGIN
  RETURN m2fopenwrite(name)
END fopenwrite;

PROCEDURE fclose (h : ADDRESS);
BEGIN
  m2fclose(h)
END fclose;

PROCEDURE fread (h : ADDRESS; VAR buf : ARRAY OF CHAR;
                 max : CARDINAL) : CARDINAL;
BEGIN
  RETURN m2fread(h, buf, max)
END fread;

PROCEDURE freadline (h : ADDRESS; VAR buf : ARRAY OF CHAR;
                     max : CARDINAL) : CARDINAL;
BEGIN
  RETURN m2freadline(h, buf, max)
END freadline;

PROCEDURE fputc (h : ADDRESS; c : CHAR);
BEGIN
  m2fputc(h, c)
END fputc;

PROCEDURE fputs (h : ADDRESS; VAR s : ARRAY OF CHAR);
BEGIN
  m2fputs(h, s)
END fputs;

PROCEDURE fwriteln (h : ADDRESS);
BEGIN
  m2fwriteln(h)
END fwriteln;

PROCEDURE fwriteintw (h : ADDRESS; v : INTEGER; wid : CARDINAL);
BEGIN
  m2fwriteintw(h, v, wid)
END fwriteintw;

PROCEDURE stdout () : ADDRESS;
BEGIN
  RETURN m2stdout()
END stdout;

PROCEDURE stderr () : ADDRESS;
BEGIN
  RETURN m2stderr()
END stderr;

PROCEDURE stdin () : ADDRESS;
BEGIN
  RETURN m2stdin()
END stdin;

PROCEDURE ftell (h : ADDRESS) : INTEGER;
BEGIN
  RETURN m2ftell(h)
END ftell;

PROCEDURE fseek (h : ADDRESS; pos : INTEGER) : BOOLEAN;
BEGIN
  RETURN m2fseek(h, pos)
END fseek;

PROCEDURE fgetc (h : ADDRESS) : CHAR;
BEGIN
  RETURN m2fgetc(h)
END fgetc;

PROCEDURE freadint (h : ADDRESS) : INTEGER;
BEGIN
  RETURN m2freadint(h)
END freadint;

PROCEDURE fwriteint (h : ADDRESS; v : INTEGER);
BEGIN
  m2fwriteint(h, v)
END fwriteint;

PROCEDURE argc () : CARDINAL;
BEGIN
  RETURN m2argc()
END argc;

PROCEDURE arg (i : CARDINAL; VAR s : ARRAY OF CHAR;
               cap : CARDINAL) : BOOLEAN;
BEGIN
  RETURN m2arg(i, s, cap)
END arg;

PROCEDURE getenv (VAR name : ARRAY OF CHAR; VAR value : ARRAY OF CHAR;
                  cap : CARDINAL) : BOOLEAN;
BEGIN
  RETURN m2getenv(name, value, cap)
END getenv;

END SysShim.