class Puppet::Parser::Parser

# File lib/puppet/parser/parser_support.rb, line 99
def initialize(env)
  # The environment is needed to know how to find the resource type collection.
  @environment = env.is_a?(String) ? Puppet::Node::Environment.new(env) : env
  initvars
end

# File lib/puppet/parser/parser.rb, line 2504
def _reduce_none(val, _values, result)
  val[0]
end

# File lib/puppet/parser/parser_support.rb, line 25
def addcontext(message, obj = nil)
  obj ||= @lexer

  message += " on line #{obj.line}"
  if file = obj.file
    message += " in file #{file}"
  end

  message
end

# File lib/puppet/parser/parser_support.rb, line 37
def aryfy(arg)
  ast AST::ASTArray, :children => [arg]
end

# File lib/puppet/parser/parser_support.rb, line 43
def ast(klass, hash = {})
  klass.new ast_context(klass.use_docs, hash[:line]).merge(hash)
end

# File lib/puppet/parser/parser_support.rb, line 47
def ast_context(include_docs = false, ast_line = nil)
  result = {
    :line => ast_line || lexer.line,
    :file => lexer.file
  }
  result[:doc] = lexer.getcomment(result[:line]) if include_docs
  result
end

# File lib/puppet/parser/parser_support.rb, line 57
def classname(name)
  [@lexer.namespace, name].join("::").sub(/^::/, '')
end

# File lib/puppet/parser/parser_support.rb, line 61
def clear
  initvars
end

# File lib/puppet/parser/parser_support.rb, line 66
def error(message, options = {})
  if brace = @lexer.expected
    message += "; expected '%s'"
  end
  except = Puppet::ParseError.new(message)
  except.line = options[:line] || @lexer.line
  except.file = options[:file] || @lexer.file

  raise except
end

# File lib/puppet/parser/parser_support.rb, line 79
def file=(file)
  unless FileTest.exist?(file)
    unless file =~ /\.pp$/
      file = file + ".pp"
    end
  end
  raise Puppet::AlreadyImportedError, "Import loop detected" if known_resource_types.watching_file?(file)

  watch_file(file)
  @lexer.file = file
end

# File lib/puppet/parser/parser_support.rb, line 95
def import(file)
  known_resource_types.loader.import(file, @lexer.file)
end

# File lib/puppet/parser/parser_support.rb, line 106
def initvars
  @lexer = Puppet::Parser::Lexer.new
end

# File lib/puppet/parser/parser_support.rb, line 111
def namesplit(fullname)
  ary = fullname.split("::")
  n = ary.pop || ""
  ns = ary.join("::")
  return ns, n
end

# File lib/puppet/parser/parser_support.rb, line 118
def on_error(token,value,stack)
  if token == 0 # denotes end of file
    value = 'end of file'
  else
    value = "'#{value[:value]}'"
  end
  error = "Syntax error at #{value}"

  if brace = @lexer.expected
    error += "; expected '#{brace}'"
  end

  except = Puppet::ParseError.new(error)
  except.line = @lexer.line
  except.file = @lexer.file if @lexer.file

  raise except
end

# File lib/puppet/parser/parser_support.rb, line 138
def parse(string = nil)
  if self.file =~ /\.rb$/
    main = parse_ruby_file
  else
    self.string = string if string
    begin
      @yydebug = false
      main = yyparse(@lexer,:scan)
    rescue Puppet::ParseError => except
      except.line ||= @lexer.line
      except.file ||= @lexer.file
      raise except
    rescue => except
      raise Puppet::ParseError.new(except.message, @lexer.file, @lexer.line, except)
    end
  end
  # Store the results as the top-level class.
  return Puppet::Parser::AST::Hostclass.new('', :code => main)
ensure
  @lexer.clear
end

# File lib/puppet/parser/parser_support.rb, line 160
def parse_ruby_file
  Puppet.deprecation_warning("Use of the Ruby DSL is deprecated.")

  # Execute the contents of the file inside its own "main" object so
  # that it can call methods in the resource type API.
  main_object = Puppet::DSL::ResourceTypeAPI.new
  main_object.instance_eval(File.read(self.file))

  # Then extract any types that were created.
  Puppet::Parser::AST::ASTArray.new :children => main_object.instance_eval { @__created_ast_objects__ }
end