let ltl_to_ltlLight f_ltl f_out =
try
let c = open_in f_ltl in
let (ltl_form,ltl_exps) = Ltllexer.parse c in
close_in c;
Data_for_ltl.setLtl_expressions ltl_exps;
Ltl_logic.setLtl_expressions ltl_exps;
Ltl_output.output ltl_form f_out
with Not_found ->
Ltl_to_acsl_option.abort "Problem with file : %s" f_ltl
| Ltllexer.Error (loc,msg) ->
Ltl_to_acsl_option.error
"File %S, line %d, characters %d-%d"
(fst loc).Lexing.pos_fname (fst loc).Lexing.pos_lnum
((fst loc).Lexing.pos_cnum - (fst loc).Lexing.pos_bol)
((snd loc).Lexing.pos_cnum - (fst loc).Lexing.pos_bol);
Ltl_to_acsl_option.error "Error when parsing LTL formula";
Ltl_to_acsl_option.abort "%s" msg