1 files changed, 42 insertions, 0 deletions
diff --git a/x86/main.c b/x86/main.c
new file mode 100644
index 0000000..e6230de
--- /dev/null
+++ b/x86/main.c
@@ -0,0 +1,42 @@
+// foci - minimal forth implementation
+// Copyright (C) 2025  Clyne Sullivan <clyne@bitgloo.com>
+//
+// 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 3 of the License, or (at your option)
+// any later version.
+//
+// This program is distributed in the hope that it will be useful, but WITHOUT
+// ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
+// FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License for
+// more details.
+//
+// You should have received a copy of the GNU General Public License along with
+// this program.  If not, see <http://www.gnu.org/licenses/>.
+
+#include "foci.h"
+
+#include <stdio.h>
+
+void foci_putchar(int ch)
+{
+    putchar(ch);
+}
+
+int foci_getchar(void)
+{
+    return getchar();
+}
+
+int main()
+{
+    init();
+
+    for (;;) {
+        interpret();
+        printf(compiling() ? "compiled <%d>\n" : "ok <%d>\n", depth());
+    }
+
+    return 0;
+}
+