consting; arch choice; . hex [']

1 files changed, 47 insertions, 20 deletions

diff --git a/foci.c b/foci.c
index c11f69c..6168b35 100644
--- a/foci.c
+++ b/foci.c
@@ -18,16 +18,16 @@
 
 #define END_OF(arr) ((arr) + (sizeof((arr)) / sizeof(*(arr))))
 
-static intptr_t dstack[32];
-static intptr_t **rstack[32];
-static intptr_t dict[8192] = {
-    0, 10
+static intptr_t dstack[16];
+static intptr_t **rstack[16];
+static intptr_t dict[1000] = {
+    0, 10, 0
 };
-#define state dict[0]
-#define BASE  dict[1]
-#define begin dict[2]
+#define state  dict[0]
+#define BASE   dict[1]
+#define LATEST dict[2]
+#define begin  dict[3]
 static intptr_t *here = &begin;
-static struct word_t *latest;
 
 static intptr_t     saved_tmp;
 static intptr_t *   saved_sp;
@@ -69,9 +69,9 @@ int compare(const char *a, const char *b, int l)
     return 0;
 }
 
-struct word_t *lookup_p(const char *s, int len)
+const struct word_t *lookup_p(const char *s, int len)
 {
-    for (struct word_t *l = latest; l; l = l->prev) {
+    for (const struct word_t *l = (const struct word_t *)LATEST; l; l = l->prev) {
         if (len == (l->attr & ATTR_LEN) && !compare(s, l->name, len))
             return l;
     }
@@ -82,7 +82,7 @@ struct word_t *lookup_p(const char *s, int len)
 NAKED
 void lookup()
 {
-    static struct word_t *l;
+    static const struct word_t *l;
 
     STASH;
     l = lookup_p((char *)((intptr_t)here + 1), *(char *)here);
@@ -121,7 +121,7 @@ W(dict,   "_d",     &w_cells)   LIT(dict),          END
 W(base,   "base",   &w_dict)    LIT(&BASE), END
 W(here,   "here",   &w_base)    LIT(&here), peek,   END
 W(allot,  "allot",  &w_here)    LIT(&here), FTH(addto), END
-W(latest, "latest", &w_allot)   LIT(&latest), peek, END
+W(latest, "latest", &w_allot)   LIT(&LATEST), peek, END
 W(negate, "negate", &w_latest)  LIT(-1), mul, END
 W(invert, "invert", &w_negate)  LIT(-1), xor, END
 W(dec,    "1-",     &w_invert)  LIT(1), sub,  END
@@ -132,7 +132,7 @@ W(align,  "align",  &w_aligned) FTH(here), FTH(aligned), LIT(&here), poke, END
 W(colon,  ":",      &w_align)   FTH(here), LIT(0), comma, FTH(latest), comma,
                                 compname, FTH(allot), FTH(align), dup,
                                 FTH(here), swap, poke, comp, END
-I(semic,  ";",      &w_colon)   LIT(fexit), comma, LIT(&latest), poke, intr, END
+I(semic,  ";",      &w_colon)   LIT(fexit), comma, LIT(&LATEST), poke, intr, END
 I(literal, "literal", &w_semic) LIT(push), comma, comma, END
 N(b,      "_b",     &w_literal) { ++pp; pp = (intptr_t **)*pp; NEXT; }
 N(bz,     "_bz",    &w_literal) { ++pp; if (!*sp++) { pp = (intptr_t **)*pp; } NEXT; }
@@ -140,10 +140,12 @@ I(fif,    "if",     &w_b)       LIT(bz), comma, FTH(here), LIT(0), comma, END
 I(then,   "then",   &w_fif)     FTH(here), LIT(sizeof(intptr_t)), sub, swap, poke, END
 I(felse,  "else",   &w_then)    LIT(b), comma, FTH(here), LIT(0), comma, swap, FTH(then), END
 W(tick,   "\'",     &w_felse)   compname, drop, lookup, peek, END
-N(execute, "execute", &w_tick)  { pp = (intptr_t **)*sp++ - 1; NEXT; }
+I(ctick,  "[\']",   &w_tick)    FTH(tick), FTH(literal), END
+N(execute, "execute", &w_ctick) { pp = (intptr_t **)*sp++ - 1; NEXT; }
 W(decimal, "decimal", &w_execute) LIT(10), LIT(&BASE), poke, END
-W(hex,    "hex",    &w_decimal) LIT(16), LIT(&BASE), poke, END
-#define LATEST      &w_hex
+W(hex,     "hex",    &w_decimal) LIT(16), LIT(&BASE), poke, END
+N(dot,    ".",      &w_hex) ;
+#define LATEST_INIT &w_dot
 
 void call(void *ptr)
 {
@@ -151,6 +153,31 @@ void call(void *ptr)
     ((void (*)())*pp)();
 }
 
+NAKED
+void dot()
+{
+    static char dotbuf[16];
+
+    STASH;
+    intptr_t n = *sp;
+    char *s = dotbuf + sizeof(dotbuf);
+    int neg = n < 0;
+    if (neg) n *= -1;
+    *--s = '\0';
+
+    do *--s = "0123456789abcdef"[n % BASE];
+    while (n /= BASE);
+    if (neg)
+        foci_putchar('-');
+    while (*s)
+        foci_putchar(*s++);
+    foci_putchar(' ');
+
+    RESTORE;
+    ++sp;
+    NEXT;
+}
+
 intptr_t parse_number(const char *s, const char **endp, int b)
 {
     intptr_t n = 0;
@@ -176,7 +203,7 @@ intptr_t parse_number(const char *s, const char **endp, int b)
 
 void parse_word(const char *buf, const char *s)
 {
-    struct word_t *l = lookup_p(buf, s - buf);
+    const struct word_t *l = lookup_p(buf, s - buf);
 
     tmp = saved_tmp;
     sp = saved_sp;
@@ -224,7 +251,7 @@ void init(void)
     saved_rp = END_OF(rstack);
     saved_pp = 0;
 
-    latest = LATEST;
+    LATEST = (intptr_t)LATEST_INIT;
 }
 
 int depth(void)
@@ -239,7 +266,7 @@ int compiling(void)
 
 void define(struct word_t *w)
 {
-    w->prev = latest;
-    latest = w;
+    w->prev = (struct word_t *)LATEST;
+    LATEST = (intptr_t)w;
 }