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

add xua_asp_test module to repository (was in my local tree only)

This commit is contained in:
Harald Welte 2012-05-30 12:06:21 +02:00
parent e58b38f7a8
commit eef6ce4397
1 changed files with 32 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
src/xua_asp_test.erl Normal file
View File

@ -0,0 +1,32 @@
-module(xua_asp_test).
-include("osmo_util.hrl").
-include("m3ua.hrl").
-export([start/0, create_asp/0]).
-export([asp_up_ack/1, asp_active_ack/1, asp_inactive_ack/1, asp_down_ack/1]).
start() ->
sg_as_sup:start_link("foo", [{debug, [trace]}]).
create_asp() ->
Fun = fun(Prim, Args) -> asp_prim_to_user(Prim, Args) end,
AspArgs = [sua_asp, [], Fun, [], self()],
xua_as_fsm:create_asp("foo", AspArgs).
asp_up_ack(Pid) ->
gen_fsm:send_event(Pid, {xua_msg, ?M3UA_MSGC_ASPSM, ?M3UA_MSGT_ASPSM_ASPUP_ACK}).
asp_active_ack(Pid) ->
gen_fsm:send_event(Pid, {xua_msg,?M3UA_MSGC_ASPTM, ?M3UA_MSGT_ASPTM_ASPAC_ACK}).
asp_inactive_ack(Pid) ->
gen_fsm:send_event(Pid, {xua_msg, ?M3UA_MSGC_ASPTM, ?M3UA_MSGT_ASPTM_ASPIA_ACK}).
asp_down_ack(Pid) ->
gen_fsm:send_event(Pid, {xua_msg, ?M3UA_MSGC_ASPSM, ?M3UA_MSGT_ASPSM_ASPDN_ACK}).
asp_prim_to_user(Prim, _Args) ->
io:format("ASP->SCTP: ~p~n", [Prim]).