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