godzil/tack
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

added index

Browse Source
This commit is contained in:
ceriel 1987-03-26 15:28:08 +00:00
parent 39e11a33bc
commit bda499b26a
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
};
char *index();
/* Keyword index table */
int kex[27];
@ -470,3 +472,13 @@ yylex()
}
return(*cptr++);
}
char *
index(s, c)
register char *s, c;
{
while (*s)
if (*s++ == c)
return --s;
return (char *)0;
}