Commit 06453015 authored by Pietro Abate's avatar Pietro Abate
Browse files

[r2004-10-25 08:05:16 by afrisch] Avoid open_process

Original author: afrisch
Date: 2004-10-25 08:05:16+00:00
parent 951bf56f
......@@ -171,9 +171,12 @@ let check_mliface dir =
`not_found
let ocaml_stdlib () =
let ic = Unix.open_process_in "ocamlc -where" in
if (Sys.command "ocamlc -where > ocaml_stdlib" <> 0) then
fatal "Can't run ocamlc to get OCaml standard library path";
let ic = open_in "ocaml_stdlib" in
let s = input_line ic in
close_in ic;
Sys.remove "ocaml_stdlib";
s
let ml_interface =
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment