diff options
author | Filipe David Borba Manana <fdmanana@apache.org> | 2010-07-11 10:50:34 +0000 |
---|---|---|
committer | Filipe David Borba Manana <fdmanana@apache.org> | 2010-07-11 10:50:34 +0000 |
commit | c795df0dd2176e919dac722dd59d41c25df19b98 (patch) | |
tree | a7cac3b4d8d1d21f718997cbbf16640962ef2246 /src/couchdb/couch_util.erl | |
parent | f5f04686b010d6326e88cfafcdc6629560c36d0d (diff) |
Removing unused function couch_util:ascii_lower/1. If ever needed, the exact same
functionality is provided by string:to_lower/1 (ASCII based, not Unicode nor charset based).
git-svn-id: https://svn.apache.org/repos/asf/couchdb/trunk@963045 13f79535-47bb-0310-9956-ffa450edef68
Diffstat (limited to 'src/couchdb/couch_util.erl')
-rw-r--r-- | src/couchdb/couch_util.erl | 14 |
1 files changed, 1 insertions, 13 deletions
diff --git a/src/couchdb/couch_util.erl b/src/couchdb/couch_util.erl index 252d4e04..80c92271 100644 --- a/src/couchdb/couch_util.erl +++ b/src/couchdb/couch_util.erl @@ -15,7 +15,7 @@ -export([priv_dir/0, start_driver/1, normpath/1]). -export([should_flush/0, should_flush/1, to_existing_atom/1]). -export([rand32/0, implode/2, collate/2, collate/3]). --export([abs_pathname/1,abs_pathname/2, trim/1, ascii_lower/1]). +-export([abs_pathname/1,abs_pathname/2, trim/1]). -export([encodeBase64Url/1, decodeBase64Url/1]). -export([to_hex/1, parse_term/1, dict_find/3]). -export([get_nested_json_value/2, json_user_ctx/1]). @@ -196,18 +196,6 @@ separate_cmd_args(" " ++ Rest, CmdAcc) -> separate_cmd_args([Char|Rest], CmdAcc) -> separate_cmd_args(Rest, [Char | CmdAcc]). -% lowercases string bytes that are the ascii characters A-Z. -% All other characters/bytes are ignored. -ascii_lower(String) -> - ascii_lower(String, []). - -ascii_lower([], Acc) -> - lists:reverse(Acc); -ascii_lower([Char | RestString], Acc) when Char >= $A, Char =< $B -> - ascii_lower(RestString, [Char + ($a-$A) | Acc]); -ascii_lower([Char | RestString], Acc) -> - ascii_lower(RestString, [Char | Acc]). - % Is a character whitespace? is_whitespace($\s) -> true; is_whitespace($\t) -> true; |