source: buchla-68k/orig/CLIBRARY/RINDEX.C@ 6888aa2

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

Imported original source code.

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