defmodule HLS.Storage.File do
  defstruct []

  def new(), do: %__MODULE__{}

  defimpl HLS.Storage do
    def get(_storage, uri, _opts) do
      case File.read(to_path(uri)) do
        {:ok, binary} ->
          {:ok, binary}

        {:error, :enoent} ->
          {:error, :not_found}

        {:error, code} ->
          raise "#{__MODULE__}.get/2 of uri #{to_string(uri)} failed with #{inspect(code)}."
      end
    end

    def put(_storage, uri, binary, _opts) do
      path = to_path(uri)

      with :ok <- File.mkdir_p(Path.dirname(path)) do
        File.write(path, binary)
      end
    end

    def delete(_storage, uri, _opts) do
      case File.rm(to_path(uri)) do
        :ok -> :ok
        {:error, :enoent} -> :ok
        other -> other
      end
    end

    defp to_path(%URI{scheme: "file"} = uri) do
      [uri.host, uri.path]
      |> Enum.reject(&(is_nil(&1) or &1 == ""))
      |> Path.join()
    end
  end
end