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 --- main.c | 42 ------------------------------------------ 1 file changed, 42 deletions(-) delete mode 100644 main.c (limited to 'main.c') diff --git a/main.c b/main.c deleted file mode 100644 index e6230de..0000000 --- a/main.c +++ /dev/null @@ -1,42 +0,0 @@ -// 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