From 70f438de744155d5d1e5c1716ccf640cc1c0c95d Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Lo=C3=AFc=20Hoguin?= <essen@ninenines.eu>
Date: Fri, 26 Dec 2014 13:46:32 +0100
Subject: Add cow_http_hd:parse_accept_ranges/1

From RFC7233.
---
 src/cow_http_hd.erl | 42 ++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 42 insertions(+)

diff --git a/src/cow_http_hd.erl b/src/cow_http_hd.erl
index 6d6562e..584309c 100644
--- a/src/cow_http_hd.erl
+++ b/src/cow_http_hd.erl
@@ -18,6 +18,7 @@
 -export([parse_accept_charset/1]).
 -export([parse_accept_encoding/1]).
 -export([parse_accept_language/1]).
+-export([parse_accept_ranges/1]).
 -export([parse_age/1]).
 -export([parse_allow/1]).
 -export([parse_cache_control/1]).
@@ -696,6 +697,47 @@ horse_parse_accept_language() ->
 	).
 -endif.
 
+%% @doc Parse the Accept-Ranges header.
+
+-spec parse_accept_ranges(binary()) -> [binary()].
+parse_accept_ranges(<<"none">>) -> [];
+parse_accept_ranges(<<"bytes">>) -> [<<"bytes">>];
+parse_accept_ranges(AcceptRanges) ->
+	nonempty(token_ci_list(AcceptRanges, [])).
+
+-ifdef(TEST).
+parse_accept_ranges_test_() ->
+	Tests = [
+		{<<"bytes">>, [<<"bytes">>]},
+		{<<"none">>, []},
+		{<<"bytes, pages, kilos">>, [<<"bytes">>, <<"pages">>, <<"kilos">>]}
+	],
+	[{V, fun() -> R = parse_accept_ranges(V) end} || {V, R} <- Tests].
+
+parse_accept_ranges_error_test_() ->
+	Tests = [
+		<<>>
+	],
+	[{V, fun() -> {'EXIT', _} = (catch parse_accept_ranges(V)) end} || V <- Tests].
+-endif.
+
+-ifdef(PERF).
+horse_parse_accept_ranges_none() ->
+	horse:repeat(200000,
+		parse_accept_ranges(<<"none">>)
+	).
+
+horse_parse_accept_ranges_bytes() ->
+	horse:repeat(200000,
+		parse_accept_ranges(<<"bytes">>)
+	).
+
+horse_parse_accept_ranges_other() ->
+	horse:repeat(200000,
+		parse_accept_ranges(<<"bytes, pages, kilos">>)
+	).
+-endif.
+
 %% @doc Parse the Age header.
 
 -spec parse_age(binary()) -> non_neg_integer().
-- 
cgit v1.2.3