src/HOL/Tools/Nitpick/nitpick.ML
changeset 38516 307669429dc1
parent 38240 a44d108a8d39
child 38517 ba8027440fb0
equal deleted inserted replaced
38515:32391240695f 38516:307669429dc1
   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;