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