%% API
--export([start_link/2]).
+-export([start_link/3]).
%% Callbacks
-export([init/1]).
%% API
%% ============================================================================
-start_link(X, CellData) ->
- supervisor:start_link({local, ?MODULE}, ?MODULE, [X, CellData]).
+start_link(X, Y, CellData) ->
+ supervisor:start_link({local, ?MODULE}, ?MODULE, [X, Y, CellData]).
%% ============================================================================
%% Callbacks
%% ============================================================================
-init([X, CellData]) ->
+init([X, Y, CellData]) ->
CellNames = [Name || {_, Name, _} <- CellData],
- RestartStrategy = {one_for_one, 5, 10},
+ 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, CellNames]),
- Children = Cells ++ [Time],
+ Time = ?CHILD(worker, life_time, [X, Y, CellNames]),
+
+ Children = [Observer | Cells ++ [Time]],
+
{ok, {RestartStrategy, Children}}.
F = start_link,
A = [Datum],
{Name, {M, F, A}, permanent, 5000, worker, [M]}.
-
- %{ID, {ID, start_link, Args}, permanent, 5000, Type, [ID]}.
-
-
-
-