File_cache.Make
module Input : sig ... end
val read : string -> Input.t
val flush : ?older_than:float -> unit -> unit
val clear : unit -> unit
val check : string -> bool
val get_cached_entry : string -> Input.t
Not_found
if the file is not in cache.
type cache_stats = {
hit : int;
miss : int;
}
val get_cache_stats : unit -> cache_stats
val clear_cache_stats : unit -> unit