sig
  val backup_file : string -> unit
  val channel_contents : Pervasives.in_channel -> string
  val channel_contents_buf : Pervasives.in_channel -> Buffer.t
  val channel_contents_fmt :
    Pervasives.in_channel -> Format.formatter -> unit
  val fold_channel :
    ('-> string -> 'a) -> '-> Pervasives.in_channel -> 'a
  val file_contents : string -> string
  val file_contents_buf : string -> Buffer.t
  val file_contents_fmt : string -> Format.formatter -> unit
  val open_temp_file :
    ?debug:bool -> string -> (string -> Pervasives.out_channel -> 'a) -> 'a
  val copy_file : string -> string -> unit
  val copy_dir : string -> string -> unit
  val path_of_file : string -> string list
  val relativize_filename : string -> string -> string
  val absolutize_filename : string -> string -> string
  val uniquify : string -> string
end