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,237 @@
+# include "../mcons.h"
+struct	{
+		int	cl[NUMC];
+	}tab[NUMS];
+char	state[NUMS][SIZS];
+char	class[NUMC][SIZC];
+char	act[NUMA][SIZA];
+char	def[NUMS][SIZA];
+char	temp[SIZA];
+
+char	*st[NUMS];
+char	*df[NUMS];
+char	*cl[NUMC];
+char	*ac[NUMA];
+
+int	t1;
+int	t2;
+
+
+main(argc,argv)	char	**argv;
+{
+
+	extern	fin;
+	char	fl,nlfl,c,bfl,fo,brk;
+	int	cs,ca,cc,i,j,cd;
+
+	if(argc != 3) {
+		printf("Usage: mtab input output\n");
+		exit();
+	}
+
+	if((fo = creat(argv[2],0644)) < 0) {
+		printf("Output file.\n");
+		exit();
+	}
+	if((fin = open(argv[1],0)) < 0) {
+		printf("Input file.\n");
+		exit();
+	}
+
+
+
+	nlfl = 1;
+	i = -1;
+	while(brk = rword()) {
+		switch (brk) {
+			case '\n':
+				if(nlfl) {
+					move(temp,state[++i]);
+					st[i] = &state[i];
+				} else {
+					move(temp,def[i]);
+					df[i] = &def[i];
+					nlfl = 1;
+				}
+				continue;
+			case ' ':
+				if(nlfl) {
+					move(temp,state[++i]);
+					st[i] = &state[i];
+					nlfl = 0;
+				} else {
+					error(7);
+				}
+				continue;
+		}
+	}
+
+
+	i = 128;
+	while(--i) {
+		class[i][0] = i;
+		class[i][1] = '\0';
+		cl[i] = &class[i];
+	}
+	cl[0] = &class[0];
+
+
+	bfl = nlfl = 0;
+	t1 = 0;
+	t2 = -1;
+	while(c = getchar()) {
+
+		switch(c) {
+
+			default:
+				if(t1 >= NUMA)	error(4);
+				bfl = nlfl = 0;
+				act[t1][++t2<8?t2:7] = c;
+				continue;
+
+			case '\n':
+				if(nlfl)	break;
+				nlfl = 1;
+
+			case ' ':
+				if(bfl)	continue;
+				bfl = 1;
+				act[t1][++t2<8?t2:7] = '\0';
+				ac[t1] = &act[t1];
+				t1++;
+				t2 = -1;
+				continue;
+		}
+	break;
+	}
+	if(c == '\0')	exit();
+
+	i = -1;
+	while(++i < NUMS) {
+		if(df[i]) {
+			cd = find(ac,df[i],NUMA);
+			j = -1;
+			while(++j < NUMC)
+				tab[i].cl[j] = cd;
+		}
+	}
+
+
+	fl = 0;
+	i = -1;
+	while(c = getchar()) {
+
+		switch(c) {
+
+			case '\\':
+				temp[++i] = getchar();
+				continue;
+
+			case '\n':
+				if(fl != 1)	continue;
+
+			default:
+				temp[++i] = c;
+				continue;
+
+			case '/':
+				temp[++i] = '\0';
+				i = -1;
+				switch(fl) {
+					case 0:
+						cs = find(st,temp,NUMS);
+						fl = 1;
+						continue;
+
+					case 1:
+						cc = find(cl,temp,NUMC);
+						fl = 2;
+						continue;
+
+					default:
+						error(1);
+
+				}
+
+			case ';':
+
+				if(fl != 2)	error(2);
+
+				temp[++i] = '\0';
+				i = -1;
+				ca = find(ac,temp,NUMA);
+
+/*printf("%o %o %o\n",cs,cc,ca); /*DEBUG*/
+				tab[cs].cl[cc] = ca;
+
+				fl = 0;
+				continue;
+
+
+		}
+	}
+
+	i = -1;
+	while(++i < NUMS)
+		write(fo,tab[i].cl,256);
+
+}
+
+error(a)
+{
+
+	printf("Error %d\n",a);
+	exit();
+
+}
+
+find(a,b,c)	char	(*a[])[];
+		char	b[];
+		int	c;
+{
+	int	i,j;
+
+/*	printf("%s\n",b); /*DEBUG*/
+	i = -1;
+	while(++i < c) {
+/*	printf("	%s\n",a[i]); /*DEBUG*/
+		j = 0;
+/*	printf("b = %c\ta = %c\n",b[0],(*a[i])[0]); /*DEBUG*/
+		while(b[j] == (*a[i])[j]) {
+			if(b[j] == '\0')	goto found;
+			j++;
+		}
+	}
+found:
+	return(i);
+}
+
+rword() {
+
+	char	c;
+	int	ct;
+
+	ct = -1;
+	while(c = getchar()) {
+		switch(c) {
+
+			default:
+				temp[++ct] = c;
+				continue;
+
+			case '\n':
+				if(ct == -1)	return('\0');
+			case ' ':
+				temp[++ct] = '\0';
+				return(c);
+		}
+	}
+}
+
+move(a,b)	char	*a;
+		char	*b;
+{
+	while((*b++ = *a++) != '\0');
+	return;
+}
+