class Sass::Engine

def self.parse_interp(text, line, offset, options)
  res = []
  rest = Haml::Shared.handle_interpolation text do |scan|
    escapes = scan[2].size
    res << scan.matched[0...-2 - escapes]
    if escapes % 2 == 1
      res << "\\" * (escapes - 1) << '#{'
    else
      res << "\\" * [0, escapes - 1].max
      res << Script::Parser.new(
        scan, line, offset + scan.pos - scan.matched_size, options).
        parse_interpolated
    end
  end
  res << rest
end

def _render
  rendered = _to_tree.render
  return rendered if ruby1_8?
  return rendered.encode(source_encoding)
end

def _to_tree
  check_encoding!
  if @options[:syntax] == :scss
    root = Sass::SCSS::Parser.new(@template).parse
  else
    root = Tree::RootNode.new(@template)
    append_children(root, tree(tabulate(@template)).first, true)
  end
  root.options = @options
  root
rescue SyntaxError => e
  e.modify_backtrace(:filename => @options[:filename], :line => @line)
  e.sass_template = @template
  raise e
end

def append_children(parent, children, root)
  continued_rule = nil
  continued_comment = nil
  children.each do |line|
    child = build_tree(parent, line, root)
    if child.is_a?(Tree::RuleNode) && child.continued?
      raise SyntaxError.new("Rules can't end in commas.",
        :line => child.line) unless child.children.empty?
      if continued_rule
        continued_rule.add_rules child
      else
        continued_rule = child
      end
      next
    end
    if continued_rule
      raise SyntaxError.new("Rules can't end in commas.",
        :line => continued_rule.line) unless child.is_a?(Tree::RuleNode)
      continued_rule.add_rules child
      continued_rule.children = child.children
      continued_rule, child = nil, continued_rule
    end
    if child.is_a?(Tree::CommentNode) && child.silent
      if continued_comment &&
          child.line == continued_comment.line +
          continued_comment.value.count("\n") + 1
        continued_comment.value << "\n" << child.value
        next
      end
      continued_comment = child
    end
    check_for_no_children(child)
    validate_and_append_child(parent, child, line, root)
  end
  raise SyntaxError.new("Rules can't end in commas.",
    :line => continued_rule.line) if continued_rule
  parent
end

def build_tree(parent, line, root = false)
  @line = line.index
  node_or_nodes = parse_line(parent, line, root)
  Array(node_or_nodes).each do |node|
    # Node is a symbol if it's non-outputting, like a variable assignment
    next unless node.is_a? Tree::Node
    node.line = line.index
    node.filename = line.filename
    append_children(node, line.children, false)
  end
  node_or_nodes
end

def check_encoding!
  return if @checked_encoding
  @checked_encoding = true
  @template, @original_encoding = check_sass_encoding(@template) do |msg, line|
    raise Sass::SyntaxError.new(msg, :line => line)
  end
end

def check_for_no_children(node)
  return unless node.is_a?(Tree::RuleNode) && node.children.empty?
  Haml::Util.haml_warn(<<WARNING.strip)
ING on line #{node.line}#{" of #{node.filename}" if node.filename}:
 selector doesn't have any properties and will not be rendered.
ING
end

def format_comment_text(text, silent)
  content = text.split("\n")
  if content.first && content.first.strip.empty?
    removed_first = true
    content.shift
  end
  return silent ? "//" : "/* */" if content.empty?
  content.map! {|l| l.gsub!(/^\*( ?)/, '\1') || (l.empty? ? "" : " ") + l}
  content.first.gsub!(/^ /, '') unless removed_first
  content.last.gsub!(%r{ ?\*/ *$}, '')
  if silent
    "//" + content.join("\n//")
  else
    "/*" + content.join("\n *") + " */"
  end
end

def initialize(template, options={})
  @options = DEFAULT_OPTIONS.merge(options.reject {|k, v| v.nil?})
  @template = template
  # Support both, because the docs said one and the other actually worked
  # for quite a long time.
  @options[:line_comments] ||= @options[:line_numbers]
  # Backwards compatibility
  @options[:property_syntax] ||= @options[:attribute_syntax]
  case @options[:property_syntax]
  when :alternate; @options[:property_syntax] = :new
  when :normal; @options[:property_syntax] = :old
  end
end

