diff options
| author | Xavier Leroy <xavier.leroy@inria.fr> | 2000-02-07 13:08:12 +0000 |
|---|---|---|
| committer | Xavier Leroy <xavier.leroy@inria.fr> | 2000-02-07 13:08:12 +0000 |
| commit | 038ee2456ee2308d4033539da2948130fc2ef2db (patch) | |
| tree | 6317839cca7a978e2563dda04a02cf73af147999 | |
| parent | 600656aa484a09471d42d4dc0dfc42a155eb58bb (diff) | |
Ajout option -native pour eviter la generation de dependances sur les .cmo dans le cas de projets entierement code natif
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@2793 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
| -rw-r--r-- | tools/ocamldep.ml | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/tools/ocamldep.ml b/tools/ocamldep.ml index 120ca7029..02af076d4 100644 --- a/tools/ocamldep.ml +++ b/tools/ocamldep.ml @@ -258,6 +258,8 @@ and add_class_declaration bv decl = let load_path = ref [""] +let native_only = ref false + let find_dependency modname (byt_deps, opt_deps) = let name = String.uncapitalize modname in try @@ -271,7 +273,7 @@ let find_dependency modname (byt_deps, opt_deps) = try let filename = Misc.find_in_path !load_path (name ^ ".ml") in let basename = Filename.chop_suffix filename ".ml" in - ((basename ^ ".cmo") :: byt_deps, + ((basename ^ (if !native_only then ".cmx" else ".cmo")) :: byt_deps, (basename ^ ".cmx") :: opt_deps) with Not_found -> (byt_deps, opt_deps) @@ -355,12 +357,14 @@ let file_dependencies source_file = (* Entry point *) -let usage = "Usage: ocamldep [-I <dir>] <files>" +let usage = "Usage: ocamldep [-I <dir>] [-native] <files>" let _ = Clflags.classic := false; Arg.parse [ "-I", Arg.String(fun dir -> load_path := !load_path @ [dir]), - "<dir> Add <dir> to the list of include directories" + "<dir> Add <dir> to the list of include directories"; + "-native", Arg.Set native_only, + " Generate dependencies for a pure native-code project (no .cmo files)" ] file_dependencies usage; exit (if !error_occurred then 2 else 0) |