mirror of
https://github.com/ruby/ruby.git
synced 2022-11-09 12:17:21 -05:00
46 lines
736 B
C
46 lines
736 B
C
|
/*
|
||
|
|
* strchr --- search a string for a character
|
||
|
|
*
|
||
|
|
* We supply this routine for those systems that aren't standard yet.
|
||
|
|
*/
|
||
|
|
|
||
|
|
#include <stdio.h>
|
||
|
|
|
||
|
|
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;
|
||
|
|
}
|