let dir = Sys.getcwd ()
let project_root = Filename.dirname Sys.argv.(0)
-let () = Sys.chdir project_root
+(* if Filename.is_relative build_path
+ then Filename.concat dir build_path
+ else build_path *)
let () =
for i = 1 to Array.length Sys.argv - 1 do
let odebug = if !profile then " -tag debug " else ""
let otarget = if !target = "clean" then " -clean " else !target
let overbose = if !verbose then " -classic-display " else ""
+let () =
+ Sys.chdir project_root;
+ Printf.printf "Entering directory `%s'\n%!" project_root
-let cmd = "ocamlbuild -use-ocamlfind " ^ overbose ^ oprofile ^ odebug ^ otarget
+let cmd = Printf.sprintf "ocamlbuild -use-ocamlfind %s %s %s %s"
+ overbose oprofile odebug otarget
let i = Sys.command cmd
-let () = Sys.chdir dir
+let () = Sys.chdir dir;
+ Printf.printf "Leaving directory `%s'\n%!" project_root
let _ = exit i