/*************************************************************
 * File: lib/strrchr.c
 * Purpose: Part of C runtime library
 * Author: Phil Bunce (pjb@carmel.com)
 * Revision History:
 *	970304	Start of revision history
 */

#include "string.h"

/** char *strrchr(p,c) return a ptr to last c in p, return NUL if not found */
char *strrchr(p,c) 
char *p,c;
{
int i;

if (!p) return(0);

for (i=strlen(p);i>=0;i--) if (p[i] == c) return(&p[i]);
return(0);
}