Class: Puppet::Pops::Model::ModelTreeDumper
Overview
Dumps a Pops::Model in reverse polish notation; i.e. LISP style The intention is to use this for debugging output TODO: BAD NAME - A DUMP is a Ruby Serialization
Instance Attribute Summary
Attributes inherited from TreeDumper
#indent_count
Instance Method Summary
collapse
Methods inherited from TreeDumper
#do_dump, #dump, #format, #format_r, #indent, #initialize
Instance Method Details
#dump_AccessExpression(o) ⇒ Object
46
47
48
49
50
51
52
|
# File 'lib/puppet/pops/model/model_tree_dumper.rb', line 46
def dump_AccessExpression o
if o.keys.size <= 1
["slice", do_dump(o.left_expr), do_dump(o.keys[0])]
else
["slice", do_dump(o.left_expr), do_dump(o.keys)]
end
end
|
#dump_AndExpression(o) ⇒ Object
98
99
100
|
# File 'lib/puppet/pops/model/model_tree_dumper.rb', line 98
def dump_AndExpression o
["&&", do_dump(o.left_expr), do_dump(o.right_expr)]
end
|
#dump_ArithmeticExpression(o) ⇒ Object
41
42
43
|
# File 'lib/puppet/pops/model/model_tree_dumper.rb', line 41
def dump_ArithmeticExpression o
[o.operator.to_s, do_dump(o.left_expr), do_dump(o.right_expr)]
end
|
#dump_Array(o) ⇒ Object
7
8
9
|
# File 'lib/puppet/pops/model/model_tree_dumper.rb', line 7
def dump_Array o
o.collect {|e| do_dump(e) }
end
|
#dump_AssignmentExpression(o) ⇒ Object
110
111
112
|
# File 'lib/puppet/pops/model/model_tree_dumper.rb', line 110
def dump_AssignmentExpression o
[o.operator.to_s, do_dump(o.left_expr), do_dump(o.right_expr)]
end
|
#dump_AttributeOperation(o) ⇒ Object
Produces (name => expr) or (name +> expr)
115
116
117
|
# File 'lib/puppet/pops/model/model_tree_dumper.rb', line 115
def dump_AttributeOperation o
[o.attribute_name, o.operator, do_dump(o.value_expr)]
end
|
#dump_AttributesOperation(o) ⇒ Object
119
120
121
|
# File 'lib/puppet/pops/model/model_tree_dumper.rb', line 119
def dump_AttributesOperation o
['* =>', do_dump(o.expr)]
end
|
#dump_BlockExpression(o) ⇒ Object
200
201
202
203
204
205
|
# File 'lib/puppet/pops/model/model_tree_dumper.rb', line 200
def dump_BlockExpression o
result = ["block", :indent]
o.statements.each {|x| result << :break; result << do_dump(x) }
result << :dedent << :break
result
end
|
#dump_CallMethodExpression(o) ⇒ Object
def dump_CallNamedFunctionExpression o
result = [o.rval_required ? "call" : "invoke", do_dump(o.functor_expr)]
o.arguments.collect {|a| result << do_dump(a) }
result
end
356
357
358
359
360
361
|
# File 'lib/puppet/pops/model/model_tree_dumper.rb', line 356
def dump_CallMethodExpression o
result = [o.rval_required ? "call-method" : "invoke-method", do_dump(o.functor_expr)]
o.arguments.collect {|a| result << do_dump(a) }
result << do_dump(o.lambda) if o.lambda
result
end
|
#dump_CallNamedFunctionExpression(o) ⇒ Object
Produces (invoke name args…) when not required to produce an rvalue, and (call name args … ) otherwise.
343
344
345
346
347
348
|
# File 'lib/puppet/pops/model/model_tree_dumper.rb', line 343
def dump_CallNamedFunctionExpression o
result = [o.rval_required ? "call" : "invoke", do_dump(o.functor_expr)]
o.arguments.collect {|a| result << do_dump(a) }
result << do_dump(o.lambda) if o.lambda
result
end
|
#dump_CaseExpression(o) ⇒ Object
363
364
365
366
367
368
369
|
# File 'lib/puppet/pops/model/model_tree_dumper.rb', line 363
def dump_CaseExpression o
result = ["case", do_dump(o.test), :indent]
o.options.each do |s|
result << :break << do_dump(s)
end
result << :dedent
end
|
#dump_CaseOption(o) ⇒ Object
371
372
373
374
375
376
|
# File 'lib/puppet/pops/model/model_tree_dumper.rb', line 371
def dump_CaseOption o
result = ["when"]
result << o.values.collect {|x| do_dump(x) }
result << ["then", do_dump(o.then_expr) ]
result
end
|
#dump_CollectExpression(o) ⇒ Object
58
59
60
61
62
63
64
65
|
# File 'lib/puppet/pops/model/model_tree_dumper.rb', line 58
def dump_CollectExpression o
result = ["collect", do_dump(o.type_expr), :indent, :break, do_dump(o.query), :indent]
o.operations do |ao|
result << :break << do_dump(ao)
end
result += [:dedent, :dedent ]
result
end
|
#dump_ComparisonExpression(o) ⇒ Object
94
95
96
|
# File 'lib/puppet/pops/model/model_tree_dumper.rb', line 94
def dump_ComparisonExpression o
[o.operator.to_s, do_dump(o.left_expr), do_dump(o.right_expr)]
end
|
#dump_ConcatenatedString(o) ⇒ Object
Interpolated strings are shown as (cat seg0 seg1 … segN)
208
209
210
|
# File 'lib/puppet/pops/model/model_tree_dumper.rb', line 208
def dump_ConcatenatedString o
["cat"] + o.segments.collect {|x| do_dump(x)}
end
|
#dump_EppExpression(o) ⇒ Object
67
68
69
70
71
72
73
74
75
76
|
# File 'lib/puppet/pops/model/model_tree_dumper.rb', line 67
def dump_EppExpression o
result = ["epp"]
if o.body
result << do_dump(o.body)
else
result << []
end
result
end
|
#dump_ExportedQuery(o) ⇒ Object
78
79
80
81
82
|
# File 'lib/puppet/pops/model/model_tree_dumper.rb', line 78
def dump_ExportedQuery o
result = ["<<| |>>"]
result += dump_QueryExpression(o) unless is_nop?(o.expr)
result
end
|
#dump_Factory(o) ⇒ Object
36
37
38
39
|
# File 'lib/puppet/pops/model/model_tree_dumper.rb', line 36
def dump_Factory o
o['locator'] ||= Puppet::Pops::Parser::Locator.locator("<not from source>", nil)
do_dump(o.model)
end
|
#dump_FunctionDefinition(o) ⇒ Object
263
264
265
266
267
268
269
270
271
272
273
|
# File 'lib/puppet/pops/model/model_tree_dumper.rb', line 263
def dump_FunctionDefinition o
result = ['function', o.name]
result << ['parameters'] + o.parameters.collect {|p| do_dump(p) } if o.parameters.size() > 0
result << ['return_type', do_dump(o.return_type)] unless o.return_type.nil?
if o.body
result << do_dump(o.body)
else
result << []
end
result
end
|
#dump_HeredocExpression(o) ⇒ Object
212
213
214
|
# File 'lib/puppet/pops/model/model_tree_dumper.rb', line 212
def dump_HeredocExpression(o)
["@(#{o.syntax})", :indent, :break, do_dump(o.text_expr), :dedent, :break]
end
|
#dump_HostClassDefinition(o) ⇒ Object
216
217
218
219
220
221
222
223
224
225
226
|
# File 'lib/puppet/pops/model/model_tree_dumper.rb', line 216
def dump_HostClassDefinition o
result = ["class", o.name]
result << ["inherits", o.parent_class] if o.parent_class
result << ["parameters"] + o.parameters.collect {|p| do_dump(p) } if o.parameters.size() > 0
if o.body
result << do_dump(o.body)
else
result << []
end
result
end
|
#dump_IfExpression(o) ⇒ Object
320
321
322
323
324
325
326
327
328
|
# File 'lib/puppet/pops/model/model_tree_dumper.rb', line 320
def dump_IfExpression o
result = ["if", do_dump(o.test), :indent, :break,
["then", :indent, do_dump(o.then_expr), :dedent]]
result +=
[:break,
["else", :indent, do_dump(o.else_expr), :dedent],
:dedent] unless is_nop? o.else_expr
result
end
|
#dump_InExpression(o) ⇒ Object
106
107
108
|
# File 'lib/puppet/pops/model/model_tree_dumper.rb', line 106
def dump_InExpression o
["in", do_dump(o.left_expr), do_dump(o.right_expr)]
end
|
#dump_KeyedEntry(o) ⇒ Object
131
132
133
|
# File 'lib/puppet/pops/model/model_tree_dumper.rb', line 131
def dump_KeyedEntry o
[do_dump(o.key), do_dump(o.value)]
end
|
#dump_LambdaExpression(o) ⇒ Object
143
144
145
146
147
148
149
150
151
152
153
|
# File 'lib/puppet/pops/model/model_tree_dumper.rb', line 143
def dump_LambdaExpression o
result = ["lambda"]
result << ["parameters"] + o.parameters.collect {|p| do_dump(p) } if o.parameters.size() > 0
result << ['return_type', do_dump(o.return_type)] unless o.return_type.nil?
if o.body
result << do_dump(o.body)
else
result << []
end
result
end
|
#dump_LiteralDefault(o) ⇒ Object
155
156
157
|
# File 'lib/puppet/pops/model/model_tree_dumper.rb', line 155
def dump_LiteralDefault o
":default"
end
|
#dump_LiteralFloat(o) ⇒ Object
11
12
13
|
# File 'lib/puppet/pops/model/model_tree_dumper.rb', line 11
def dump_LiteralFloat o
o.value.to_s
end
|
#dump_LiteralHash(o) ⇒ Object
127
128
129
|
# File 'lib/puppet/pops/model/model_tree_dumper.rb', line 127
def dump_LiteralHash o
["{}"] + o.entries.collect {|x| do_dump(x)}
end
|
#dump_LiteralInteger(o) ⇒ Object
15
16
17
18
19
20
21
22
23
24
25
26
|
# File 'lib/puppet/pops/model/model_tree_dumper.rb', line 15
def dump_LiteralInteger o
case o.radix
when 10
o.value.to_s
when 8
"0%o" % o.value
when 16
"0x%X" % o.value
else
"bad radix:" + o.value.to_s
end
end
|
#dump_LiteralList(o) ⇒ Object
123
124
125
|
# File 'lib/puppet/pops/model/model_tree_dumper.rb', line 123
def dump_LiteralList o
["[]"] + o.values.collect {|x| do_dump(x)}
end
|
#dump_LiteralRegularExpression(o) ⇒ Object
#dump_LiteralString(o) ⇒ Object
139
140
141
|
# File 'lib/puppet/pops/model/model_tree_dumper.rb', line 139
def dump_LiteralString o
"'#{o.value}'"
end
|
#dump_LiteralUndef(o) ⇒ Object
159
160
161
|
# File 'lib/puppet/pops/model/model_tree_dumper.rb', line 159
def dump_LiteralUndef o
":undef"
end
|
#dump_LiteralValue(o) ⇒ Object
28
29
30
|
# File 'lib/puppet/pops/model/model_tree_dumper.rb', line 28
def dump_LiteralValue o
o.value.to_s
end
|
#dump_MatchesExpression(o) ⇒ Object
54
55
56
|
# File 'lib/puppet/pops/model/model_tree_dumper.rb', line 54
def dump_MatchesExpression o
[o.operator.to_s, do_dump(o.left_expr), do_dump(o.right_expr)]
end
|
#dump_MatchExpression(o) ⇒ Object
135
136
137
|
# File 'lib/puppet/pops/model/model_tree_dumper.rb', line 135
def dump_MatchExpression o
[o.operator.to_s, do_dump(o.left_expr), do_dump(o.right_expr)]
end
|
#dump_NamedAccessExpression(o) ⇒ Object
171
172
173
|
# File 'lib/puppet/pops/model/model_tree_dumper.rb', line 171
def dump_NamedAccessExpression o
[".", do_dump(o.left_expr), do_dump(o.right_expr)]
end
|
#dump_NamedDefinition(o) ⇒ Object
251
252
253
254
255
256
257
258
259
260
261
|
# File 'lib/puppet/pops/model/model_tree_dumper.rb', line 251
def dump_NamedDefinition o
result = [nil, o.name]
result << ["parameters"] + o.parameters.collect {|p| do_dump(p) } if o.parameters.size() > 0
if o.body
result << do_dump(o.body)
else
result << []
end
result
end
|
#dump_NilClass(o) ⇒ Object
175
176
177
|
# File 'lib/puppet/pops/model/model_tree_dumper.rb', line 175
def dump_NilClass o
"()"
end
|
#dump_NodeDefinition(o) ⇒ Object
239
240
241
242
243
244
245
246
247
248
249
|
# File 'lib/puppet/pops/model/model_tree_dumper.rb', line 239
def dump_NodeDefinition o
result = ["node"]
result << ["matches"] + o.host_matches.collect {|m| do_dump(m) }
result << ["parent", do_dump(o.parent)] if o.parent
if o.body
result << do_dump(o.body)
else
result << []
end
result
end
|
#dump_Nop(o) ⇒ Object
167
168
169
|
# File 'lib/puppet/pops/model/model_tree_dumper.rb', line 167
def dump_Nop o
":nop"
end
|
#dump_NotExpression(o) ⇒ Object
179
180
181
|
# File 'lib/puppet/pops/model/model_tree_dumper.rb', line 179
def dump_NotExpression o
['!', dump(o.expr)]
end
|
#dump_Object(o) ⇒ Object
439
440
441
|
# File 'lib/puppet/pops/model/model_tree_dumper.rb', line 439
def dump_Object o
[o.class.to_s, o.to_s]
end
|
#dump_OrExpression(o) ⇒ Object
102
103
104
|
# File 'lib/puppet/pops/model/model_tree_dumper.rb', line 102
def dump_OrExpression o
["||", do_dump(o.left_expr), do_dump(o.right_expr)]
end
|
#dump_Parameter(o) ⇒ Object
Produces parameters as name, or (= name value)
296
297
298
299
300
301
302
303
304
305
306
307
308
|
# File 'lib/puppet/pops/model/model_tree_dumper.rb', line 296
def dump_Parameter o
name_prefix = o.captures_rest ? '*' : ''
name_part = "#{name_prefix}#{o.name}"
if o.value && o.type_expr
["=t", do_dump(o.type_expr), name_part, do_dump(o.value)]
elsif o.value
["=", name_part, do_dump(o.value)]
elsif o.type_expr
["t", do_dump(o.type_expr), name_part]
else
name_part
end
end
|
#dump_ParenthesizedExpression(o) ⇒ Object
310
311
312
|
# File 'lib/puppet/pops/model/model_tree_dumper.rb', line 310
def dump_ParenthesizedExpression o
do_dump(o.expr)
end
|
#dump_PlanDefinition(o) ⇒ Object
228
229
230
231
232
233
234
235
236
237
|
# File 'lib/puppet/pops/model/model_tree_dumper.rb', line 228
def dump_PlanDefinition o
result = ["plan", o.name]
result << ["parameters"] + o.parameters.collect {|p| do_dump(p) } if o.parameters.size() > 0
if o.body
result << do_dump(o.body)
else
result << []
end
result
end
|
#dump_Program(o) ⇒ Object
Hides that Program exists in the output (only its body is shown), the definitions are just references to contained classes, resource types, and nodes
316
317
318
|
# File 'lib/puppet/pops/model/model_tree_dumper.rb', line 316
def dump_Program(o)
dump(o.body)
end
|
#dump_QualifiedReference(o) ⇒ Object
32
33
34
|
# File 'lib/puppet/pops/model/model_tree_dumper.rb', line 32
def dump_QualifiedReference o
o.cased_value.to_s
end
|
#dump_QueryExpression(o) ⇒ Object
90
91
92
|
# File 'lib/puppet/pops/model/model_tree_dumper.rb', line 90
def dump_QueryExpression o
[do_dump(o.expr)]
end
|
#dump_RelationshipExpression(o) ⇒ Object
378
379
380
|
# File 'lib/puppet/pops/model/model_tree_dumper.rb', line 378
def dump_RelationshipExpression o
[o.operator.to_s, do_dump(o.left_expr), do_dump(o.right_expr)]
end
|
#dump_RenderExpression(o) ⇒ Object
386
387
388
|
# File 'lib/puppet/pops/model/model_tree_dumper.rb', line 386
def dump_RenderExpression o
["render", do_dump(o.expr)]
end
|
#dump_RenderStringExpression(o) ⇒ Object
382
383
384
|
# File 'lib/puppet/pops/model/model_tree_dumper.rb', line 382
def dump_RenderStringExpression o
["render-s", " '#{o.value}'"]
end
|
#dump_ReservedWord(o) ⇒ Object
291
292
293
|
# File 'lib/puppet/pops/model/model_tree_dumper.rb', line 291
def dump_ReservedWord o
[ 'reserved', o.word ]
end
|
#dump_ResourceBody(o) ⇒ Object
390
391
392
393
394
395
396
397
|
# File 'lib/puppet/pops/model/model_tree_dumper.rb', line 390
def dump_ResourceBody o
result = [do_dump(o.title), :indent]
o.operations.each do |p|
result << :break << do_dump(p)
end
result << :dedent
result
end
|
#dump_ResourceDefaultsExpression(o) ⇒ Object
399
400
401
402
403
404
405
406
407
|
# File 'lib/puppet/pops/model/model_tree_dumper.rb', line 399
def dump_ResourceDefaultsExpression o
form = o.form == 'regular' ? '' : o.form + '-'
result = [form+'resource-defaults', do_dump(o.type_ref), :indent]
o.operations.each do |p|
result << :break << do_dump(p)
end
result << :dedent
result
end
|
#dump_ResourceExpression(o) ⇒ Object
409
410
411
412
413
414
415
416
417
|
# File 'lib/puppet/pops/model/model_tree_dumper.rb', line 409
def dump_ResourceExpression o
form = o.form == 'regular' ? '' : o.form + '-'
result = [form+'resource', do_dump(o.type_name), :indent]
o.bodies.each do |b|
result << :break << do_dump(b)
end
result << :dedent
result
end
|
#dump_ResourceOverrideExpression(o) ⇒ Object
281
282
283
284
285
286
287
288
289
|
# File 'lib/puppet/pops/model/model_tree_dumper.rb', line 281
def dump_ResourceOverrideExpression o
form = o.form == 'regular' ? '' : o.form + '-'
result = [form+'override', do_dump(o.resources), :indent]
o.operations.each do |p|
result << :break << do_dump(p)
end
result << :dedent
result
end
|
#dump_ResourceTypeDefinition(o) ⇒ Object
275
276
277
278
279
|
# File 'lib/puppet/pops/model/model_tree_dumper.rb', line 275
def dump_ResourceTypeDefinition o
result = dump_NamedDefinition(o)
result[0] = 'define'
result
end
|
#dump_SelectorEntry(o) ⇒ Object
423
424
425
|
# File 'lib/puppet/pops/model/model_tree_dumper.rb', line 423
def dump_SelectorEntry o
[do_dump(o.matching_expr), "=>", do_dump(o.value_expr)]
end
|
#dump_SelectorExpression(o) ⇒ Object
419
420
421
|
# File 'lib/puppet/pops/model/model_tree_dumper.rb', line 419
def dump_SelectorExpression o
["?", do_dump(o.left_expr)] + o.selectors.collect {|x| do_dump(x) }
end
|
#dump_TextExpression(o) ⇒ Object
Interpolation (to string) shown as (str expr)
188
189
190
|
# File 'lib/puppet/pops/model/model_tree_dumper.rb', line 188
def dump_TextExpression o
["str", do_dump(o.expr)]
end
|
#dump_TypeAlias(o) ⇒ Object
427
428
429
|
# File 'lib/puppet/pops/model/model_tree_dumper.rb', line 427
def dump_TypeAlias(o)
['type-alias', o.name, do_dump(o.type_expr)]
end
|
#dump_TypeDefinition(o) ⇒ Object
435
436
437
|
# File 'lib/puppet/pops/model/model_tree_dumper.rb', line 435
def dump_TypeDefinition(o)
['type-definition', o.name, o.parent, do_dump(o.body)]
end
|
#dump_TypeMapping(o) ⇒ Object
431
432
433
|
# File 'lib/puppet/pops/model/model_tree_dumper.rb', line 431
def dump_TypeMapping(o)
['type-mapping', do_dump(o.type_expr), do_dump(o.mapping_expr)]
end
|
#dump_UnaryMinusExpression(o) ⇒ Object
192
193
194
|
# File 'lib/puppet/pops/model/model_tree_dumper.rb', line 192
def dump_UnaryMinusExpression o
['-', do_dump(o.expr)]
end
|
#dump_UnfoldExpression(o) ⇒ Object
196
197
198
|
# File 'lib/puppet/pops/model/model_tree_dumper.rb', line 196
def dump_UnfoldExpression o
['unfold', do_dump(o.expr)]
end
|
#dump_UnlessExpression(o) ⇒ Object
330
331
332
333
334
335
336
337
338
|
# File 'lib/puppet/pops/model/model_tree_dumper.rb', line 330
def dump_UnlessExpression o
result = ["unless", do_dump(o.test), :indent, :break,
["then", :indent, do_dump(o.then_expr), :dedent]]
result +=
[:break,
["else", :indent, do_dump(o.else_expr), :dedent],
:dedent] unless is_nop? o.else_expr
result
end
|
#dump_VariableExpression(o) ⇒ Object
183
184
185
|
# File 'lib/puppet/pops/model/model_tree_dumper.rb', line 183
def dump_VariableExpression o
"$#{dump(o.expr)}"
end
|
#dump_VirtualQuery(o) ⇒ Object
84
85
86
87
88
|
# File 'lib/puppet/pops/model/model_tree_dumper.rb', line 84
def dump_VirtualQuery o
result = ["<| |>"]
result += dump_QueryExpression(o) unless is_nop?(o.expr)
result
end
|
#is_nop?(o) ⇒ Boolean
443
444
445
|
# File 'lib/puppet/pops/model/model_tree_dumper.rb', line 443
def is_nop? o
o.nil? || o.is_a?(Puppet::Pops::Model::Nop)
end
|