module SassC::Script::ValueConversion

def self.from_native(native_value, options)
  case value_tag = SassC::Native.value_get_tag(native_value)
  when :sass_null
    # no-op
  when :sass_string
    value = SassC::Native.string_get_value(native_value)
    type = SassC::Native.string_get_type(native_value)
    argument = SassC::Script::Value::String.new(value, type)
    argument
  when :sass_boolean
    value = SassC::Native.boolean_get_value(native_value)
    argument = SassC::Script::Value::Bool.new(value)
    argument
  when :sass_number
    value = SassC::Native.number_get_value(native_value)
    unit = SassC::Native.number_get_unit(native_value)
    argument = SassC::Script::Value::Number.new(value, unit)
    argument
  when :sass_color
    red, green, blue, alpha = SassC::Native.color_get_r(native_value), SassC::Native.color_get_g(native_value), SassC::Native.color_get_b(native_value), SassC::Native.color_get_a(native_value)
    argument = SassC::Script::Value::Color.new(red:red, green:green, blue:blue, alpha:alpha)
    argument.options = options
    argument
  when :sass_map
    values = {}
    length = SassC::Native::map_get_length native_value
    (0..length-1).each do |index|
      key = SassC::Native::map_get_key(native_value, index)
      value = SassC::Native::map_get_value(native_value, index)
      values[from_native(key, options)] = from_native(value, options)
    end
    argument = SassC::Script::Value::Map.new values
    argument
  when :sass_list
    length = SassC::Native::list_get_length(native_value)
    items = (0...length).map do |index|
      native_item = SassC::Native::list_get_value(native_value, index)
      from_native(native_item, options)
    end
    SassC::Script::Value::List.new(items, separator: :space)
  else
    raise UnsupportedValue.new("Sass argument of type #{value_tag} unsupported")
  end
end