Added all of the MH sources, including RCS files, in

[mmh] / docs / historical / mh-6.8.5 / support / pop / mmdfII / pop / strindex.c

/* strindex.c - "unsigned" lexical index */


int  stringdex (p1, p2)
register char  *p1,
               *p2;
{
    register char  *p;

    for (p = p2; *p; p++)
        if (uprf (p, p1))
            return (p - p2);

    return (-1);
}