From 0f1dd8f0f90097e24657dc04ff396651892a7c98 Mon Sep 17 00:00:00 2001 From: Andrei Nesterov Date: Sun, 6 Mar 2016 17:53:42 +0300 Subject: Add internal cow_http_hd:join_token_list/1, cow_http_hd:join_token_list/2 --- src/cow_http_hd.erl | 6 ++++++ 1 file changed, 6 insertions(+) (limited to 'src/cow_http_hd.erl') diff --git a/src/cow_http_hd.erl b/src/cow_http_hd.erl index d20a3c7..6a7837b 100644 --- a/src/cow_http_hd.erl +++ b/src/cow_http_hd.erl @@ -3250,3 +3250,9 @@ token_ci(R, Acc, T) -> token_ci_list_sep(R, [T|Acc]). token_ci_list_sep(<<>>, Acc) -> lists:reverse(Acc); token_ci_list_sep(<< C, R/bits >>, Acc) when ?IS_WS(C) -> token_ci_list_sep(R, Acc); token_ci_list_sep(<< $,, R/bits >>, Acc) -> token_ci_list(R, Acc). + +join_token_list([]) -> []; +join_token_list([H|T]) -> join_token_list(T, [H]). + +join_token_list([], Acc) -> lists:reverse(Acc); +join_token_list([H|T], Acc) -> join_token_list(T, [H,<<", ">>|Acc]). -- cgit v1.2.3