mirror of
https://github.com/ruby/ruby.git
synced 2022-11-09 12:17:21 -05:00
870fbf44d5
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/branches/ruby_1_8@28771 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
30 lines
469 B
C
30 lines
469 B
C
/* public domain rewrite of strtol(3) */
|
|
|
|
#include "missing.h"
|
|
#include <ctype.h>
|
|
|
|
long
|
|
strtol(nptr, endptr, base)
|
|
char *nptr;
|
|
char **endptr;
|
|
int base;
|
|
{
|
|
long result;
|
|
char *p = nptr;
|
|
|
|
while (isspace(*p)) {
|
|
p++;
|
|
}
|
|
if (*p == '-') {
|
|
p++;
|
|
result = -strtoul(p, endptr, base);
|
|
}
|
|
else {
|
|
if (*p == '+') p++;
|
|
result = strtoul(p, endptr, base);
|
|
}
|
|
if (endptr != 0 && *endptr == p) {
|
|
*endptr = nptr;
|
|
}
|
|
return result;
|
|
}
|