puppet 3.6.2 → 3.7.0

data/lib/puppet/vendor/rgen/lib/rgen/instantiator/json_parser.rb

@@ -0,0 +1,331 @@
+#
+# DO NOT MODIFY!!!!
+# This file is automatically generated by racc 1.4.5
+# from racc grammer file "json_parser.y".
+#
+
+require 'racc/parser'
+
+
+
+module RGen
+
+module Instantiator
+
+
+class JsonParser < Racc::Parser
+
+module_eval <<'..end json_parser.y modeval..id3d5fb611e2', 'json_parser.y', 38
+
+	ParserToken = Struct.new(:line, :file, :value)
+
+  def initialize(instantiator)
+    @instantiator = instantiator
+  end
+     	
+	def parse(str, file=nil)
+		@q = []
+		line = 1
+		
+		until str.empty?
+			case str
+				when /\A\n/
+					str = $'
+					line +=1
+				when /\A\s+/
+					str = $'
+				when /\A([-+]?\d+\.\d+)/
+					str = $'
+					@q << [:FLOAT, ParserToken.new(line, file, $1)]
+				when /\A([-+]?\d+)/
+					str = $'
+					@q << [:INTEGER, ParserToken.new(line, file, $1)]
+				when /\A"((?:[^"\\]|\\"|\\\\|\\[^"\\])*)"/
+					str = $'
+          sval = $1
+          sval.gsub!('\\\\','\\')
+          sval.gsub!('\\"','"')
+          sval.gsub!('\\n',"\n")
+          sval.gsub!('\\r',"\r")
+          sval.gsub!('\\t',"\t")
+          sval.gsub!('\\f',"\f")
+          sval.gsub!('\\b',"\b")
+					@q << [:STRING, ParserToken.new(line, file, sval)]
+				when /\A(\{|\}|\[|\]|,|:|true|false)/
+					str = $'
+					@q << [$1, ParserToken.new(line, file, $1)]
+        else
+          raise "parse error in line #{line} on "+str[0..20].inspect+"..."
+			end
+		end
+		@q.push [false, ParserToken.new(line, file, '$end')]
+		do_parse
+	end
+	
+	def next_token
+		r = @q.shift
+    r
+	end
+	
+..end json_parser.y modeval..id3d5fb611e2
+
+##### racc 1.4.5 generates ###
+
+racc_reduce_table = [
+ 0, 0, :racc_error,
+ 1, 14, :_reduce_1,
+ 3, 16, :_reduce_2,
+ 2, 16, :_reduce_3,
+ 1, 17, :_reduce_4,
+ 3, 17, :_reduce_5,
+ 3, 18, :_reduce_6,
+ 2, 18, :_reduce_7,
+ 1, 19, :_reduce_8,
+ 3, 19, :_reduce_9,
+ 3, 20, :_reduce_10,
+ 1, 15, :_reduce_11,
+ 1, 15, :_reduce_12,
+ 1, 15, :_reduce_13,
+ 1, 15, :_reduce_14,
+ 1, 15, :_reduce_15,
+ 1, 15, :_reduce_16,
+ 1, 15, :_reduce_17 ]
+
+racc_reduce_n = 18
+
+racc_shift_n = 29
+
+racc_action_table = [
+     3,    16,    17,     7,    22,     8,    21,    10,    11,     1,
+     2,     3,    12,    23,     7,    24,     8,    25,    10,    11,
+     1,     2,     3,    20,    15,     7,    17,     8,   nil,    10,
+    11,     1,     2,     3,   nil,   nil,     7,   nil,     8,   nil,
+    10,    11,     1,     2 ]
+
+racc_action_check = [
+     0,     7,     7,     0,    15,     0,    14,     0,     0,     0,
+     0,     3,     3,    17,     3,    18,     3,    19,     3,     3,
+     3,     3,    20,    13,     4,    20,    25,    20,   nil,    20,
+    20,    20,    20,    23,   nil,   nil,    23,   nil,    23,   nil,
+    23,    23,    23,    23 ]
+
+racc_action_pointer = [
+    -2,   nil,   nil,     9,    24,   nil,   nil,    -5,   nil,   nil,
+   nil,   nil,   nil,    19,     3,     4,   nil,     5,     9,    13,
+    20,   nil,   nil,    31,   nil,    19,   nil,   nil,   nil ]
+
+racc_action_default = [
+   -18,   -16,   -17,   -18,   -18,    -1,   -11,   -18,   -13,   -12,
+   -14,   -15,    -3,    -4,   -18,   -18,    -7,   -18,   -18,    -8,
+   -18,    -2,    29,   -18,    -6,   -18,    -5,   -10,    -9 ]
+
+racc_goto_table = [
+     5,    18,     4,    14,   nil,   nil,   nil,   nil,   nil,   nil,
+   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,    28,
+    26,   nil,   nil,    27 ]
+
+racc_goto_check = [
+     2,     6,     1,     4,   nil,   nil,   nil,   nil,   nil,   nil,
+   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,     6,
+     4,   nil,   nil,     2 ]
+
+racc_goto_pointer = [
+   nil,     2,     0,   nil,     0,   nil,    -6,   nil ]
+
+racc_goto_default = [
+   nil,   nil,    13,     6,   nil,     9,   nil,    19 ]
+
+racc_token_table = {
+ false => 0,
+ Object.new => 1,
+ "[" => 2,
+ "]" => 3,
+ "," => 4,
+ "{" => 5,
+ "}" => 6,
+ :STRING => 7,
+ ":" => 8,
+ :INTEGER => 9,
+ :FLOAT => 10,
+ "true" => 11,
+ "false" => 12 }
+
+racc_use_result_var = true
+
+racc_nt_base = 13
+
+Racc_arg = [
+ racc_action_table,
+ racc_action_check,
+ racc_action_default,
+ racc_action_pointer,
+ racc_goto_table,
+ racc_goto_check,
+ racc_goto_default,
+ racc_goto_pointer,
+ racc_nt_base,
+ racc_reduce_table,
+ racc_token_table,
+ racc_shift_n,
+ racc_reduce_n,
+ racc_use_result_var ]
+
+Racc_token_to_s_table = [
+'$end',
+'error',
+'"["',
+'"]"',
+'","',
+'"{"',
+'"}"',
+'STRING',
+'":"',
+'INTEGER',
+'FLOAT',
+'"true"',
+'"false"',
+'$start',
+'json',
+'value',
+'array',
+'valueList',
+'object',
+'memberList',
+'member']
+
+Racc_debug_parser = false
+
+##### racc system variables end #####
+
+ # reduce 0 omitted
+
+module_eval <<'.,.,', 'json_parser.y', 4
+  def _reduce_1( val, _values, result )
+ result = val[0]
+   result
+  end
+.,.,
+
+module_eval <<'.,.,', 'json_parser.y', 6
+  def _reduce_2( val, _values, result )
+ result = val[1]
+   result
+  end
+.,.,
+
+module_eval <<'.,.,', 'json_parser.y', 7
+  def _reduce_3( val, _values, result )
+ result = []
+   result
+  end
+.,.,
+
+module_eval <<'.,.,', 'json_parser.y', 9
+  def _reduce_4( val, _values, result )
+ result = [ val[0] ]
+   result
+  end
+.,.,
+
+module_eval <<'.,.,', 'json_parser.y', 10
+  def _reduce_5( val, _values, result )
+ result = [ val[0] ] + val[2]
+   result
+  end
+.,.,
+
+module_eval <<'.,.,', 'json_parser.y', 12
+  def _reduce_6( val, _values, result )
+ result = @instantiator.createObject(val[1])
+   result
+  end
+.,.,
+
+module_eval <<'.,.,', 'json_parser.y', 13
+  def _reduce_7( val, _values, result )
+ result = nil
+   result
+  end
+.,.,
+
+module_eval <<'.,.,', 'json_parser.y', 15
+  def _reduce_8( val, _values, result )
+ result = val[0]
+   result
+  end
+.,.,
+
+module_eval <<'.,.,', 'json_parser.y', 16
+  def _reduce_9( val, _values, result )
+ result = val[0].merge(val[2])
+   result
+  end
+.,.,
+
+module_eval <<'.,.,', 'json_parser.y', 18
+  def _reduce_10( val, _values, result )
+ result = {val[0].value => val[2]}
+   result
+  end
+.,.,
+
+module_eval <<'.,.,', 'json_parser.y', 20
+  def _reduce_11( val, _values, result )
+ result = val[0]
+   result
+  end
+.,.,
+
+module_eval <<'.,.,', 'json_parser.y', 21
+  def _reduce_12( val, _values, result )
+ result = val[0]
+   result
+  end
+.,.,
+
+module_eval <<'.,.,', 'json_parser.y', 22
+  def _reduce_13( val, _values, result )
+ result = val[0].value
+   result
+  end
+.,.,
+
+module_eval <<'.,.,', 'json_parser.y', 23
+  def _reduce_14( val, _values, result )
+ result = val[0].value.to_i
+   result
+  end
+.,.,
+
+module_eval <<'.,.,', 'json_parser.y', 24
+  def _reduce_15( val, _values, result )
+ result = val[0].value.to_f
+   result
+  end
+.,.,
+
+module_eval <<'.,.,', 'json_parser.y', 25
+  def _reduce_16( val, _values, result )
+ result = true
+   result
+  end
+.,.,
+
+module_eval <<'.,.,', 'json_parser.y', 26
+  def _reduce_17( val, _values, result )
+ result = false
+   result
+  end
+.,.,
+
+ def _reduce_none( val, _values, result )
+  result
+ end
+
+end   # class JsonParser
+
+
+end
+
+end
+

