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

[r2005-11-01 10:38:28 by afrisch] Allow relative --mliface option

Original author: afrisch
Date: 2005-11-01 10:38:28+00:00
parent 1f475adf
......@@ -178,10 +178,14 @@ let ocaml_stdlib () =
Sys.remove "ocaml_stdlib";
s
let make_absolute dir =
if Filename.is_relative dir
then Filename.concat (Sys.getcwd ()) dir
else dir
let ml_interface =
let dir1 = !(List.assoc "mliface" vars) in
let dirs = [] in
let dirs = if dir1 = "" then dirs else dir1 :: dirs in
let dirs = if dir1 = "" then [] else [ make_absolute dir1 ] in
print "ocaml sources... ";
let rec loop = function
| [] ->
......
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