module FileUtilMisc:sig
..end
module SetFilename:Stdlib.Set.Make
(
sig
typet =
FilePath.filename
val compare : FilePath.filename -> FilePath.filename -> int
end
)
val doit : FileUtilTypes.interactive -> FilePath.filename -> bool
val prevent_recursion : SetFilename.t -> SetFilename.elt -> SetFilename.t
val solve_dirname : FilePath.filename -> FilePath.filename
typeexc =
[ `Exc of exn ]
val handle_error_gen : string ->
(string -> ([> `Exc of exn ] as 'a) -> 'b) ->
('a -> string) -> (fatal:bool -> 'a -> 'b) * (fatal:bool -> exn -> 'b)