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
97
98
99
100
101
102
103
104
105
106
107
108
109
110
|
/*
*/
#include <hir/expr.hpp>
::HIR::ExprNode::~ExprNode()
{
}
#define DEF_VISIT(nt, n, code) void ::HIR::nt::visit(ExprVisitor& nv) { nv.visit(*this); } void ::HIR::ExprVisitorDef::visit(::HIR::nt& n) { code }
DEF_VISIT(ExprNode_Block, node,
for(const auto& subnode : node.m_nodes)
subnode->visit(*this);
)
DEF_VISIT(ExprNode_Return, node,
node.m_value->visit(*this);
)
DEF_VISIT(ExprNode_Let, node,
if( node.m_value ) {
node.m_value->visit(*this);
}
)
DEF_VISIT(ExprNode_Loop, node,
node.m_code->visit(*this);
)
DEF_VISIT(ExprNode_LoopControl, , )
DEF_VISIT(ExprNode_Match, node,
node.m_value->visit(*this);
for(auto& arm : node.m_arms)
{
if( arm.m_cond )
arm.m_cond->visit(*this);
arm.m_code->visit(*this);
}
)
DEF_VISIT(ExprNode_If, node,
node.m_cond->visit(*this);
node.m_true->visit(*this);
if( node.m_false )
node.m_false->visit(*this);
)
DEF_VISIT(ExprNode_Assign, node,
node.m_slot->visit(*this);
node.m_value->visit(*this);
)
DEF_VISIT(ExprNode_BinOp, node,
node.m_left->visit(*this);
node.m_right->visit(*this);
)
DEF_VISIT(ExprNode_UniOp, node,
node.m_value->visit(*this);
)
DEF_VISIT(ExprNode_Cast, node,
node.m_value->visit(*this);
)
DEF_VISIT(ExprNode_Index, node,
node.m_val->visit(*this);
node.m_index->visit(*this);
)
DEF_VISIT(ExprNode_Deref, node,
node.m_val->visit(*this);
)
DEF_VISIT(ExprNode_CallPath, node,
for(auto& arg : node.m_args)
arg->visit(*this);
)
DEF_VISIT(ExprNode_CallValue, node,
node.m_val->visit(*this);
for(auto& arg : node.m_args)
arg->visit(*this);
)
DEF_VISIT(ExprNode_CallMethod, node,
node.m_val->visit(*this);
for(auto& arg : node.m_args)
arg->visit(*this);
)
DEF_VISIT(ExprNode_Field, node,
node.m_val->visit(*this);
)
DEF_VISIT(ExprNode_Literal, , )
DEF_VISIT(ExprNode_PathValue, , )
DEF_VISIT(ExprNode_Variable, , )
DEF_VISIT(ExprNode_StructLiteral, node,
if( node.m_base_value )
node.m_base_value->visit(*this);
for(auto& val : node.m_values)
val.second->visit( *this );
)
DEF_VISIT(ExprNode_Tuple, node,
for(auto& val : node.m_vals)
val->visit( *this );
)
DEF_VISIT(ExprNode_ArrayList, node,
for(auto& val : node.m_vals)
val->visit( *this );
)
DEF_VISIT(ExprNode_ArraySized, node,
node.m_val->visit( *this );
node.m_size->visit( *this );
)
DEF_VISIT(ExprNode_Closure, node,
node.m_code->visit( *this );
)
#undef DEF_VISIT
|
