Packages
thousand_island
1.0.0-pre.4
1.5.0
1.4.3
1.4.2
1.4.1
1.4.0
1.3.14
1.3.13
1.3.12
1.3.11
1.3.10
1.3.9
1.3.8
1.3.7
1.3.6
1.3.5
1.3.4
1.3.3
1.3.2
1.3.1
1.3.0
1.2.0
1.1.0
1.0.0
1.0.0-pre.7
1.0.0-pre.6
1.0.0-pre.5
1.0.0-pre.4
1.0.0-pre.3
1.0.0-pre.2
1.0.0-pre.1
0.6.7
0.6.6
0.6.5
0.6.4
0.6.3
0.6.2
0.6.1
0.6.0
0.5.17
0.5.16
0.5.15
0.5.14
0.5.13
0.5.12
0.5.11
0.5.10
0.5.9
0.5.8
0.5.7
0.5.6
0.5.5
0.5.4
0.5.3
0.5.2
0.5.1
0.5.0
0.4.7
0.4.6
0.4.5
0.4.4
0.4.3
0.4.2
0.4.1
0.4.0
0.3.3
0.3.2
0.3.1
0.3.0
0.2.1
0.2.0
0.1.3
0.1.2
0.1.1
0.1.0
A simple & modern pure Elixir socket server
Current section
Files
Jump to
Current section
Files
lib/thousand_island/server.ex
defmodule ThousandIsland.Server do
@moduledoc false
use Supervisor
@spec start_link(ThousandIsland.ServerConfig.t()) :: Supervisor.on_start()
def start_link(%ThousandIsland.ServerConfig{} = config) do
Supervisor.start_link(__MODULE__, config)
end
@spec listener_pid(Supervisor.supervisor()) :: pid() | nil
def listener_pid(supervisor) do
supervisor
|> Supervisor.which_children()
|> Enum.find_value(fn
{:listener, listener_pid, _, _} when is_pid(listener_pid) ->
listener_pid
_ ->
false
end)
end
@spec acceptor_pool_supervisor_pid(Supervisor.supervisor()) :: pid() | nil
def acceptor_pool_supervisor_pid(supervisor) do
supervisor
|> Supervisor.which_children()
|> Enum.find_value(fn
{:acceptor_pool_supervisor, acceptor_pool_sup_pid, _, _}
when is_pid(acceptor_pool_sup_pid) ->
acceptor_pool_sup_pid
_ ->
false
end)
end
@impl Supervisor
@spec init(ThousandIsland.ServerConfig.t()) ::
{:ok,
{Supervisor.sup_flags(),
[Supervisor.child_spec() | (old_erlang_child_spec :: :supervisor.child_spec())]}}
def init(config) do
children = [
Supervisor.child_spec({ThousandIsland.Listener, config}, id: :listener),
Supervisor.child_spec({ThousandIsland.AcceptorPoolSupervisor, {self(), config}},
id: :acceptor_pool_supervisor
),
{ThousandIsland.ShutdownListener, self()}
]
Supervisor.init(children, strategy: :rest_for_one)
end
end