Add original unix v6

2018-01-27 22:35:41 +09:00
commit 2c7099ee50
664 changed files with 106254 additions and 0 deletions
@@ -0,0 +1,351 @@
+#
+/*
+
+	C compiler-- pass 1 header
+
+
+*/
+
+/*
+  parameters
+*/
+
+#define	ncps	8
+#define	hshsiz	200
+#define	cmsiz	40
+#define	swsiz	200
+#define	OSSIZ	500
+#define	dimsiz	100
+#define	NBPW	16
+#define	NBPC	8
+#define	NCPW	2
+#define	STRSIZ	256
+
+struct tnode {
+	int	op;
+	int	type;
+	int	dimp;
+	struct	tnode *tr1, *tr2;
+};
+
+struct {
+	int	op;
+	int	type;
+	char	ssp;		/* subscript list */
+	char	lenp;		/* structure length */
+};
+
+struct tname {
+	int	op;
+	int	type;
+	int	dimp;
+	int	class;
+	int	offset;
+	int	nloc;
+};
+
+struct txname {
+	int	op;
+	int	type;
+	int	dimp;
+	int	class;
+	int	offset;
+	char	nname[ncps];
+};
+
+struct tconst {
+	int	op;
+	int	type;
+	int	dimp;
+	int	value;
+};
+
+struct hshtab {
+	char	hclass;
+	char	hflag;
+	int	htype;
+	int	hdimp;
+	int	hoffset;
+	char	name[ncps];
+};
+
+struct {
+	char	hclass;
+	char	hflag;
+	int	htype;
+	char	flen;		/* Field length */
+	char	bitoffs;	/* Offset of field */
+};
+
+struct swtab {
+	int	swlab;
+	int	swval;
+};
+
+struct	bnode {
+	int	bop;
+	struct	tnode *btree;
+	int	lbl;
+	int	cond;
+};
+
+char	cvtab[4][4];
+char	savstr[STRSIZ];
+char	*strptr;
+int	opdope[];
+char	ctab[];
+char	symbuf[ncps+2];
+int	hshused;
+struct	hshtab	hshtab[hshsiz];
+int	*space;
+int	*cp;
+int	cmst[cmsiz];
+int	isn;
+struct	swtab	swtab[swsiz];
+struct	swtab	*swp;
+int	contlab;
+int	brklab;
+int	retlab;
+int	deflab;
+int	nauto;
+int	autolen;
+int	peeksym;
+int	peekc;
+int	eof;
+int	line;
+int	osspace[OSSIZ];
+int	*treespace;
+struct	hshtab	*defsym;
+struct	hshtab	*funcsym;
+int	xdflg;
+int	proflg;
+int	stflg;
+struct	hshtab	*csym;
+int	cval;
+double	fcval;
+int	nchstr;
+int	nerror;
+struct	hshtab	*paraml;
+struct	hshtab	*parame;
+int	strflg;
+int	mosflg;
+int	initflg;
+int	inhdr;
+int	dimtab[dimsiz];
+char	obuf[518];
+char	sbuf[518];
+int	dimp;
+int	regvar;
+int	bitoffs;
+struct	tname	funcblk;
+
+/*
+  operators
+*/
+#define	EOF	0
+#define	SEMI	1
+#define	LBRACE	2
+#define	RBRACE	3
+#define	LBRACK	4
+#define	RBRACK	5
+#define	LPARN	6
+#define	RPARN	7
+#define	COLON	8
+#define	COMMA	9
+#define	FSEL	10
+
+#define	KEYW	19
+#define	NAME	20
+#define	CON	21
+#define	STRING	22
+#define	FCON	23
+#define	SFCON	24
+
+#define	SIZEOF	91
+#define	INCBEF	30
+#define	DECBEF	31
+#define	INCAFT	32
+#define	DECAFT	33
+#define	EXCLA	34
+#define	AMPER	35
+#define	STAR	36
+#define	NEG	37
+#define	COMPL	38
+
+#define	DOT	39
+#define	PLUS	40
+#define	MINUS	41
+#define	TIMES	42
+#define	DIVIDE	43
+#define	MOD	44
+#define	RSHIFT	45
+#define	LSHIFT	46
+#define	AND	47
+#define	OR	48
+#define	EXOR	49
+#define	ARROW	50
+#define	ITOF	51
+#define	FTOI	52
+#define	LOGAND	53
+#define	LOGOR	54
+#define	FTOL	56
+#define	LTOF	57
+#define	ITOL	58
+#define	LTOI	59
+
+#define	EQUAL	60
+#define	NEQUAL	61
+#define	LESSEQ	62
+#define	LESS	63
+#define	GREATEQ	64
+#define	GREAT	65
+#define	LESSEQP	66
+#define	LESSP	67
+#define	GREATQP	68
+#define	GREATP	69
+
+#define	ASPLUS	70
+#define	ASMINUS	71
+#define	ASTIMES	72
+#define	ASDIV	73
+#define	ASMOD	74
+#define	ASRSH	75
+#define	ASLSH	76
+#define	ASSAND	77
+#define	ASOR	78
+#define	ASXOR	79
+#define	ASSIGN	80
+
+#define	QUEST	90
+#define	CALL	100
+#define	MCALL	101
+#define	JUMP	102
+#define	CBRANCH	103
+#define	INIT	104
+#define	SETREG	105
+#define	RFORCE	110
+#define	BRANCH	111
+#define	LABEL	112
+#define	NLABEL	113
+#define	RLABEL	114
+
+/*
+  types
+*/
+#define	INT	0
+#define	CHAR	1
+#define	FLOAT	2
+#define	DOUBLE	3
+#define	STRUCT	4
+#define	RSTRUCT	5
+#define	LONG	6
+#define	NOTYPE	7	/* used internally */
+
+#define	ALIGN	01
+#define	TYPE	07
+#define	TYLEN	2
+#define	XTYPE	(03<<3)
+#define	PTR	010
+#define	FUNC	020
+#define	ARRAY	030
+
+/*
+  storage classes
+*/
+#define	KEYWC	1
+#define	MOS	10
+#define	AUTO	11
+#define	EXTERN	12
+#define	STATIC	13
+#define	REG	14
+#define	STRTAG	15
+#define ARG	16
+#define	ARG1	17
+#define	FMOS	18
+
+/*
+  keywords
+*/
+#define	GOTO	20
+#define	RETURN	21
+#define	IF	22
+#define	WHILE	23
+#define	ELSE	24
+#define	SWITCH	25
+#define	CASE	26
+#define	BREAK	27
+#define	CONTIN	28
+#define	DO	29
+#define	DEFAULT	30
+#define	FOR	31
+
+/*
+  characters
+*/
+#define	INSERT	119
+#define	PERIOD	120
+#define	SQUOTE	121
+#define	DQUOTE	122
+#define	LETTER	123
+#define	DIGIT	124
+#define	NEWLN	125
+#define	SPACE	126
+#define	UNKN	127
+
+/*
+ * Special operators in intermediate code
+ */
+#define	BDATA	200
+#define	WDATA	201
+#define	PROG	202
+#define	DATA	203
+#define	BSS	204
+#define	CSPACE	205
+#define	SSPACE	206
+#define	SYMDEF	207
+#define	SAVE	208
+#define	RETRN	209
+#define	EVEN	210
+#define	PROFIL	212
+#define	SWIT	213
+#define	EXPR	214
+#define	SNAME	215
+#define	RNAME	216
+#define	ANAME	217
+#define	NULL	218
+
+/*
+  Flag bits
+*/
+
+#define	BINARY	01
+#define	LVALUE	02
+#define	RELAT	04
+#define	ASSGOP	010
+#define	LWORD	020
+#define	RWORD	040
+#define	COMMUTE	0100
+#define	RASSOC	0200
+#define	LEAF	0400
+
+/*
+ * Conversion codes
+ */
+#define	ITF	1
+#define	ITL	2
+#define	LTF	3
+#define	ITP	4
+#define	PTI	5
+#define	FTI	6
+#define	LTI	7
+#define	FTL	8
+#define	XX	15
+
+/*
+ * symbol table flags
+ */
+
+#define	FNDEL	01
+#define	FNUND	02
+#define	FKEYW	04
+#define	FFIELD	020