From b2b4e85ec6607d7364a0da9c65ae9303b9f73c03 Mon Sep 17 00:00:00 2001
From: Enrico Tassi
Date: Wed, 4 Jan 2017 14:35:51 +0100
Subject: Usage.print_config moved to Envars

---
 lib/envars.ml  | 15 +++++++++++++++
 lib/envars.mli |  3 +++
 2 files changed, 18 insertions(+)

(limited to 'lib')

diff --git a/lib/envars.ml b/lib/envars.ml
index 89ce528318..330b0fbd60 100644
--- a/lib/envars.ml
+++ b/lib/envars.ml
@@ -207,3 +207,18 @@ let xdg_config_dirs warn =
 
 let xdg_dirs ~warn =
   List.filter Sys.file_exists (xdg_data_dirs warn)
+
+(* Print the configuration information *)
+
+let print_config f =
+  let open Printf in 
+  fprintf f "LOCAL=%s\n" (if Coq_config.local then "1" else "0");
+  fprintf f "COQLIB=%s/\n" (coqlib ());
+  fprintf f "DOCDIR=%s/\n" (docdir ());
+  fprintf f "OCAMLFIND=%s\n" (ocamlfind ());
+  fprintf f "CAMLP4=%s\n" Coq_config.camlp4;
+  fprintf f "CAMLP4O=%s\n" Coq_config.camlp4o;
+  fprintf f "CAMLP4BIN=%s/\n" (camlp4bin ());
+  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 90a42859b9..b9cc534f97 100644
--- a/lib/envars.mli
+++ b/lib/envars.mli
@@ -69,3 +69,6 @@ val xdg_data_home   : (string -> unit) -> string
 val xdg_config_dirs : (string -> unit) -> string list
 val xdg_data_dirs   : (string -> unit) -> string list
 val xdg_dirs : warn : (string -> unit) -> string list
+
+(** {6 Prints the configuration information } *)
+val print_config : out_channel -> unit
-- 
cgit v1.2.3