+let debug = false;;
+
exception NoRootFor of string
let absolutize path =
in
let extra_buri = substract lpath lroot in
let chop name =
- assert(Filename.check_suffix name ".ma");
+ assert(Filename.check_suffix name ".ma" ||
+ Filename.check_suffix name ".mma");
try Filename.chop_extension name
with Invalid_argument "Filename.chop_extension" -> name
in
module Make = functor (F:Format) -> struct
- let prerr_endline _ = ();;
+ let prerr_endline s = if debug then prerr_endline ("make: "^s);;
let younger_s_t a b =
match F.mtime_of_source_object a, F.mtime_of_target_object b with