d0p1/ack
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

added index

Browse source
This commit is contained in:
ceriel 1987-03-26 15:28:08 +00:00
parent 32d12a9c7a
commit 044587ec57
1 changed files with 12 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
lang/basic/src.old/basic.lex
View file

@ -141,6 +141,8 @@ Key keywords [] ={
0, 0, 0, 0 0, 0, 0, 0
}; };
char *index();
/* Keyword index table */ /* Keyword index table */
int kex[27]; int kex[27];
@ -470,3 +472,13 @@ yylex()
} }
return(*cptr++); return(*cptr++);
} }
char *
index(s, c)
register char *s, c;
{
while (*s)
if (*s++ == c)
return --s;
return (char *)0;
}