Packages

reach

2.7.1
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
9 Dependencies
Dependants
Files
Activity
reach lib reach source.ex
Raw

lib/reach/source.ex 

defmodule Reach.Source do

  @moduledoc "Helpers for attaching source-origin metadata to lowered AST."



  alias Reach.Source.{Origin, Span}



  @metadata_key :reach



  def metadata_key, do: @metadata_key



  def origin(meta) when is_list(meta), do: Keyword.get(meta, @metadata_key)

  def origin(_), do: nil



  def put_origin({form, meta, args}, %Origin{} = origin) when is_list(meta) and is_list(args) do

    {form, Keyword.put(meta, @metadata_key, origin), args}

  end



  def put_origin(ast, _origin), do: ast



  def span_from_origin(%Origin{span: span}), do: Span.to_map(span)

  def span_from_origin(_), do: nil



  def project_files(project) do

    project.nodes

    |> Map.values()

    |> Enum.flat_map(fn node ->

      case node.source_span do

        %{file: file} when is_binary(file) -> [file]

        _span -> []

      end

    end)

    |> Enum.uniq()

    |> Enum.reject(&dependency_file?/1)

    |> Enum.sort()

  end



  defp dependency_file?(file) do

    String.contains?(file, "/deps/") or String.contains?(file, "/_build/")

  end

end