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
|
#include <stdlib.h>
#include <stdio.h>
#include <unistd.h>
#include "types.h"
#include "readline.h"
#include "reader.h"
// read
MalVal *READ(char prompt[], char *str) {
char *line;
MalVal *ast;
if (str) {
line = str;
} else {
line = _readline(prompt);
if (!line) {
_error("EOF");
return NULL;
}
}
ast = read_str(line);
if (!str) { free(line); }
return ast;
}
// eval
MalVal *EVAL(MalVal *ast, GHashTable *env) {
if (!ast || mal_error) return NULL;
return ast;
}
// print
char *PRINT(MalVal *exp) {
if (mal_error) {
fprintf(stderr, "Error: %s\n", mal_error->val.string);
malval_free(mal_error);
mal_error = NULL;
return NULL;
}
return _pr_str(exp,1);
}
// repl
// read and eval
MalVal *RE(GHashTable *env, char *prompt, char *str) {
MalVal *ast, *exp;
ast = READ(prompt, str);
if (!ast || mal_error) return NULL;
exp = EVAL(ast, env);
if (ast != exp) {
malval_free(ast); // Free input structure
}
return exp;
}
int main()
{
MalVal *exp;
char *output;
char prompt[100];
// Set the initial prompt
snprintf(prompt, sizeof(prompt), "user> ");
// repl loop
for(;;) {
exp = RE(NULL, prompt, NULL);
if (mal_error && strcmp("EOF", mal_error->val.string) == 0) {
return 0;
}
output = PRINT(exp);
if (output) {
g_print("%s\n", output);
free(output); // Free output string
}
//malval_free(exp); // Free evaluated expression
}
}
|
