module Sass::Script::Value::Helpers

def bool(value)
  Bool.new(value)
end

def hex_color(value, alpha = nil)
  Color.from_hex(value, alpha)
end

def hsl_color(hue, saturation, lightness, alpha = nil)
  attrs = {:hue => hue, :saturation => saturation, :lightness => lightness}
  attrs[:alpha] = alpha if alpha
  Color.new(attrs)
end

def list(*elements)
  unless elements.last.is_a?(Symbol)
    raise ArgumentError.new("A list type of :space or :comma must be specified.")
  end
  separator = elements.pop
  if elements.size == 1 && elements.first.is_a?(Array)
    elements = elements.first
  end
  Sass::Script::Value::List.new(elements, separator)
end

def null
  Sass::Script::Value::Null.new
end

def number(number, unit_string = nil)
  Number.new(number, *parse_unit_string(unit_string))
end

def parse_unit_string(unit_string)
  denominator_units = numerator_units = Sass::Script::Value::Number::NO_UNITS
  return numerator_units, denominator_units unless unit_string && unit_string.length > 0
  num_over_denominator = unit_string.split(/ *\/ */)
  unless (1..2).include?(num_over_denominator.size)
    raise ArgumentError.new("Malformed unit string: #{unit_string}")
  end
  numerator_units = num_over_denominator[0].split(/ *\* */)
  denominator_units = (num_over_denominator[1] || "").split(/ *\* */)
  [[numerator_units, "numerator"], [denominator_units, "denominator"]].each do |units, name|
    if unit_string =~ /\// && units.size == 0
      raise ArgumentError.new("Malformed unit string: #{unit_string}")
    end
    if units.any? {|unit| unit !~ VALID_UNIT}
      raise ArgumentError.new("Malformed #{name} in unit string: #{unit_string}")
    end
  end
  [numerator_units, denominator_units]
end

def quoted_string(str)
  Sass::Script::String.new(str, :string)
end

def rgb_color(red, green, blue, alpha = nil)
  attrs = {:red => red, :green => green, :blue => blue}
  attrs[:alpha] = alpha if alpha
  Color.new(attrs)
end

def unquoted_string(str)
  Sass::Script::String.new(str, :identifier)
end