let add_pre_post_from_buch file treatloops =
let visitor = new visit_adding_pre_post_from_buch (Data_for_ltl.getAutomata()) treatloops in
Cil.visitCilFile (visitor :> Cil.cilVisitor) file;
(* Transfert previous annotation on the new loop statement *)
Hashtbl.iter
(fun old_stmt new_stmt ->
let old_annot_l = Annotations.get !old_stmt in
Annotations.reset_stmt !old_stmt;
List.iter
(fun an -> Annotations.add !new_stmt an)
old_annot_l
)
post_treatment_loops