Mercurial > hg > Applications > mh
view sbr/strindex.c @ 10:a6481689f99c
*** empty log message ***
author | kono |
---|---|
date | Wed, 06 Dec 2006 03:17:53 +0900 |
parents | bce86c4163a3 |
children | 441a2190cfae |
line wrap: on
line source
/* strindex.c - "unsigned" lexical index */ #ifndef lint static char ident[] = "@(#)$Id$"; #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); }