aboutsummaryrefslogtreecommitdiff
path: root/tools
diff options
context:
space:
mode:
authorEmilio Jesus Gallego Arias2019-02-04 18:16:39 +0100
committerEmilio Jesus Gallego Arias2019-02-04 18:16:39 +0100
commit0439543db9f3be84d59cfdc1dcad34bd114036e3 (patch)
treec116ee4f057c34109abfc5fc27a45e57cad436a7 /tools
parentc70412ec8b0bb34b7a5607c07d34607a147d834c (diff)
[dune] Fix Dune build in Windows.
In order for Dune to work in Windows we need to tweak some script calls, they need a POSIX shell and the `(run ...)` / `(system ...)` actions use `cmd.exe` on Windows. Hopefully, we will rely less on `bash` when Dune can understand Coq libraries. This affects shell scripts in `kernel/**.sh` for example. It is interesting to see how faster the Coq Windows build is with Dune + Windows. There are some problems with PATHs that prevent the test suite from working, these will be fixed in a future PR.
Diffstat (limited to 'tools')
-rw-r--r--tools/coq_dune.ml9
1 files changed, 7 insertions, 2 deletions
diff --git a/tools/coq_dune.ml b/tools/coq_dune.ml
index 6681b79e38..68371edcb1 100644
--- a/tools/coq_dune.ml
+++ b/tools/coq_dune.ml
@@ -271,8 +271,13 @@ let exec_ifile f =
match Array.length Sys.argv with
| 1 -> f stdin
| 2 ->
- let ic = open_in Sys.argv.(1) in
- (try f ic with _ -> close_in ic)
+ let in_file = Sys.argv.(1) in
+ begin try
+ let ic = open_in in_file in
+ (try f ic
+ with _ -> eprintf "Error: exec_ifile@\n%!"; close_in ic)
+ with _ -> eprintf "Error: cannot open input file %s@\n%!" in_file
+ end
| _ -> eprintf "Error: wrong number of arguments@\n%!"; exit 1
let _ =