home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Geek Gadgets 1
/
ADE-1.bin
/
ade-dist
/
gawk-2.15.6-base.tgz
/
gawk-2.15.6-base.tar
/
fsf
/
gawk
/
missing
/
strchr.c
< prev
next >
Wrap
Text File
|
1993-04-28
|
579b
|
36 lines
/*
* strchr --- search a string for a character
*
* We supply this routine for those systems that aren't standard yet.
*/
char *
strchr (str, c)
register const char *str, c;
{
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;
}