Packages
commanded
1.4.10
1.4.10
1.4.9
1.4.8
1.4.7
1.4.6
1.4.3
1.4.2
1.4.1
1.4.0
1.4.0-rc.0
1.3.1
1.3.0
1.2.0
1.1.1
1.1.0
1.0.1
1.0.0
1.0.0-rc.1
1.0.0-rc.0
0.19.1
0.19.0
0.18.1
0.18.0
0.17.5
0.17.4
0.17.3
0.17.2
0.17.1
0.17.0
0.16.0
0.16.0-rc.1
0.16.0-rc.0
0.15.1
0.15.0
0.14.0
0.14.0-rc.0
0.13.0
0.12.0
0.11.0
0.10.0
0.9.0
0.8.5
0.8.4
0.8.3
0.8.1
0.8.0
0.7.1
0.6.2
0.6.1
0.6.0
0.4.0
0.3.1
0.3.0
0.2.1
0.2.0
0.1.0
Use Commanded to build your own Elixir applications following the CQRS/ES pattern.
Current section
Files
Jump to
Current section
Files
lib/commanded/application/config.ex
defmodule Commanded.Application.Config do
@moduledoc false
use GenServer
def start_link(_opts) do
GenServer.start_link(__MODULE__, :ok, name: __MODULE__)
end
def associate(pid, application, value) when is_pid(pid) and is_atom(application) do
GenServer.call(__MODULE__, {:associate, pid, application, value})
end
def get(application, setting) when is_atom(application) and is_atom(setting) do
application |> lookup() |> Keyword.get(setting)
end
@doc """
Put a value into the application's config. This is test induced damage and you
probably shouldn't be using it.
"""
def __put__(application, setting, value) when is_atom(application) and is_atom(setting) do
GenServer.call(__MODULE__, {:put, application, setting, value})
end
@impl GenServer
def init(:ok) do
table = :ets.new(__MODULE__, [:named_table, read_concurrency: true])
{:ok, table}
end
@impl GenServer
def handle_call({:associate, pid, application, config}, _from, table) do
ref = Process.monitor(pid)
true = :ets.insert(table, {application, pid, ref, config})
{:reply, :ok, table}
end
@impl GenServer
def handle_call({:put, application, settings, value}, _from, table) do
config =
lookup(application)
|> Keyword.put(settings, value)
true = :ets.update_element(table, application, {4, config})
{:reply, :ok, table}
end
@impl GenServer
def handle_info({:DOWN, ref, _type, pid, _reason}, table) do
[[application]] = :ets.match(table, {:"$1", pid, ref, :_})
:ets.delete(table, application)
{:noreply, table}
end
defp lookup(application) do
:ets.lookup_element(__MODULE__, application, 4)
rescue
ArgumentError ->
raise "could not lookup #{inspect(application)} because it was not started or it does not exist"
end
end