From 7948b1c7310fd19bd4199802e0df49fe357159c2 Mon Sep 17 00:00:00 2001 From: Dimitri Sokolyuk Date: Sun, 25 Oct 2015 01:34:29 +0200 Subject: Remove debug output --- tda.erl | 17 +++++++---------- 1 file changed, 7 insertions(+), 10 deletions(-) (limited to 'tda.erl') 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(<>) -> 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. -- cgit v1.2.3