class Sass::Script::Parser

def self.parse(*args)
  new(*args).parse
end

def arglist(type, subexpr)
  return unless e = send(subexpr)
  if @lexer.peek && @lexer.peek.type == :colon
    name = e
    @lexer.expected!("comma") unless name.is_a?(Variable)
    assert_tok(:colon)
    keywords = {name.underscored_name => assert_expr(subexpr, EXPR_NAMES[type])}
  end
  unless try_tok(:comma)
    return [], keywords if keywords
    return [e], {}
  end
  other_args, other_keywords = assert_expr(type)
  if keywords
    if !other_args.empty?
      raise SyntaxError.new("Positional arguments must come before keyword arguments")
    elsif other_keywords[name.underscored_name]
      raise SyntaxError.new("Keyword argument \"#{name.to_sass}\" passed more than once")
    end
    return other_args, keywords.merge(other_keywords)
  else
    return [e, *other_args], other_keywords
  end
end

def assert_done
  return if @lexer.done?
  @lexer.expected!(EXPR_NAMES[:default])
end

def assert_expr(name, expected = nil)
  (e = send(name)) && (return e)
  @lexer.expected!(expected || EXPR_NAMES[name] || EXPR_NAMES[:default])
end

def assert_tok(*names)
  (t = try_tok(*names)) && (return t)
  @lexer.expected!(names.map {|tok| Lexer::TOKEN_NAMES[tok] || tok}.join(" or "))
end

def associative?(op)
  ASSOCIATIVE.include?(op)
end

def defn_arglist!(must_have_parens)
  if must_have_parens
    assert_tok(:lparen)
  else
    return [] unless try_tok(:lparen)
  end
  return [] if try_tok(:rparen)
  res = []
  must_have_default = false
  loop do
    line = @lexer.line
    offset = @lexer.offset + 1
    c = assert_tok(:const)
    var = Script::Variable.new(c.value)
    if tok = try_tok(:colon)
      val = assert_expr(:space)
      must_have_default = true
    elsif must_have_default
      raise SyntaxError.new("Required argument #{var.inspect} must come before any optional arguments.")
    end
    res << [var, val]
    break unless try_tok(:comma)
  end
  assert_tok(:rparen)
  res
end

def expr
  interp = try_ops_after_interp([:comma], :expr) and return interp
  line = @lexer.line
  return unless e = interpolation
  arr = [e]
  while tok = try_tok(:comma)
    if interp = try_op_before_interp(tok, e)
      return interp unless other_interp = try_ops_after_interp([:comma], :expr, interp)
      return other_interp
    end
    arr << assert_expr(:interpolation)
  end
  arr.size == 1 ? arr.first : node(List.new(arr, :comma), line)
end

def fn_arglist
  arglist(:fn_arglist, :equals)
end

def funcall
  return raw unless tok = try_tok(:funcall)
  args, keywords = fn_arglist || [[], {}]
  assert_tok(:rparen)
  node(Script::Funcall.new(tok.value, args, keywords))
end

def ident
  return funcall unless @lexer.peek && @lexer.peek.type == :ident
  return if @stop_at && @stop_at.include?(@lexer.peek.value)
  name = @lexer.next
  if color = Color::COLOR_NAMES[name.value.downcase]
    return node(Color.new(color))
  end
  node(Script::String.new(name.value, :identifier))
end

def initialize(str, line, offset, options = {})
  @options = options
  @lexer = lexer_class.new(str, line, offset, options)
end

def interpolation(first = space)
  e = first
  while interp = try_tok(:begin_interpolation)
    wb = @lexer.whitespace?(interp)
    line = @lexer.line
    mid = parse_interpolated
    wa = @lexer.whitespace?
    e = Script::Interpolation.new(e, mid, space, wb, wa)
    e.line = line
  end
  e
end

def keyword_arglist
  return unless var = try_tok(:const)
  unless try_tok(:colon)
    return_tok!
    return
  end
  name = var[1]
  value = interpolation
  return {name => value} unless try_tok(:comma)
  {name => value}.merge(assert_expr(:keyword_arglist))
end

def lexer_class; Lexer; end

def line
  @lexer.line
end

def literal
  (t = try_tok(:color, :bool, :null)) && (return t.value)
end

def mixin_arglist
  arglist(:mixin_arglist, :interpolation)
end

def node(node, line = @lexer.line)
  node.line = line
  node
end

def number
  return literal unless tok = try_tok(:number)
  num = tok.value
  num.original = num.to_s unless @in_parens
  num
end

def paren
  return variable unless try_tok(:lparen)
  was_in_parens = @in_parens
  @in_parens = true
  line = @lexer.line
  e = expr
  assert_tok(:rparen)
  return e || node(List.new([], :space), line)
ensure
  @in_parens = was_in_parens
end

def parse
  expr = assert_expr :expr
  assert_done
  expr.options = @options
  expr
rescue Sass::SyntaxError => e
  e.modify_backtrace :line => @lexer.line, :filename => @options[:filename]
  raise e
end

def parse_function_definition_arglist
  args = defn_arglist!(true)
  assert_done
  args.each do |k, v|
    k.options = @options
    v.options = @options if v
  end
  args
