ftp.nice.ch/pub/next/unix/text/rtf.N.bsd.tar.gz#/rtf-utilities/tools/gawk-2.14/missing/strchr.c

This is strchr.c in view mode; [Download] [Up]

/*
 * strchr --- search a string for a character
 *
 * We supply this routine for those systems that aren't standard yet.
 */

char *
strchr (str, c)
register char *str, c;
{
	for (; *str; str++)
		if (*str == c)
			return str;

	return NULL;
}

/*
 * strrchr --- find the last occurrence of a character in a string
 *
 * We supply this routine for those systems that aren't standard yet.
 */

char *
strrchr (str, c)
register char *str, c;
{
	register char *save = NULL;

	for (; *str; str++)
		if (*str == c)
			save = str;

	return save;
}

These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.