Current section

Files

Jump to
dynamic_supervisor_proxy lib dynamic_supervisor proxy starter.ex
Raw

lib/dynamic_supervisor/proxy/starter.ex

defmodule DynamicSupervisor.Proxy.Starter do
use PersistConfig
alias DynamicSupervisor.Proxy.Log
@timeout get_env(:timeout)
@times get_env(:times)
@spec start_link(module, term, GenServer.options()) :: Supervisor.on_start()
def start_link(mod, arg, opts) do
case DynamicSupervisor.start_link(mod, arg, opts) do
{:ok, pid} ->
{:ok, pid}
{:error, {:already_started, _pid} = reason} ->
name = opts[:name]
still_registered = {name, @timeout, @times, reason, __ENV__}
:ok = Log.error(:already_registered, still_registered)
:ok = wait(name, reason, @times)
DynamicSupervisor.start_link(mod, arg, opts)
end
end
## Private functions
# On restarts, wait if name still registered...
@spec wait(atom, term, non_neg_integer) :: :ok
defp wait(name, reason, 0) do
remains_registered = {name, @timeout, @times, reason, __ENV__}
:ok = Log.warn(:remains_registered, remains_registered)
end
defp wait(name, reason, times_left) do
Process.sleep(@timeout)
times_left = times_left - 1
case Process.whereis(name) do
nil ->
times = @times - times_left
now_unregistered = {name, @timeout, times, reason, __ENV__}
:ok = Log.info(:now_unregistered, now_unregistered)
pid when is_pid(pid) ->
still_registered = {name, @timeout, times_left, reason, __ENV__}
:ok = Log.info(:still_registered, still_registered)
wait(name, reason, times_left)
end
end
end