1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
%% @copyright 2011 Hunter Morris
%% @doc Implementation of `supervisor' behaviour.
%% @private
%% @end
%% Distributed under the MIT license; see LICENSE for details.
-module(bcrypt_sup).
-author('Hunter Morris <huntermorris@gmail.com>').
-behaviour(supervisor).
-export([start_link/0, init/1]).
start_link() -> supervisor:start_link({local, ?MODULE}, ?MODULE, []).
init([]) ->
PortChildren
= [{bcrypt_port_sup, {bcrypt_port_sup, start_link, []}, permanent,
16#ffffffff, supervisor, [bcrypt_port_sup]},
{bcrypt_pool, {bcrypt_pool, start_link, []}, permanent,
16#ffffffff, worker, [bcrypt_pool]}],
NifChildren
= [{bcrypt_nif_pool_sup, {bcrypt_nif_pool_sup, start_link, []}, permanent,
16#ffffffff, supervisor, [bcrypt_nif_pool_sup]}],
case application:get_env(bcrypt, mechanism) of
undefined -> {stop, no_mechanism_defined};
{ok, nif} -> {ok, {{one_for_all, 15, 60}, NifChildren}};
{ok, port} -> {ok, {{one_for_all, 15, 60}, PortChildren}}
end.
|
