class type cache_config =
  object
    method directory : string
    method max_size : int64
    method rpc_program_number : int32
    method save_cache_period : int
    method save_cache_speed : int
  end
type cache_instance = Cache_server.cache_instance
val create : cache_config -> cache_instance
val bind : Rpc_server.t -> cache_instance -> unit
val activate : Unixqueue.event_system -> cache_instance -> unit
val save : cache_instance -> unit
val verify : log:(string -> unit) -> cache_instance -> unit
type full_key =
  Cache_server.full_key = {
  key : Cache_client.key;
  modulo : int;
}
val set_directly :
  cache_instance ->
  full_key ->
  string ->
  Cache_client.timestamp ->
  Cache_client.set_options -> [ `Not_stored | `Stored ]
val get_directly :
  cache_instance ->
  full_key ->
  Cache_client.get_options -> [ `Found of Cache_client.entry | `Not_found ]
val delete_directly :
  cache_instance ->
  full_key -> Cache_client.timestamp -> Cache_client.delete_options -> unit
val clear_directly : cache_instance -> unit
val get_config : cache_instance -> Cache_client.config
val set_config : cache_instance -> Cache_client.config -> unit
val get_stats : cache_instance -> Cache_client.stats
val clear_counters : cache_instance -> unit
val shutdown : cache_instance -> unit