1 /*
2  * strrchr - find last occurrence of a character in a string
3  */
4 
5 #define	NULL	0
6 
7 char *				/* found char, or NULL if none */
strrchr(s,charwanted)8 strrchr(s, charwanted)
9  char *s;
10 register char charwanted;
11 {
12 	register  char *scan;
13 	register  char *place;
14 
15 	place = NULL;
16 	for (scan = s; *scan != '\0'; scan++)
17 		if (*scan == charwanted)
18 			place = scan;
19 	if (charwanted == '\0')
20 		return(scan);
21 	return(place);
22 }
23