|
|
1.1 root 1: /* strindex.c - "unsigned" lexical index */
2:
3:
4: int stringdex (p1, p2)
5: register char *p1,
6: *p2;
7: {
8: register char *p;
9:
10: for (p = p2; *p; p++)
11: if (uprf (p, p1))
12: return (p - p2);
13:
14: return (-1);
15: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.