let parse_scripts file =
if Sys.file_exists file then
begin
let input = Script.open_file file in
try
collect_scripts input ;
Script.close input ;
with e ->
Script.close input ;
raise e
end