main.c


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
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73

// 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 <ctype.h>
#include <stdbool.h>
#include <stdio.h>
#include <string.h>

N(dot, ".", 0) {
    STASH;
    printf("%ld ", *sp);
    RESTORE;
    ++sp;
    NEXT;
}

void foci_putchar(int ch)
{
    putchar(ch);
}

int foci_getchar(void)
{
    return getchar();
}

int main()
{
    char buf[128];

    init();
    define(&w_dot);

    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());
    }

    return 0;
}