rescue Sass::SyntaxError => e
  e.modify_backtrace :line => @lexer.line, :filename => @options[:filename]
  raise e
end

def parse_interpolated
  expr = assert_expr :expr
  assert_tok :end_interpolation
  expr.options = @options
  expr
rescue Sass::SyntaxError => e
  e.modify_backtrace :line => @lexer.line, :filename => @options[:filename]
  raise e
end

def parse_mixin_definition_arglist
  args = defn_arglist!(false)
  assert_done
  args.each do |k, v|
    k.options = @options
    v.options = @options if v
  end
  args
rescue Sass::SyntaxError => e
  e.modify_backtrace :line => @lexer.line, :filename => @options[:filename]
  raise e
end

def parse_mixin_include_arglist
  args, keywords = [], {}
  if try_tok(:lparen)
    args, keywords = mixin_arglist || [[], {}]
    assert_tok(:rparen)
  end
  assert_done
  args.each {|a| a.options = @options}
  keywords.each {|k, v| v.options = @options}
  return args, keywords
rescue Sass::SyntaxError => e
  e.modify_backtrace :line => @lexer.line, :filename => @options[:filename]
  raise e
end

def parse_string
  unless (peek = @lexer.peek) &&
      (peek.type == :string ||
      (peek.type == :funcall && peek.value.downcase == 'url'))
    lexer.expected!("string")
  end
  expr = assert_expr :funcall
  expr.options = @options
  @lexer.unpeek!
  expr
rescue Sass::SyntaxError => e
  e.modify_backtrace :line => @lexer.line, :filename => @options[:filename]
  raise e
end

def parse_until(tokens)
  @stop_at = tokens
  expr = assert_expr :expr
  assert_done
  expr.options = @options
  expr
rescue Sass::SyntaxError => e
  e.modify_backtrace :line => @lexer.line, :filename => @options[:filename]
  raise e
end

def precedence_of(op)
  PRECEDENCE.each_with_index do |e, i|
    return i if Array(e).include?(op)
  end
  raise "[BUG] Unknown operator #{op}"
end

def production(name, sub, *ops)
  class_eval <<RUBY
    def #{name}
      interp = try_ops_after_interp(#{ops.inspect}, #{name.inspect}) and return interp
      return unless e = #{sub}
      while tok = try_tok(#{ops.map {|o| o.inspect}.join(', ')})
        if interp = try_op_before_interp(tok, e)
          return interp unless other_interp = try_ops_after_interp(#{ops.inspect}, #{name.inspect}, interp)
          return other_interp
        end
        line = @lexer.line
        e = Operation.new(e, assert_expr(#{sub.inspect}), tok.type)
        e.line = line
      end
      e
    end
end

def raw
  return special_fun unless tok = try_tok(:raw)
  node(Script::String.new(tok.value))
end

def space
  line = @lexer.line
  return unless e = or_expr
  arr = [e]
  while e = or_expr
    arr << e
  end
  arr.size == 1 ? arr.first : node(List.new(arr, :space), line)
end

def special_fun
  return paren unless tok = try_tok(:special_fun)
  first = node(Script::String.new(tok.value.first))
  Sass::Util.enum_slice(tok.value[1..-1], 2).inject(first) do |l, (i, r)|
    Script::Interpolation.new(
      l, i, r && node(Script::String.new(r)),
      false, false)
  end
end

def string
  return number unless first = try_tok(:string)
  return first.value unless try_tok(:begin_interpolation)
  line = @lexer.line
  mid = parse_interpolated
  last = assert_expr(:string)
  interp = StringInterpolation.new(first.value, mid, last)
  interp.line = line
  interp
end

def try_op_before_interp(op, prev = nil)
  return unless @lexer.peek && @lexer.peek.type == :begin_interpolation
  wb = @lexer.whitespace?(op)
  str = Script::String.new(Lexer::OPERATORS_REVERSE[op.type])
  str.line = @lexer.line
  interp = Script::Interpolation.new(prev, str, nil, wb, !:wa, :originally_text)
  interp.line = @lexer.line
  interpolation(interp)
end

def try_ops_after_interp(ops, name, prev = nil)
  return unless @lexer.after_interpolation?
  return unless op = try_tok(*ops)
  interp = try_op_before_interp(op, prev) and return interp
  wa = @lexer.whitespace?
  str = Script::String.new(Lexer::OPERATORS_REVERSE[op.type])
  str.line = @lexer.line
  interp = Script::Interpolation.new(prev, str, assert_expr(name), !:wb, wa, :originally_text)
  interp.line = @lexer.line
  return interp
end

def try_tok(*names)
  peeked =  @lexer.peek
  peeked && names.include?(peeked.type) && @lexer.next
end

def unary(op, sub)
  class_eval <<RUBY
    def unary_#{op}
      return #{sub} unless tok = try_tok(:#{op})
      interp = try_op_before_interp(tok) and return interp
      line = @lexer.line 
      op = UnaryOperation.new(assert_expr(:unary_#{op}), :#{op})
      op.line = line
      op
    end
end

def variable
  return string unless c = try_tok(:const)
  node(Variable.new(*c.value))
end