Initial revision

lang/occam/lib/ocrt.c

@@ -0,0 +1,52 @@
+/*	ocrt.c - Occam runtime support */
+#include "channel.h"
+
+int chandes[]= { 0, 0, sizeof(int)+sizeof(long) };
+int worddes[]= { 0, 0, sizeof(long) };
+int bytedes[]= { 0, 0, 1 };
+long any;
+
+void catch(sig, file, line) int sig; char *file; int line;
+/* Catches traps in the occam program */
+{
+	register char *mes;
+
+	switch (sig) {
+	case 0:
+		mes="array bound error";
+		break;
+	case 6:
+		mes="division by zero";
+		break;
+	case 8:
+		mes="undefined variable";
+		break;
+	default:
+		return;
+	}
+	fprintf(stderr, "%s (%d) F: %s\n", file, line, mes);
+	abort();
+}
+
+chan file[_NFILE];
+FILE *unix_file[_NFILE];
+
+void initfile()
+{
+	register i;
+	register chan *c=file;
+
+	for (i=0; i<_NFILE; i++) {
+		c->type=C_T_FILE;
+		c->f.flgs=0;
+		(c++)->f.index=i;
+	}
+	file[0].f.flgs|=C_F_INUSE;
+	unix_file[0]=stdin;
+
+	file[1].f.flgs|=C_F_INUSE;
+	unix_file[1]=stdout;
+
+	file[2].f.flgs|=C_F_INUSE;
+	unix_file[2]=stderr;
+}