diff options
| author | herbelin | 2011-04-14 18:47:38 +0000 |
|---|---|---|
| committer | herbelin | 2011-04-14 18:47:38 +0000 |
| commit | f36693e6a38ef7395905f7388da3d450cf5b3b5a (patch) | |
| tree | aad9678c1df92ab33a4f30611a8ccf7f0c48371b /tools | |
| parent | 3f787586c709a75e73837e4384d10752079bc646 (diff) | |
Add directories in COQPATH to search path.
This is to allow users to install plugins when coq is installed system-wide.
Signed-off-by: Tom Prince <tom.prince@ualberta.net>
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@14001 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'tools')
| -rw-r--r-- | tools/coqdep.ml | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/tools/coqdep.ml b/tools/coqdep.ml index ccce7cd311..a683aaae9f 100644 --- a/tools/coqdep.ml +++ b/tools/coqdep.ml @@ -199,7 +199,9 @@ let coqdep () = add_rec_dir add_coqlib_known (coqlib//"theories") ["Coq"]; add_rec_dir add_coqlib_known (coqlib//"plugins") ["Coq"]; let user = coqlib//"user-contrib" in - if Sys.file_exists user then add_rec_dir add_coqlib_known user [] + if Sys.file_exists user then add_rec_dir add_coqlib_known user []; + let coqpath = Envars.coqpath () in + List.iter (fun s -> add_rec_dir add_coqlib_known s []) coqpath; end; List.iter (fun (f,d) -> add_mli_known f d) !mliAccu; List.iter (fun (f,d) -> add_mllib_known f d) !mllibAccu; |