Misc.lowercase -> String.uncapitalize

Misc.capitalize -> String.capitalize


git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@1131 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02

3 files changed, 1 insertions, 22 deletions

diff --git a/utils/config.mlp b/utils/config.mlp
index f525bcee8..5d59da4e8 100644
--- a/utils/config.mlp
+++ b/utils/config.mlp
@@ -11,7 +11,7 @@
 
 (* $Id$ *)
 
-let version = "1.03"
+let version = "1.04-1"
 
 let standard_library =
   try
diff --git a/utils/misc.ml b/utils/misc.ml
index 37f7598b4..b0ff4dc11 100644
--- a/utils/misc.ml
+++ b/utils/misc.ml
@@ -75,22 +75,6 @@ let create_hashtable size init =
   List.iter (fun (key, data) -> Hashtbl.add tbl key data) init;
   tbl
 
-(* String functions *)
-
-let capitalize s =
-  let r = String.create (String.length s) in
-  String.blit s 0 r 0 (String.length s);
-  let c = s.[0] in
-  if c >= 'a' & c <= 'z' then r.[0] <- Char.chr(Char.code c - 32);
-  r
-
-let lowercase s =
-  let r = String.create (String.length s) in
-  String.blit s 0 r 0 (String.length s);
-  let c = s.[0] in
-  if c >= 'A' & c <= 'Z' then r.[0] <- Char.chr(Char.code c + 32);
-  r
-
 (* File copy *)
 
 let copy_file ic oc =
diff --git a/utils/misc.mli b/utils/misc.mli
index 5efe20f13..27ab75bcd 100644
--- a/utils/misc.mli
+++ b/utils/misc.mli
@@ -35,11 +35,6 @@ val create_hashtable: int -> ('a * 'b) list -> ('a, 'b) Hashtbl.t
         (* Create a hashtable of the given size and fills it with the
            given bindings. *)
 
-val capitalize: string -> string
-val lowercase: string -> string
-        (* Return a copy of the given string with the first character
-           set to uppercase or lowercase, respectively. *)
-
 val copy_file: in_channel -> out_channel -> unit
         (* [copy_file ic oc] reads the contents of file [ic] and copies
            them to [oc]. It stops when encountering EOF on [ic]. *)