sig
  type t
  val self_internal : State.t Pervasives.ref
  val self_external : State.t Pervasives.ref
  val compute : (Cil_types.kernel_function -> unit) Pervasives.ref
  val get_internal :
    (Cil_types.kernel_function -> Db.INOUTKF.t) Pervasives.ref
  val get_external :
    (Cil_types.kernel_function -> Db.INOUTKF.t) Pervasives.ref
  val display :
    (Format.formatter -> Cil_types.kernel_function -> unit) Pervasives.ref
  val pretty : Format.formatter -> Db.INOUTKF.t -> unit
end