# HG changeset patch
# User blanchet
# Date 1377180193 -7200
# Node ID 966a251efd165e7998bb61e9fa0d4e7b50780965
# Parent  d27e99a6a6795dd64b0de249ec7deae2f00d6e84
have kill_all also kill MaSh server + be paranoid about reloading after clear_state, to allow for easier experimentation

diff -r d27e99a6a679 -r 966a251efd16 src/HOL/Tools/Sledgehammer/sledgehammer_isar.ML
--- a/src/HOL/Tools/Sledgehammer/sledgehammer_isar.ML	Thu Aug 22 12:16:56 2013 +0200
+++ b/src/HOL/Tools/Sledgehammer/sledgehammer_isar.ML	Thu Aug 22 16:03:13 2013 +0200
@@ -404,7 +404,7 @@
     else if subcommand = supported_proversN then
       supported_provers ctxt
     else if subcommand = kill_allN then
-      (kill_provers (); kill_learners ())
+      (kill_provers (); kill_learners ctxt)
     else if subcommand = running_proversN then
       running_provers ()
     else if subcommand = unlearnN then
diff -r d27e99a6a679 -r 966a251efd16 src/HOL/Tools/Sledgehammer/sledgehammer_mash.ML
--- a/src/HOL/Tools/Sledgehammer/sledgehammer_mash.ML	Thu Aug 22 12:16:56 2013 +0200
+++ b/src/HOL/Tools/Sledgehammer/sledgehammer_mash.ML	Thu Aug 22 16:03:13 2013 +0200
@@ -97,7 +97,7 @@
   val relevant_facts :
     Proof.context -> params -> string -> int -> fact_override -> term list
     -> term -> raw_fact list -> (string * fact list) list
-  val kill_learners : unit -> unit
+  val kill_learners : Proof.context -> unit
   val running_learners : unit -> unit
 end;
 
@@ -253,10 +253,13 @@
 structure MaSh =
 struct
 
+fun shutdown ctxt =
+  run_mash_tool ctxt false [shutdown_server_arg] ([], K "") (K ())
+
 fun unlearn ctxt =
   let val path = mash_model_dir () in
     trace_msg ctxt (K "MaSh unlearn");
-    run_mash_tool ctxt false [shutdown_server_arg] ([], K "") (K ());
+    shutdown ctxt;
     try (File.fold_dir (fn file => fn _ =>
                            try File.rm (Path.append path (Path.basic file)))
                        path) NONE;
@@ -431,7 +434,7 @@
 fun clear_state ctxt =
   Synchronized.change global_state (fn _ =>
       (MaSh.unlearn ctxt; (* also removes the state file *)
-       (true, empty_state)))
+       (false, empty_state)))
 
 end
 
@@ -1332,7 +1335,8 @@
       | _ => [("", mesh)]
     end
 
-fun kill_learners () = Async_Manager.kill_threads MaShN "learner"
+fun kill_learners ctxt =
+  (Async_Manager.kill_threads MaShN "learner"; MaSh.shutdown ctxt)
 fun running_learners () = Async_Manager.running_threads MaShN "learner"
 
 end;