def parse_comment(line)
  if line[1] == CSS_COMMENT_CHAR || line[1] == SASS_COMMENT_CHAR
    silent = line[1] == SASS_COMMENT_CHAR
    Tree::CommentNode.new(
      format_comment_text(line[2..-1], silent),
      silent)
  else
    Tree::RuleNode.new(parse_interp(line))
  end
end

def parse_directive(parent, line, root)
  directive, whitespace, value = line.text[1..-1].split(/(\s+)/, 2)
  offset = directive.size + whitespace.size + 1 if whitespace
  # If value begins with url( or ",
  # it's a CSS @import rule and we don't want to touch it.
  if directive == "import"
    raise SyntaxError.new("Illegal nesting: Nothing may be nested beneath import directives.",
      :line => @line + 1) unless line.children.empty?
    if (match = value.match(Sass::SCSS::RX::STRING) || value.match(Sass::SCSS::RX::URI)) &&
        !match.post_match.strip.empty? && match.post_match.strip[0] != ?,
      return Tree::DirectiveNode.new("@import #{value}")
    end
    value.split(/,\s*/).map do |f|
      f = $1 || $2 || $3 if f =~ Sass::SCSS::RX::STRING || f =~ Sass::SCSS::RX::URI
      Tree::ImportNode.new(f)
    end
  elsif directive == "mixin"
    parse_mixin_definition(line)
  elsif directive == "include"
    parse_mixin_include(line, root)
  elsif directive == "for"
    parse_for(line, root, value)
  elsif directive == "else"
    parse_else(parent, line, value)
  elsif directive == "while"
    raise SyntaxError.new("Invalid while directive '@while': expected expression.") unless value
    Tree::WhileNode.new(parse_script(value, :offset => offset))
  elsif directive == "if"
    raise SyntaxError.new("Invalid if directive '@if': expected expression.") unless value
    Tree::IfNode.new(parse_script(value, :offset => offset))
  elsif directive == "debug"
    raise SyntaxError.new("Invalid debug directive '@debug': expected expression.") unless value
    raise SyntaxError.new("Illegal nesting: Nothing may be nested beneath debug directives.",
      :line => @line + 1) unless line.children.empty?
    offset = line.offset + line.text.index(value).to_i
    Tree::DebugNode.new(parse_script(value, :offset => offset))
  elsif directive == "extend"
    raise SyntaxError.new("Invalid extend directive '@extend': expected expression.") unless value
    raise SyntaxError.new("Illegal nesting: Nothing may be nested beneath extend directives.",
      :line => @line + 1) unless line.children.empty?
    offset = line.offset + line.text.index(value).to_i
    Tree::ExtendNode.new(parse_interp(value, offset))
  elsif directive == "warn"
    raise SyntaxError.new("Invalid warn directive '@warn': expected expression.") unless value
    raise SyntaxError.new("Illegal nesting: Nothing may be nested beneath warn directives.",
      :line => @line + 1) unless line.children.empty?
    offset = line.offset + line.text.index(value).to_i
    Tree::WarnNode.new(parse_script(value, :offset => offset))
  else
    Tree::DirectiveNode.new(line.text)
  end
end

def parse_else(parent, line, text)
  previous = parent.children.last
  raise SyntaxError.new("@else must come after @if.") unless previous.is_a?(Tree::IfNode)
  if text
    if text !~ /^if\s+(.+)/
      raise SyntaxError.new("Invalid else directive '@else #{text}': expected 'if <expr>'.")
    end
    expr = parse_script($1, :offset => line.offset + line.text.index($1))
  end
  node = Tree::IfNode.new(expr)
  append_children(node, line.children, false)
  previous.add_else node
  nil
end

def parse_for(line, root, text)
  var, from_expr, to_name, to_expr = text.scan(/^([^\s]+)\s+from\s+(.+)\s+(to|through)\s+(.+)$/).first
  if var.nil? # scan failed, try to figure out why for error message
    if text !~ /^[^\s]+/
      expected = "variable name"
    elsif text !~ /^[^\s]+\s+from\s+.+/
      expected = "'from <expr>'"
    else
      expected = "'to <expr>' or 'through <expr>'"
    end
    raise SyntaxError.new("Invalid for directive '@for #{text}': expected #{expected}.")
  end
  raise SyntaxError.new("Invalid variable \"#{var}\".") unless var =~ Script::VALIDATE
  if var.slice!(0) == ?!
    offset = line.offset + line.text.index("!" + var) + 1
    Script.var_warning(var, @line, offset, @options[:filename])
  end
  parsed_from = parse_script(from_expr, :offset => line.offset + line.text.index(from_expr))
  parsed_to = parse_script(to_expr, :offset => line.offset + line.text.index(to_expr))
  Tree::ForNode.new(var, parsed_from, parsed_to, to_name == 'to')
