diff options
author | Pierre Boutillier <pierre.boutillier@ens-lyon.org> | 2014-06-30 14:00:39 +0200 |
---|---|---|
committer | Pierre Boutillier <pierre.boutillier@ens-lyon.org> | 2014-06-30 15:55:54 +0200 |
commit | e1d46f1c6ca9556e23e5378c6589220fc48da879 (patch) | |
tree | 6000c8c03de02115f134864dbbf64b0922cf2a7b /tools/coqdep_boot.ml | |
parent | 8e3ef4dbfd00c67af1cc2b83307038a6440584cb (diff) |
Coqdep: update include strategies
-I is (only) the ml one
-I -as is fixed
-Q is understood
-R is not a recursive ml include anymore
$COQENV, user_contrib, ... are not recursively included
coqlib/theories and coqlib/plugins are still recursively included (for now). (This
may deserves an option)
Closes Bug 2910: If there is a "Require a." in a b.v and a a.vo in path but no a.v,
coqdep does not complains about a missing a.v.
Diffstat (limited to 'tools/coqdep_boot.ml')
-rw-r--r-- | tools/coqdep_boot.ml | 13 |
1 files changed, 9 insertions, 4 deletions
diff --git a/tools/coqdep_boot.ml b/tools/coqdep_boot.ml index f42c8dc75..a80a713ed 100644 --- a/tools/coqdep_boot.ml +++ b/tools/coqdep_boot.ml @@ -24,21 +24,26 @@ let rec parse = function | "-I" :: r :: ll -> (* To solve conflict (e.g. same filename in kernel and checker) we allow to state an explicit order *) - add_dir add_known r []; + add_caml_dir r; norec_dirs:=r::!norec_dirs; parse ll | f :: ll -> treat_file None f; parse ll | [] -> () let coqdep_boot () = + let () = option_boot := true in if Array.length Sys.argv < 2 then exit 1; parse (List.tl (Array.to_list Sys.argv)); - if !option_c then - add_rec_dir add_known "." [] + if !option_c then begin + add_rec_dir add_known "." []; + add_rec_dir (fun _ -> add_caml_known) "." ["Coq"]; + end else begin add_rec_dir add_known "theories" ["Coq"]; add_rec_dir add_known "plugins" ["Coq"]; - add_dir add_known "tactics" []; + add_caml_dir "tactics"; + add_rec_dir (fun _ -> add_caml_known) "theories" ["Coq"]; + add_rec_dir (fun _ -> add_caml_known) "plugins" ["Coq"]; end; if !option_c then mL_dependencies (); coq_dependencies () |