puppet 0.25.5 → 2.6.0

data/lib/puppet/external/nagios/parser.rb

@@ -7,8 +7,8 @@
 # parser.rb: generated by racc (runtime embedded)
 #
 ###### racc/parser.rb begin
-unless $".index 'racc/parser.rb'
-$".push 'racc/parser.rb'
+unless $LOADED_FEATURES.index 'racc/parser.rb'
+$LOADED_FEATURES.push 'racc/parser.rb'
 
 self.class.module_eval <<'..end racc/parser.rb modeval..id5256434e8a', 'racc/parser.rb', 1
 #
@@ -24,22 +24,16 @@ self.class.module_eval <<'..end racc/parser.rb modeval..id5256434e8a', 'racc/par
 # without restriction.
 #
 
-unless defined?(NotImplementedError)
-  NotImplementedError = NotImplementError
-end
+NotImplementedError = NotImplementError unless defined?(NotImplementedError)
 
 module Racc
   class ParseError < StandardError; end
 end
-unless defined?(::ParseError)
-  ParseError = Racc::ParseError
-end
+ParseError = Racc::ParseError unless defined?(::ParseError)
 
 module Racc
 
-  unless defined?(Racc_No_Extentions)
-    Racc_No_Extentions = false
-  end
+  Racc_No_Extentions = false unless defined?(Racc_No_Extentions)
 
   class Parser
 
@@ -52,12 +46,8 @@ module Racc
       require 'racc/cparse'
     # Racc_Runtime_Core_Version_C  = (defined in extention)
       Racc_Runtime_Core_Revision_C = Racc_Runtime_Core_Id_C.split[2]
-      unless new.respond_to?(:_racc_do_parse_c, true)
-        raise LoadError, 'old cparse.so'
-      end
-      if Racc_No_Extentions
-        raise LoadError, 'selecting ruby version of racc runtime core'
-      end
+      raise LoadError, 'old cparse.so' unless new.respond_to?(:_racc_do_parse_c, true)
+      raise LoadError, 'selecting ruby version of racc runtime core' if Racc_No_Extentions
 
       Racc_Main_Parsing_Routine    = :_racc_do_parse_c
       Racc_YY_Parse_Method         = :_racc_yyparse_c
@@ -80,9 +70,9 @@ module Racc
 
     def _racc_setup
       @yydebug = false unless self.class::Racc_debug_parser
-      @yydebug = false unless defined?(@yydebug)
+      @yydebug ||= false
       if @yydebug
-        @racc_debug_out = $stderr unless defined?(@racc_debug_out)
+        @racc_debug_out ||= $stderr
         @racc_debug_out ||= $stderr
       end
       arg = self.class::Racc_arg
@@ -109,7 +99,7 @@ module Racc
     ###
 
     def do_parse
-      __send__(Racc_Main_Parsing_Routine, _racc_setup(), false)
+      __send__(Racc_Main_Parsing_Routine, _racc_setup, false)
     end
 
     def next_token
@@ -128,32 +118,32 @@ module Racc
 
       catch(:racc_end_parse) {
         while true
-          if i = action_pointer[@racc_state[-1]]
-            if @racc_read_next
-              if @racc_t != 0   # not EOF
-                tok, @racc_val = next_token()
-                unless tok      # EOF
-                  @racc_t = 0
-                else
-                  @racc_t = (token_table[tok] or 1)   # error token
-                end
-                racc_read_token(@racc_t, tok, @racc_val) if @yydebug
-                @racc_read_next = false
+        if i = action_pointer[@racc_state[-1]]
+          if @racc_read_next
+            if @racc_t != 0   # not EOF
+              tok, @racc_val = next_token
+              unless tok      # EOF
+                @racc_t = 0
+              else
+                @racc_t = (token_table[tok] or 1)   # error token
               end
+              racc_read_token(@racc_t, tok, @racc_val) if @yydebug
+              @racc_read_next = false
             end
-            i += @racc_t
-            unless i >= 0 and
-                   act = action_table[i] and
-                   action_check[i] == @racc_state[-1]
-              act = action_default[@racc_state[-1]]
-            end
-          else
-            act = action_default[@racc_state[-1]]
           end
-          while act = _racc_evalact(act, arg)
-            ;
+          i += @racc_t
+          unless i >= 0 and
+            act = action_table[i] and
+            action_check[i] == @racc_state[-1]
+            act = action_default[@racc_state[-1]]
           end
+        else
+          act = action_default[@racc_state[-1]]
         end
+        while act = _racc_evalact(act, arg)
+          ;
+        end
+      end
       }
     end
 
