From 9592fbf2684b1f3f1892bf02404e41f209b0c5ac Mon Sep 17 00:00:00 2001 From: Clyne Sullivan Date: Mon, 27 Jan 2025 14:21:30 -0500 Subject: reorganize arch's --- x86/main.c | 42 ++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 42 insertions(+) create mode 100644 x86/main.c (limited to 'x86') 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 +// +// 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 . + +#include "foci.h" + +#include + +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; +} + -- cgit v1.2.3