let default_build_command file =
let out = Printf.sprintf "%s.byte"
(Filename.chop_extension (Filename.basename file))
in
let wd = Unix.getcwd () in
prerr_endline file;
if Ed_misc.is_prefix wd file then
(
let len_file = String.length file in
let len_wd = String.length wd in
let s = String.sub file (len_wd + 1) (len_file - len_wd - 1) in
let inc = Filename.dirname s in
Printf.sprintf "ocamlbuild -I %s %s"
(Filename.quote inc) (Filename.quote out)
)
else if Filename.is_relative file then
(
let inc = Filename.dirname file in
Printf.sprintf "ocamlbuild -I %s %s"
(Filename.quote inc) (Filename.quote out)
)
else
(
let d = Filename.dirname file in
Printf.sprintf "(cd %s && ocamlbuild %s)"
(Filename.quote d) (Filename.quote out)
)