@@ -162,7 +152,7 @@ module Racc
     ###
 
     def yyparse(recv, mid)
-      __send__(Racc_YY_Parse_Method, recv, mid, _racc_setup(), true)
+      __send__(Racc_YY_Parse_Method, recv, mid, _racc_setup, true)
     end
 
     def _racc_yyparse_rb(recv, mid, arg, c_debug)
@@ -179,43 +169,43 @@ module Racc
 
       catch(:racc_end_parse) {
         until i = action_pointer[@racc_state[-1]]
-          while act = _racc_evalact(action_default[@racc_state[-1]], arg)
-            ;
-          end
+        while act = _racc_evalact(action_default[@racc_state[-1]], arg)
+          ;
+        end
+      end
+      recv.__send__(mid) do |tok, val|
+        unless tok
+          @racc_t = 0
+        else
+          @racc_t = (token_table[tok] or 1)   # error token
+        end
+        @racc_val = val
+        @racc_read_next = false
+
+        i += @racc_t
+        unless i >= 0 and
+          act = action_table[i] and
+          action_check[i] == @racc_state[-1]
+          act = action_default[@racc_state[-1]]
+        end
+        while act = _racc_evalact(act, arg)
+          ;
         end
-        recv.__send__(mid) do |tok, val|
-          unless tok
-            @racc_t = 0
-          else
-            @racc_t = (token_table[tok] or 1)   # error token
-          end
-          @racc_val = val
-          @racc_read_next = false
-
-          i += @racc_t
-          unless i >= 0 and
-                 act = action_table[i] and
-                 action_check[i] == @racc_state[-1]
-            act = action_default[@racc_state[-1]]
-          end
-          while act = _racc_evalact(act, arg)
-            ;
-          end
 
-          while not (i = action_pointer[@racc_state[-1]]) or
-                not @racc_read_next or
-                @racc_t == 0   # $
-            unless i and i += @racc_t and
-                   i >= 0 and
-                   act = action_table[i] and
-                   action_check[i] == @racc_state[-1]
-              act = action_default[@racc_state[-1]]
-            end
-            while act = _racc_evalact(act, arg)
-              ;
-            end
-          end
+        while not (i = action_pointer[@racc_state[-1]]) or
+          not @racc_read_next or
+          @racc_t == 0   # $
+          unless i and i += @racc_t and
+            i >= 0 and
+            act = action_table[i] and
+            action_check[i] == @racc_state[-1]
+          act = action_default[@racc_state[-1]]
+        end
+        while act = _racc_evalact(act, arg)
+          ;
+        end
         end
+      end
       }
     end
 
@@ -294,8 +284,8 @@ module Racc
           if i = action_pointer[@racc_state[-1]]
             i += 1   # error token
             if  i >= 0 and
-                (act = action_table[i]) and
-                action_check[i] == @racc_state[-1]
+              (act = action_table[i]) and
+              action_check[i] == @racc_state[-1]
               break
             end
           end
@@ -360,8 +350,7 @@ module Racc
     end
 
     def on_error(t, val, vstack)
-      raise ParseError, sprintf("\nparse error on value %s (%s)",
-                                val.inspect, token_to_str(t) || '?')
+      raise ParseError, sprintf("\nparse error on value %s (%s)", val.inspect, token_to_str(t) || '?')
     end
 
     def yyerror
@@ -443,7 +432,7 @@ module Racc
 
     def racc_token2str(tok)
       self.class::Racc_token_to_s_table[tok] or
-          raise "[Racc Bug] can't convert token #{tok} to string"
+        raise "[Racc Bug] can't convert token #{tok} to string"
     end
 
     def token_to_str(t)
@@ -467,219 +456,207 @@ module_eval <<'..end grammar.ry modeval..idcb2ea30b34', 'grammar.ry', 57
 class ::Nagios::Parser::SyntaxError < RuntimeError; end
 
 def parse(src)
-	@src = src
+  @src = src
 
-	# state variables
-	@invar = false
-	@inobject = false
-	@done = false
+  # state variables
+  @invar = false
+  @inobject = false
+  @done = false
 
-	@line = 0
-	@yydebug = true
+  @line = 0
+  @yydebug = true
 
-    do_parse
+  do_parse
 end
 
 # The lexer.  Very simple.
 def token
