From a81329a241ba18b8c8535576290a0ffa23739d27 Mon Sep 17 00:00:00 2001
From: notin
Date: Fri, 19 Dec 2008 15:30:49 +0000
Subject: Nettoyage des variables Coq et amélioration de coqmktop. Les
 principaux changements sont:   - coqtop (et coqc) maintenant insensible aux
 variables     d'environnement COQTOP, COQBIN et COQLIB; le chemin vers les   
  librairies Coq peut être spécifié par l'option -coqlib   - coqmktop prend 4
 nouvelles options: -boot, -coqlib, -camlbin et     -camlp4bin; en mode boot,
 coqmktop se réfère à Coq_config pour les     chemins des exécutables OCaml;
 en dehors du mode boot, coqmktop     cherche les exécutables OCaml dans PATH 
  - installation des *.cmxs *.o et *.a en plus des *.cm[ioxa]; ceux-ci    
 étant installé en copiant l'architecture des sources (ie lib.cmxa     est
 installé dans COQLIB/lib/lib.cmxa)   - coq_makefile prend maintenant 3
 paramètres sous forme de variables     d'environnement: COQBIN pour dire où
 trouver les exécutables Coq,     CAMLBIN et CAMLP4BIN pour les exécutables
 OCaml et Camlp4/5; les     chemins vers les librairies sont déduits en
 utilisant -where

Le tout a testé avec Ssreflect (cf coq-contribs) en essayant de
simuler les conditions de la vie réelle (Ocaml pas dans le PATH,
installation binaire relocalisée, ...). 




git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@11707 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 lib/envars.ml  | 83 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 lib/envars.mli | 15 +++++++++++
 lib/flags.ml   | 13 +++++++++
 lib/flags.mli  | 10 +++++++
 4 files changed, 121 insertions(+)
 create mode 100644 lib/envars.ml
 create mode 100644 lib/envars.mli

(limited to 'lib')

diff --git a/lib/envars.ml b/lib/envars.ml
new file mode 100644
index 0000000000..82e0d31622
--- /dev/null
+++ b/lib/envars.ml
@@ -0,0 +1,83 @@
+(************************************************************************)
+(*  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 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 prefix = Filename.dirname (Filename.dirname Sys.executable_name) 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 = Str.regexp_string (if Sys.os_type = "Win32" then ";" else ":") in
+    Str.split 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
+      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
+      res
+
+    
diff --git a/lib/envars.mli b/lib/envars.mli
new file mode 100644
index 0000000000..62d0cb61d0
--- /dev/null
+++ b/lib/envars.mli
@@ -0,0 +1,15 @@
+(************************************************************************)
+(*  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        *)
+(************************************************************************)
+
+val coqlib : unit -> string
+val coqbin : unit -> string
+
+val camlbin : unit -> string
+val camlp4bin : unit -> string
+val camllib : unit -> string
+val camlp4lib : unit -> string
diff --git a/lib/flags.ml b/lib/flags.ml
index f4b36c6c3b..c3033c4b5c 100644
--- a/lib/flags.ml
+++ b/lib/flags.ml
@@ -104,3 +104,16 @@ let browser_cmd_fmt =
   Sys.getenv coq_netscape_remote_var
  with
   Not_found -> Coq_config.browser
+
+(* Options for changing coqlib *)
+let coqlib_spec = ref false
+let coqlib = ref Coq_config.coqlib
+
+(* Options for changing camlbin (used by coqmktop) *)
+let camlbin_spec = ref false
+let camlbin = ref Coq_config.camlbin
+
+(* Options for changing camlp4bin (used by coqmktop) *)
+let camlp4bin_spec = ref false
+let camlp4bin = ref Coq_config.camlp4bin
+
diff --git a/lib/flags.mli b/lib/flags.mli
index db472cccbc..f0e4103f68 100644
--- a/lib/flags.mli
+++ b/lib/flags.mli
@@ -68,3 +68,13 @@ val browser_cmd_fmt : string
  
 (* Substitute %s in the first chain by the second chain *)
 val subst_command_placeholder : string -> string -> string
+
+(* Options for specifying where coq librairies reside *)
+val coqlib_spec : bool ref
+val coqlib : string ref
+
+(* Options for specifying where OCaml binaries reside *)
+val camlbin_spec : bool ref
+val camlbin : string ref
+val camlp4bin_spec : bool ref
+val camlp4bin : string ref
-- 
cgit v1.2.3