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


/*************************************************************
*  char *strrpstr(str,set) 
*	like strrpset except it only looks for a single pattern
*/
char *strrpstr(str,pat)
char *str,*pat;
{
int n;
char *p;

n = 0;
for (p= &str[strlen(str)-1];p>str;p--) {
	if (*p == '(') n++;
	else if (*p == ')') n--;
	else if (!strncmp(p,pat,strlen(pat)) && n == 0) return(p);
	}
return(0);
}