-	@src.sub!(/\A\n/,'')
-	if $&
-		@line += 1
-		return [ :RETURN, "\n" ]
-	end
-
-	if @done
-		return nil
-	end
-	yytext = String.new
-
-
-	# remove comments from this line
-	@src.sub!(/\A[ \t]*;.*\n/,"\n")
-	if $&
-		return [:INLINECOMMENT, ""]
-	end
-
-	@src.sub!(/\A#.*\n/,"\n")
-	if $&
-		return [:COMMENT, ""]
-	end
-
-	@src.sub!(/#.*/,'')
-
-	if @src.length == 0
-		@done = true
-		return [false, '$']
-	end
-
-	if @invar
-		@src.sub!(/\A[ \t]+/,'')
-		@src.sub!(/\A([^;\n]+)(\n|;)/,'\2')
-		if $1
-			yytext += $1
-		end
-		@invar = false
-		return [:VALUE, yytext]
-	else
-		@src.sub!(/\A[\t ]*(\S+)([\t ]*|$)/,'')
-        if $1
-            yytext = $1
-            case yytext
-            when 'define'
-                #puts "got define"
-                return [:DEFINE, yytext]
-            when '{'
-                #puts "got {"
-                @inobject = true
-                return [:LCURLY, yytext]
-            else
-                unless @inobject
-                    #puts "got type: #{yytext}"
-                    if yytext =~ /\W/
-                        giveback = yytext.dup
-                        giveback.sub!(/^\w+/,'')
-                        #puts "giveback " + giveback
-                        #puts "yytext " + yytext
-                        yytext.sub!(/\W.*$/,'')
-                        #puts "yytext " + yytext
-                        #puts "all [#{giveback} #{yytext} #{orig}]"
-                        @src = giveback + @src
-                    end
-                    return [:NAME, yytext]
-                else
-                    if yytext == '}'
-                        #puts "got closure: #{yytext}"
-                        @inobject = false
-                        return [:RCURLY, '}']
-                    end
-
-                    unless @invar
-                        @invar = true
-                        return [:PARAM, $1]
-                    else
-                    end
-                end
-            end
+  @src.sub!(/\A\n/,'')
+  if $MATCH
+    @line += 1
+    return [ :RETURN, "\n" ]
+    end
+
+    return nil if @done
+    yytext = String.new
+
+
+    # remove comments from this line
+    @src.sub!(/\A[ \t]*;.*\n/,"\n")
+    return [:INLINECOMMENT, ""] if $MATCH
+
+    @src.sub!(/\A#.*\n/,"\n")
+    return [:COMMENT, ""] if $MATCH
+
+    @src.sub!(/#.*/,'')
+
+    if @src.length == 0
+      @done = true
+      return [false, '$']
+    end
+
+    if @invar
+      @src.sub!(/\A[ \t]+/,'')
+      @src.sub!(/\A([^;\n]+)(\n|;)/,'\2')
+      if $1
+        yytext += $1
+        end
+        @invar = false
+        return [:VALUE, yytext]
+    else
+      @src.sub!(/\A[\t ]*(\S+)([\t ]*|$)/,'')
+    if $1
+      yytext = $1
+      case yytext
+      when 'define'
+        #puts "got define"
+        return [:DEFINE, yytext]
+      when '{'
+        #puts "got {"
+        @inobject = true
+        return [:LCURLY, yytext]
+      else
+        unless @inobject
+          #puts "got type: #{yytext}"
+          if yytext =~ /\W/
+            giveback = yytext.dup
+            giveback.sub!(/^\w+/,'')
+            #puts "giveback #{giveback}"
+            #puts "yytext #{yytext}"
+            yytext.sub!(/\W.*$/,'')
+            #puts "yytext #{yytext}"
+            #puts "all [#{giveback} #{yytext} #{orig}]"
+            @src = giveback + @src
+          end
+          return [:NAME, yytext]
+        else
+          if yytext == '}'
+            #puts "got closure: #{yytext}"
+            @inobject = false
+            return [:RCURLY, '}']
+          end
+
+          unless @invar
+            @invar = true
+            return [:PARAM, $1]
+          else
+          end
         end
-	end
+      end
+    end
+    end
 end
 
 def next_token
-	token
+  token
 end
 
 def yydebug
-    1
+  1
 end
 
 def yywrap
-    0
+  0
 end
 
 def on_error(token, value, vstack )
-	msg = ""
-	unless value.nil?
-		msg = "line #{@line}: syntax error at '#{value}'"
-	else
-		msg = "line #{@line}: syntax error at '#{token}'"
-	end
-	unless @src.size > 0
-		msg = "line #{@line}: Unexpected end of file"
-	end
-	if token == '$end'.intern
-		puts "okay, this is silly"
-	else
-		raise ::Nagios::Parser::SyntaxError, msg
-	end
+  msg = ""
+  unless value.nil?
+    msg = "line #{@line}: syntax error at '#{value}'"
+    else
+      msg = "line #{@line}: syntax error at '#{token}'"
+    end
+    msg = "line #{@line}: Unexpected end of file" unless @src.size > 0
+    if token == '$end'.intern
+      puts "okay, this is silly"
+    else
+      raise ::Nagios::Parser::SyntaxError, msg
+    end
 end
 ..end grammar.ry modeval..idcb2ea30b34
 
 ##### racc 1.4.5 generates ###
 
 racc_reduce_table = [
- 0, 0, :racc_error,
- 1, 13, :_reduce_1,
- 2, 13, :_reduce_2,
- 1, 14, :_reduce_3,
- 1, 14, :_reduce_4,
- 1, 14, :_reduce_none,
- 2, 16, :_reduce_6,
- 6, 15, :_reduce_7,
- 1, 17, :_reduce_none,
- 2, 17, :_reduce_9,
- 4, 18, :_reduce_10,
- 1, 20, :_reduce_none,
- 2, 20, :_reduce_none,
- 0, 19, :_reduce_none,
- 1, 19, :_reduce_none ]
+  0, 0, :racc_error,
+  1, 13, :_reduce_1,
+  2, 13, :_reduce_2,
+  1, 14, :_reduce_3,
+  1, 14, :_reduce_4,
+  1, 14, :_reduce_none,
+  2, 16, :_reduce_6,
+  6, 15, :_reduce_7,
+  1, 17, :_reduce_none,
+  2, 17, :_reduce_9,
+  4, 18, :_reduce_10,
+  1, 20, :_reduce_none,
+  2, 20, :_reduce_none,
+  0, 19, :_reduce_none,
+  1, 19, :_reduce_none ]
 
 racc_reduce_n = 15
 
 racc_shift_n = 26
 
 racc_action_table = [
-     9,    15,     1,    20,     1,    14,    12,    13,    11,     6,
-     7,     6,     7,    15,    18,     8,    21,    23,    25 ]
+  9,    15,     1,    20,     1,    14,    12,    13,    11,     6,
+  7,     6,     7,    15,    18,     8,    21,    23,    25 ]
 
 racc_action_check = [
-     2,    16,     2,    16,     0,    12,     8,     9,     7,     2,
-     2,     0,     0,    14,    15,     1,    18,    22,    24 ]
+  2,    16,     2,    16,     0,    12,     8,     9,     7,     2,
+  2,     0,     0,    14,    15,     1,    18,    22,    24 ]
 
 racc_action_pointer = [
-     2,    12,     0,   nil,   nil,   nil,   nil,    -1,     0,     7,
-   nil,   nil,    -4,   nil,     8,     6,    -4,   nil,     5,   nil,
-   nil,   nil,     8,   nil,     9,   nil ]
+  2,    12,     0,   nil,   nil,   nil,   nil,    -1,     0,     7,
+  nil,   nil,    -4,   nil,     8,     6,    -4,   nil,     5,   nil,
+  nil,   nil,     8,   nil,     9,   nil ]
 
 racc_action_default = [
-   -15,   -15,   -15,    -1,    -3,    -5,    -4,   -15,   -15,   -15,
-    -2,    -6,   -15,    26,   -15,   -15,   -15,    -8,   -13,    -9,
-    -7,   -14,   -15,   -11,   -10,   -12 ]
+  -15,   -15,   -15,    -1,    -3,    -5,    -4,   -15,   -15,   -15,
+  -2,    -6,   -15,    26,   -15,   -15,   -15,    -8,   -13,    -9,
+  -7,   -14,   -15,   -11,   -10,   -12 ]
 
