diplodocus.org Git - nmh/blob - 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 }