blob: e6dc02ec1bb63bb387f0e6e705d920c2bd974c04 (
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
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 <stdlib.h>
#include <stdio.h>
#include <readline/readline.h>
#include <readline/history.h>
#include "lisp.h"
#include "lex.yy.h"
#include "lisp.tab.h"
value *make_int(int i) {
value *val = malloc(sizeof(value));
val->type = VALTYPE_INT;
val->as.i = i;
return val;
}
value *make_double(double d) {
value *val = malloc(sizeof(value));
val->type = VALTYPE_DOUBLE;
val->as.d = d;
return val;
}
value *make_symbol(const char *s) {
value *val = malloc(sizeof(value));
val->type = VALTYPE_SYMBOL;
val->as.sym = s;
return val;
}
value *make_string(const char *s) {
value *val = malloc(sizeof(value));
val->type = VALTYPE_STRING;
val->as.str = s;
return val;
}
value *make_nil() {
value *val = malloc(sizeof(value));
val->type = VALTYPE_NIL;
return val;
}
value *cons(value *car, value *cdr) {
value *val = malloc(sizeof(value));
val->type = VALTYPE_PAIR;
val->as.pair.car = car;
val->as.pair.cdr = cdr;
return val;
}
void *print_val(value *val){
char *str;
switch (val->type) {
case VALTYPE_INT:
printf("%d", val->as.i);
break;
case VALTYPE_DOUBLE:
printf("%f", val->as.d);
break;
case VALTYPE_SYMBOL:
printf("%s", val->as.sym);
break;
case VALTYPE_STRING:
printf("\"%s\"", val->as.str);
break;
case VALTYPE_NIL:
printf("()");
break;
case VALTYPE_PAIR:
printf("(");
print_val(val->as.pair.car);
printf(" . ");
print_val(val->as.pair.cdr);
printf(")");
default:
}
return val;
}
int main(void) {
char* line;
while ((line = readline("λ > ")) != NULL) {
if (*line) add_history(line);
yy_scan_string(line); // feed input to Flex/Bison
yyparse();
free(line);
}
return 0;
}
|
