BSD 4_4_Lite1 release

[unix-history] / usr / src / contrib / mh-6.8.3a / sbr / strindex.c

/* 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);
}