Lua replace fscanf

Rocklua was using the full fscanf implementation
to simply read %ld for the file:read("*n") function
wasting 1k on unneeded/unused functionality

Instead, I've implemented a filetol function to duplicate it
without the extra overhead using strtol which as an added bonus
ERANGE errors now resolve to LONG_MIN and LONGMAX instead of
integer overflow

filetol()
   reads long int from an open file, skips preceding
   whitespaces returns -1 if error, 1 on success.
   *num set to LONG_MAX or LONG_MIN on overflow.
   If number of digits is > than LUAI_MAXNUMBER2STR
   filepointer will continue till the next non digit
   but buffer will stop being filled with characters.
   Preceding zero is ignored.

Change-Id: Ia42d0f73c63a894625bca4581e9b7e1cc7387fd2

1 files changed, 0 insertions, 291 deletions

diff --git a/apps/plugins/lua/fscanf.c b/apps/plugins/lua/fscanf.c
deleted file mode 100644
index 9f5f129..0000000
--- a/apps/plugins/lua/fscanf.c
+++ /dev/null
@@ -1,291 +0,0 @@
-/***************************************************************************
- *             __________               __   ___.
- *   Open      \______   \ ____   ____ |  | _\_ |__   _______  ___
- *   Source     |       _//  _ \_/ ___\|  |/ /| __ \ /  _ \  \/  /
- *   Jukebox    |    |   (  <_> )  \___|    < | \_\ (  <_> > <  <
- *   Firmware   |____|_  /\____/ \___  >__|_ \|___  /\____/__/\_ \
- *                     \/            \/     \/    \/            \/
- * $Id$
- *
- * Copied from firmware/common/sscanf.c
- * Original author: Tomasz Malesinski
- *
- * Copyright (C) 2010 Maurus Cuelenaere
- *
- * This program is free software; you can redistribute it and/or
- * modify it under the terms of the GNU General Public License
- * as published by the Free Software Foundation; either version 2
- * of the License, or (at your option) any later version.
- *
- * This software is distributed on an "AS IS" basis, WITHOUT WARRANTY OF ANY
- * KIND, either express or implied.
- *
- ****************************************************************************/
-
-#include "rocklibc.h"
-
-static int parse_dec(int (*peek)(void *userp),
-                     void (*pop)(void *userp),
-                     void *userp,
-                     long *vp)
-{
-    long v = 0;
-    int n = 0;
-    int minus = 0;
-    char ch;
-
-    if ((*peek)(userp) == '-')
-    {
-        (*pop)(userp);
-        n++;
-        minus = 1;
-    }
-
-    ch = (*peek)(userp);
-    if (!isdigit(ch))
-        return -1;
-
-    do
-    {
-        v = v * 10 + ch - '0';
-        (*pop)(userp);
-        n++;
-        ch = (*peek)(userp);
-    } while (isdigit(ch));
-
-    *vp = minus ? -v : v;
-    return n;
-}
-
-static int parse_chars(int (*peek)(void *userp),
-                       void (*pop)(void *userp),
-                       void *userp,
-                       char *vp,
-                       bool fake)
-{
-    int n = 0;
-
-    char *pt=vp;
-
-    while (!isspace((*peek)(userp)))
-    {
-        if(fake==false)
-            *(pt++) = (*peek)(userp);
-
-        n++;
-        (*pop)(userp);
-    }
-
-    if(fake==false)
-        (*pt)='\0';
-
-    return n;
-}
-
-static int parse_hex(int (*peek)(void *userp),
-                     void (*pop)(void *userp),
-                     void *userp,
-                     unsigned long *vp)
-{
-    unsigned long v = 0;
-    int n = 0;
-    char ch;
-
-    ch = (*peek)(userp);
-    if (!isxdigit(ch))
-        return -1;
-
-    do
-    {
-        if (ch >= 'a')
-            ch = ch - 'a' + 10;
-        else if (ch >= 'A')
-            ch = ch - 'A' + 10;
-        else
-            ch = ch - '0';
-        v = v * 16 + ch;
-        (*pop)(userp);
-        n++;
-        ch = (*peek)(userp);
-    } while (isxdigit(ch));
-
-    *vp = v;
-    return n;
-}
-
-static int skip_spaces(int (*peek)(void *userp),
-                       void (*pop)(void *userp),
-                       void *userp)
-{
-    int n = 0;
-    while (isspace((*peek)(userp))) {
-        n++;
-        (*pop)(userp);
-    }
-    return n;
-}
-
-static int scan(int (*peek)(void *userp),
-                void (*pop)(void *userp),
-                void *userp,
-                const char *fmt,
-                va_list ap)
-{
-    char ch;
-    int n = 0;
-    int n_chars = 0;
-    int r;
-    long lval;
-    bool skip=false;
-    unsigned long ulval;
-
-    while ((ch = *fmt++) != '\0')
-    {
-        bool literal = false;
-
-        if (ch == '%')
-        {
-            ch = *fmt++;
-
-            if(ch== '*')  /* We should process this, but not store it in an argument */
-            {
-                ch=*fmt++;
-                skip=true;
-            }
-            else
-            {
-                skip=false;
-            }
-
-            switch (ch)
-            {
-                case 'x':
-                    n_chars += skip_spaces(peek, pop, userp);
-                    if ((r = parse_hex(peek, pop, userp, &ulval)) >= 0)
-                    {
-                        if(skip==false)
-                        {
-                            *(va_arg(ap, unsigned int *)) = ulval;
-                            n++;
-                        }
-                        n_chars += r;
-                    }
-                    else
-                        return n;
-                    break;
-                case 'd':
-                    n_chars += skip_spaces(peek, pop, userp);
-                    if ((r = parse_dec(peek, pop, userp, &lval)) >= 0)
-                    {
-                        if(skip==false)
-                        {
-                            *(va_arg(ap, int *)) = lval;
-                            n++;
-                        }
-                        n_chars += r;
-                    }
-                    else
-                        return n;
-                    break;
-                case 'n':
-                    if(skip==false)
-                    {
-                        *(va_arg(ap, int *)) = n_chars;
-                        n++;
-                    }
-                    break;
-                case 'l':
-                    n_chars += skip_spaces(peek, pop, userp);
-                    ch = *fmt++;
-                    switch (ch)
-                    {
-                        case 'x':
-                            if ((r = parse_hex(peek, pop, userp, &ulval)) >= 0)
-                            {
-                                if(skip==false)
-                                {
-                                    *(va_arg(ap, unsigned long *)) = ulval;
-                                    n++;
-                                }
-                                n_chars += r;
-                            }
-                            else
-                                return n;
-                            break;
-                        case 'd':
-                            if ((r = parse_dec(peek, pop, userp, &lval)) >= 0)
-                            {
-                                if(skip==false)
-                                {
-                                    *(va_arg(ap, long *)) = lval;
-                                    n++;
-                                }
-                                n_chars += r;
-                            }
-                            else
-                                return n;
-                            break;
-                        case '\0':
-                            return n;
-                        default:
-                            literal = true;
-                            break;
-                    }
-                    break;
-                case 's':
-                    n_chars += skip_spaces(peek, pop, userp);
-                    n_chars += parse_chars(peek,pop, userp,skip?0:va_arg(ap, char *), skip );
-                    if(skip==false)
-                    {
-                        n++;
-                    }
-                    break;
-                case '\0':
-                    return n;
-                default:
-                    literal = true;
-                    break;
-            }
-        } else
-            literal = true;
-
-        if (literal)
-        {
-            n_chars += skip_spaces(peek, pop, userp);
-            if ((*peek)(userp) != ch)
-                continue;
-            else
-            {
-                (*pop)(userp);
-                n_chars++;
-            }
-        }
-    }
-    return n;
-}
-
-static int fspeek(void *userp)
-{
-    int fd = *((int*) userp);
-    char buf = 0;
-    if(rb->read(fd, &buf, 1) == 1)
-        rb->lseek(fd, -1, SEEK_CUR);
-    return buf;
-}
-
-static void fspop(void *userp)
-{
-    int fd = *((int*) userp);
-    rb->lseek(fd, 1, SEEK_CUR);
-}
-
-int PREFIX(fscanf)(int fd, const char *fmt, ...)
-{
-    int r;
-    va_list ap;
-
-    va_start(ap, fmt);
-    r = scan(fspeek, fspop, &fd, fmt, ap);
-    va_end(ap);
-    return r;
-}