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
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
|
use proc_macro2::Span;
use super::{
ast::{
Alt, Call, Cat, Epsilon, Expression, Fix, Lambda, Let, Literal, NamedExpression, Variable,
},
name::Name,
};
pub trait Visitor {
type Out;
fn visit_epsilon(&mut self, name: Option<&Name>, span: Span, eps: &Epsilon) -> Self::Out;
fn visit_literal(&mut self, name: Option<&Name>, span: Span, lit: &Literal) -> Self::Out;
fn visit_cat(&mut self, name: Option<&Name>, span: Span, cat: &Cat) -> Self::Out;
fn visit_alt(&mut self, name: Option<&Name>, span: Span, alt: &Alt) -> Self::Out;
fn visit_fix(&mut self, name: Option<&Name>, span: Span, fix: &Fix) -> Self::Out;
fn visit_variable(&mut self, name: Option<&Name>, span: Span, var: &Variable) -> Self::Out;
fn visit_call(&mut self, name: Option<&Name>, span: Span, call: &Call) -> Self::Out;
fn visit_lambda(&mut self, name: Option<&Name>, span: Span, lambda: &Lambda) -> Self::Out;
fn visit_let(&mut self, name: Option<&Name>, span: Span, stmt: &Let) -> Self::Out;
}
pub trait Mapper {
type Out;
fn map_epsilon(&mut self, name: &mut Option<Name>, span: Span, eps: &mut Epsilon) -> Self::Out;
fn map_literal(&mut self, name: &mut Option<Name>, span: Span, lit: &mut Literal) -> Self::Out;
fn map_cat(&mut self, name: &mut Option<Name>, span: Span, cat: &mut Cat) -> Self::Out;
fn map_alt(&mut self, name: &mut Option<Name>, span: Span, alt: &mut Alt) -> Self::Out;
fn map_fix(&mut self, name: &mut Option<Name>, span: Span, fix: &mut Fix) -> Self::Out;
fn map_variable(
&mut self,
name: &mut Option<Name>,
span: Span,
var: &mut Variable,
) -> Self::Out;
fn map_call(&mut self, name: &mut Option<Name>, span: Span, call: &mut Call) -> Self::Out;
fn map_lambda(&mut self, name: &mut Option<Name>, span: Span, lambda: &mut Lambda)
-> Self::Out;
fn map_let(&mut self, name: &mut Option<Name>, span: Span, stmt: &mut Let) -> Self::Out;
}
pub trait Folder {
type Out;
fn fold_epsilon(&mut self, name: Option<Name>, span: Span, eps: Epsilon) -> Self::Out;
fn fold_literal(&mut self, name: Option<Name>, span: Span, lit: Literal) -> Self::Out;
fn fold_cat(&mut self, name: Option<Name>, span: Span, cat: Cat) -> Self::Out;
fn fold_alt(&mut self, name: Option<Name>, span: Span, alt: Alt) -> Self::Out;
fn fold_fix(&mut self, name: Option<Name>, span: Span, fix: Fix) -> Self::Out;
fn fold_variable(&mut self, name: Option<Name>, span: Span, var: Variable) -> Self::Out;
fn fold_call(&mut self, name: Option<Name>, span: Span, call: Call) -> Self::Out;
fn fold_lambda(&mut self, name: Option<Name>, span: Span, lambda: Lambda) -> Self::Out;
fn fold_let(&mut self, name: Option<Name>, span: Span, stmt: Let) -> Self::Out;
}
pub trait Visitable {
fn visit<V: Visitor>(&self, visitor: &mut V) -> <V as Visitor>::Out;
fn map<M: Mapper>(&mut self, mapper: &mut M) -> <M as Mapper>::Out;
fn fold<F: Folder>(self, folder: &mut F) -> <F as Folder>::Out;
}
impl<T: Visitable> Visitable for Box<T> {
fn visit<V: Visitor>(&self, visitor: &mut V) -> <V as Visitor>::Out {
self.as_ref().visit(visitor)
}
fn map<M: Mapper>(&mut self, mapper: &mut M) -> <M as Mapper>::Out {
self.as_mut().map(mapper)
}
fn fold<F: Folder>(self, folder: &mut F) -> <F as Folder>::Out {
(*self).fold(folder)
}
}
impl Visitable for NamedExpression {
fn visit<V: Visitor>(&self, visitor: &mut V) -> <V as Visitor>::Out {
match &self.expr {
Expression::Epsilon(e) => visitor.visit_epsilon(self.name.as_ref(), self.span, e),
Expression::Literal(l) => visitor.visit_literal(self.name.as_ref(), self.span, l),
Expression::Cat(c) => visitor.visit_cat(self.name.as_ref(), self.span, c),
Expression::Alt(a) => visitor.visit_alt(self.name.as_ref(), self.span, a),
Expression::Fix(f) => visitor.visit_fix(self.name.as_ref(), self.span, f),
Expression::Variable(v) => visitor.visit_variable(self.name.as_ref(), self.span, v),
Expression::Call(c) => visitor.visit_call(self.name.as_ref(), self.span, c),
Expression::Lambda(l) => visitor.visit_lambda(self.name.as_ref(), self.span, l),
Expression::Let(l) => visitor.visit_let(self.name.as_ref(), self.span, l),
}
}
fn map<M: Mapper>(&mut self, mapper: &mut M) -> <M as Mapper>::Out {
match &mut self.expr {
Expression::Epsilon(e) => mapper.map_epsilon(&mut self.name, self.span, e),
Expression::Literal(l) => mapper.map_literal(&mut self.name, self.span, l),
Expression::Cat(c) => mapper.map_cat(&mut self.name, self.span, c),
Expression::Alt(a) => mapper.map_alt(&mut self.name, self.span, a),
Expression::Fix(f) => mapper.map_fix(&mut self.name, self.span, f),
Expression::Variable(v) => mapper.map_variable(&mut self.name, self.span, v),
Expression::Call(c) => mapper.map_call(&mut self.name, self.span, c),
Expression::Lambda(l) => mapper.map_lambda(&mut self.name, self.span, l),
Expression::Let(l) => mapper.map_let(&mut self.name, self.span, l),
}
}
fn fold<F: Folder>(self, folder: &mut F) -> <F as Folder>::Out {
match self.expr {
Expression::Epsilon(e) => folder.fold_epsilon(self.name, self.span, e),
Expression::Literal(l) => folder.fold_literal(self.name, self.span, l),
Expression::Cat(c) => folder.fold_cat(self.name, self.span, c),
Expression::Alt(a) => folder.fold_alt(self.name, self.span, a),
Expression::Fix(f) => folder.fold_fix(self.name, self.span, f),
Expression::Variable(v) => folder.fold_variable(self.name, self.span, v),
Expression::Call(c) => folder.fold_call(self.name, self.span, c),
Expression::Lambda(l) => folder.fold_lambda(self.name, self.span, l),
Expression::Let(l) => folder.fold_let(self.name, self.span, l),
}
}
}
|