-racc_goto_table = [
-    17,     3,    19,    10,     2,    16,    22,    24 ]
+racc_goto_table = [ 17,     3,    19,    10,     2,    16,    22,    24 ]
 
-racc_goto_check = [
-     6,     2,     6,     2,     1,     5,     7,     8 ]
+racc_goto_check = [ 6,     2,     6,     2,     1,     5,     7,     8 ]
 
-racc_goto_pointer = [
-   nil,     4,     1,   nil,   nil,    -9,   -14,   -12,   -15 ]
+racc_goto_pointer = [ nil,     4,     1,   nil,   nil,    -9,   -14,   -12,   -15 ]
 
-racc_goto_default = [
-   nil,   nil,   nil,     4,     5,   nil,   nil,   nil,   nil ]
+racc_goto_default = [ nil,   nil,   nil,     4,     5,   nil,   nil,   nil,   nil ]
 
 racc_token_table = {
- false => 0,
- Object.new => 1,
- :DEFINE => 2,
- :NAME => 3,
- :STRING => 4,
- :PARAM => 5,
- :LCURLY => 6,
- :RCURLY => 7,
- :VALUE => 8,
- :RETURN => 9,
- :COMMENT => 10,
- :INLINECOMMENT => 11 }
+  false => 0,
+  Object.new => 1,
+  :DEFINE => 2,
+  :NAME => 3,
+  :STRING => 4,
+  :PARAM => 5,
+  :LCURLY => 6,
+  :RCURLY => 7,
+  :VALUE => 8,
+  :RETURN => 9,
+  :COMMENT => 10,
+  :INLINECOMMENT => 11 }
 
 racc_use_result_var = true
 
 racc_nt_base = 12
 
 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_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',
