Class: Opal::Rewriters::PatternMatching::PatternConverter

118
119
120
121

# File 'opal/lib/opal/rewriters/pattern_matching.rb', line 118
def initialize(pat)
 @pat = pat
 @variables = []
end

197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219

# File 'opal/lib/opal/rewriters/pattern_matching.rb', line 197
def on_array_pattern(node, tail = false)
 children = *node
 children << s(:match_rest) if tail
 fixed_size = true
 array_size = 0
 children = children.each do |i|
 case i.type
 when :match_rest
 fixed_size = false
 else
 array_size += 1
 end
 end
 array(
 s(:sym, :array),
 to_ast(fixed_size),
 to_ast(array_size),
 to_ast(children.map(&method(:process)))
 )
end

222
223
224

# File 'opal/lib/opal/rewriters/pattern_matching.rb', line 222
def on_array_pattern_with_tail(node)
 on_array_pattern(node, true)
end

192
193
194

# File 'opal/lib/opal/rewriters/pattern_matching.rb', line 192
def on_const_pattern(node)
 array(s(:sym, :all), *node.children.map(&method(:process)))
end

256
257
258
259
260
261
262

# File 'opal/lib/opal/rewriters/pattern_matching.rb', line 256
def on_find_pattern(node)
 children = *node
 children = children.map(&method(:process))
 array(s(:sym, :find), array(*children))
end

227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253

# File 'opal/lib/opal/rewriters/pattern_matching.rb', line 227
def on_hash_pattern(node)
 children = *node
 any_size = children.empty? ? to_ast(false) : to_ast(true)
 children = children.map do |i|
 case i.type
 when :pair
 array(i.children[0], process(i.children[1]))
 when :match_var
 array(s(:sym, i.children[0]), process(i))
 when :match_nil_pattern
 any_size = to_ast(false)
 nil
 when :match_rest
 # Capturing rest?
 if i.children.first
 any_size = process(i.children.first)
 else
 any_size = to_ast(true)
 end
 nil
 end
 end.compact
 array(s(:sym, :hash), any_size, array(*children))
end

152
153
154

# File 'opal/lib/opal/rewriters/pattern_matching.rb', line 152
def on_literal(node)
 array(s(:sym, :lit), node)
end

187
188
189

# File 'opal/lib/opal/rewriters/pattern_matching.rb', line 187
def on_match_alt(node)
 array(s(:sym, :any), *node.children.map(&method(:process)))
end

145
146
147
148
149
150

# File 'opal/lib/opal/rewriters/pattern_matching.rb', line 145
def on_match_as(node)
 pat, save = *node
 process(save)
 array(s(:sym, :save), process(pat))
end

178
179
180
181
182
183
184

# File 'opal/lib/opal/rewriters/pattern_matching.rb', line 178
def on_match_rest(node)
 if node.children.empty?
 array(s(:sym, :rest))
 else
 array(s(:sym, :rest), process(node.children.first))
 end
end

136
137
138
139
140
141
142

# File 'opal/lib/opal/rewriters/pattern_matching.rb', line 136
def on_match_var(node)
 var, = *node
 @variables << var
 s(:sym, :var)
end

173
174
175

# File 'opal/lib/opal/rewriters/pattern_matching.rb', line 173
def on_pin(node)
 on_literal(node.children.first)
end

127
128
129

# File 'opal/lib/opal/rewriters/pattern_matching.rb', line 127
def pattern
 @outpat
end

123
124
125

# File 'opal/lib/opal/rewriters/pattern_matching.rb', line 123
def run!
 @outpat = process(@pat)
end

131
132
133

# File 'opal/lib/opal/rewriters/pattern_matching.rb', line 131
def variables
 @variables.map { |i| s(:lvasgn, i) }
end