Packages
phoenix
0.2.2
1.8.9
1.8.8
1.8.7
1.8.6
1.8.5
1.8.4
1.8.3
1.8.2
1.8.1
1.8.0
1.8.0-rc.4
1.8.0-rc.3
1.8.0-rc.2
1.8.0-rc.1
1.8.0-rc.0
1.7.24
1.7.23
1.7.22
1.7.21
1.7.20
1.7.19
1.7.18
1.7.17
1.7.16
1.7.15
1.7.14
1.7.13
1.7.12
1.7.11
1.7.10
1.7.9
1.7.8
1.7.7
1.7.6
1.7.5
1.7.4
1.7.3
1.7.2
1.7.1
1.7.0
1.7.0-rc.3
1.7.0-rc.2
1.7.0-rc.1
1.7.0-rc.0
1.6.17
1.6.16
1.6.15
1.6.14
1.6.13
1.6.12
1.6.11
1.6.10
1.6.9
1.6.8
1.6.7
1.6.6
1.6.5
1.6.4
1.6.3
1.6.2
1.6.1
1.6.0
1.6.0-rc.1
1.6.0-rc.0
1.5.15
1.5.14
1.5.13
1.5.12
1.5.11
1.5.10
1.5.9
1.5.8
1.5.7
1.5.6
1.5.5
1.5.4
1.5.3
1.5.2
1.5.1
1.5.0
1.5.0-rc.0
1.4.18
1.4.17
1.4.16
1.4.15
1.4.14
1.4.13
1.4.12
1.4.11
1.4.10
1.4.9
1.4.8
1.4.7
1.4.6
1.4.5
1.4.4
1.4.3
1.4.2
1.4.1
1.4.0
1.4.0-rc.3
1.4.0-rc.2
1.4.0-rc.1
1.4.0-rc.0
1.3.5
1.3.4
1.3.3
1.3.2
1.3.1
1.3.0
1.3.0-rc.3
1.3.0-rc.2
1.3.0-rc.1
1.3.0-rc.0
1.2.5
1.2.4
1.2.3
1.2.2
1.2.1
1.2.0
1.2.0-rc.1
1.2.0-rc.0
1.1.9
1.1.8
1.1.7
1.1.6
1.1.5
1.1.4
1.1.3
1.1.2
1.1.1
1.1.0
1.0.6
1.0.5
1.0.4
1.0.3
1.0.2
1.0.1
1.0.0
0.17.1
0.17.0
0.16.1
0.16.0
0.15.0
0.14.0
0.13.1
0.13.0
0.12.0
0.11.0
0.10.0
0.9.0
0.8.0
0.7.2
0.7.1
0.7.0
0.6.2
0.6.1
0.6.0
0.5.0
0.4.1
0.4.0
0.3.1
0.3.0
0.2.11
0.2.10
0.2.9
0.2.8
0.2.7
0.2.6
0.2.5
0.2.4
0.2.3
0.2.2
0.2.1
0.2.0
0.1.0
Productive. Reliable. Fast. A productive web framework that does not compromise speed or maintainability.
Security advisory:
This version has known vulnerabilities.
View advisories
Current section
Files
Jump to
Current section
Files
lib/phoenix/topic/server.ex
defmodule Phoenix.Topic.Server do
use GenServer.Behaviour
alias Phoenix.Topic
alias Phoenix.Topic.Server
alias Phoenix.Topic.GarbageCollector
defstruct role: :slave,
gc_buffer: [],
garbage_collect_after_ms: 60_000..300_000
def start_link do
:gen_server.start_link __MODULE__, [], []
end
def leader_pid, do: :global.whereis_name(__MODULE__)
def init(_) do
case :global.register_name(Phoenix.Topic.Server, self) do
:no ->
Process.link(leader_pid)
{:ok, %Server{role: :slave}}
:yes ->
send(self, :garbage_collect_all)
{:ok, %Server{role: :leader}}
end
end
def handle_call(_message, _from, %Server{role: :slave}) do
{:stop, :error, nil, :slave}
end
def handle_call({:exists?, group}, _from, state) do
{:reply, exists?(group), state}
end
def handle_call({:active?, group}, _from, state) do
{:reply, active?(group), state}
end
def handle_call({:create, group}, _from, state) do
if exists?(group) do
{:reply, :ok, state}
else
:ok = :pg2.create(group)
{:reply, :ok, GarbageCollector.mark(state, group)}
end
end
def handle_call({:subscribe, pid, group}, _from, state) do
{:reply, :pg2.join(group, pid), state}
end
def handle_call({:unsubscribe, pid, group}, _from, state) do
{:reply, :pg2.leave(group, pid), state}
end
def handle_call({:delete, group}, _from, state) do
{:reply, delete(group), state}
end
def handle_info(_message, %Server{role: :slave}), do: {:stop, :error, nil, :slave}
def handle_info({:garbage_collect, groups}, state) do
active_groups = Enum.filter groups, fn group ->
if active?(group) do
true
else
delete(group)
false
end
end
{:noreply, GarbageCollector.mark(state, active_groups)}
end
def handle_info(:garbage_collect_all, state) do
{:noreply, GarbageCollector.mark(state, Topic.list)}
end
defp exists?(group) do
case :pg2.get_closest_pid(group) do
pid when is_pid(pid) -> true
{:error, {:no_process, _}} -> true
{:error, {:no_such_group, _}} -> false
end
end
defp active?(group) do
case :pg2.get_closest_pid(group) do
pid when is_pid(pid) -> true
_ -> false
end
end
defp delete(group), do: :pg2.delete(group)
end