end

def parse_interp(text, offset = 0)
  self.class.parse_interp(text, @line, offset, :filename => @filename)
end

def parse_line(parent, line, root)
  case line.text[0]
  when PROPERTY_CHAR
    if line.text[1] == PROPERTY_CHAR ||
        (@options[:property_syntax] == :new &&
         line.text =~ PROPERTY_OLD && $3.empty?)
      # Support CSS3-style pseudo-elements,
      # which begin with ::,
      # as well as pseudo-classes
      # if we're using the new property syntax
      Tree::RuleNode.new(parse_interp(line.text))
    else
      name, eq, value = line.text.scan(PROPERTY_OLD)[0]
      raise SyntaxError.new("Invalid property: \"#{line.text}\".",
        :line => @line) if name.nil? || value.nil?
      parse_property(name, parse_interp(name), eq, value, :old, line)
    end
  when ?!, ?$
    parse_variable(line)
  when COMMENT_CHAR
    parse_comment(line.text)
  when DIRECTIVE_CHAR
    parse_directive(parent, line, root)
  when ESCAPE_CHAR
    Tree::RuleNode.new(parse_interp(line.text[1..-1]))
  when MIXIN_DEFINITION_CHAR
    parse_mixin_definition(line)
  when MIXIN_INCLUDE_CHAR
    if line.text[1].nil? || line.text[1] == ?\s
      Tree::RuleNode.new(parse_interp(line.text))
    else
      parse_mixin_include(line, root)
    end
  else
    parse_property_or_rule(line)
  end
end

def parse_mixin_definition(line)
  name, arg_string = line.text.scan(MIXIN_DEF_RE).first
  raise SyntaxError.new("Invalid mixin \"#{line.text[1..-1]}\".") if name.nil?
  offset = line.offset + line.text.size - arg_string.size
  args = Script::Parser.new(arg_string.strip, @line, offset, @options).
    parse_mixin_definition_arglist
  default_arg_found = false
  Tree::MixinDefNode.new(name, args)
end

def parse_mixin_include(line, root)
  name, arg_string = line.text.scan(MIXIN_INCLUDE_RE).first
  raise SyntaxError.new("Invalid mixin include \"#{line.text}\".") if name.nil?
  offset = line.offset + line.text.size - arg_string.size
  args = Script::Parser.new(arg_string.strip, @line, offset, @options).
    parse_mixin_include_arglist
  raise SyntaxError.new("Illegal nesting: Nothing may be nested beneath mixin directives.",
    :line => @line + 1) unless line.children.empty?
  Tree::MixinNode.new(name, args)
end

def parse_property(name, parsed_name, eq, value, prop, line)
  if value.strip.empty?
    expr = Sass::Script::String.new("")
  else
    expr = parse_script(value, :offset => line.offset + line.text.index(value))
    if eq.strip[0] == SCRIPT_CHAR
      expr.context = :equals
      Script.equals_warning("properties", name,
        Sass::Tree::PropNode.val_to_sass(expr, @options), false,
        @line, line.offset + 1, @options[:filename])
    end
  end
  Tree::PropNode.new(parse_interp(name), expr, prop)
end

