Files
retrobsd/src/cmd/smallc/lib/index.c
2014-04-09 14:27:18 +01:00

19 lines
441 B
C

/* index - find index of string t in s
* reference CPL 67.
*/
#include <stdio.h>
#define EOS 0
index(s, t)
char s[], t[];{
int i, j, k;
for (i = 0; s[i] != EOS; i++){
k=0;
for (j=i;t[k]!=EOS & s[j]==t[k]; i++)
j++;
;
if (t[k] == EOS)
return(i);
}
return(-1);
}