Started new structure

src/ggs_protocol.erl

@@ -1,49 +0,0 @@
--module(ggs_protocol).
--export([parse/1]).
-
-parse(Data) ->
-    Parsed = do_parse(Data, []),
-    prettify(Parsed).
-
-do_parse(Data, ParsedMessage) ->
-    NewLinePos = string:chr(Data, $\n),
-    Line = string:substr(Data, 1, NewLinePos-1),
-    Tokens = re:split(Line, ": ", [{return, list}]),
-    case handle(Tokens) of
-        {Command, more} ->
-            do_parse(string:substr(Data, NewLinePos+1), ParsedMessage ++ [Command]);
-        {separator, data_next} ->
-            {_, Value} = lists:keyfind(content_len, 1, ParsedMessage),
-            {ContentLength, []} = string:to_integer(Value),
-            {ParsedMessage, handle_data(string:substr(Data, NewLinePos+1), ContentLength)}
-    end.
-
-handle([[]]) ->
-    {separator, data_next};
-handle(["Server-Command", Param]) ->
-    {{srv_cmd, Param}, more};
-handle(["Content-Length", Param]) ->
-    {{content_len, Param}, more};
-handle(["Token", Param]) ->
-    {{token, Param}, more};
-handle(["Content-Type", Param]) ->
-    {{content_type, Param}, more}.
-
-handle_data(Data, Length) ->
-    {data, string:substr(Data,1,Length)}.
-
-
-%% Helpers
-prettify({Args, Data}) ->
-    case lists:keyfind(srv_cmd, 1, Args) of
-        {_, Value} ->
-            gen_server:cast(ggs_server, {srv_cmd, Value, Args, Data});
-        _Other ->
-            case lists:keyfind(game_cmd, 1, Args) of
-                {_, Value} ->
-                    gen_server:cast(ggs_server, {game_cmd, Value, Args, Data});
-                _ ->
-                    ok
-            end
-    end.
-