StripUnix.def 1.0 KB

123456789101112131415161718192021222324252627282930313233
  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$
  7. This is a stripped down version of Unix.def, needed to compile some of
  8. the modules on small machines
  9. *)
  10. FROM SYSTEM IMPORT ADDRESS;
  11. CONST
  12. ILLBREAK = ADDRESS(NIL-1);
  13. VAR errno: INTEGER;
  14. PROCEDURE sbrk(incr: INTEGER) : ADDRESS;
  15. PROCEDURE close(fildes: INTEGER) : INTEGER;
  16. PROCEDURE creat(path: ADDRESS;
  17. mode: INTEGER) : INTEGER;
  18. (* Sys5 *) PROCEDURE fcntl(fildes, request, arg: INTEGER) : INTEGER;
  19. PROCEDURE getpid() : INTEGER;
  20. PROCEDURE ioctl(fildes, request: INTEGER; arg: ADDRESS) : INTEGER;
  21. PROCEDURE lseek(fildes: INTEGER; offset: LONGINT; whence: INTEGER) : LONGINT;
  22. PROCEDURE open(path: ADDRESS; oflag: INTEGER) : INTEGER;
  23. PROCEDURE read(fildes: INTEGER;
  24. buf: ADDRESS;
  25. nbyte: CARDINAL) : INTEGER;
  26. PROCEDURE time(tloc: ADDRESS) : LONGINT;
  27. PROCEDURE write(fildes: INTEGER;
  28. buf: ADDRESS;
  29. nbyte: CARDINAL) : INTEGER;
  30. END StripUnix.