blob: 34bad0074633f5b4cc81ec3cc37bdbb70765f6ab (
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
61
62
|
#include "parser.h"
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#define MAX 50
#define JUSTDO(a) \
if (!(a)) { \
perror(#a); \
exit(1); \
}
extern ht_t *WORD_TABLE;
extern array_t *STACK;
extern char *INBUF;
extern parser_t *PARSER;
/** char *get_line FILE *f
* reads an arbitrarily long line of text or until EOF
* caller must free the pointer returned after use
*/
char *get_line(FILE *f) {
int len = MAX;
char buf[MAX], *e = NULL, *ret;
JUSTDO(ret = calloc(MAX, 1));
while (fgets(buf, MAX, f)) {
if (len - strlen(ret) < MAX)
JUSTDO(ret = realloc(ret, len *= 2));
strcat(ret, buf);
if ((e = strrchr(ret, '\n')))
break;
}
if (e)
*e = '\0';
return ret;
}
int main(int argc, char **argv) {
PARSER = init_parser("");
value_t *v;
STACK = init_array(10);
WORD_TABLE = init_ht(500);
printf("exit to exit REPL;\n");
while (1) {
printf("> ");
INBUF = get_line(stdin);
parser_reset(PARSER, INBUF);
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;
}
|
