Packages

reach

2.8.0
2.8.1 2.8.0 2.7.5 2.7.4 2.7.3 2.7.2 2.7.1 2.7.0 2.6.1 2.6.0 2.5.0 2.4.0 2.3.5 2.3.4 2.3.3 2.3.2 2.3.1 2.3.0 2.2.0 2.1.0 2.0.1 2.0.0 1.8.0 1.7.0 1.6.0 1.5.1 1.5.0 1.4.1 1.4.0 1.3.0 1.2.0 1.1.3 1.1.2 1.1.1 1.1.0 1.0.0

Program dependence graph for Elixir, Erlang, Gleam, JavaScript, and TypeScript

HexDocs

Current section

Files

Jump to
Readme
36 Versions
8 Dependencies
Dependants
Files
Activity
reach lib reach check changed source_snapshot.ex
Raw

lib/reach/check/changed/source_snapshot.ex 

defmodule Reach.Check.Changed.SourceSnapshot do

  @moduledoc false



  @spec revision(String.t(), keyword()) :: String.t()

  def revision(base, opts) do

    Keyword.get_lazy(opts, :old_revision, fn -> merge_base(base) end)

  end



  @spec source(:old | :new, Path.t(), String.t(), keyword()) ::

          {:ok, String.t()} | {:error, term()}

  def source(:old, file, revision, opts) do

    source_override(:old_sources, file, opts, fn -> git_source(revision, file) end)

  end



  def source(:new, file, _revision, opts) do

    source_override(:new_sources, file, opts, fn -> File.read(file) end)

  end



  defp source_override(key, file, opts, fallback) do

    if Keyword.has_key?(opts, key) do

      opts |> Keyword.fetch!(key) |> Map.fetch(file)

    else

      fallback.()

    end

  end



  defp merge_base(base) do

    case System.cmd("git", ["merge-base", base, "HEAD"], stderr_to_stdout: true) do

      {revision, 0} -> String.trim(revision)

      _error -> base

    end

  end



  defp git_source(nil, _file), do: {:error, :missing_revision}



  defp git_source(revision, file) do

    case System.cmd("git", ["show", "#{revision}:#{file}"], stderr_to_stdout: true) do

      {source, 0} -> {:ok, source}

      _error -> {:error, :missing_old_source}

    end

  end

end