Mercurial > hg > Applications > mh

annotate sbr/r1bindex.c @ 0:bce86c4163a3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Initial revision
author kono
date Mon, 18 Apr 2005 23:46:02 +0900
parents
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
bce86c4163a3 Initial revision
kono
parents:
diff changeset
1 /* r1bindex.c - right plus 1 or beginning index */
bce86c4163a3 Initial revision
kono
parents:
diff changeset
2
bce86c4163a3 Initial revision
kono
parents:
diff changeset
3
bce86c4163a3 Initial revision
kono
parents:
diff changeset
4 char *r1bindex(str, chr)
bce86c4163a3 Initial revision
kono
parents:
diff changeset
5 register char *str;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
6 register int chr;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
7 {
bce86c4163a3 Initial revision
kono
parents:
diff changeset
8 register char *cp;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
9
bce86c4163a3 Initial revision
kono
parents:
diff changeset
10 for (cp = str; *cp; cp++)
bce86c4163a3 Initial revision
kono
parents:
diff changeset
11 continue;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
12 --cp;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
13 while (cp >= str && *cp != chr)
bce86c4163a3 Initial revision
kono
parents:
diff changeset
14 --cp;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
15 return (++cp);
bce86c4163a3 Initial revision
kono
parents:
diff changeset
16 }