buffalo

%% @author Arjan Scherpenisse <arjan@scherpenisse.net>
%% @copyright 2012-2019 Arjan Scherpenisse
%% @doc Buffalo main supervisor
%% @end

%% Copyright 2012-2019 Arjan Scherpenisse
%%
%% Licensed under the Apache License, Version 2.0 (the "License");
%% you may not use this file except in compliance with the License.
%% You may obtain a copy of the License at
%%
%%     http://www.apache.org/licenses/LICENSE-2.0
%%
%% Unless required by applicable law or agreed to in writing, software
%% distributed under the License is distributed on an "AS IS" BASIS,
%% WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
%% See the License for the specific language governing permissions and
%% limitations under the License.

-module(buffalo_sup).

-behaviour(supervisor).

-include("../include/buffalo.hrl").

%% API
-export([start_link/0]).

%% Supervisor callbacks
-export([init/1]).

%% Helper macro for declaring children of supervisor
-define(CHILD(I, Type), {I, {I, start_link, []}, permanent, 5000, Type, [I]}).

%% ===================================================================
%% API functions
%% ===================================================================

-spec start_link() -> Result when
	Result :: {ok, pid()} | ignore | {error, StartlinkError},
	StartlinkError :: {already_started, pid()} | {shutdown, term()} | term().
start_link() ->
    supervisor:start_link({local, ?MODULE}, ?MODULE, []).

%% ===================================================================
%% Supervisor callbacks
%% ===================================================================

%% @private

-spec init(Args) -> Result when 
	Args :: [],
	Result :: {ok,{SupFlags, ChildSpec}} | ignore,
	SupFlags :: {one_for_one, 5, 10},
	ChildSpec :: [supervisor:child_spec()].
init([]) ->
    ets:new(buffalo, [set, named_table, public, {keypos, #buffalo_entry.key}]),
    Children = [?CHILD(buffalo_worker_sup, supervisor),
                ?CHILD(buffalo_queuer, worker)],
    {ok, { {one_for_one, 5, 10}, Children} }.