68 lines
844 B
C
68 lines
844 B
C
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());
|
|
}
|