# Module FileUtilMisc

    module FileUtilMisc: sig .. end

    module SetFilename: Stdlib.Set.Make(sig

    type t = 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

    type exc = [ `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)