sig
  type t
  val self_internal : Project.Computation.t Pervasives.ref
  val self_external : Project.Computation.t Pervasives.ref
  val compute : (Db_types.kernel_function -> unit) Pervasives.ref
  val get_internal : (Db_types.kernel_function -> Db.INOUT.t) Pervasives.ref
  val get_external : (Db_types.kernel_function -> Db.INOUT.t) Pervasives.ref
  val statement : (Cil_types.stmt -> Db.INOUT.t) Pervasives.ref
  val expr : (Cil_types.stmt -> Cil_types.exp -> Db.INOUT.t) Pervasives.ref
  val kinstr : Cil_types.kinstr -> Db.INOUT.t option
  val display :
    (Format.formatter -> Db_types.kernel_function -> unit) Pervasives.ref
  val pretty : Format.formatter -> Db.INOUT.t -> unit
end