NetBSD/gnu/dist/gawk/missing/strchr.c
1999-06-13 20:39:15 +00:00

48 lines
749 B
C

/*
* 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;
}