sig
  type slevel_annotation =
      SlevelMerge
    | SlevelDefault
    | SlevelLocal of int
    | SlevelFull
  type unroll_annotation = UnrollAmount of Cil_types.term | UnrollFull
  type split_kind = Static | Dynamic
  type split_term =
      Expression of Cil_types.exp
    | Predicate of Cil_types.predicate
  type flow_annotation =
      FlowSplit of Eva_annotations.split_term * Eva_annotations.split_kind
    | FlowMerge of Eva_annotations.split_term
  type allocation_kind = By_stack | Fresh | Fresh_weak | Imprecise
  val get_slevel_annot :
    Cil_types.stmt -> Eva_annotations.slevel_annotation option
  val get_unroll_annot :
    Cil_types.stmt -> Eva_annotations.unroll_annotation list
  val get_flow_annot : Cil_types.stmt -> Eva_annotations.flow_annotation list
  val get_subdivision_annot : Cil_types.stmt -> int list
  val get_allocation : Cil_types.stmt -> Eva_annotations.allocation_kind
  val add_slevel_annot :
    emitter:Emitter.t ->
    loc:Cil_types.location ->
    Cil_types.stmt -> Eva_annotations.slevel_annotation -> unit
  val add_unroll_annot :
    emitter:Emitter.t ->
    loc:Cil_types.location ->
    Cil_types.stmt -> Eva_annotations.unroll_annotation -> unit
  val add_flow_annot :
    emitter:Emitter.t ->
    loc:Cil_types.location ->
    Cil_types.stmt -> Eva_annotations.flow_annotation -> unit
  val add_subdivision_annot :
    emitter:Emitter.t ->
    loc:Cil_types.location -> Cil_types.stmt -> int -> unit
end