blob: 4cd40922a71f221ac3d80f1e018b1e5a46c1553e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
|
// 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>
#include <stdlib.h>
static intptr_t dict[8192];
N(bye, "bye", LATEST_INIT) { exit(0); }
int main()
{
init(dict);
define(&w_bye);
for (;;) {
interpret();
printf(compiling() ? "compiled <%d>\n" : "ok <%d>\n", foci_depth());
}
return 0;
}
void foci_putchar(int ch)
{
putchar(ch);
}
int foci_getchar(void)
{
return getchar();
}
|
