Better handling of flush, short lines

src/geef_pkt.erl

@@ -15,38 +15,48 @@ line(Text) ->
 
 -spec parse(iolist()) -> {{want | have, geef_oid()}, binary()}.
 parse(In) ->
-    {Len, Rest} = unpack(In),
+    case unpack(In) of
-    case Len of
+	{error, ebufs} ->
-	0 ->
+	    {error, ebufs};
-	    flush;
+	{0, Rest} ->
-	_ ->
+	    {flush, Rest};
-	    parse_pkt(Rest, Len - 4)
+	{Len, Rest} ->
+	    parse_pkt(Rest, Len)
     end.
 
 -spec parse_request(iolist()) -> geef_request().
 parse_request(In) ->
-    {_, Line} = unpack(In),
+    case unpack(In) of
-    %% Split it into request, host, rest (should be empty)
+	{error, ebufs} ->
-    [S, H, _] = binary:split(Line, <<0>>, [global]),
+	    {error, ebufs};
-    case S of
+	{_, Line} ->
-	<<"git-upload-pack ", Path/binary>> ->
+	    %% Split it into request, host, rest (should be empty)
-	    Service = upload_pack;
+	    [S, H, _] = binary:split(Line, <<0>>, [global]),
-	<<"git-receive-pack ", Path/binary>> ->
+	    case S of
-	    Service = receive_pack
+		<<"git-upload-pack ", Path/binary>> ->
-    end,
+		    Service = upload_pack;
-    <<"host=", Host/binary>> = H,
+		<<"git-receive-pack ", Path/binary>> ->
-    #geef_request{service=Service, path=Path, host=Host}.
+		    Service = receive_pack
+	    end,
+	    <<"host=", Host/binary>> = H,
+	    {ok, #geef_request{service=Service, path=Path, host=Host}}
+    end.
 
--spec unpack(iolist()) -> {non_neg_integer(), binary()}.
+-spec unpack(iolist()) -> {error, ebufs} | {non_neg_integer(), binary()}.
 unpack(In0) ->
     In = iolist_to_binary(In0),
     <<BLen:4/binary, Rest/binary>> = In,
     Len = binary_to_integer(BLen, 16),
-    {Len, Rest}.
+    if Len == 0 ->
+	    {0, Rest};
+       Len - 4 > size(Rest) ->
+	    {error, ebufs};
+       true ->
+	    {Len - 4, Rest}
+    end.
 
-parse_pkt(In, Len) when size(In) < Len ->
-    {error, ebufs};
 parse_pkt(In, Len0) ->
+    io:format("~p, ~p~n", [In, Len0]),
     Len1 = Len0 - 5, % "want " | "have "
     case In of
 	<<"want ", Sha:?SHA_LEN/binary, Rest0/binary>> ->

test/pkt_test.erl

@@ -4,7 +4,9 @@
 -include("src/geef_records.hrl").
 
 flush_test() ->
-    geef_pkt:parse("0000").
+    Expected = {flush, <<>>},
+    Actual = geef_pkt:parse("0000"),
+    ?assertEqual(Expected, Actual).
 
 have_test() ->
     Expected = {{want, geef_oid:parse("e17ca7f2d877acbf8b9a9a1cb4c243ca72e86463")}, <<>>},
@@ -14,5 +16,11 @@ have_test() ->
 request_test() ->
     Line = <<"0039git-upload-pack /schacon/gitbook.git\0host=example.com\0">>,
     Expected = #geef_request{service=upload_pack, path= <<"/schacon/gitbook.git">>, host= <<"example.com">>},
+    {ok, Actual} = geef_pkt:parse_request(Line),
+    ?assertEqual(Expected, Actual).
+
+short_test() ->
+    Line = <<"0039git-upload">>,
+    Expected = {error, ebufs},
     Actual = geef_pkt:parse_request(Line),
     ?assertEqual(Expected, Actual).