Initial revision

lang/occam/comp/builtin.c

@@ -0,0 +1,74 @@
+#include <stdio.h>
+#include "symtab.h"
+#include "expr.h"
+#include "sizes.h"
+
+void init_builtins()
+/* Insert all builtin names into the outermost symbol table (first statement
+ * is sym_down() ).  Note that this table is never destroy()ed, so static
+ * initializers may be used.
+ */
+{
+	union type_info info;
+
+	static char file[]="file";
+
+	static struct par_list
+	open_list[] = {
+		{ &open_list[1], nil, T_VAR },		/* File descriptor */
+		{ &open_list[2], nil, T_VALUE|T_ARR },	/* File name */
+		{ nil,		 nil, T_VALUE|T_ARR }	/* "r", "w", "a" */
+	},
+	close_list[]= {
+		{ nil,		 nil, T_VALUE }		/* File descriptor */
+	},
+	exit_list[]= {
+		{ nil,		 nil, T_VALUE }		/* Exit code */
+	};
+
+	sym_down();	/* Add level of symbols above all others */
+
+	/* CHAN file[20], input=file[0], output=file[1], error=file[2]: */
+
+	info.vc.st.builtin=file;
+	info.vc.offset=0;
+	insert(file, T_CHAN|T_ARR|T_BUILTIN, _NFILE, info);
+
+	info.vc.st.builtin=file;
+	info.vc.offset=0;
+	insert("input", T_CHAN|T_BUILTIN, 1, info);
+
+	info.vc.st.builtin=file;
+	info.vc.offset=wz+pz;
+	insert("output", T_CHAN|T_BUILTIN, 1, info);
+
+	info.vc.st.builtin=file;
+	info.vc.offset=2*(wz+pz);
+	insert("error", T_CHAN|T_BUILTIN, 1, info);
+
+	/* DEF EOF= -1, TEXT= -2, RAW= -3: */
+
+	info.const=new_const(-1L);
+	insert("EOF", T_CONST|T_BUILTIN, 0, info);
+
+	info.const=new_const(-2L);
+	insert("TEXT", T_CONST|T_BUILTIN, 0, info);
+
+	info.const=new_const(-3L);
+	insert("RAW", T_CONST|T_BUILTIN, 0, info);
+
+	/* PROC open(VAR fd, VALUE name[], mode[])= .... : */
+	info.proc.st.builtin="b_open";
+	info.proc.pars=open_list;
+	insert("open", T_PROC|T_BUILTIN, 0, info);
+
+	/* PROC close(VALUE fd)= .... : */
+	info.proc.st.builtin="b_close";
+	info.proc.pars=close_list;
+	insert("close", T_PROC|T_BUILTIN, 0, info);
+
+	/* PROC exit(VALUE code)= .... : */
+	info.proc.st.builtin="b_exit";
+	info.proc.pars=exit_list;
+	insert("exit", T_PROC|T_BUILTIN, 0, info);
+}