forked from erlang/signerl
transaction_sup: start dha_fsm in addition to dsm_fsm
This commit is contained in:
parent
dbb39e1776
commit
24b34f506a
|
@ -47,10 +47,19 @@
|
||||||
%% call backs needed for supervisor behaviour
|
%% call backs needed for supervisor behaviour
|
||||||
-export([init/1]).
|
-export([init/1]).
|
||||||
|
|
||||||
init([NSAP, USAP, TID, TCO]) ->
|
gen_tsm_childspec(NSAP, USAP, TID, TCO) ->
|
||||||
Name = list_to_atom("tcap_tsm_" ++ integer_to_list(TID)),
|
Name = list_to_atom("tcap_tsm_" ++ integer_to_list(TID)),
|
||||||
StartArgs = [{local, Name}, tcap_tsm_fsm, [NSAP, USAP, TID, self(), TCO], []],
|
StartArgs = [{local, Name}, tcap_tsm_fsm, [NSAP, USAP, TID, self(), TCO], []],
|
||||||
StartFunc = {gen_fsm, start_link, StartArgs},
|
StartFunc = {gen_fsm, start_link, StartArgs},
|
||||||
ChildSpec = {Name, StartFunc, permanent, 1000, worker, [tcap_tsm_fsm]},
|
{Name, StartFunc, permanent, 1000, worker, [tcap_tsm_fsm]}.
|
||||||
{ok,{{one_for_all, 0, 1}, [ChildSpec]}}.
|
|
||||||
|
|
||||||
|
gen_dha_sup_childspec(_NSAP, User, LocalTID, TCO) ->
|
||||||
|
Name = "tcap_dha_" ++ integer_to_list(LocalTID),
|
||||||
|
StartArgs = [{local, Name}, tcap_dialogue_sup, {User, LocalTID, TCO}],
|
||||||
|
StartFunc = {supervisor, start_link, StartArgs},
|
||||||
|
{dha_sup, StartFunc, permanent, 1000, worker, [tcap_dialogue_sup]}.
|
||||||
|
|
||||||
|
init([NSAPfun, USAP, TID, TCO]) ->
|
||||||
|
TsmChild = gen_tsm_childspec(NSAPfun, USAP, TID, TCO),
|
||||||
|
DhaSupChild = gen_dha_sup_childspec(NSAPfun, USAP, TID, TCO),
|
||||||
|
{ok,{{one_for_all, 0, 1}, [TsmChild, DhaSupChild]}}.
|
||||||
|
|
Loading…
Reference in New Issue