eventstore

defmodule EventStore.Registration do
  @moduledoc """
  Process registry specification
  """

  @doc """
  Return an optional supervisor spec for the registry
  """
  @callback child_spec() :: [:supervisor.child_spec()]

  @doc """
  Starts a uniquely named child process of a supervisor using the given module and args.

  Registers the pid with the given name.
  """
  @callback start_child(name :: term(), supervisor :: module(), args :: [any()]) :: {:ok, pid()} | {:error, reason :: term()}

  @doc """
  Sends a message to the given dest and returns `:ok`.
  """
  @callback multi_send(dest :: atom(), message :: any()) :: :ok

  @doc """
  Get the pid of a registered name.

  Returns `:undefined` if the name is unregistered.
  """
  @callback whereis_name(name :: term()) :: pid() | :undefined

  @doc """
  Return a `:via` tuple to route a message to a process by its registered name
  """
  @callback via_tuple(name :: term()) :: {:via, module(), name :: term()}

  @doc false
  @spec child_spec() :: [:supervisor.child_spec()]
  def child_spec, do: registry_provider().child_spec()

  @doc false
  @callback start_child(name :: term(), supervisor :: module(), args :: [any()]) :: {:ok, pid()} | {:error, reason :: term()}
  def start_child(name, supervisor, args), do: registry_provider().start_child(name, supervisor, args)

  @doc false
  @spec multi_send(server :: atom(), message :: any()) :: :ok
  def multi_send(server, message), do: registry_provider().multi_send(server, message)

  @doc false
  @spec whereis_name(term()) :: pid() | :undefined
  def whereis_name(name), do: registry_provider().whereis_name(name)

  @doc false
  @spec via_tuple(name :: term()) :: {:via, module(), name :: term()}
  def via_tuple(name), do: registry_provider().via_tuple(name)

  @doc """
  Get the configured registry provider, defaults to `:local` if not configured
  """
  def registry_provider do
    case Application.get_env(:eventstore, :registry, :local) do
      :local       -> EventStore.Registration.LocalRegistry
      :distributed -> EventStore.Registration.DistributedRegistry
      unknown      -> raise ArgumentError, message: "Unknown `:registry` setting in config: #{inspect unknown}"
    end
  end

  @doc """
  Use the `EventStore.Registration` module to import the `registry_provider/0` and `via_tuple/1` functions.
  """
  defmacro __using__(_) do
    quote location: :keep do
      @before_compile unquote(__MODULE__)

      import unquote(__MODULE__), only: [registry_provider: 0, via_tuple: 1]
      alias unquote(__MODULE__)
    end
  end

  @doc """
  Allow a registry provider to handle the standard `GenServer` callback functions
  """
  defmacro __before_compile__(_env) do
    quote location: :keep do
      @doc false
      def handle_call(request, from, state), do: registry_provider().handle_call(request, from, state)

      @doc false
      def handle_cast(request, state), do: registry_provider().handle_cast(request, state)

      @doc false
      def handle_info(msg, state), do: registry_provider().handle_info(msg, state)
    end
  end
end