libc: Add an implementation of strtol/strtoul and export it via plugins

These were lifted from the lua plugin.

sdl, doom, puzzles updated to use the exported version

todo: lua, maybe?
also: convert uses of atoi [back] to strtol

Change-Id: I5a1ebbe8d8c99349e594ab9bbbce474e7645b4e9

apps/plugins/doom/d_deh.c

@@ -2882,7 +2882,7 @@ boolean deh_GetData(char *s, char *k, uint_64_t *l, char **strval, int fpout)
          okrc = FALSE;
       }
       // we've incremented t
-      val = atoi(t);//strtol(t,NULL,0);  // killough 8/9/98: allow hex or octal input
+      val = strtol(t,NULL,0);  // killough 8/9/98: allow hex or octal input
    }
 
    // go put the results in the passed pointers

apps/plugins/doom/rockmacros.h

@@ -87,6 +87,7 @@ int my_close(int id);
 #define srand(a)           rb->srand((a))
 #define rand()             rb->rand()
 #define atoi(a)            rb->atoi((a))
+#define strtol(a,b,c)      rb->strtol((a),(b),(c))
 #define strcat(a,b)        rb->strcat((a),(b))
 #define snprintf           rb->snprintf
 

apps/plugins/lua/rocklib_aux.pl

@@ -51,6 +51,8 @@ my @ported_functions;
 # you want to manually port them to Lua. The format is a standard Perl regular
 # expression.
 my @forbidden_functions = ('^atoi$',
+                           '^strtol$',
+                           '^strtoul$',
                            '^open$',
                            '^open_utf8$',
                            '^close$',

apps/plugins/puzzles/rbcompat.h

@@ -22,7 +22,6 @@ float floor_wrapper(float n);
 float atan_wrapper(float x);
 float atan2_wrapper(float y, float x);
 float sqrt_wrapper(float x);
-long strtol_wrapper(const char *nptr, char **endptr, int base);
 int64_t strtoq_wrapper(const char *nptr, char **endptr, int base);
 uint64_t strtouq_wrapper(const char *nptr, char **endptr, int base);
 float pow_wrapper(float x, float y);
@@ -66,7 +65,7 @@ double acos_wrapper(double x);
 #define strcmp rb->strcmp
 #define strcpy rb->strcpy
 #define strlen rb->strlen
-#define strtol strtol_wrapper
+#define strtol rb->strtol
 #define strtoq strtoq_wrapper
 #define strtouq strtouq_wrapper
 #define vsprintf vsprintf_wrapper

apps/plugins/puzzles/rbwrappers.c

@@ -437,101 +437,6 @@ double acos_wrapper(double x)
  */
 
 #define CONST const
-long strtol_wrapper(CONST char *nptr, char **endptr, int base)
-{
-    register CONST char *s;
-    register long acc, cutoff;
-    register int c;
-    register int neg, any, cutlim;
-
-    /*
-     * Skip white space and pick up leading +/- sign if any.
-     * If base is 0, allow 0x for hex and 0 for octal, else
-     * assume decimal; if base is already 16, allow 0x.
-     */
-    s = nptr;
-    do {
-        c = (unsigned char) *s++;
-    } while (isspace(c));
-    if (c == '-') {
-        neg = 1;
-        c = *s++;
-    } else {
-        neg = 0;
-        if (c == '+')
-            c = *s++;
-    }
-    if ((base == 0 || base == 16) && c == '0' && (*s == 'x' || *s == 'X')) {
-        c = s[1];
-        s += 2;
-        base = 16;
-    }
-    if (base == 0)
-        base = c == '0' ? 8 : 10;
-
-    /*
-     * Compute the cutoff value between legal numbers and illegal
-     * numbers.  That is the largest legal value, divided by the
-     * base.  An input number that is greater than this value, if
-     * followed by a legal input character, is too big.  One that
-     * is equal to this value may be valid or not; the limit
-     * between valid and invalid numbers is then based on the last
-     * digit.  For instance, if the range for longs is
-     * [-2147483648..2147483647] and the input base is 10,
-     * cutoff will be set to 214748364 and cutlim to either
-     * 7 (neg==0) or 8 (neg==1), meaning that if we have accumulated
-     * a value > 214748364, or equal but the next digit is > 7 (or 8),
-     * the number is too big, and we will return a range error.
-     *
-     * Set any if any `digits' consumed; make it negative to indicate
-     * overflow.
-     */
-    cutoff = neg ? LONG_MIN : LONG_MAX;
-    cutlim = cutoff % base;
-    cutoff /= base;
-    if (neg) {
-        if (cutlim > 0) {
-            cutlim -= base;
-            cutoff += 1;
-        }
-        cutlim = -cutlim;
-    }
-    for (acc = 0, any = 0;; c = (unsigned char) *s++) {
-        if (isdigit(c))
-            c -= '0';
-        else if (isalpha(c))
-            c -= isupper(c) ? 'A' - 10 : 'a' - 10;
-        else
-            break;
-        if (c >= base)
-            break;
-        if (any < 0)
-            continue;
-        if (neg) {
-            if ((acc < cutoff || acc == cutoff) && c > cutlim) {
-                any = -1;
-                acc = LONG_MIN;
-            } else {
-                any = 1;
-                acc *= base;
-                acc -= c;
-            }
-        } else {
-            if ((acc > cutoff || acc == cutoff) && c > cutlim) {
-                any = -1;
-                acc = LONG_MAX;
-            } else {
-                any = 1;
-                acc *= base;
-                acc += c;
-            }
-        }
-    }
-    if (endptr != 0)
-        *endptr = (char *) (any ? s - 1 : nptr);
-    return (acc);
-}
-
 int64_t strtoq_wrapper(CONST char *nptr, char **endptr, int base)
 {
     return strtol(nptr, endptr, base);

apps/plugins/sdl/include/SDL_config_rockbox.h

@@ -117,6 +117,7 @@
 #define atexit rb_atexit
 #define atof atof_wrapper
 #define atoi rb->atoi
+#define HAVE_ATOI 1
 #define atol atoi
 #define calloc tlsf_calloc
 #define ceil ceil_wrapper
@@ -174,7 +175,8 @@
 #define strstr SDL_strstr
 #define strtok strtok_wrapper
 #define strtok_r rb->strtok_r
-#define strtol SDL_strtol
+#define HAVE_STRTOL 1
+#define strtol rb->strtol
 #define tan tan_wrapper
 #define time(x) (*rb->current_tick/HZ)
 #define unlink remove