# HG changeset patch
# User blanchet
# Date 1377069940 -7200
# Node ID 2381bdf47ba52d4233a6b50dc3a5ff8c850211cc
# Parent  b1907f6b3c86452044d7b906dfb1f0901ac39285
use new MaSh command-line arguments

diff -r b1907f6b3c86 -r 2381bdf47ba5 src/HOL/Tools/Sledgehammer/sledgehammer_mash.ML
--- a/src/HOL/Tools/Sledgehammer/sledgehammer_mash.ML	Wed Aug 21 09:25:40 2013 +0200
+++ b/src/HOL/Tools/Sledgehammer/sledgehammer_mash.ML	Wed Aug 21 09:25:40 2013 +0200
@@ -138,6 +138,9 @@
 
 (*** Low-level communication with MaSh ***)
 
+val save_models_arg = "--saveModels"
+val shutdown_server_arg = "--shutdownServer"
+
 fun wipe_out_file file = (try (File.rm o Path.explode) file; ())
 
 fun write_file banner (xs, f) path =
@@ -145,7 +148,7 @@
    xs |> chunk_list 500 |> List.app (File.append path o implode o map f))
   handle IO.Io _ => ()
 
-fun run_mash_tool ctxt overlord write_cmds read_suggs =
+fun run_mash_tool ctxt overlord extra_args write_cmds read_suggs =
   let
     val (temp_dir, serial) =
       if overlord then (getenv "ISABELLE_HOME_USER", "")
@@ -165,6 +168,7 @@
       " --modelFile=" ^ model_dir ^ "/model.pickle" ^
       " --dictsFile=" ^ model_dir ^ "/dict.pickle" ^
       " --log " ^ log_file ^ " " ^ core ^
+      (if extra_args = [] then "" else " " ^ space_implode " " extra_args) ^
       " >& " ^ err_file
     fun run_on () =
       (Isabelle_System.bash command
@@ -216,8 +220,6 @@
 
 val encode_features = map encode_feature #> space_implode " "
 
-val str_of_saveless_shutdown = "S\n"
-
 fun str_of_learn (name, parents, feats, deps) =
   "! " ^ encode_str name ^ ": " ^ encode_strs parents ^ "; " ^
   encode_features feats ^ "; " ^ encode_strs deps ^ "\n"
@@ -251,7 +253,7 @@
 fun unlearn ctxt =
   let val path = mash_model_dir () in
     trace_msg ctxt (K "MaSh unlearn");
-    run_mash_tool ctxt false ([()], K str_of_saveless_shutdown);
+    run_mash_tool ctxt false [shutdown_server_arg] ([], K "");
     try (File.fold_dir (fn file => fn _ =>
                            try File.rm (Path.append path (Path.basic file)))
                        path) NONE;
@@ -262,17 +264,19 @@
   | learn ctxt overlord learns =
     (trace_msg ctxt (fn () => "MaSh learn " ^
          elide_string 1000 (space_implode " " (map #1 learns)));
-     run_mash_tool ctxt overlord (learns, str_of_learn) (K ()))
+     run_mash_tool ctxt overlord [save_models_arg] (learns, str_of_learn)
+                   (K ()))
 
 fun relearn _ _ [] = ()
   | relearn ctxt overlord relearns =
     (trace_msg ctxt (fn () => "MaSh relearn " ^
          elide_string 1000 (space_implode " " (map #1 relearns)));
-     run_mash_tool ctxt overlord (relearns, str_of_relearn) (K ()))
+     run_mash_tool ctxt overlord [save_models_arg] (relearns, str_of_relearn)
+                   (K ()))
 
-fun query ctxt overlord max_suggs (query as (learns, hints, _, feats)) =
+fun query ctxt overlord max_suggs (query as (_, _, _, feats)) =
   (trace_msg ctxt (fn () => "MaSh query " ^ encode_features feats);
-   run_mash_tool ctxt overlord ([query], str_of_query max_suggs)
+   run_mash_tool ctxt overlord [] ([query], str_of_query max_suggs)
        (fn suggs =>
            case suggs () of
              [] => []