src/HOL/Tools/ATP/atp_systems.ML
changeset 47499 4b0daca2bf88
parent 47149 97f8c6c88134
child 47505 e33d957ae2bf
equal deleted inserted replaced
47498:e3fc50c7da13 47499:4b0daca2bf88
   540            "\"$ISABELLE_ATP/scripts/remote_atp\" -w 2>&1" of
   540            "\"$ISABELLE_ATP/scripts/remote_atp\" -w 2>&1" of
   541     (output, 0) => split_lines output
   541     (output, 0) => split_lines output
   542   | (output, _) =>
   542   | (output, _) =>
   543     error (case extract_known_failure known_perl_failures output of
   543     error (case extract_known_failure known_perl_failures output of
   544              SOME failure => string_for_failure failure
   544              SOME failure => string_for_failure failure
   545            | NONE => perhaps (try (unsuffix "\n")) output ^ ".")
   545            | NONE => trim_line output ^ ".")
   546 
   546 
   547 fun find_system name [] systems =
   547 fun find_system name [] systems =
   548     find_first (String.isPrefix (name ^ "---")) systems
   548     find_first (String.isPrefix (name ^ "---")) systems
   549   | find_system name (version :: versions) systems =
   549   | find_system name (version :: versions) systems =
   550     case find_first (String.isPrefix (name ^ "---" ^ version)) systems of
   550     case find_first (String.isPrefix (name ^ "---" ^ version)) systems of