@@ -708,91 +685,91 @@ Racc_debug_parser = false
 
 ##### racc system variables end #####
 
- # reduce 0 omitted
+# reduce 0 omitted
 
 module_eval <<'.,.,', 'grammar.ry', 6
   def _reduce_1( val, _values, result )
- return val[0] if val[0]
-   result
-  end
+return val[0] if val[0]
+  result
+end
 .,.,
 
 module_eval <<'.,.,', 'grammar.ry', 18
   def _reduce_2( val, _values, result )
-		if val[1].nil?
-			result = val[0]
-		else
-			if val[0].nil?
-				result = val[1]
-			else
-				result = [ val[0], val[1] ].flatten
-			end
-		end
-   result
+    if val[1].nil?
+      result = val[0]
+        else
+          if val[0].nil?
+            result = val[1]
+              else
+                result = [ val[0], val[1] ].flatten
+              end
+          end
+  result
   end
 .,.,
 
 module_eval <<'.,.,', 'grammar.ry', 20
   def _reduce_3( val, _values, result )
- result = [val[0]]
-   result
-  end
+result = [val[0]]
+  result
+end
 .,.,
 
 module_eval <<'.,.,', 'grammar.ry', 21
   def _reduce_4( val, _values, result )
- result = nil
-   result
-  end
+result = nil
+  result
+end
 .,.,
 
- # reduce 5 omitted
+# reduce 5 omitted
 
 module_eval <<'.,.,', 'grammar.ry', 25
   def _reduce_6( val, _values, result )
- result = nil
-   result
-  end
+result = nil
+  result
+end
 .,.,
 
 module_eval <<'.,.,', 'grammar.ry', 31
   def _reduce_7( val, _values, result )
-		result = Nagios::Base.create(val[1],val[4])
-   result
+    result = Nagios::Base.create(val[1],val[4])
+  result
   end
 .,.,
 
- # reduce 8 omitted
+# reduce 8 omitted
 
 module_eval <<'.,.,', 'grammar.ry', 40
   def _reduce_9( val, _values, result )
-		val[1].each {|p,v|
-			val[0][p] = v
-		}
-		result = val[0]
-   result
+    val[1].each {|p,v|
+      val[0][p] = v
+        }
+        result = val[0]
+  result
   end
 .,.,
 
 module_eval <<'.,.,', 'grammar.ry', 42
   def _reduce_10( val, _values, result )
- result = {val[0],val[1]}
-   result
-  end
+result = {val[0],val[1]}
+  result
+end
 .,.,
 
- # reduce 11 omitted
+# reduce 11 omitted
 
- # reduce 12 omitted
+# reduce 12 omitted
 
- # reduce 13 omitted
+# reduce 13 omitted
 
- # reduce 14 omitted
+# reduce 14 omitted
 
- def _reduce_none( val, _values, result )
+def _reduce_none( val, _values, result )
   result
- end
+end
 
-  end   # class Parser
+  end
 
-end   # module Nagios
+end