diff options
Diffstat (limited to 'jni/ruby/missing/strtol.c')
-rw-r--r-- | jni/ruby/missing/strtol.c | 27 |
1 files changed, 27 insertions, 0 deletions
diff --git a/jni/ruby/missing/strtol.c b/jni/ruby/missing/strtol.c new file mode 100644 index 0000000..87bd731 --- /dev/null +++ b/jni/ruby/missing/strtol.c @@ -0,0 +1,27 @@ +/* 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; +} |