/* strindex.c - "unsigned" lexical index */ #ifndef lint static char ident[] = "@(#)$Id: strindex.c,v 2.3 1992/12/15 00:20:22 jromine Exp $"; #endif /* lint */ int stringdex (p1, p2) register char *p1, *p2; { register char *p; if (p1 == 0 || p2 == 0) return(-1); /* XXX */ for (p = p2; *p; p++) if (uprf (p, p1)) return (p - p2); return (-1); }