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
96
97
98
99
100
101
|
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <sys/types.h>
#include <unistd.h>
#include <stdbool.h>
#ifndef STACK_H
#include "stack.h"
#endif
#ifndef OPTABLE_H
#include "optable.h"
#endif
//https://stackoverflow.com/a/58585995
char isnumber(char *text) {
int j;
j = strlen(text);
while(j--) {
if(text[j] >= '0' && text[j] <= '9')
continue;
return 0;
}
return 1;
}
void eval(stack* s, int len, char* line);
void exec(stack *s, char *word) {
if (!strcmp(word, "pop") || !strcmp(word, ".")) {
printf("%d\n", pop(s));
return;
} else if (!strcmp(word, "peek")) {
printf("%d\n", peek(s));
return;
}
wordop* op = getop(word);
if (op) {
if (op->isscript) {
eval(s, op->scriptlen, op->script);
} else {
op->op(s);
}
return;
}
if (isnumber(word)) {
push(s, atoi(word));
return;
}
}
void eval(stack* s, int len, char* line) {
char word[WORD_LEN_LIMIT];
int wordi = 0;
for (int i = 0; i < len; i++) {
// end of input is \n, char after end of input is \0
if (line[i] == '\0') {
return;
}
if (line[i] != ' ' &&
line[i] != '\n' && wordi < WORD_LEN_LIMIT - 1) {
if (line[i] == ':') {
i = defineop(i, line);
wordi = 0;
} else {
word[wordi++] = line[i];
}
} else { // end of word
if (wordi > 0) { // don't exec an empty string
word[wordi] = '\0';
if (!strcmp(word, "if")) {
stackitem predicate = pop(s);
if (!predicate) {
while (len > i && !(
line[i-3] == 't' &&
line[i-2] == 'h' &&
line[i-1] == 'e' &&
line[i] == 'n'
)) {
i++;
}
}
} else {
exec(s, word);
}
}
// start new word
wordi = 0;
}
}
}
int main(int argc, char** argv) {
stack* s = newstack();
char *line = NULL;
size_t len = 0;
ssize_t read;
while ((read = getline(&line, &len, stdin)) != -1) {
eval(s, len, line);
}
}
|
