Upload

Digital Research

CPM OPERATING SYSTEMS/CPM 68K/1.0X SOURCES/v102/c068/interf.c

@@ -0,0 +1,106 @@
+/*
+	Copyright 1982
+	Alcyon Corporation
+	8716 Production Ave.
+	San Diego, Ca.  92121
+*/
+
+#include "parser.h"
+int bol;
+
+outinit(tp,type)						/* returns - none*/
+struct tnode *tp;
+{
+	outexpr(tnalloc(INIT,type,0,0,tp));
+}
+
+outcforreg(tp)
+struct tnode *tp;
+{
+	outexpr(tnalloc(CFORREG,tp->t_type,0,0,tp));
+}
+
+outifgoto(tp,dir,lab)
+struct tnode *tp;
+int dir;
+int lab;
+{
+	outexpr(tnalloc(IFGOTO,dir,lab,0,tp));
+}
+
+outexpr(tp)
+struct tnode *tp;
+{
+	if( !bol )
+		putchar('\n');
+	printf(".%x\n",lineno);
+	outtree(tp);
+}
+
+outtree(tp)
+struct tnode *tp;
+{
+	if( !tp )
+		return;
+	printf("%x.%x",tp->t_op,tp->t_type);
+	switch( tp->t_op ) {
+
+	case CINT:
+		printf(".%x\n",tp->t_value);
+		break;
+
+	case CLONG:
+		printf(".%x.%x\n",tp->t_lvalue.hiword,tp->t_lvalue.loword);
+		break;
+
+	case CFLOAT:	/*[vlh] 3.4*/
+		printf(".%x.%x\n",tp->t_lvalue.hiword,tp->t_lvalue.loword);
+		break;
+
+	case SYMBOL:
+		printf(".%x",tp->t_sc);
+		if( tp->t_sc == EXTERNAL )
+			printf(".%.8s\n",tp->t_symbol);
+		else
+			printf(".%x\n",tp->t_offset);
+		break;
+
+	case 0:
+		putchar('\n');
+		break;
+
+	case IFGOTO:
+	case BFIELD:
+		printf(".%x\n",tp->t_dp);
+		outtree(tp->t_left);
+		break;
+
+	default:
+		putchar('\n');
+		outtree(tp->t_left);
+		if( binop(tp->t_op) )
+			outtree(tp->t_right);
+		break;
+	}
+}
+
+/* snalloc - symbol node allocation*/
+/*		Allocates a tree symbol node and sets the info in it*/
+char *snalloc(type,sc,off,dp,ssp)	/* returns pointer to node alloc'ed*/
+int type;							/* symbol type*/
+int sc;								/* storage class*/
+int off;							/* offset*/
+int dp;								/* dimension pointer or other info*/
+int ssp;							/* structure size pointer*/
+{
+	register struct symnode *snp;
+
+	snp = talloc(sizeof(*snp));
+	snp->t_op = SYMBOL;
+	snp->t_sc = sc;
+	snp->t_type = type;
+	snp->t_dp = dp;
+	snp->t_ssp = ssp;
+	snp->t_offset = off;
+	return(snp);
+}