Initial revision

1987-05-13 14:36:45 +00:00
parent b767dd20a3
commit 0fe3fbd296
53 changed files with 3189 additions and 0 deletions
--- a/lang/m2/libm2/Unix.def
+++ b/lang/m2/libm2/Unix.def
@@ -0,0 +1,112 @@
+(*$Foreign language module *)
+DEFINITION MODULE Unix;
+(*	An interface to some Unix system-calls *)
+  FROM SYSTEM IMPORT WORD, ADDRESS;
+
+(* Type needed for Signal *)
+  TYPE SignalPrc = PROCEDURE(INTEGER):INTEGER;
+  CONST
+	SIGDFL = SignalPrc(0);
+	SIGIGN = SignalPrc(1);
+	ILLBREAK = ADDRESS(-1);
+
+  VAR errno: INTEGER;
+(* Possible values of errno: *)
+  CONST
+	EPERM = 1;	(* Not owner *)
+	ENOENT = 2;	(* No such file or directory *)
+	ESRCH = 3;	(* No such process *)
+	EINTR = 4;	(* Interrupted system call *)
+	EIO = 5;	(* I/O error *)
+	ENXIO = 6;	(* No such device or address *)
+	E2BIG = 7;	(* Arg list too long *)
+	ENOEXEC = 8;	(* Exec format error *)
+	EBADF = 9;	(* Bad file number *)
+	ECHILD = 10;	(* No child processes *)
+	EAGAIN = 11;	(* No more processes *)
+	ENOMEM = 12;	(* Not enough space *)
+	EACCES = 13;	(* Permission denied *)
+	EFAULT = 14;	(* Bad address *)
+	ENOTBLK = 15;	(* Block device required *)
+	EBUSY = 16;	(* Mount device busy *)
+	EEXIST = 17;	(* File exists *)
+	EXDEV = 18;	(* Cross-device link *)
+	ENODEV = 19;	(* No such device *)
+	ENOTDIR = 20;	(* Not a directory *)
+	EISDIR = 21;	(* Is a directory *)
+	EINVAL = 22;	(* Invalid argument *)
+	ENFILE = 23;	(* File table overflow *)
+	EMFILE = 24;	(* Too many open files *)
+	ENOTTY = 25;	(* Not a typewriter *)
+	ETXTBSY = 26;	(* Text file busy *)
+	EFBIG = 27;	(* File too large *)
+	ENOSPC = 28;	(* No space left on device *)
+	ESPIPE = 29;	(* Illegal seek *)
+	EROFS = 30;	(* Read-only file system *)
+	EMLINK = 31;	(* Too many links *)
+	EPIPE = 32;	(* Broken pipe *)
+	EDOM = 33;	(* Math argument *)
+	ERANGE = 34;	(* Result too large *)
+
+  PROCEDURE access(path: ADDRESS; amode : INTEGER) : INTEGER;
+  PROCEDURE acct(path: ADDRESS) : INTEGER;
+  PROCEDURE alarm(sec: CARDINAL) : CARDINAL;
+  PROCEDURE brk(endds: ADDRESS) : INTEGER;
+  PROCEDURE sbrk(incr: INTEGER) : ADDRESS;
+  PROCEDURE chdir(path: ADDRESS) : INTEGER;
+  PROCEDURE chmod(path: ADDRESS; mode: INTEGER) : INTEGER;
+  PROCEDURE chown(path: ADDRESS; owner, group: INTEGER) : INTEGER;
+  PROCEDURE chroot(path: ADDRESS) : INTEGER;
+  PROCEDURE close(fildes: INTEGER) : INTEGER;
+  PROCEDURE creat(path: ADDRESS; 
+  		  mode: INTEGER) : INTEGER;
+  PROCEDURE dup(fildes: INTEGER) : INTEGER;
+  PROCEDURE execve(path: ADDRESS;
+		   argv: ADDRESS;
+		   envp: ADDRESS) : INTEGER;
+  PROCEDURE exit(status: INTEGER);
+  (* Sys5 *) PROCEDURE fcntl(fildes, request, arg: INTEGER) : INTEGER;
+  PROCEDURE ftime(bufp:ADDRESS) : INTEGER;
+  PROCEDURE fork() : INTEGER;
+  PROCEDURE getpid() : INTEGER;
+  PROCEDURE getppid() : INTEGER;
+  PROCEDURE getuid() : INTEGER;
+  PROCEDURE geteuid() : INTEGER;
+  PROCEDURE getgid() : INTEGER;
+  PROCEDURE getegid() : INTEGER;
+  PROCEDURE ioctl(fildes, request: INTEGER; arg: ADDRESS) : INTEGER;
+  PROCEDURE kill(pid, sig: INTEGER) : INTEGER;
+  PROCEDURE link(path1, path2: ADDRESS) : INTEGER;
+  PROCEDURE lseek(fildes: INTEGER; offset: LONGINT; whence: INTEGER) : LONGINT;
+  PROCEDURE mknod(path: ADDRESS; mode, dev: INTEGER) : INTEGER;
+  PROCEDURE mount(spec, dir: ADDRESS; rwflag: INTEGER) : INTEGER;
+  PROCEDURE nice(incr: INTEGER) : INTEGER;
+  PROCEDURE open(path: ADDRESS; oflag: INTEGER) : INTEGER;
+  PROCEDURE pause();
+  PROCEDURE pipe(fildes: ADDRESS) : INTEGER;
+  PROCEDURE profil(buff: ADDRESS;
+		   bufsiz, offset, scale: INTEGER);
+  PROCEDURE ptrace(request, pid, addr, data: WORD) : INTEGER;
+  PROCEDURE read(fildes: INTEGER;
+		 buf: ADDRESS;
+		 nbyte: INTEGER) : INTEGER;
+  PROCEDURE setuid(uid: INTEGER) : INTEGER;
+  PROCEDURE setgid(gid: INTEGER) : INTEGER;
+  PROCEDURE signal(sig: INTEGER;
+		   func: SignalPrc;
+		   VAR oldfunc: SignalPrc) : INTEGER;
+  PROCEDURE stat(path: ADDRESS; statbuf: ADDRESS) : INTEGER;
+  PROCEDURE fstat(fildes: INTEGER; statbuf: ADDRESS) : INTEGER;
+  PROCEDURE stime(t: LONGINT) : INTEGER;
+  PROCEDURE sync();
+  PROCEDURE time(tloc: ADDRESS) : LONGINT;
+  PROCEDURE times(buffer: ADDRESS) : LONGINT;
+  PROCEDURE umask(cmask: INTEGER) : INTEGER;
+  PROCEDURE umount(spec: ADDRESS) : INTEGER;
+  PROCEDURE unlink(path: ADDRESS) : INTEGER;
+  PROCEDURE utime(path: ADDRESS; times: ADDRESS) : INTEGER;
+  PROCEDURE wait(VAR statloc: INTEGER): INTEGER;
+  PROCEDURE write(fildes: INTEGER;
+		  buf: ADDRESS;
+		  nbyte: CARDINAL) : INTEGER;
+END Unix.