class Sass::Embedded::CompileContext::ValueProtofier

def from_proto(proto)
  obj = proto.method(proto.value).call
  case proto.value
  when :string
    Sass::Value::String.new(
      obj.text,
      quoted: obj.quoted
    )
  when :number
    Sass::Value::Number.new(
      obj.value,
      obj.numerators,
      obj.denominators
    )
  when :rgb_color
    Sass::Value::Color.new(
      red: obj.red,
      green: obj.green,
      blue: obj.blue,
      alpha: obj.alpha
    )
  when :hsl_color
    Sass::Value::Color.new(
      hue: obj.hue,
      saturation: obj.saturation,
      lightness: obj.lightness,
      alpha: obj.alpha
    )
  when :hwb_color
    Sass::Value::Color.new(
      hue: obj.hue,
      whiteness: obj.whiteness,
      blackness: obj.blackness,
      alpha: obj.alpha
    )
  when :argument_list
    Sass::Value::ArgumentList.new(
      obj.contents.map do |element|
        from_proto(element)
      end,
      obj.keywords.entries.to_h do |entry|
        [entry.first, from_proto(entry.last)]
      end,
      ListSeparator.from_proto(obj.separator)
    ).instance_eval do
      @id = obj.id
      self
    end
  when :list
    Sass::Value::List.new(
      obj.contents.map do |element|
        from_proto(element)
      end,
      separator: ListSeparator.from_proto(obj.separator),
      bracketed: obj.has_brackets
    )
  when :map
    Sass::Value::Map.new(
      obj.entries.to_h do |entry|
        [from_proto(entry.key), from_proto(entry.value)]
      end
    )
  when :compiler_function
    Sass::Value::Function.new(obj.id)
  when :host_function
    raise ProtocolError, 'The compiler may not send Value.host_function to host'
  when :singleton
    case obj
    when :TRUE
      Sass::Value::Boolean::TRUE
    when :FALSE
      Sass::Value::Boolean::FALSE
    when :NULL
      Sass::Value::Null::NULL
    else
      raise Sass::ScriptError, "Unknown Value.singleton #{obj}"
    end
  else
    raise Sass::ScriptError, "Unknown Value.value #{obj}"
  end
end

def initialize(function_registry)
  @function_registry = function_registry
end

def to_proto(obj)
  case obj
  when Sass::Value::String
    Sass::EmbeddedProtocol::Value.new(
      string: Sass::EmbeddedProtocol::Value::String.new(
        text: obj.text,
        quoted: obj.quoted?
      )
    )
  when Sass::Value::Number
    Sass::EmbeddedProtocol::Value.new(
      number: Sass::EmbeddedProtocol::Value::Number.new(
        value: obj.value.to_f,
        numerators: obj.numerator_units,
        denominators: obj.denominator_units
      )
    )
  when Sass::Value::Color
    if obj.instance_eval { @hue.nil? }
      Sass::EmbeddedProtocol::Value.new(
        rgb_color: Sass::EmbeddedProtocol::Value::RgbColor.new(
          red: obj.red,
          green: obj.green,
          blue: obj.blue,
          alpha: obj.alpha.to_f
        )
      )
    elsif obj.instance_eval { @saturation.nil? }
      Sass::EmbeddedProtocol::Value.new(
        hwb_color: Sass::EmbeddedProtocol::Value::HwbColor.new(
          hue: obj.hue.to_f,
          whiteness: obj.whiteness.to_f,
          blackness: obj.blackness.to_f,
          alpha: obj.alpha.to_f
        )
      )
    else
      Sass::EmbeddedProtocol::Value.new(
        hsl_color: Sass::EmbeddedProtocol::Value::HslColor.new(
          hue: obj.hue.to_f,
          saturation: obj.saturation.to_f,
          lightness: obj.lightness.to_f,
          alpha: obj.alpha.to_f
        )
      )
    end
  when Sass::Value::ArgumentList
    Sass::EmbeddedProtocol::Value.new(
      argument_list: Sass::EmbeddedProtocol::Value::ArgumentList.new(
        id: obj.instance_eval { @id },
        contents: obj.contents.map { |element| to_proto(element) },
        keywords: obj.keywords.transform_values { |value| to_proto(value) },
        separator: ListSeparator.to_proto(obj.separator)
      )
    )
  when Sass::Value::List
    Sass::EmbeddedProtocol::Value.new(
      list: Sass::EmbeddedProtocol::Value::List.new(
        contents: obj.contents.map { |element| to_proto(element) },
        separator: ListSeparator.to_proto(obj.separator),
        has_brackets: obj.bracketed?
      )
    )
  when Sass::Value::Map
    Sass::EmbeddedProtocol::Value.new(
      map: Sass::EmbeddedProtocol::Value::Map.new(
        entries: obj.contents.map do |key, value|
          Sass::EmbeddedProtocol::Value::Map::Entry.new(
            key: to_proto(key),
            value: to_proto(value)
          )
        end
      )
    )
  when Sass::Value::Function
    if obj.id
      Sass::EmbeddedProtocol::Value.new(
        compiler_function: Sass::EmbeddedProtocol::Value::CompilerFunction.new(
          id: obj.id
        )
      )
    else
      Sass::EmbeddedProtocol::Value.new(
        host_function: Sass::EmbeddedProtocol::Value::HostFunction.new(
          id: @function_registry.register(obj.callback),
          signature: obj.signature
        )
      )
    end
  when Sass::Value::Boolean
    Sass::EmbeddedProtocol::Value.new(
      singleton: obj.value ? :TRUE : :FALSE
    )
  when Sass::Value::Null
    Sass::EmbeddedProtocol::Value.new(
      singleton: :NULL
    )
  else
    raise Sass::ScriptError, "Unknown Sass::Value #{obj}"
  end
end