We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 4ef7463 commit 7b15dabCopy full SHA for 7b15dab
src/elli_ws_http.erl
@@ -4,22 +4,26 @@
4
5
-export([tokens/1]).
6
7
+
8
-define(IS_TOKEN_SEP(C), (C =:= $, orelse C =:= $\s orelse C=:= $\t)).
9
-%% @doc Parse tokens
10
11
+%% @doc Parse tokens
12
+-spec tokens(binary() | [binary() | [binary() | list()]]) -> [bitstring()].
13
tokens(L) when is_list(L) ->
14
lists:flatten([tokens(V) || V <- L]);
-
15
tokens(Header) when is_binary(Header) ->
16
parse_before(Header, []).
17
18
19
parse_before(<<>>, Acc) ->
20
lists:reverse(Acc);
21
parse_before(<< C, Rest/bits >>, Acc) when ?IS_TOKEN_SEP(C) ->
22
parse_before(Rest, Acc);
23
parse_before(Buffer, Acc) ->
24
parse(Buffer, Acc, <<>>).
25
26
27
parse(<<>>, Acc, <<>>) ->
28
29
parse(<<>>, Acc, Token) ->
0 commit comments