ex_azure_storage

defmodule AzureStorage.Parser do
  @moduledoc false
  def parse_enumeration_results({:error, reason}, _), do: {:error, reason}

  def parse_enumeration_results(
        {:ok,
         %{
           "EnumerationResults" => %{
             "#content" => content
           }
         }, _headers},
        prop
      ) do
    marker = get_in(content, ["NextMarker"])
    shares = get_in(content, ["#{prop}s", "#{prop}"])

    case is_map(marker) do
      true ->
        {:ok, %{Items: shares, NextMarker: nil}}

      _ ->
        {:ok, %{Items: shares, NextMarker: marker}}
    end
  end

  def parse_body_response({:ok, body, _}), do: {:ok, body}
  def parse_body_response({:error, reason}), do: {:error, reason}

  def parse_continuation_token(headers) do
    continuation_headers =
      headers
      |> Enum.filter(fn
        {"x-ms-continuation-" <> _, _} -> true
        _ -> false
      end)
      |> Enum.map(fn {"x-ms-continuation-" <> prop, value} -> "#{prop}=#{value}" end)

    case length(continuation_headers) do
      0 -> nil
      _ -> continuation_headers |> Enum.join("&")
    end
  end
end