summaryrefslogtreecommitdiff
path: root/tda.erl
diff options
context:
space:
mode:
authorDimitri Sokolyuk <demon@dim13.org>2015-10-25 01:34:29 +0200
committerDimitri Sokolyuk <demon@dim13.org>2015-10-25 01:34:29 +0200
commit7948b1c7310fd19bd4199802e0df49fe357159c2 (patch)
treeb4230670f10d01ba608a26411f70aff6ebe1f386 /tda.erl
parent80311e3b4f60bd1c2484ac2d5b77c1f376dfa94d (diff)
Remove debug output
Diffstat (limited to 'tda.erl')
-rw-r--r--tda.erl17
1 files changed, 7 insertions, 10 deletions
diff --git a/tda.erl b/tda.erl
index 027efbd..c30c1e2 100644
--- a/tda.erl
+++ b/tda.erl
@@ -80,7 +80,6 @@ arg(#'Invoke'{argument = Arg}) -> Arg.
system_status() ->
RR = #'ReturnResult_result'{opcode = {local, 211}, result = <<5,0>>},
R = #'ReturnResult'{invokeId = {present, 1}, result = RR},
- io:format("~p~n", [R]),
case rose:encode('ROS', {returnResult, R}) of
{ok, Invoke} -> Invoke;
{error, Reason} -> Reason
@@ -95,7 +94,6 @@ client() ->
3000) of
{ok, Sock} ->
{ok, Hello} = associate_request(),
- io:format("Hello: ~p~n", [Hello]),
gen_tcp:send(Sock, Hello),
loop(Sock);
{error, Reason} -> {error, Reason}
@@ -105,7 +103,6 @@ stop(Sock) -> gen_tcp:close(Sock).
loop(Sock) ->
%inet:setopts(Sock, [{active, once}]),
- io:format("loop ~p~n", [Sock]),
receive
{tcp, Sock, Msg} ->
decode(Sock, Msg),
@@ -113,8 +110,8 @@ loop(Sock) ->
{tcp_closed, _} ->
closed
after ?TIMEOUT ->
- io:format("timeout~n"),
- stop(Sock)
+ stop(Sock),
+ timeout
end.
decode(Sock, Msg) ->
@@ -145,11 +142,11 @@ invoke_handler(#'Invoke'{invokeId = {present, Id}, opcode = {local, Op}}) ->
dispatch(<<H:8,_/binary>>) ->
case H of
- 96 -> acse;
- 97 -> acse;
- 98 -> acse;
- 99 -> acse;
+ 96 -> acse;
+ 97 -> acse;
+ 98 -> acse;
+ 99 -> acse;
100 -> acse;
161 -> rose;
162 -> rose
- end.
+ end.