summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDimitri Sokolyuk <demon@dim13.org>2015-11-03 01:24:50 +0100
committerDimitri Sokolyuk <demon@dim13.org>2015-11-03 01:24:50 +0100
commit064386a1304c769cca11ad80acf31e6422c13d7f (patch)
treef7569af9da9b85f85a3fa83863002854387cb095
parent2828b4ef0f4bb74edd39188f81dd6d3ee2a67ec6 (diff)
gen_server stub
-rw-r--r--src/tda.erl13
1 files changed, 9 insertions, 4 deletions
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}.