From eb3ea1994428e25e4866afb0ca6ad4edfce5ae8c Mon Sep 17 00:00:00 2001
From: Clyne Sullivan <clyne@bitgloo.com>
Date: Sun, 26 Jan 2025 20:33:20 -0500
Subject: interpret entirely in foci

---
 main.c | 23 ++---------------------
 1 file changed, 2 insertions(+), 21 deletions(-)

(limited to 'main.c')

diff --git a/main.c b/main.c
index 66dcce3..4429d2d 100644
--- a/main.c
+++ b/main.c
@@ -33,30 +33,11 @@ int foci_getchar(void)
 
 int main()
 {
-    char buf[128];
-
     init();
 
     for (;;) {
-        char c;
-        do c = getchar();
-        while (!isgraph(c));
-
-        char *s = buf;
-        do {
-            *s++ = c;
-            c = getchar();
-        } while (isgraph(c));
-        bool eol = c == '\n' || c == '\r';
-        *s = '\0';
-
-        if (strcmp(buf, "bye") == 0)
-            break;
-
-        parse_word(buf, s);
-
-        if (eol)
-            printf(compiling() ? "compiled <%d>\n" : "ok <%d>\n", depth());
+        interpret();
+        printf(compiling() ? "compiled <%d>\n" : "ok <%d>\n", depth());
     }
 
     return 0;
-- 
cgit v1.2.3