sig
val header : ('a, 'b) Cil_types.behavior -> string
val is_active_aux :
State_set.t ->
(Cil_types.identified_predicate, 'a) Cil_types.behavior ->
Eval_logic.predicate_value
type t = {
init_states : State_set.t;
funspec : Cil_types.funspec;
is_active : Cil_types.funbehavior -> Eval_logic.predicate_value;
}
module HashBehaviors :
sig
type key = Cil_types.funbehavior
type 'a t
val create : int -> 'a t
val clear : 'a t -> unit
val copy : 'a t -> 'a t
val add : 'a t -> key -> 'a -> unit
val remove : 'a t -> key -> unit
val find : 'a t -> key -> 'a
val find_all : 'a t -> key -> 'a list
val replace : 'a t -> key -> 'a -> unit
val mem : 'a t -> key -> bool
val iter : (key -> 'a -> unit) -> 'a t -> unit
val fold : (key -> 'a -> 'b -> 'b) -> 'a t -> 'b -> 'b
val length : 'a t -> int
end
val create :
State_set.t -> Kernel_function.t -> Eval_logic.ActiveBehaviors.t
val active :
Eval_logic.ActiveBehaviors.t ->
Cil_types.funbehavior -> Eval_logic.predicate_value
val is_active :
Eval_logic.ActiveBehaviors.t -> Cil_types.funbehavior -> bool
exception No_such_behavior
val behavior_from_name :
Eval_logic.ActiveBehaviors.t ->
string ->
(Cil_types.identified_predicate, Cil_types.identified_term)
Cil_types.behavior
val active_behaviors :
Eval_logic.ActiveBehaviors.t -> Cil_types.funbehavior list
val only_active :
Eval_logic.ActiveBehaviors.t -> Cil_types.funbehavior -> bool
end