data/lib/puppet/vendor/rgen/lib/rgen/instantiator/json_parser.y

@@ -0,0 +1,94 @@
+class JsonParser
+
+rule
+
+  json: value { result = val[0] }
+
+  array: "[" valueList "]" { result = val[1] }
+    | "[" "]" { result = [] }
+
+  valueList: value { result = [ val[0] ] }
+    | value "," valueList { result = [ val[0] ] + val[2] }
+
+  object: "{" memberList "}" { result = @instantiator.createObject(val[1]) }
+    | "{" "}" { result = nil }
+
+  memberList: member { result = val[0] }
+    | member "," memberList { result = val[0].merge(val[2]) } 
+
+  member: STRING ":" value { result = {val[0].value => val[2]} }
+
+  value: array { result = val[0] }
+    | object { result = val[0] }
+    | STRING { result = val[0].value }
+    | INTEGER { result = val[0].value.to_i }
+    | FLOAT { result = val[0].value.to_f }
+    | "true" { result = true }
+    | "false" { result = false }
+
+end
+
+---- header
+
+module RGen
+
+module Instantiator
+
+---- inner
+
+	ParserToken = Struct.new(:line, :file, :value)
+
+  def initialize(instantiator)
+    @instantiator = instantiator
+  end
+     	
+	def parse(str, file=nil)
+		@q = []
+		line = 1
+		
+		until str.empty?
+			case str
+				when /\A\n/
+					str = $'
+					line +=1
+				when /\A\s+/
+					str = $'
+				when /\A([-+]?\d+\.\d+)/
+					str = $'
+					@q << [:FLOAT, ParserToken.new(line, file, $1)]
+				when /\A([-+]?\d+)/
+					str = $'
+					@q << [:INTEGER, ParserToken.new(line, file, $1)]
+				when /\A"((?:[^"\\]|\\"|\\\\|\\[^"\\])*)"/
+					str = $'
+          sval = $1
+          sval.gsub!('\\\\','\\')
+          sval.gsub!('\\"','"')
+          sval.gsub!('\\n',"\n")
+          sval.gsub!('\\r',"\r")
+          sval.gsub!('\\t',"\t")
+          sval.gsub!('\\f',"\f")
+          sval.gsub!('\\b',"\b")
+					@q << [:STRING, ParserToken.new(line, file, sval)]
+				when /\A(\{|\}|\[|\]|,|:|true|false)/
+					str = $'
+					@q << [$1, ParserToken.new(line, file, $1)]
+        else
+          raise "parse error in line #{line} on "+str[0..20].inspect+"..."
+			end
+		end
+		@q.push [false, ParserToken.new(line, file, '$end')]
+		do_parse
+	end
+	
+	def next_token
+		r = @q.shift
+    r
+	end
+	
+---- footer
+
+end
+
+end
+

