diff options
| author | Xavier Leroy <xavier.leroy@inria.fr> | 2002-06-07 07:35:38 +0000 |
|---|---|---|
| committer | Xavier Leroy <xavier.leroy@inria.fr> | 2002-06-07 07:35:38 +0000 |
| commit | bae0f5d56edcab997a3a9ae0b89cff53f1db8f6c (patch) | |
| tree | d796bf3199c258f3f5adfb1db8da984793c47d45 /tools | |
| parent | ffd5b0fd3bf3639dd02442b57912d15d038589df (diff) | |
| download | ocaml-bae0f5d56edcab997a3a9ae0b89cff53f1db8f6c.tar.gz | |
Chercher les infos sur le module Foo dans les fichiers Foo.{cmi,cmx} et foo.{cmi,cmx} (PR#1177)
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@4896 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'tools')
| -rw-r--r-- | tools/ocamldep.ml | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/tools/ocamldep.ml b/tools/ocamldep.ml index a1ab4786be..8e62e79b9b 100644 --- a/tools/ocamldep.ml +++ b/tools/ocamldep.ml @@ -25,9 +25,8 @@ let load_path = ref [""] let native_only = ref false let find_dependency modname (byt_deps, opt_deps) = - let name = String.uncapitalize modname in try - let filename = Misc.find_in_path !load_path (name ^ ".mli") in + let filename = Misc.find_in_path_uncap !load_path (modname ^ ".mli") in let basename = Filename.chop_suffix filename ".mli" in ((basename ^ ".cmi") :: byt_deps, (if Sys.file_exists (basename ^ ".ml") @@ -35,7 +34,7 @@ let find_dependency modname (byt_deps, opt_deps) = else basename ^ ".cmi") :: opt_deps) with Not_found -> try - let filename = Misc.find_in_path !load_path (name ^ ".ml") in + let filename = Misc.find_in_path_uncap !load_path (modname ^ ".ml") in let basename = Filename.chop_suffix filename ".ml" in ((basename ^ (if !native_only then ".cmx" else ".cmo")) :: byt_deps, (basename ^ ".cmx") :: opt_deps) |