mirror of
https://github.com/ruby/ruby.git
synced 2022-11-09 12:17:21 -05:00
65a5162550
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@520 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
45 lines
736 B
C
45 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;
|
|
}
|