cre_sup.erl

%% -*- erlang -*-
%%
%% CRE: common runtime environment for distributed programming languages
%%
%% Copyright 2015 Jörgen Brandt <joergen@cuneiform-lang.org>
%%
%% 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.
%%
%% -------------------------------------------------------------------
%% @author Jörgen Brandt <joergen@cuneiform-lang.org>
%% @copyright 2015
%%
%%
%%
%%
%%
%% @end
%% -------------------------------------------------------------------

-module( cre_sup ).
-behaviour( supervisor ).


%%====================================================================
%% Exports
%%====================================================================

-export( [start_link/0] ).
-export( [init/1] ).


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

-spec start_link() -> {ok, pid()} | {error, _}.

start_link() ->
  supervisor:start_link( {local, cre_sup}, ?MODULE, [] ).

%%====================================================================
%% Application callback functions
%%====================================================================

-spec init( _ ) -> {ok, {#{ strategy  => one_for_one,
                            intensity => non_neg_integer(),
                            period    => pos_integer() },
                         [#{ id       := _,
                             start    := {atom(), atom(), [_]},
                             restart  => temporary,
                             shutdown => non_neg_integer(),
                             type     => worker,
                             modules  => [atom()] }]}}.

init( _Args ) ->

    SupFlags = #{
                  strategy  => one_for_one,
                  intensity => 0,
                  period    => 5
                },

    ChildSpec = #{
                   id       => cre_master,
                   start    => {cre_master, start_link, [{local, cre_master}]},
                   restart  => temporary,
                   shutdown => 5000,
                   type     => worker,
                   modules  => [cre_master]
                 },

    {ok, {SupFlags, [ChildSpec]}}.