source: buchla-68k/orig/CLIBRARY/STRRCHR.C@ 66b48e7

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

Imported original source code.

  • Property mode set to 100755
File size: 534 bytes
RevLine 
[3ae31e9]1/*
2 =============================================================================
3 strrchr.c -- find last occurrence of a character in a string
4 Version 1 -- 1987-06-12
5
6 Return the ptr in sp at which the character c last
7 appears; NULL if not found.
8 =============================================================================
9*/
10
11#define NULL (char *)0
12
13char *
14strrchr(sp, c)
15register char *sp, c;
16{
17 register char *r;
18
19 r = NULL;
20
21 do {
22
23 if (*sp == c)
24 r = sp;
25
26 } while(*sp++);
27
28 return(r);
29}
Note: See TracBrowser for help on using the repository browser.