let get_states_trans_init root =
let (states,trans) = Data_for_aorai.getAutomata () in
let st_exps = (Array.make (List.length states) (mk_int_exp 0)) in
List.iter (
fun tr ->
if (tr.start.Promelaast.init==Bool3.True) &&
(isCrossableAtInit tr root)
then
begin
Array.set st_exps tr.start.nums (mk_int_exp 1);
end
) trans;
let st_init =
Array.mapi (
fun i exp ->
(*Chaque cas doit contenir : (offset * init)*)
(Index(mk_int_exp i,NoOffset),SingleInit(exp))
) st_exps
in
{Cil_types.init=Some(CompoundInit(Cil.intType, Array.to_list st_init))}