Packages

perspective

0.1.2
0.1.16 0.1.15 0.1.14 0.1.13 0.1.12 0.1.11 0.1.10 0.1.9 0.1.8 0.1.7 0.1.6 0.1.5 0.1.4 0.1.3 0.1.2 0.1.1 0.1.0 0.0.1 0.0.0

An event sourcing library based upon asynchronously generated perspectives

Current section

Files

Jump to
Readme
19 Versions
13 Dependencies
Dependants
Files
Activity
perspective lib perspective utilities ancestral_app_id.ex
Raw

lib/perspective/utilities/ancestral_app_id.ex 

defmodule Perspective.AncestralAppID do

  def find(pid) do

    ancestors(pid)

    |> Enum.reduce_while(nil, fn ancestor, _acc ->

      case app_id(ancestor) do

        nil -> {:cont, nil}

        value -> {:halt, value}

      end

    end)

  end



  def ancestors(pid) when is_pid(pid) do

    Process.info(pid)

    |> Keyword.get(:dictionary, [])

    |> Keyword.get(:"$ancestors", [])

  end



  def app_id(pid) when is_pid(pid) do

    Process.info(pid)

    |> Keyword.get(:dictionary, [])

    |> Keyword.get(:app_id, nil)

  end



  def app_id(_pid), do: nil

end