add cppcheck and test targets; some code size reductions

2 files changed, 54 insertions, 45 deletions

diff --git a/libalee/dictionary.cpp b/libalee/dictionary.cpp
index 48230c4..29844b6 100644
--- a/libalee/dictionary.cpp
+++ b/libalee/dictionary.cpp
@@ -95,38 +95,33 @@ Addr Dictionary::getexec(Addr addr) noexcept
 
 Word Dictionary::input() noexcept
 {
-    auto src = read(Dictionary::Source);
-    auto end = read(Dictionary::SourceLen);
+    const auto src = read(Dictionary::Source);
+    const auto end = read(Dictionary::SourceLen);
     auto idx = read(Dictionary::Input);
 
-    Addr wordstart = src + idx;
-    Addr wordend = wordstart;
+    Word word {
+        static_cast<Addr>(src + idx),
+        static_cast<Addr>(src + idx)
+    };
 
     while (idx < end) {
-        auto ch = readbyte(wordend);
-
-        if (ch == '\0')
-            break;
+        auto ch = readbyte(word.end);
 
         if (isspace(ch)) {
-            if (wordstart != wordend) {
-                writebyte(Dictionary::Input, idx + 1);
-                return {wordstart, wordend};
-            }
+            if (word.size() > 0)
+                break;
 
-            ++wordstart;
+            ++word.start;
+        } else if (ch == '\0') {
+            break;
         }
 
-        ++wordend;
+        ++word.end;
         ++idx;
     }
 
-    if (wordstart != wordend) {
-        writebyte(Dictionary::Input, idx + 1);
-        return {wordstart, wordend};
-    }
-
-    return {};
+    writebyte(Dictionary::Input, idx + 1);
+    return word;
 }
 
 bool Dictionary::equal(Word word, const char *str, unsigned len) const noexcept
diff --git a/libalee/parser.cpp b/libalee/parser.cpp
index 44b5cec..d709d45 100644
--- a/libalee/parser.cpp
+++ b/libalee/parser.cpp
@@ -19,7 +19,7 @@
 #include "corewords.hpp"
 #include "parser.hpp"
 
-#include <charconv>
+#include <cctype>
 #include <cstring>
 
 int Parser::parse(State& state, const char *str)
@@ -79,34 +79,48 @@ int Parser::parseWord(State& state, Word word)
 
 int Parser::parseNumber(State& state, Word word)
 {
-    char buf[MaxCellNumberChars + 1];
-    unsigned i;
-    for (i = 0; i < std::min(MaxCellNumberChars, word.size()); ++i)
-        buf[i] = state.dict.readbyte(word.start + i);
-    buf[i] = '\0';
-
-    auto base = state.dict.read(0);
-    DoubleCell dl;
-    auto [ptr, ec] = std::from_chars(buf, buf + i, dl, base);
-    Cell l = static_cast<Cell>(dl);
-
-    if (ec == std::errc() && ptr == buf + i) {
-        if (state.compiling()) {
-            auto ins = CoreWords::findi("_lit");
-
-            //if (l >= 0 && l < 0xFF) {
-            //    state.dict.add(ins | ((l + 1) << 8));
-            //} else {
-                state.dict.add(ins);
-                state.dict.add(l);
-            //}
+    const auto base = state.dict.read(Dictionary::Base);
+    DoubleCell result = 0;
+    auto i = word.start;
+    bool inv;
+    char c;
+
+    c = state.dict.readbyte(i);
+    if (inv = c == '-'; inv)
+        c = state.dict.readbyte(++i);
+
+    do {
+        if (isdigit(c)) {
+            result *= base;
+            result += c - '0';
+        } else if (isalpha(c) && base > 10) {
+            result *= base;
+            result += 10 + (c > 'a' ? c - 'a' : c - 'A');
         } else {
-            state.push(l);
+            return UnknownWord;
         }
 
-        return 0;
+        if (++i < word.end)
+            c = state.dict.readbyte(i);
+    } while (i < word.end);
+
+    if (inv)
+        result *= -1;
+
+    Cell value = static_cast<Cell>(result);
+    if (state.compiling()) {
+        auto ins = CoreWords::findi("_lit");
+
+        //if (l >= 0 && l < 0xFF) {
+        //    state.dict.add(ins | ((l + 1) << 8));
+        //} else {
+            state.dict.add(ins);
+            state.dict.add(value);
+        //}
     } else {
-        return UnknownWord;
+        state.push(value);
     }
+
+    return 0;
 }