erlang
/
osmo_ss7
mirror of https://gerrit.osmocom.org/erlang/osmo_ss7
4
0
Fork 0
Code Issues Projects Releases Wiki Activity

xua_as_fsm: fix use of lists:all/2 and introduc create_asp/2

This commit is contained in:
Harald Welte 2012-05-08 23:36:49 +02:00
parent ee7964c0f3
commit 7c3ec176b1
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/xua_as_fsm.erl
View File

@ -44,6 +44,9 @@
% states in this FSM
-export([as_down/2, as_inactive/2, as_active/2, as_pending/2]).
% exported API
-export([create_asp/2]).
% Timeouts in milliseconds
-define(T_R_TIMEOUT, 2*60*100).
@ -54,6 +57,10 @@
asp_list
}).
create_asp(Name, AspFsmArgs) ->
AsFsmName = sg_as_sup:get_as_fsm_name(Name),
gen_fsm:sync_send_all_state_event(AsFsmName, {create_asp, AspFsmArgs}).
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% gen_fsm callbacks
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
@ -225,7 +232,7 @@ check_any_other_asp_in_active(LoopDat, AspPid) ->
check_any_other_asp_not_down(LoopDat, AspPid) ->
ListWithoutMe = lists:delete(AspPid, LoopDat#as_state.asp_list),
StateList = build_asp_state_list(ListWithoutMe),
not lists:all('ASP_DOWN', StateList).
not lists:all(fun(E) -> E == 'ASP_DOWN' end, StateList).
check_any_other_asp_in_state(State, LoopDat, AspPid) ->
ListWithoutMe = lists:delete(AspPid, LoopDat#as_state.asp_list),