jeena/GGS
Archived
1
0
Fork 0
Code Issues Pull requests Projects Packages Wiki Activity Actions

Start multiple times on same terminal

Browse source
This commit is contained in:
Kallfaktorn 2011-04-20 15:35:51 +02:00
parent c8e6bebce7
commit 762698945d
2 changed files with 68 additions and 71 deletions
Download patch file Download diff file Expand all files Collapse all files

32
games/pong_bot_e/ggs_network.erl
View file

@ -1,20 +1,20 @@
-module(ggs_network).
-export([connect/0,append_key_value_strings_to_dict/2,key_value_string_to_list/1]).
-export([read/1, send_command/2]).
-export([read/2, send_command/3]).
connect() ->
{ok,Socket} = gen_tcp:connect("localhost", 9000,[{active, false}]),
Socket.
read(Socket) ->
read(Socket, Ref) ->
Content = receive_content(Socket),
Headers = extract_headers(Content),
ContentSize = dict:fetch("Content-Size", Headers),
ContentSizeI = list_to_integer(lists:nth(1, ContentSize)),
Data = receive_data(Socket, ContentSizeI, ""),
io:format("Headers: ~s~n", [Content]),
io:format("Data: ~s~n", [Data]),
received_command(Headers, Data).
%io:format("Headers: ~s~n", [Content]),
%io:format("Data: ~s~n", [Data]),
received_command(Headers, Data, Ref).
receive_content(Socket) ->
receive_content_(0, "", Socket).
@ -37,21 +37,21 @@ receive_data(Socket, ContentSize, Headers) ->
{ok, Char} = gen_tcp:recv(Socket, 1),
receive_data(Socket, ContentSize - 1, Headers ++ Char).
received_command(Headers, Data) ->
received_command(Headers, Data, Ref) ->
{ok, CommandList} = dict:find("Client-Command", Headers),
Command = lists:nth(1, CommandList),
case Command of
"hello" ->
pong_bot:set_game_token(Data),
send_command("ready", "");
pong_bot:set_game_token(Data, Ref),
send_command("ready", "", Ref);
"defined" ->
ok;
Command ->
pong_bot:ggsNetworkReceivedCommandWithArgs(Command, Data)
pong_bot:ggsNetworkReceivedCommandWithArgs(Command, Data, Ref)
end.
make_message(ServerOrGame, Command, Args) ->
GameToken = pong_bot:get_game_token(),
make_message(ServerOrGame, Command, Args, Ref) ->
GameToken = pong_bot:get_game_token(Ref),
StrGameToken = string:concat("Token: ", GameToken),
StrGameTokenln = string:concat(StrGameToken, "\n"),
StrCommand = string:concat("-Command: ", Command),
@ -64,11 +64,11 @@ make_message(ServerOrGame, Command, Args) ->
MessageWithArgs = string:concat(Message, list_concat(Args,[])),
MessageWithArgs.
send_command(Command, Args) ->
write(make_message("Game", Command, Args)).
send_command(Command, Args, Ref) ->
write(make_message("Game", Command, Args, Ref), Ref).
write(Message) ->
Socket = gen_server:call({global, pong_bot}, socket),
write(Message, Ref) ->
Socket = gen_server:call({global, {pong_bot, Ref}}, socket),
gen_tcp:send(Socket, Message).
list_concat([],Ret) ->
@ -76,8 +76,6 @@ list_concat([],Ret) ->
list_concat([E|ES],Ret) ->
NewRet = string:concat(Ret,E),
list_concat(ES,NewRet).
%%%Packet parsing.%%%