diff options
| -rw-r--r-- | src/cowboy_bstr.erl | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/src/cowboy_bstr.erl b/src/cowboy_bstr.erl index bc6818f..01ed9ae 100644 --- a/src/cowboy_bstr.erl +++ b/src/cowboy_bstr.erl @@ -18,6 +18,7 @@ %% Binary strings. -export([capitalize_token/1]). -export([to_lower/1]). +-export([to_upper/1]). %% Characters. -export([char_to_lower/1]). @@ -51,6 +52,11 @@ capitalize_token(<< C, Rest/bits >>, false, Acc) -> to_lower(B) -> << << (char_to_lower(C)) >> || << C >> <= B >>. +%% @doc Convert a binary string to uppercase. +-spec to_upper(B) -> B when B::binary(). +to_upper(B) -> + << << (char_to_upper(C)) >> || << C >> <= B >>. + %% @doc Convert [A-Z] characters to lowercase. %% @end %% We gain noticeable speed by matching each value directly. |