summaryrefslogtreecommitdiff
path: root/lib/envars.ml
diff options
context:
space:
mode:
Diffstat (limited to 'lib/envars.ml')
-rw-r--r--lib/envars.ml84
1 files changed, 84 insertions, 0 deletions
diff --git a/lib/envars.ml b/lib/envars.ml
new file mode 100644
index 00000000..5887adcd
--- /dev/null
+++ b/lib/envars.ml
@@ -0,0 +1,84 @@
+(************************************************************************)
+(* v * The Coq Proof Assistant / The Coq Development Team *)
+(* <O___,, * CNRS-Ecole Polytechnique-INRIA Futurs-Universite Paris Sud *)
+(* \VV/ **************************************************************)
+(* // * This file is distributed under the terms of the *)
+(* * GNU Lesser General Public License Version 2.1 *)
+(************************************************************************)
+
+(* This file gathers environment variables needed by Coq to run (such
+ as coqlib) *)
+
+let coqbin () =
+ if !Flags.boot || Coq_config.local
+ then Filename.concat Coq_config.coqsrc "bin"
+ else System.canonical_path_name (Filename.dirname Sys.executable_name)
+
+let guess_coqlib () =
+ let file = "states/initial.coq" in
+ if Sys.file_exists (Filename.concat Coq_config.coqlib file)
+ then Coq_config.coqlib
+ else
+ let coqbin = System.canonical_path_name (Filename.dirname Sys.executable_name) in
+ let prefix = Filename.dirname coqbin in
+ let coqlib = if Coq_config.local then prefix else
+ List.fold_left Filename.concat prefix ["lib";"coq"] in
+ if Sys.file_exists (Filename.concat coqlib file) then coqlib else
+ Util.error "cannot guess a path for Coq libraries; please use -coqlib option"
+
+let coqlib () =
+ if !Flags.coqlib_spec then !Flags.coqlib else
+ (if !Flags.boot then Coq_config.coqsrc else guess_coqlib ())
+
+let path_to_list p =
+ let sep = if Sys.os_type = "Win32" then ';' else ':' in
+ Util.split_string_at sep p
+
+let rec which l f =
+ match l with
+ | [] -> raise Not_found
+ | p :: tl ->
+ if Sys.file_exists (Filename.concat p f)
+ then p
+ else which tl f
+
+let guess_camlbin () =
+ let path = try Sys.getenv "PATH" with _ -> raise Not_found in
+ let lpath = path_to_list path in
+ which lpath "ocamlc"
+
+let guess_camlp4bin () =
+ let path = try Sys.getenv "PATH" with _ -> raise Not_found in
+ let lpath = path_to_list path in
+ which lpath Coq_config.camlp4
+
+let camlbin () =
+ if !Flags.camlbin_spec then !Flags.camlbin else
+ if !Flags.boot then Coq_config.camlbin else
+ try guess_camlbin () with _ -> Coq_config.camlbin
+
+let camllib () =
+ if !Flags.boot
+ then Coq_config.camllib
+ else
+ let camlbin = camlbin () in
+ let com = (Filename.concat camlbin "ocamlc") ^ " -where" in
+ let _,res = System.run_command (fun x -> x) (fun _ -> ()) com in
+ Util.strip res
+
+(* TODO : essayer aussi camlbin *)
+let camlp4bin () =
+ if !Flags.camlp4bin_spec then !Flags.camlp4bin else
+ if !Flags.boot then Coq_config.camlp4bin else
+ try guess_camlp4bin () with _ -> Coq_config.camlp4bin
+
+let camlp4lib () =
+ if !Flags.boot
+ then Coq_config.camlp4lib
+ else
+ let camlp4bin = camlp4bin () in
+ let com = (Filename.concat camlp4bin Coq_config.camlp4) ^ " -where" in
+ let _,res = System.run_command (fun x -> x) (fun _ -> ()) com in
+ Util.strip res
+
+