data/lib/puppet/vendor/rgen/lib/rgen/instantiator/nodebased_xml_instantiator.rb

@@ -0,0 +1,137 @@
+require 'rgen/metamodel_builder'
+require 'rgen/instantiator/abstract_instantiator'
+require 'nokogiri'
+
+module RGen
+
+module Instantiator
+
+class NodebasedXMLInstantiator < AbstractInstantiator
+  
+  class << self
+
+    # The prune level is the number of parent/children associations which
+    # is kept when the instantiator ascents the XML tree.
+    # If the level is 2, information for the node's children and the childrens'
+    # children will be available as an XMLNodeDescriptor object.
+    # If the level is 0 no pruning will take place, i.e. the whole information
+    # is kept until the end of the instantiation process. 0 is default.
+    def set_prune_level(level)
+      @prune_level = level
+    end
+
+    def prune_level # :nodoc:
+      @prune_level ||= 0
+    end
+
+  end
+
+  class XMLNodeDescriptor
+    attr_reader :namespace, :qtag, :prefix, :tag, :parent, :attributes, :chardata
+    attr_accessor :object, :children
+    
+    def initialize(ns, qtag, prefix, tag, parent, children, attributes)
+      @namespace, @qtag, @prefix, @tag, @parent, @children, @attributes = 
+        ns, qtag, prefix, tag, parent, children, attributes
+      @parent.children << self if @parent
+      @chardata = []
+    end
+  end
+  
+  class Visitor < Nokogiri::XML::SAX::Document
+    attr_reader :namespaces
+      
+    def initialize(inst)
+      @instantiator = inst
+      @namespaces = {}
+    end
+    
+    def start_element_namespace(tag, attributes, prefix, uri, ns)
+      ns.each{|n| @namespaces[n[0]] = n[1]}
+      attrs = {}
+      attributes.each{|a| attrs[a.prefix ? a.prefix+":"+a.localname : a.localname] = a.value}
+      qname = prefix ? prefix+":"+tag : tag
+      @instantiator.start_element(uri, qname, prefix, tag, attrs) 
+    end
+    
+    def end_element(name)
+      @instantiator.end_element
+    end
+    
+    def characters(str)
+      @instantiator.on_chardata(str)
+    end
+  end
+  
+  def initialize(env)
+    super
+    @env = env
+    @stack = []
+  end
+  
+  def instantiate_file(file)
+    File.open(file) { |f| parse(f.read)}
+    resolve
+  end
+  
+  def instantiate(text)
+    parse(text)
+    resolve
+  end
+    
+  def parse(src)
+    @visitor = Visitor.new(self)
+    parser = Nokogiri::XML::SAX::Parser.new(@visitor)
+    parser.parse(src)
+    @visitor = nil
+  end  
+    
+  def start_element(ns, qtag, prefix, tag, attributes)
+    node = XMLNodeDescriptor.new(ns, qtag, prefix, tag, @stack[-1], [], attributes)
+    @stack.push node
+    on_descent(node)
+  end
+  
+  def end_element
+    node = @stack.pop
+    on_ascent(node)
+    prune_children(node, self.class.prune_level - 1) if self.class.prune_level > 0
+  end
+  
+  def on_chardata(str)
+    node = @stack.last
+    node.chardata << str
+  end
+
+  # This method is called when the XML parser goes down the tree.
+  # An XMLNodeDescriptor +node+ describes the current node.
+  # Implementing classes must overwrite this method.
+  def on_descent(node)
+    raise "Overwrite this method !"
+  end
+  
+  # This method is called when the XML parser goes up the tree.
+  # An XMLNodeDescriptor +node+ describes the current node.
+  # Implementing classes must overwrite this method.
+  def on_ascent(node)
+    raise "Overwrite this method !"
+  end
+
+  def namespaces
+    @visitor.namespaces if @visitor
+  end
+    
+  private
+  
+  def prune_children(node, level)
+    if level == 0
+      node.children = nil
+    else
+      node.children.each { |c| prune_children(c, level-1) }
+    end
+  end          
+end
+
+end
+
+end