From 064386a1304c769cca11ad80acf31e6422c13d7f Mon Sep 17 00:00:00 2001 From: Dimitri Sokolyuk Date: Tue, 3 Nov 2015 01:24:50 +0100 Subject: gen_server stub --- src/tda.erl | 13 +++++++++---- 1 file changed, 9 insertions(+), 4 deletions(-) (limited to 'src/tda.erl') diff --git a/src/tda.erl b/src/tda.erl index 6b2d5eb..3bba356 100644 --- a/src/tda.erl +++ b/src/tda.erl @@ -16,10 +16,17 @@ start_link() -> gen_server:start_link({local, ?SERVER}, ?MODULE, [?HOST, ?PORT], []). init(Args) -> - counter:start(), [Host, Port] = Args, gen_tcp:connect(Host, Port, [binary, {packet, 2}], ?TIMEOUT). +handle_call({ok, Reply}, _From, Socket) -> + gen_tcp:send(Socket, Reply), + {noreply, ok, Socket}; +handle_call({tcp, Socket, Data}, _From, Socket) -> + decode(Data), + {noreply, ok, Socket}; +handle_call({tcp_closed, _}, _From, Socket) -> + {stop, closed, Socket}; handle_call(_Request, _From, State) -> {reply, ok, State}. @@ -30,9 +37,7 @@ handle_info(_Info, State) -> {noreply, State}. terminate(_Reason, State) -> - counter:stop(), - gen_tcp:close(State), - ok. + gen_tcp:close(State). code_change(_OldVsn, State, _Extra) -> {ok, State}. -- cgit v1.2.3