diff options
Diffstat (limited to 'apps/plugins/lua/strtol.c')
-rw-r--r-- | apps/plugins/lua/strtol.c | 27 |
1 files changed, 27 insertions, 0 deletions
diff --git a/apps/plugins/lua/strtol.c b/apps/plugins/lua/strtol.c new file mode 100644 index 0000000000..184951b844 --- /dev/null +++ b/apps/plugins/lua/strtol.c | |||
@@ -0,0 +1,27 @@ | |||
1 | #include "rocklibc.h" | ||
2 | |||
3 | extern unsigned long int strtoul(const char *ptr, char **endptr, int base); | ||
4 | |||
5 | #define ABS_LONG_MIN 2147483648UL | ||
6 | long int strtol(const char *nptr, char **endptr, int base) | ||
7 | { | ||
8 | int neg=0; | ||
9 | unsigned long int v; | ||
10 | const char*orig=nptr; | ||
11 | |||
12 | while(isspace(*nptr)) nptr++; | ||
13 | |||
14 | if (*nptr == '-' && isalnum(nptr[1])) { neg=-1; ++nptr; } | ||
15 | v=strtoul(nptr,endptr,base); | ||
16 | if (endptr && *endptr==nptr) *endptr=(char *)orig; | ||
17 | if (v>=ABS_LONG_MIN) { | ||
18 | if (v==ABS_LONG_MIN && neg) { | ||
19 | errno=0; | ||
20 | return v; | ||
21 | } | ||
22 | errno=ERANGE; | ||
23 | return (neg?LONG_MIN:LONG_MAX); | ||
24 | } | ||
25 | return (neg?-v:v); | ||
26 | } | ||
27 | |||