lang/m2/libm2/StripUnix.def

   1 (*$Foreign language module *)
   2 DEFINITION MODULE StripUnix;
   3 (*
   4   Module:       interface to some Unix systemcalls
   5   Author:       Ceriel J.H. Jacobs
   6   Version:      $Id: StripUnix.def,v 1.2 1994/06/24 12:50:06 ceriel Exp $
   7
   8   This is a stripped down version of Unix.def, needed to compile some of
   9   the modules on small machines
  10 *)
  11   FROM SYSTEM IMPORT ADDRESS;
  12
  13   CONST
  14         ILLBREAK = ADDRESS(NIL-1);
  15
  16   VAR errno: INTEGER;
  17   PROCEDURE sbrk(incr: INTEGER) : ADDRESS;
  18   PROCEDURE close(fildes: INTEGER) : INTEGER;
  19   PROCEDURE creat(path: ADDRESS;
  20                   mode: INTEGER) : INTEGER;
  21   (* Sys5 *) PROCEDURE fcntl(fildes, request, arg: INTEGER) : INTEGER;
  22   PROCEDURE getpid() : INTEGER;
  23   PROCEDURE ioctl(fildes, request: INTEGER; arg: ADDRESS) : INTEGER;
  24   PROCEDURE lseek(fildes: INTEGER; offset: LONGINT; whence: INTEGER) : LONGINT;
  25   PROCEDURE open(path: ADDRESS; oflag: INTEGER) : INTEGER;
  26   PROCEDURE read(fildes: INTEGER;
  27                  buf: ADDRESS;
  28                  nbyte: CARDINAL) : INTEGER;
  29   PROCEDURE time(tloc: ADDRESS) : LONGINT;
  30   PROCEDURE write(fildes: INTEGER;
  31                   buf: ADDRESS;
  32                   nbyte: CARDINAL) : INTEGER;
  33 END StripUnix.