blob: 3dfa7619216e40013e38c5851fe6f879cd70a79f (
plain) (
blame)
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
96
|
#include "include/tree.h"
tree_t* tree_init(int type) {
tree_t* tree;
tree = emalloc(sizeof(struct TREE));
tree->type = type;
switch (tree->type) {
case TREE_TYPE_BLOCK:
tree->data.block.val = NULL;
tree->data.block.nxt = NULL;
break;
case TREE_TYPE_EXPR:
tree->data.expr.val = NULL;
break;
case TREE_TYPE_LINT:
tree->data.lint.val = 0;
break;
case TREE_TYPE_LSTR:
tree->data.lstr.len = 0;
break;
case TREE_TYPE_TAG:
tree->data.tag.val = NULL;
tree->data.tag.nxt = NULL;
break;
case TREE_TYPE_DARG:
tree->data.darg.tag = NULL;
tree->data.darg.nxt = NULL;
break;
case TREE_TYPE_CARG:
tree->data.carg.val = NULL;
tree->data.carg.nxt = NULL;
break;
case TREE_TYPE_DEF:
tree->data.def.tag = NULL;
tree->data.def.arg = NULL;
tree->data.def.val = NULL;
break;
case TREE_TYPE_CAL:
tree->data.cal.target = NULL;
tree->data.cal.arg = NULL;
break;
}
return tree;
}
void tree_destroy(tree_t* tree) {
free(tree);
}
void tree_print(tree_t* tree, int nest) {
char* spaces;
int i;
for (spaces = ecalloc(nest + 1, sizeof(char)), i = 0; i < nest; spaces[i++] = ' ');
spaces[i] = '\0';
#define NEST(TEXT) log_raw("%s" TEXT "\n", spaces);
if (!tree) {
NEST("NULL");
return;
}
switch (tree->type) {
case TREE_TYPE_BLOCK:
NEST("[block]");
NEST(" - val:");
tree_print(tree->data.block.val, nest + 3);
NEST(" - nxt:");
tree_print(tree->data.block.nxt, nest + 3);
break;
case TREE_TYPE_EXPR:
NEST("[expression]");
NEST(" - val:");
tree_print(tree->data.expr.val, nest + 3);
break;
case TREE_TYPE_LINT:
log_raw("%s[lint]: %d\n", spaces, tree->data.lint.val);
break;
case TREE_TYPE_LSTR:
log_raw("%s[lstr]: %s\n", spaces, tree->data.lstr.val);
break;
case TREE_TYPE_TAG:
case TREE_TYPE_DARG:
case TREE_TYPE_CARG:
case TREE_TYPE_DEF:
case TREE_TYPE_CAL:
NEST("??");
break;
}
}
|