From 85fc53be8c2ddbaa264e9eaf071f67a8bcbeffca Mon Sep 17 00:00:00 2001
From: Vladimir Dronnikov <dronnikov@gmail.com>
Date: Fri, 25 Jan 2013 02:41:06 +0000
Subject: Expose uppercase binary converter

---
 src/cowboy_bstr.erl | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'src')

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.
-- 
cgit v1.2.3