1*1978Swnj /* @(#)rindex.c 4.1 (Berkeley) 12/21/80 */ 2*1978Swnj /* 3*1978Swnj * Return the ptr in sp at which the character c last 4*1978Swnj * appears; NULL if not found 5*1978Swnj */ 6*1978Swnj 7*1978Swnj #define NULL 0 8*1978Swnj 9*1978Swnj char * 10*1978Swnj rindex(sp, c) 11*1978Swnj register char *sp, c; 12*1978Swnj { 13*1978Swnj register char *r; 14*1978Swnj 15*1978Swnj r = NULL; 16*1978Swnj do { 17*1978Swnj if (*sp == c) 18*1978Swnj r = sp; 19*1978Swnj } while (*sp++); 20*1978Swnj return(r); 21*1978Swnj } 22