Add original unix v6

source/s1/goto.c

@@ -0,0 +1,67 @@
+int	offset	0;
+
+main(argc, argv)
+char *argv[];
+{
+	extern fin;
+	char line[64];
+
+	if (argc<2 || ttyn(0)!='x') {
+		write(1, "goto error\n", 11);
+		seek(0, 0, 2);
+		return;
+	}
+	seek(0, 0, 0);
+	fin = dup(0);
+
+loop:
+	if (getlin(line)) {
+		write(1, "label not found\n", 16);
+		return;
+		}
+	if (compar(line, argv[1])) goto loop;
+	seek(0, offset, 0);
+}
+
+getlin(s)
+char s[];
+{
+	int ch, i;
+
+	i = 0;
+l:
+	if ((ch=getc())=='\0') return(1);
+	if (ch!=':') {
+		while(ch!='\n' && ch!='\0')
+			ch = getc();
+		goto l;
+		}
+	while ((ch=getc())==' ');
+	while (ch!=' ' && ch!='\n' && ch!='\0') {
+		s[i++] = ch;
+		ch = getc();
+		}
+	while(ch != '\n')
+		ch = getc();
+	s[i] = '\0';
+	return(0);
+}
+
+compar(s1, s2)
+char s1[], s2[];
+{
+	int c, i;
+
+	i = 0;
+l:
+	if(s1[i] != s2[i]) return(1);
+	if (s1[i++] == '\0') return(0);
+	goto l;
+}
+
+getc()
+{
+
+	offset++;
+	return(getchar());
+}