diff options
author | Anders Svensson <[email protected]> | 2011-12-16 16:51:19 +0100 |
---|---|---|
committer | Anders Svensson <[email protected]> | 2011-12-16 18:27:20 +0100 |
commit | 20c2dcc70525f110c6f71c4b968d7d67682b7c35 (patch) | |
tree | 056e705098c3b4dd852055e38a3c480f512c320e /lib/diameter/examples/sctp.erl | |
parent | fba96f493b940f032bc238492a9375ad6397dbe4 (diff) | |
download | otp-20c2dcc70525f110c6f71c4b968d7d67682b7c35.tar.gz otp-20c2dcc70525f110c6f71c4b968d7d67682b7c35.tar.bz2 otp-20c2dcc70525f110c6f71c4b968d7d67682b7c35.zip |
Move example code to examples/code
Diffstat (limited to 'lib/diameter/examples/sctp.erl')
-rw-r--r-- | lib/diameter/examples/sctp.erl | 113 |
1 files changed, 0 insertions, 113 deletions
diff --git a/lib/diameter/examples/sctp.erl b/lib/diameter/examples/sctp.erl deleted file mode 100644 index 2e0e9d8b0b..0000000000 --- a/lib/diameter/examples/sctp.erl +++ /dev/null @@ -1,113 +0,0 @@ - --module(sctp). - -%% -%% A small example demonstrating the establishment of an SCTP -%% association with gen_sctp. -%% - --export([assoc/0, - dbg/0]). - --include_lib("kernel/include/inet_sctp.hrl"). - --define(ADDR, {127,0,0,1}). --define(SERVER_PORT, 3868). --define(CONNECT_TIMEOUT, 2000). --define(REQUEST, <<0:64>>). --define(REPLY, <<1:64>>). - --record(server, {client, - socket, - assoc}). - --record(client, {socket, - assoc}). - -%% assoc/0 -%% -%% Return on a successfully established association, raise an -%% exception otherwise. - -assoc() -> - {_, MRef} = spawn_monitor(fun server/0), - receive {'DOWN', MRef, process, _, Info} -> Info end. - -%% dbg/0 - -dbg() -> - dbg:tracer(), - dbg:p(all,c), - dbg:tpl(?MODULE, [{'_',[],[{exception_trace}]}]), - dbg:tp(gen_sctp, [{'_',[],[{exception_trace}]}]), - ok. - -%% server/0 - -server() -> - {ok, Sock} = gen_sctp:open([binary, - {reuseaddr, true}, - {active, true}, - {ip, ?ADDR}, - {port, ?SERVER_PORT}]), - ok = gen_sctp:listen(Sock, true), - {_Pid, MRef} = spawn_monitor(fun client/0), - s(#server{client = MRef, socket = Sock}), - gen_sctp:close(Sock). - -%% s/1 - -s(#server{} = S) -> - s(s(receive T -> T end, S)); -s(T) -> - T. - -%% s/2 - -s({sctp, Sock, _RA, _RP, {[], #sctp_assoc_change{state = comm_up, - assoc_id = Id}}}, - #server{socket = Sock, assoc = undefined} - = S) -> - S#server{assoc = Id}; - -s({sctp, Sock, _RA, _RP, {[#sctp_sndrcvinfo{assoc_id = AId, - stream = SId}], - ?REQUEST}}, - #server{socket = Sock, assoc = AId} - = S) -> - ok = gen_sctp:send(Sock, AId, SId, ?REPLY), - S; - -s({'DOWN', MRef, process, _, normal} = T, #server{client = MRef}) -> - T. - -%% client/0 - -client() -> - {ok, Sock} = gen_sctp:open([binary, - {reuseaddr, true}, - {active, true}, - {ip, ?ADDR}, - {port, 0}]), - ok = gen_sctp:connect_init(Sock, ?ADDR, ?SERVER_PORT, []), - c(#client{socket = Sock}), - gen_sctp:close(Sock). - - -%% c/1 - -c(#client{} = S) -> - c(c(receive T -> T end, S)); -c(T) -> - T. - -c({sctp, Sock, _RA, _RP, {[], #sctp_assoc_change{state = comm_up, - assoc_id = Id}}}, - #client{socket = Sock, assoc = undefined} - = S) -> - ok = gen_sctp:send(Sock, Id, 0, ?REQUEST), - S#client{assoc = Id}; - -c({sctp, Sock, _RA, _RP, {[#sctp_sndrcvinfo{assoc_id = AId}], ?REPLY}}, - #client{socket = Sock, assoc = AId}) -> - ok. |