зеркало из https://github.com/github/ruby.git
28 строки
462 B
C
28 строки
462 B
C
/* public domain rewrite of strtol(3) */
|
|
|
|
#include "ruby/missing.h"
|
|
#include <ctype.h>
|
|
|
|
long
|
|
strtol(const char *nptr, char **endptr, int base)
|
|
{
|
|
long result;
|
|
const 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 = (char *)nptr;
|
|
}
|
|
return result;
|
|
}
|