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,17 @@
+char IEH3endm[128] {0};
+IEH3mtab (formatp)
+char **formatp;
+{
+/* make up special table of string ending characters */
+int i, normal;
+char ch;
+/* normally all characters end string except those listed */
+normal = 1;
+if (**formatp == '^')
+	{normal = 0; (*formatp)++;}
+for (i= 0; i < 128; i++)
+	IEH3endm[i] = normal;
+while ((ch = *((*formatp)++)) != ']')
+	IEH3endm[ch] = !IEH3endm[ch];
+
+}