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
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
|
#include <stdio.h>
#include <string.h>
#include <stdlib.h>
#include <stdbool.h>
long stack[1024] = {0};
size_t stack_ptr = 0;
bool strict = false;
static void panic(const char *msg) {
fprintf(stderr, "%s\n", msg);
exit(EXIT_FAILURE);
}
static bool is(const char *s1, const char *s2) {
return strcmp(s1, s2) == 0;
}
static long pop(void) {
if (stack_ptr == 0)
panic("stack undeflow");
return stack[--stack_ptr];
}
static void push(long v) {
if (stack_ptr >= sizeof(stack) / sizeof(stack[0]))
panic("stack overflow");
stack[stack_ptr++] = v;
}
#define OP(X) } else if (strcmp(s, X) == 0) {
static void exec(const char *s) {
if (s[0] >= '0' && s[0] <= '9') {
push(atol(s));
OP("drop")
pop();
OP("dup")
const long a = pop();
push(a); push(a);
OP("swap")
const long a = pop();
const long b = pop();
push(a); push(b);
OP("over")
const long a = pop();
const long b = pop();
push(a); push(b); push(a);
OP("rot")
const long a = pop();
const long b = pop();
const long c = pop();
push(b); push(a); push(c);
OP("+")
push(pop() + pop());
OP("-")
const long a = pop();
push(pop() - a);
OP("*")
push(pop() * pop());
OP("/")
const long a = pop();
push(pop() / a);
OP("%")
const long a = pop();
push(pop() % a);
OP(".s")
printf("\x1b[94m<%zu> ", stack_ptr);
for (size_t i = 0; i < stack_ptr; i++)
printf("%ld ", stack[i]);
printf("\x1b[0m\n");
OP(".")
printf("\x1b[94m%ld\x1b[0m\n", pop());
} else {
fprintf(stderr, "unrecognized word '%s'\n", s);
if (strict)
exit(EXIT_FAILURE);
}
}
int main(int argc, char **argv) {
char line[1024] = {0};
const char *delim = " \t\n\v\r";
if (argc > 1 && argv[1][0] == '-' && strchr(argv[1], 's'))
strict = true;
while (fgets(line, sizeof(line) - 1, stdin)) {
char *tok = strtok(line, delim);
while (tok != NULL) {
exec(tok);
tok = strtok(NULL, delim);
}
}
return 0;
}
|