def parse_property_or_rule(line)
  scanner = StringScanner.new(line.text)
  hack_char = scanner.scan(/[:\*\.]|\#(?!\{)/)
  parser = Sass::SCSS::SassParser.new(scanner, @line)
  unless res = parser.parse_interp_ident
    return Tree::RuleNode.new(parse_interp(line.text))
  end
  res.unshift(hack_char) if hack_char
  if comment = scanner.scan(Sass::SCSS::RX::COMMENT)
    res << comment
  end
  name = line.text[0...scanner.pos]
  if scanner.scan(/\s*([:=])(?:\s|$)/)
    parse_property(name, res, scanner[1], scanner.rest, :new, line)
  else
    res.pop if comment
    Tree::RuleNode.new(res + parse_interp(scanner.rest))
  end
end

def parse_script(script, options = {})
  line = options[:line] || @line
  offset = options[:offset] || 0
  Script.parse(script, line, offset, @options)
end

def parse_variable(line)
  name, op, value, default = line.text.scan(Script::MATCH)[0]
  guarded = op =~ /^\|\|/
  raise SyntaxError.new("Illegal nesting: Nothing may be nested beneath variable declarations.",
    :line => @line + 1) unless line.children.empty?
  raise SyntaxError.new("Invalid variable: \"#{line.text}\".",
    :line => @line) unless name && value
  Script.var_warning(name, @line, line.offset + 1, @options[:filename]) if line.text[0] == ?!
  expr = parse_script(value, :offset => line.offset + line.text.index(value))
  if op =~ /=$/
    expr.context = :equals
    type = guarded ? "variable defaults" : "variables"
    Script.equals_warning(type, "$#{name}", expr.to_sass,
      guarded, @line, line.offset + 1, @options[:filename])
  end
  Tree::VariableNode.new(name, expr, default || guarded)
end

def render
  return _render unless @options[:quiet]
  Haml::Util.silence_haml_warnings {_render}
end

def source_encoding
  check_encoding!
  @original_encoding
end

def tabulate(string)
  tab_str = nil
  comment_tab_str = nil
  first = true
  lines = []
  string.gsub(/\r|\n|\r\n|\r\n/, "\n").scan(/^.*?$/).each_with_index do |line, index|
    index += (@options[:line] || 1)
    if line.strip.empty?
      lines.last.text << "\n" if lines.last && lines.last.comment?
      next
    end
    line_tab_str = line[/^\s*/]
    unless line_tab_str.empty?
      if tab_str.nil?
        comment_tab_str ||= line_tab_str
        next if try_comment(line, lines.last, "", comment_tab_str, index)
        comment_tab_str = nil
      end
      tab_str ||= line_tab_str
      raise SyntaxError.new("Indenting at the beginning of the document is illegal.",
        :line => index) if first
      raise SyntaxError.new("Indentation can't use both tabs and spaces.",
        :line => index) if tab_str.include?(?\s) && tab_str.include?(?\t)
    end
    first &&= !tab_str.nil?
    if tab_str.nil?
      lines << Line.new(line.strip, 0, index, 0, @options[:filename], [])
      next
    end
    comment_tab_str ||= line_tab_str
    if try_comment(line, lines.last, tab_str * lines.last.tabs, comment_tab_str, index)
      next
    else
      comment_tab_str = nil
    end
    line_tabs = line_tab_str.scan(tab_str).size
    if tab_str * line_tabs != line_tab_str
      message = <<END.strip.gsub("\n", ' ')
nsistent indentation: #{Haml::Shared.human_indentation line_tab_str, true} used for indentation,
the rest of the document was indented using #{Haml::Shared.human_indentation tab_str}.
      raise SyntaxError.new(message, :line => index)
    end
    lines << Line.new(line.strip, line_tabs, index, tab_str.size, @options[:filename], [])
  end
  lines
end

def to_tree
  return _to_tree unless @options[:quiet]
  Haml::Util.silence_haml_warnings {_to_tree}
end

def tree(arr, i = 0)
  return [], i if arr[i].nil?
  base = arr[i].tabs
  nodes = []
  while (line = arr[i]) && line.tabs >= base
    if line.tabs > base
      raise SyntaxError.new("The line was indented #{line.tabs - base} levels deeper than the previous line.",
        :line => line.index) if line.tabs > base + 1
      nodes.last.children, i = tree(arr, i)
    else
      nodes << line
      i += 1
    end
  end
  return nodes, i
end

def try_comment(line, last, tab_str, comment_tab_str, index)
  return unless last && last.comment?
  # Nested comment stuff must be at least one whitespace char deeper
  # than the normal indentation
  return unless line =~ /^#{tab_str}\s/
  unless line =~ /^(?:#{comment_tab_str})(.*)$/
    raise SyntaxError.new(<<MSG.strip.gsub("\n", " "), :line => index)
nsistent indentation:
ious line was indented by #{Haml::Shared.human_indentation comment_tab_str},
this line was indented by #{Haml::Shared.human_indentation line[/^\s*/]}.
  end
  last.text << "\n" << $1
  true
end

def validate_and_append_child(parent, child, line, root)
  case child
  when Array
    child.each {|c| validate_and_append_child(parent, c, line, root)}
  when Tree::Node
    parent << child
  end
end