From 77b35622570e3802da31df9f549875b60bd121cc Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Lo=C3=AFc=20Hoguin?= Date: Fri, 4 Nov 2011 10:38:04 +0100 Subject: Rename cowboy_http:charset/2 to conneg/2 and use it for Accept-Encoding Sorry I apparently used an outdated RFC when I was doing this. --- src/cowboy_http.erl | 17 +++++++++-------- 1 file changed, 9 insertions(+), 8 deletions(-) (limited to 'src/cowboy_http.erl') diff --git a/src/cowboy_http.erl b/src/cowboy_http.erl index 9b8a178..681f09f 100644 --- a/src/cowboy_http.erl +++ b/src/cowboy_http.erl @@ -17,7 +17,7 @@ %% Parsing. -export([list/2, nonempty_list/2, - media_range/2, charset/2, + media_range/2, conneg/2, token/2, token_ci/2, quoted_string/2]). %% Interpretation. @@ -196,23 +196,24 @@ accept_ext_value(Data, Fun, Type, SubType, Params, Quality, Acc, Attr) -> Type, SubType, Params, Quality, [{Attr, Value}|Acc]) end). -%% @doc Parse a charset, followed by an optional quality value. --spec charset(binary(), fun()) -> any(). -charset(Data, Fun) -> +%% @doc Parse a conneg header (Accept-Charset, Accept-Encoding), +%% followed by an optional quality value. +-spec conneg(binary(), fun()) -> any(). +conneg(Data, Fun) -> token_ci(Data, fun (_Rest, <<>>) -> {error, badarg}; - (Rest, Charset) -> + (Rest, Conneg) -> whitespace(Rest, fun (<< $;, Rest2/bits >>) -> whitespace(Rest2, fun (Rest3) -> qparam(Rest3, fun (Rest4, Quality) -> - Fun(Rest4, {Charset, Quality}) + Fun(Rest4, {Conneg, Quality}) end) end); (Rest2) -> - Fun(Rest2, {Charset, 1000}) + Fun(Rest2, {Conneg, 1000}) end) end). @@ -339,7 +340,7 @@ nonempty_charset_list_test_() -> {<<"unicode-1-1">>, 800} ]} ], - [{V, fun() -> R = nonempty_list(V, fun charset/2) end} || {V, R} <- Tests]. + [{V, fun() -> R = nonempty_list(V, fun conneg/2) end} || {V, R} <- Tests]. nonempty_token_list_test_() -> %% {Value, Result} -- cgit v1.2.3