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 +++++++++++++++ 1 file changed, 15 insertions(+) (limited to 'lib/envars.ml') diff --git a/lib/envars.ml b/lib/envars.ml index 89ce52831..330b0fbd6 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") -- cgit v1.2.3