sig
  type t = Locations.Zone.t
  val self_internal : State.t ref
  val self_external : State.t ref
  val compute : (Cil_types.kernel_function -> unit) ref
  val get_internal : (Cil_types.kernel_function -> t) ref
  val get_external : (Cil_types.kernel_function -> t) ref
  val display : (Format.formatter -> Cil_types.kernel_function -> unit) ref
  val pretty : Format.formatter -> t -> unit
  val statement : (Cil_types.stmt -> t) ref
  val kinstr : Cil_types.kinstr -> t option
  val expr : (Cil_types.stmt -> Cil_types.exp -> t) Pervasives.ref
  val self_with_formals : State.t Pervasives.ref
  val get_with_formals : (Cil_types.kernel_function -> t) Pervasives.ref
  val display_with_formals :
    (Format.formatter -> Cil_types.kernel_function -> unit) Pervasives.ref
end