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
|
#include <stdio.h>
#include <lyn/ast.h>
#define dump(depth, fmt, ...) \
do { \
printf("//%*s", 2 * depth, ""); \
printf(fmt,##__VA_ARGS__); \
} while (0)
void ast_dump(int depth, struct lyn_value val)
{
switch (val.kind) {
case LYN_ID: dump(depth, "%s\n", val.s); return;
case LYN_STR: dump(depth, "\"%s\"\n", val.s); return;
case LYN_INT: dump(depth, "%lld\n", val.i); return;
case LYN_FLOAT: dump(depth, "%f\n", val.d); return;
case LYN_CMD:
dump(depth, "CMD\n");
foreach_vec(ci, val.args) {
struct lyn_value v = vect_at(struct lyn_value, val.args, ci);
ast_dump(depth + 1, v);
}
return;
case LYN_APPLY:
dump(depth, "APPLY\n");
foreach_vec(ai, val.args) {
struct lyn_value v = vect_at(struct lyn_value, val.args, ai);
ast_dump(depth + 1, v);
}
return;
case LYN_GROUP:
dump(depth, "GROUP\n");
foreach_vec(gi, val.args) {
struct lyn_value v = vect_at(struct lyn_value, val.args, gi);
ast_dump(depth + 1, v);
}
return;
default: abort();
}
}
|
