diff options
| author | Emilio Jesus Gallego Arias | 2019-02-04 18:16:39 +0100 |
|---|---|---|
| committer | Emilio Jesus Gallego Arias | 2019-02-04 18:16:39 +0100 |
| commit | 0439543db9f3be84d59cfdc1dcad34bd114036e3 (patch) | |
| tree | c116ee4f057c34109abfc5fc27a45e57cad436a7 /tools | |
| parent | c70412ec8b0bb34b7a5607c07d34607a147d834c (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.ml | 9 |
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 _ = |
