Added test of -nosequence to test-pick.
[mmh] / docs / historical / mh-6.8.5 / sbr / r1bindex.c
1 /* r1bindex.c - right plus 1 or beginning index */
2
3
4 char *r1bindex(str, chr)
5 register char *str;
6 register int chr;
7 {
8     register char  *cp;
9
10     for (cp = str; *cp; cp++)
11         continue;
12     --cp;
13     while (cp >= str && *cp != chr)
14         --cp;
15     return (++cp);
16 }