altstd_compact

defimpl Altstd.Compact, for: Tuple do
  @moduledoc since: "0.1.0"

  @doc since: "0.1.0"
  @spec resolve(tuple(), keyword) :: Altstd.Compact.resolution_t()
  def resolve(object, opts \\ [])

  def resolve({}, _opts) do
    {:reject, {}}
  end

  def resolve(object, opts) do
    tuple_as_list =
      object
      |> Tuple.to_list()

    [head | _tail] = tuple_as_list

    resolution =
      head
      |> Altstd.Compact.resolve(opts)

    case resolution do
      {:resolve, _resolved_value} ->
        {:resolve, object}

      {:reject, _any} ->
        {:reject, object}

      :reject ->
        {:reject, object}

      _resolved_value ->
        {:resolve, object}
    end
  end

  @doc since: "0.1.0"
  @spec cast(tuple(), keyword) :: Altstd.Compact.t()
  def cast(object, opts \\ []) do
    resolution =
      object
      |> Altstd.Compact.resolve(opts)

    case resolution do
      {:resolve, resolved_value} ->
        resolved_value
        |> List.wrap()

      {:reject, _any} ->
        []

      :reject ->
        []

      resolved_value ->
        resolved_value
        |> List.wrap()
    end
  end
end