blob: 7ffdccde1a7d0ec3c0c306f71350f428b1d66581 (
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
49
50
51
52
53
54
55
56
57
58
59
60
|
#include "parser.h"
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
extern ht_t *WORD_TABLE;
extern array_t *STACK;
extern char *INBUF;
extern parser_t *PARSER;
void usage() {
printf("Usage: stem [-hv] [file]\n");
exit(1);
}
void version() {
printf("Author: Preston Pan, MIT License 2023\n");
printf("stem, version 1.0\n");
exit(0);
}
int main(int argc, char **argv) {
value_t *v;
size_t len;
if (argc < 2) {
usage();
}
if (strcmp(argv[1], "-h") == 0 || strcmp(argv[1], "--help") == 0) {
usage();
} else if (strcmp(argv[1], "-v") == 0 || strcmp(argv[1], "--version") == 0) {
version();
}
FILE *FP = fopen(argv[1], "rb");
ssize_t bytes_read = getdelim(&INBUF, &len, '\0', FP);
if (FP != NULL) {
fflush(FP);
fclose(FP);
}
PARSER = init_parser(INBUF);
STACK = init_array(10);
WORD_TABLE = init_ht(500);
while (1) {
v = parser_get_next(PARSER);
if (v == NULL)
break;
eval(v);
}
free(INBUF);
ht_free(WORD_TABLE);
array_free(STACK);
free(PARSER);
free(INBUF);
return 0;
}
|
