worked more on chat

This commit is contained in:
Jonatan Pålsson 2011-02-21 15:11:28 +01:00
parent 507081c234
commit 7412087d4a
7 changed files with 25 additions and 18 deletions

View file

@ -56,21 +56,21 @@ stop(_Player,_Table) ->
%% Internals
loop(#pl_state{token = Token, socket = Socket, table = Table} = State) ->
loop(#pl_state{token = _Token, socket = Socket, table = Table} = State) ->
receive
{tcp, Socket, Data} -> % Just echo for now..
io:format("Parsing via protocol module..~n"),
Parsed = ggs_protocol:parse(Data),
self() ! Parsed,
loop(State);
{notify, From, Message} ->
{notify, _From, Message} ->
gen_tcp:send(Socket, Message),
loop(State);
% Below are messages generated by the parser
{game_cmd,Cmd, Headers, Data} ->
{game_cmd,Cmd, _Headers, Data} ->
ggs_table:notify(Table, self(), {game, Cmd, Data}),
loop(State);
{srv_cmd,"define", Headers, Data} ->
{srv_cmd,"define", _Headers, Data} ->
ggs_table:notify(Table, self(), {server, define, Data}),
loop(State);
{tcp_closed, _Socket} ->