matthieu
/
dune
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Print the contents of OCAMLPARAM in the log

This commit is contained in:
Jeremie Dimino 2017-05-26 14:07:21 +01:00
parent f1f95cda37
commit 1de95b9d81
2 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
bootstrap.ml
View File

@ -17,6 +17,11 @@ open Printf
module String_set = Set.Make(String)
let () =
match Sys.getenv "OCAMLPARAM" with
| s -> Printf.eprintf "OCAMLPARAM is set to %S\n%!" s
| exception Not_found -> ()
(* Modules overriden to bootstrap faster *)
let overridden =
String_set.of_list

7
src/log.ml
View File

@ -14,8 +14,11 @@ let create () =
if not (Sys.file_exists "_build") then
Unix.mkdir "_build" 0o777;
let oc = Io.open_out "_build/log" in
Printf.fprintf oc "# %s\n%!"
(String.concat (List.map (Array.to_list Sys.argv) ~f:quote_for_shell) ~sep:" ");
Printf.fprintf oc "# %s\n# OCAMLPARAM: %s\n%!"
(String.concat (List.map (Array.to_list Sys.argv) ~f:quote_for_shell) ~sep:" ")
(match Sys.getenv "OCAMLPARAM" with
| s -> Printf.sprintf "%S" s
| exception Not_found -> "unset");
let buf = Buffer.create 1024 in
let ppf = Format.formatter_of_buffer buf in
Some { oc; buf; ppf }