Mercurial > hg > Applications > mh

annotate sbr/strindex.c @ 17:76d91e545ea8 default tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
addrsbr and dtimep fix
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Mon, 24 Nov 2014 14:49:25 +0900
parents 441a2190cfae
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
bce86c4163a3 Initial revision
kono
parents:
diff changeset
1 /* strindex.c - "unsigned" lexical index */
bce86c4163a3 Initial revision
kono
parents:
diff changeset
2 #ifndef lint
12
441a2190cfae Lion fix
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 0
diff changeset
3 static char ident[] = "@(#)$Id: strindex.c,v 1.1.1.1 2005/04/18 14:46:06 kono Exp $";
0
bce86c4163a3 Initial revision
kono
parents:
diff changeset
4 #endif /* lint */
bce86c4163a3 Initial revision
kono
parents:
diff changeset
5
bce86c4163a3 Initial revision
kono
parents:
diff changeset
6
bce86c4163a3 Initial revision
kono
parents:
diff changeset
7 int stringdex (p1, p2)
bce86c4163a3 Initial revision
kono
parents:
diff changeset
8 register char *p1,
bce86c4163a3 Initial revision
kono
parents:
diff changeset
9 *p2;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
10 {
bce86c4163a3 Initial revision
kono
parents:
diff changeset
11 register char *p;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
12
bce86c4163a3 Initial revision
kono
parents:
diff changeset
13 if (p1 == 0 || p2 == 0) return(-1); /* XXX */
bce86c4163a3 Initial revision
kono
parents:
diff changeset
14
bce86c4163a3 Initial revision
kono
parents:
diff changeset
15 for (p = p2; *p; p++)
bce86c4163a3 Initial revision
kono
parents:
diff changeset
16 if (uprf (p, p1))
bce86c4163a3 Initial revision
kono
parents:
diff changeset
17 return (p - p2);
bce86c4163a3 Initial revision
kono
parents:
diff changeset
18
bce86c4163a3 Initial revision
kono
parents:
diff changeset
19 return (-1);
bce86c4163a3 Initial revision
kono
parents:
diff changeset
20 }