|
@@ -55,6 +55,7 @@
|
|
|
}).
|
|
|
|
|
|
-include_lib("cowlib/include/cow_inline.hrl").
|
|
|
+-include_lib("cowlib/include/cow_parse.hrl").
|
|
|
|
|
|
%% API.
|
|
|
|
|
@@ -264,13 +265,12 @@ match_colon(<< _, Rest/bits >>, N) ->
|
|
|
match_colon(_, _) ->
|
|
|
nomatch.
|
|
|
|
|
|
+parse_hd_name(<< $:, Rest/bits >>, S, M, P, Q, V, H, SoFar) ->
|
|
|
+ parse_hd_before_value(Rest, S, M, P, Q, V, H, SoFar);
|
|
|
+parse_hd_name(<< C, Rest/bits >>, S, M, P, Q, V, H, SoFar) when ?IS_WS(C) ->
|
|
|
+ parse_hd_name_ws(Rest, S, M, P, Q, V, H, SoFar);
|
|
|
parse_hd_name(<< C, Rest/bits >>, S, M, P, Q, V, H, SoFar) ->
|
|
|
- case C of
|
|
|
- $: -> parse_hd_before_value(Rest, S, M, P, Q, V, H, SoFar);
|
|
|
- $\s -> parse_hd_name_ws(Rest, S, M, P, Q, V, H, SoFar);
|
|
|
- $\t -> parse_hd_name_ws(Rest, S, M, P, Q, V, H, SoFar);
|
|
|
- ?INLINE_LOWERCASE(parse_hd_name, Rest, S, M, P, Q, V, H, SoFar)
|
|
|
- end.
|
|
|
+ ?LOWER(parse_hd_name, Rest, S, M, P, Q, V, H, SoFar).
|
|
|
|
|
|
parse_hd_name_ws(<< C, Rest/bits >>, S, M, P, Q, V, H, Name) ->
|
|
|
case C of
|
|
@@ -429,9 +429,7 @@ parse_host(<< $:, Rest/bits >>, false, Acc) ->
|
|
|
parse_host(<< $], Rest/bits >>, true, Acc) ->
|
|
|
parse_host(Rest, false, << Acc/binary, $] >>);
|
|
|
parse_host(<< C, Rest/bits >>, E, Acc) ->
|
|
|
- case C of
|
|
|
- ?INLINE_LOWERCASE(parse_host, Rest, E, Acc)
|
|
|
- end.
|
|
|
+ ?LOWER(parse_host, Rest, E, Acc).
|
|
|
|
|
|
%% End of request parsing.
|
|
|
%%
|