NetBSD/gnu/dist/gawk/missing_d/strchr.c

50 lines
814 B
C

/* $NetBSD: strchr.c,v 1.1.1.1 2003/10/06 16:44:06 wiz Exp $ */
/*
* strchr --- search a string for a character
*
* We supply this routine for those systems that aren't standard yet.
*/
#if 0
#include <stdio.h>
#endif
char *
strchr(str, c)
register const char *str, c;
{
if (c == '\0') {
/* thanks to Mike Brennan ... */
do {
if (*str == c)
return (char *) str;
} while (*str++);
} else {
for (; *str; str++)
if (*str == c)
return (char *) 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 const char *str, c;
{
register const char *save = NULL;
for (; *str; str++)
if (*str == c)
save = str;
return (char *) save;
}