home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Internet Tools 1993 July / Internet Tools.iso / RockRidge / mail / mmdf / mmdf-IIb.43 / src / pop / r1bindex.c < prev    next >
Encoding:
Text File  |  1986-04-23  |  258 b   |  17 lines

  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. }
  17.