Mercurial > hg > Applications > mh
view sbr/strindex.c @ 12:441a2190cfae
Lion fix
author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
---|---|
date | Sat, 21 Apr 2012 13:10:49 +0900 |
parents | bce86c4163a3 |
children |
line wrap: on
line source
/* strindex.c - "unsigned" lexical index */ #ifndef lint static char ident[] = "@(#)$Id: strindex.c,v 1.1.1.1 2005/04/18 14:46:06 kono 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); }