*** empty log message ***

1985-01-08 15:34:54 +00:00
parent f838dd1047
commit 4ba6e7a39c
25 changed files with 4050 additions and 0 deletions
--- a/mach/proto/ncg/gencode.c
+++ b/mach/proto/ncg/gencode.c
@@ -0,0 +1,143 @@
+#ifndef NORCSID
+static char rcsid[] = "$Header$";
+#endif
+
+#include "assert.h"
+#include <stdio.h>
+#include "param.h"
+#include "tables.h"
+#include "types.h"
+#include <cgg_cg.h>
+#include "data.h"
+#include "result.h"
+#include "extern.h"
+
+/*
+ * (c) copyright 1983 by the Vrije Universiteit, Amsterdam, The Netherlands.
+ *
+ *          This product is part of the Amsterdam Compiler Kit.
+ *
+ * Permission to use, sell, duplicate or disclose this software must be
+ * obtained in writing. Requests for such permissions may be sent to
+ *
+ *      Dr. Andrew S. Tanenbaum
+ *      Wiskundig Seminarium
+ *      Vrije Universiteit
+ *      Postbox 7161
+ *      1007 MC Amsterdam
+ *      The Netherlands
+ *
+ * Author: Hans van Staveren
+ */
+
+string mystrcpy();
+
+FILE *codefile;
+
+out_init(filename) char *filename; {
+
+#ifndef NDEBUG
+	static char stderrbuff[BUFSIZ];
+
+    if (Debug) {
+	codefile = stderr;
+	if (!isatty(2))
+		setbuf(stderr,stderrbuff);
+    } else {
+#endif
+	if (filename == (char *) 0)
+		codefile = stdout;
+	else
+		if ((codefile=freopen(filename,"w",stdout))==NULL)
+			error("Can't create %s",filename);
+#ifndef NDEBUG
+    }
+#endif
+}
+
+out_finish() {
+
+#ifndef NDEBUG
+	if (Debug)
+		fflush(stderr);
+	else
+#endif
+		fclose(codefile);
+#ifdef TABLEDEBUG
+	termlset();
+#endif
+}
+
+tstoutput() {
+
+	if (ferror(codefile))
+		error("Write error on output");
+}
+
+genstr(stringno) {
+
+	fputs(codestrings[stringno],codefile);
+}
+
+string ad2str(ad) addr_t ad; {
+	static char buf[100];
+
+	if (ad.ea_str==0)
+		ad.ea_str="";
+	sprintf(buf,"%s%c%ld",ad.ea_str,ad.ea_off>=0 ? '+' : ' ',(long)ad.ea_off);
+	return(mystrcpy(buf));
+}
+
+praddr(ad) addr_t ad; {
+
+	if (ad.ea_str==0)
+		fprintf(codefile,WRD_FMT,ad.ea_off);
+	else {
+		fprintf(codefile,"%s",ad.ea_str);
+		if (ad.ea_off<0)
+			fprintf(codefile,WRD_FMT,ad.ea_off);		
+		else if(ad.ea_off>0) {
+			fputc('+',codefile);
+			fprintf(codefile,WRD_FMT,ad.ea_off);
+		}
+	}
+}
+
+gennl() {
+	fputc('\n',codefile);
+}
+
+prtoken(tp,leadingchar) token_p tp; {
+	register c;
+	register char *code;
+	register tkdef_p tdp;
+
+	fputc(leadingchar,codefile);
+	if (tp->t_token == -1) {
+		fprintf(codefile,"%s",codestrings[machregs[tp->t_att[0].ar].r_repr]);
+		return;
+	}
+	tdp = &tokens[tp->t_token];
+	assert(tdp->t_format != -1);
+	code = codestrings[tdp->t_format];
+	while ((c = *code++) != 0) {
+		if (c>=' ' && c<='~')
+			fputc(c,codefile);
+		else {
+			assert(c>0 && c<=TOKENSIZE);
+			switch(tdp->t_type[c-1]) {
+			default:
+				assert(FALSE);
+			case EV_INT:
+				fprintf(codefile,WRD_FMT,tp->t_att[c-1].aw);
+				break;
+			case EV_ADDR:
+				praddr(tp->t_att[c-1].aa);
+				break;
+			case EV_REG:
+				fprintf(codefile,"%s",codestrings[machregs[tp->t_att[c-1].ar].r_repr]);
+				break;
+			}
+		}
+	}
+}