source: buchla-68k/libsm/rindex.c@ 0580615

Last change on this file since 0580615 was 0580615, checked in by Thomas Lopatic <thomas@…>, 7 years ago

Point of no return.

  • Property mode set to 100644
File size: 410 bytes
RevLine 
[f40a309]1/*
2 ============================================================================
3 rindex.c -- BSD style rindex function
4 Version 2 -- 1987-06-12 -- D.N. Lynx Crowe
5 ============================================================================
6*/
7
[0580615]8char *rindex(char *str, char c)
[f40a309]9{
10 register char *cp;
11
12 for (cp = str ;*cp++ ; )
13 ;
14
15 while (cp > str)
16 if (*--cp == c)
17 return(cp);
18
19 return((char *)0);
20}
Note: See TracBrowser for help on using the repository browser.