aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--src/cowboy_spdy.erl36
1 files changed, 20 insertions, 16 deletions
diff --git a/src/cowboy_spdy.erl b/src/cowboy_spdy.erl
index 01ec5cb..ca834ef 100644
--- a/src/cowboy_spdy.erl
+++ b/src/cowboy_spdy.erl
@@ -106,20 +106,24 @@ init(Parent, Ref, Socket, Transport, Opts) ->
middlewares=Middlewares, env=Env, onrequest=OnRequest,
onresponse=OnResponse, peer=Peer, zdef=Zdef, zinf=Zinf}).
+parse_frame(State=#state{zinf=Zinf}, Data) ->
+ case cow_spdy:split(Data) of
+ {true, Frame, Rest} ->
+ P = cow_spdy:parse(Frame, Zinf),
+ State2 = handle_frame(State#state{buffer = Rest}, P),
+ parse_frame(State2, Rest);
+ false ->
+ loop(State#state{buffer=Data})
+ end.
+
loop(State=#state{parent=Parent, socket=Socket, transport=Transport,
- buffer=Buffer, zinf=Zinf, children=Children}) ->
+ buffer=Buffer, children=Children}) ->
{OK, Closed, Error} = Transport:messages(),
Transport:setopts(Socket, [{active, once}]),
receive
{OK, Socket, Data} ->
Data2 = << Buffer/binary, Data/binary >>,
- case cow_spdy:split(Data2) of
- {true, Frame, Rest} ->
- P = cow_spdy:parse(Frame, Zinf),
- handle_frame(State#state{buffer=Rest}, P);
- false ->
- loop(State#state{buffer=Data2})
- end;
+ parse_frame(State, Data2);
{Closed, Socket} ->
terminate(State);
{Error, Socket, _Reason} ->
@@ -239,12 +243,12 @@ system_code_change(Misc, _, _, _) ->
handle_frame(State, {syn_stream, StreamID, _, _, true,
_, _, _, _, _, _, _}) ->
rst_stream(State, StreamID, protocol_error),
- loop(State);
+ State;
%% We do not support Associated-To-Stream-ID.
handle_frame(State, {syn_stream, StreamID, AssocToStreamID,
_, _, _, _, _, _, _, _, _}) when AssocToStreamID =/= 0 ->
rst_stream(State, StreamID, internal_error),
- loop(State);
+ State;
%% SYN_STREAM.
%%
%% Erlang does not allow us to control the priority of processes
@@ -257,22 +261,22 @@ handle_frame(State=#state{middlewares=Middlewares, env=Env,
{self(), StreamID}, Peer, OnRequest, OnResponse,
Env, Middlewares, Method, Host, Path, Version, Headers
]),
- loop(new_child(State, StreamID, Pid, IsFin));
+ new_child(State, StreamID, Pid, IsFin);
%% RST_STREAM.
handle_frame(State, {rst_stream, StreamID, Status}) ->
error_logger:error_msg("Received RST_STREAM frame ~p ~p",
[StreamID, Status]),
%% @todo Stop StreamID.
- loop(State);
+ State;
%% PING initiated by the server; ignore, we don't send any.
handle_frame(State, {ping, PingID}) when PingID rem 2 =:= 0 ->
error_logger:error_msg("Ignored PING control frame: ~p~n", [PingID]),
- loop(State);
+ State;
%% PING initiated by the client; send it back.
handle_frame(State=#state{socket=Socket, transport=Transport},
{ping, PingID}) ->
Transport:send(Socket, cow_spdy:ping(PingID)),
- loop(State);
+ State;
%% Data received for a stream.
handle_frame(State, {data, StreamID, IsFin, Data}) ->
Child = #child{input=nofin, in_buffer=Buffer, is_recv=IsRecv}
@@ -296,7 +300,7 @@ handle_frame(State, {data, StreamID, IsFin, Data}) ->
_ ->
Child#child{input=IsFin2, in_buffer=Data2}
end,
- loop(replace_child(Child2, State));
+ replace_child(Child2, State);
%% General error, can't recover.
handle_frame(State, {error, badprotocol}) ->
goaway(State, protocol_error),
@@ -304,7 +308,7 @@ handle_frame(State, {error, badprotocol}) ->
%% Ignore all other frames for now.
handle_frame(State, Frame) ->
error_logger:error_msg("Ignored frame ~p", [Frame]),
- loop(State).
+ State.
cancel_recv_timeout(StreamID, TRef) ->
_ = erlang:cancel_timer(TRef),