Imported Upstream version 8.2~rc2+dfsgupstream/8.2.rc2+dfsg

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
+
+