let load_ya_file f =
try
let c = open_in f in
let automata = Yalexer.parse c in
close_in c;
Data_for_aorai.setAutomata automata;
with
| Not_found -> Aorai_option.abort "Unknown Ya file %s" f
| Yalexer.Error (loc,msg) -> syntax_error loc msg