[cellular-automata.git] / life / 001 / src / life_god.erl

-module(life_god).
-behaviour(supervisor).


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

%% Callbacks
-export([init/1]).


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


%% ============================================================================
%% API
%% ============================================================================

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


%% ============================================================================
%% Callbacks
%% ============================================================================

init([X, Y, CellData]) ->
    CellNames = [Name || {_, Name, _} <- CellData],
    RestartStrategy = {one_for_one, 1000000, 1},

    Observer = ?CHILD(worker, life_observer, [X, Y]),
    Cells = [spec_cell(Datum) || Datum <- CellData],
    Time = ?CHILD(worker, life_time, [X, Y, CellNames]),

    Children = [Observer | Cells ++ [Time]],

    {ok, {RestartStrategy, Children}}.


spec_cell({_, Name, _}=Datum) ->
    M = life_cell,
    F = start_link,
    A = [Datum],
    {Name, {M, F, A}, permanent, 5000, worker, [M]}.
Commit	Line	Data
	1	-module(life_god).
	2	-behaviour(supervisor).
	3
	4
	5	%% API
	6	-export([start_link/3]).
	7
	8	%% Callbacks
	9	-export([init/1]).
	10
	11
	12	%% Helper macro for declaring children of supervisor
	13	-define(CHILD(Type, I, Args), {I, {I, start_link, Args}, permanent, 5000, Type, [I]}).
	14
	15
	16	%% ============================================================================
	17	%% API
	18	%% ============================================================================
	19
	20	start_link(X, Y, CellData) ->
	21	supervisor:start_link({local, ?MODULE}, ?MODULE, [X, Y, CellData]).
	22
	23
	24	%% ============================================================================
	25	%% Callbacks
	26	%% ============================================================================
	27
	28	init([X, Y, CellData]) ->
	29	CellNames = [Name \|\| {_, Name, _} <- CellData],
	30	RestartStrategy = {one_for_one, 1000000, 1},
	31
	32	Observer = ?CHILD(worker, life_observer, [X, Y]),
	33	Cells = [spec_cell(Datum) \|\| Datum <- CellData],
	34	Time = ?CHILD(worker, life_time, [X, Y, CellNames]),
	35
	36	Children = [Observer \| Cells ++ [Time]],
	37
	38	{ok, {RestartStrategy, Children}}.
	39
	40
	41	spec_cell({_, Name, _}=Datum) ->
	42	M = life_cell,
	43	F = start_link,
	44	A = [Datum],
	45	{Name, {M, F, A}, permanent, 5000, worker, [M]}.