156 |> Syntax.pretty_term ctxt, |
156 |> Syntax.pretty_term ctxt, |
157 Pretty.str (if j = 1 then "." else ";")]) |
157 Pretty.str (if j = 1 then "." else ";")]) |
158 (length ts downto 1) ts))] |
158 (length ts downto 1) ts))] |
159 |
159 |
160 fun install_java_message () = |
160 fun install_java_message () = |
161 "Nitpick requires a Java 1.5 virtual machine called \"java\"." |
161 "Nitpick requires a Java 1.6 virtual machine called \"java\"." |
162 fun install_kodkodi_message () = |
162 fun install_kodkodi_message () = |
163 "Nitpick requires the external Java program Kodkodi. To install it, download \ |
163 "Nitpick requires the external Java program Kodkodi. To install it, download \ |
164 \the package from Isabelle's web page and add the \"kodkodi-x.y.z\" \ |
164 \the package from Isabelle's web page and add the \"kodkodi-x.y.z\" \ |
165 \directory's full path to \"" ^ |
165 \directory's full path to \"" ^ |
166 Path.implode (Path.expand (Path.appends |
166 Path.implode (Path.expand (Path.appends |
738 case KK.solve_any_problem overlord deadline max_threads max_solutions |
738 case KK.solve_any_problem overlord deadline max_threads max_solutions |
739 (map fst problems) of |
739 (map fst problems) of |
740 KK.JavaNotInstalled => |
740 KK.JavaNotInstalled => |
741 (print_m install_java_message; |
741 (print_m install_java_message; |
742 (found_really_genuine, max_potential, max_genuine, donno + 1)) |
742 (found_really_genuine, max_potential, max_genuine, donno + 1)) |
|
743 | KK.JavaTooOld => |
|
744 (print_m install_java_message; |
|
745 (found_really_genuine, max_potential, max_genuine, donno + 1)) |
743 | KK.KodkodiNotInstalled => |
746 | KK.KodkodiNotInstalled => |
744 (print_m install_kodkodi_message; |
747 (print_m install_kodkodi_message; |
745 (found_really_genuine, max_potential, max_genuine, donno + 1)) |
748 (found_really_genuine, max_potential, max_genuine, donno + 1)) |
746 | KK.Normal ([], unsat_js, s) => |
749 | KK.Normal ([], unsat_js, s) => |
747 (update_checked_problems problems unsat_js; show_kodkod_warning s; |
750 (update_checked_problems problems unsat_js; show_kodkod_warning s; |