equal
deleted
inserted
replaced
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 |