diff options
| author |  Enrico Tassi <Enrico.Tassi@inria.fr> | 2017-01-04 14:46:52 +0100 |
|---|---|---|
| committer | Enrico Tassi <Enrico.Tassi@inria.fr> | 2017-05-23 10:48:28 +0200 |
| commit | 11ec801fa17434b0a3aad2c88a4422a22f1c4c44 (patch) | |
| tree | f92521f724433aabe365cd4d20f585b1922e5860 /lib | |
| parent | b2b4e85ec6607d7364a0da9c65ae9303b9f73c03 (diff) | |
Put the list of Coq sources subdirectories in one place
and avoid duplication
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/envars.ml | 10 | ||||
| -rw-r--r-- | lib/envars.mli | 3 |
2 files changed, 11 insertions, 2 deletions
diff --git a/lib/envars.ml b/lib/envars.ml index 330b0fbd6..b20d39fb5 100644 --- a/lib/envars.ml +++ b/lib/envars.ml @@ -146,8 +146,6 @@ let coqpath = let exe s = s ^ Coq_config.exec_extension -let guess_ocamlfind () = which (user_path ()) (exe "ocamlfind") - let ocamlfind () = if !Flags.ocamlfind_spec then !Flags.ocamlfind else if !Flags.boot then Coq_config.ocamlfind else @@ -210,6 +208,13 @@ let xdg_dirs ~warn = (* Print the configuration information *) +let coq_src_subdirs = [ + "config" ; "dev" ; "lib" ; "kernel" ; "library" ; + "engine" ; "pretyping" ; "interp" ; "parsing" ; "proofs" ; + "tactics" ; "toplevel" ; "printing" ; "intf" ; + "grammar" ; "ide" ; "stm"; "vernac" ] @ + Coq_config.plugins_dirs + let print_config f = let open Printf in fprintf f "LOCAL=%s\n" (if Coq_config.local then "1" else "0"); @@ -222,3 +227,4 @@ let print_config f = fprintf f "CAMLP4LIB=%s\n" (camlp4lib ()); fprintf f "CAMLP4OPTIONS=%s\n" Coq_config.camlp4compat; fprintf f "HASNATDYNLINK=%s\n" (if Coq_config.has_natdynlink then "true" else "false") + diff --git a/lib/envars.mli b/lib/envars.mli index b9cc534f9..d158407b4 100644 --- a/lib/envars.mli +++ b/lib/envars.mli @@ -72,3 +72,6 @@ val xdg_dirs : warn : (string -> unit) -> string list (** {6 Prints the configuration information } *) val print_config : out_channel -> unit + +(** Directories in which coq sources are found *) +val coq_src_subdirs : string list |