Misc.lowercase -> String.uncapitalize

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

7 files changed, 9 insertions, 9 deletions

diff --git a/asmcomp/compilenv.ml b/asmcomp/compilenv.ml
index 5c0636f22..20f99cda6 100644
--- a/asmcomp/compilenv.ml
+++ b/asmcomp/compilenv.ml
@@ -100,7 +100,7 @@ let global_approx global_ident =
     let (approx, crc) =
       try
         let filename =
-          find_in_path !load_path (lowercase modname ^ ".cmx") in
+          find_in_path !load_path (String.uncapitalize modname ^ ".cmx") in
         let (ui, crc) = read_unit_info filename in
         if ui.ui_name <> modname then
           raise(Error(Illegal_renaming(modname, filename)));
diff --git a/driver/compile.ml b/driver/compile.ml
index 1b445255d..9e8d5724c 100644
--- a/driver/compile.ml
+++ b/driver/compile.ml
@@ -92,7 +92,7 @@ let parse_file inputfile parse_fun ast_magic =
 let interface sourcefile =
   init_path();
   let prefixname = Filename.chop_extension sourcefile in
-  let modulename = capitalize(Filename.basename prefixname) in
+  let modulename = String.capitalize(Filename.basename prefixname) in
   let inputfile = preprocess sourcefile (prefixname ^ ".ppi") in
   let ast = parse_file inputfile Parse.interface ast_intf_magic_number in
   let sg = Typemod.transl_signature (initial_env()) ast in
@@ -109,7 +109,7 @@ let print_if flag printer arg =
 let implementation sourcefile =
   init_path();
   let prefixname = Filename.chop_extension sourcefile in
-  let modulename = capitalize(Filename.basename prefixname) in
+  let modulename = String.capitalize(Filename.basename prefixname) in
   let inputfile = preprocess sourcefile (prefixname ^ ".ppo") in
   let ast = parse_file inputfile Parse.implementation ast_impl_magic_number in
   let objfile = prefixname ^ ".cmo" in
diff --git a/driver/optcompile.ml b/driver/optcompile.ml
index 7d5b83620..49d826c16 100644
--- a/driver/optcompile.ml
+++ b/driver/optcompile.ml
@@ -88,7 +88,7 @@ let parse_file inputfile parse_fun ast_magic =
 
 let interface sourcefile =
   let prefixname = Filename.chop_extension sourcefile in
-  let modulename = capitalize(Filename.basename prefixname) in
+  let modulename = String.capitalize(Filename.basename prefixname) in
   let inputfile = preprocess sourcefile (prefixname ^ ".ppi") in
   let ast = parse_file inputfile Parse.interface ast_intf_magic_number in
   let sg = Typemod.transl_signature (initial_env()) ast in
@@ -104,7 +104,7 @@ let print_if flag printer arg =
 
 let implementation sourcefile =
   let prefixname = Filename.chop_extension sourcefile in
-  let modulename = capitalize(Filename.basename prefixname) in
+  let modulename = String.capitalize(Filename.basename prefixname) in
   let inputfile = preprocess sourcefile (prefixname ^ ".ppo") in
   let ast = parse_file inputfile Parse.implementation ast_impl_magic_number in
   let (str, sg, finalenv) = Typemod.type_structure (initial_env()) ast in
diff --git a/otherlibs/dynlink/dynlink.ml b/otherlibs/dynlink/dynlink.ml
index 2d71d077c..04cd29c5f 100644
--- a/otherlibs/dynlink/dynlink.ml
+++ b/otherlibs/dynlink/dynlink.ml
@@ -61,7 +61,7 @@ let add_available_units units =
 (* Read the CRC of an interface from its .cmi file *)
 
 let digest_interface unit loadpath =
-  let filename = Misc.find_in_path loadpath (Misc.lowercase unit ^ ".cmi") in
+  let filename = Misc.find_in_path loadpath (String.uncapitalize unit ^ ".cmi") in
   let ic = open_in_bin filename in
   try
     let buffer = String.create (String.length Config.cmi_magic_number) in
diff --git a/tools/ocamldep.mll b/tools/ocamldep.mll
index 08455940b..e422cac07 100644
--- a/tools/ocamldep.mll
+++ b/tools/ocamldep.mll
@@ -97,7 +97,7 @@ let load_path = ref [""]
 let opt_flag = ref true
 
 let find_dependency modname (byt_deps, opt_deps) =
-  let name = Misc.lowercase modname in
+  let name = String.uncapitalize modname in
   try
     let filename = Misc.find_in_path !load_path (name ^ ".mli") in
     let basename = Filename.chop_suffix filename ".mli" in
diff --git a/toplevel/expunge.ml b/toplevel/expunge.ml
index 2de01aff2..c6864b6e6 100644
--- a/toplevel/expunge.ml
+++ b/toplevel/expunge.ml
@@ -37,7 +37,7 @@ let main () =
     (fun exn -> to_keep := StringSet.add exn !to_keep)
     Runtimedef.builtin_exceptions;
   for i = 3 to Array.length Sys.argv - 1 do
-    to_keep := StringSet.add (capitalize Sys.argv.(i)) !to_keep
+    to_keep := StringSet.add (String.capitalize Sys.argv.(i)) !to_keep
   done;
   let ic = open_in_bin input_name in
   let pos_trailer =
diff --git a/typing/env.ml b/typing/env.ml
index cf8825b4e..d52e42464 100644
--- a/typing/env.ml
+++ b/typing/env.ml
@@ -105,7 +105,7 @@ let find_pers_struct name =
   with Not_found ->
     let (ps, crc) =
       read_pers_struct name
-        (find_in_path !load_path (lowercase name ^ ".cmi")) in
+        (find_in_path !load_path (String.uncapitalize name ^ ".cmi")) in
     Hashtbl.add persistent_structures name ps;
     imported_units := (name, crc) :: !imported_units;
     ps