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
|
class Puppet::Parser::AST
# Define a new component. This basically just stores the
# associated parse tree by name in our current scope. Note that
# there is currently a mismatch in how we look up components -- it
# usually uses scopes, but sometimes uses '@@settypes'.
# FIXME This class should verify that each of its direct children
# has an abstractable name -- i.e., if a file does not include a
# variable in its name, then the user is essentially guaranteed to
# encounter an error if the component is instantiated more than
# once.
class CompDef < AST::Branch
attr_accessor :type, :args, :code, :scope, :parentclass
attr_writer :keyword
@keyword = "define"
class << self
attr_reader :keyword
end
def self.genclass
AST::Component
end
def each
[@type,@args,@code].each { |child| yield child }
end
# Store the parse tree.
def evaluate(hash)
scope = hash[:scope]
arghash = {:code => @code}
arghash[:type] = @type.safeevaluate(:scope => scope)
if @args
arghash[:args] = @args.safeevaluate(:scope => scope)
end
if @parentclass
arghash[:parentclass] = @parentclass.safeevaluate(:scope => scope)
end
begin
comp = self.class.genclass.new(arghash)
comp.keyword = self.keyword
scope.settype(arghash[:type], comp)
rescue Puppet::ParseError => except
except.line = self.line
except.file = self.file
raise except
rescue => detail
error = Puppet::ParseError.new(detail)
error.line = self.line
error.file = self.file
error.set_backtrace detail.backtrace
raise error
end
end
def initialize(hash)
@parentclass = nil
@args = nil
super
#if @parentclass
# Puppet.notice "Parent class of %s is %s" %
# [@type.value, @parentclass.value]
#end
#Puppet.debug "Defining type %s" % @type.value
end
def keyword
if defined? @keyword
@keyword
else
self.class.keyword
end
end
def tree(indent = 0)
return [
@type.tree(indent + 1),
((@@indline * 4 * indent) + self.typewrap("define")),
@args.tree(indent + 1),
@code.tree(indent + 1),
].join("\n")
end
def to_s
return "define %s(%s) {\n%s }" % [@type, @args, @code]
end
end
end
# $Id$
|
