src/Pure/System/session.ML
changeset 51423 e5f9a6d9ca82
parent 51399 6ac3c29a300e
child 51948 cb5dbc9a06f9
equal deleted inserted replaced
51422:821a70e29e0b 51423:e5f9a6d9ca82
    92   rev (distinct (eq_fst (op =)) (rev (("document", "") :: map Present.read_variant strs)))
    92   rev (distinct (eq_fst (op =)) (rev (("document", "") :: map Present.read_variant strs)))
    93   |> filter_out (fn (_, s) => s = "-");
    93   |> filter_out (fn (_, s) => s = "-");
    94 
    94 
    95 fun use_dir item root build modes reset info info_path doc doc_graph doc_variants parent
    95 fun use_dir item root build modes reset info info_path doc doc_graph doc_variants parent
    96     name doc_dump rpath level timing verbose max_threads trace_threads
    96     name doc_dump rpath level timing verbose max_threads trace_threads
    97     parallel_proofs parallel_proofs_threshold =
    97     parallel_proofs parallel_subproofs_saturation =
    98   ((fn () =>
    98   ((fn () =>
    99     let
    99     let
   100       val _ =
   100       val _ =
   101         Output.physical_stderr
   101         Output.physical_stderr
   102           "### Legacy feature: old \"isabelle usedir\" -- use \"isabelle build\" instead!\n";
   102           "### Legacy feature: old \"isabelle usedir\" -- use \"isabelle build\" instead!\n";
   114       val res2 = Exn.capture finish ();
   114       val res2 = Exn.capture finish ();
   115     in ignore (Par_Exn.release_all [res1, res2]) end)
   115     in ignore (Par_Exn.release_all [res1, res2]) end)
   116     |> Unsynchronized.setmp Proofterm.proofs level
   116     |> Unsynchronized.setmp Proofterm.proofs level
   117     |> Unsynchronized.setmp print_mode (modes @ print_mode_value ())
   117     |> Unsynchronized.setmp print_mode (modes @ print_mode_value ())
   118     |> Unsynchronized.setmp Goal.parallel_proofs parallel_proofs
   118     |> Unsynchronized.setmp Goal.parallel_proofs parallel_proofs
   119     |> Unsynchronized.setmp Goal.parallel_proofs_threshold parallel_proofs_threshold
   119     |> Unsynchronized.setmp Goal.parallel_subproofs_saturation parallel_subproofs_saturation
   120     |> Unsynchronized.setmp Multithreading.trace trace_threads
   120     |> Unsynchronized.setmp Multithreading.trace trace_threads
   121     |> Unsynchronized.setmp Multithreading.max_threads
   121     |> Unsynchronized.setmp Multithreading.max_threads
   122       (if Multithreading.available then max_threads
   122       (if Multithreading.available then max_threads
   123        else (if max_threads = 1 then () else warning "Multithreading support unavailable"; 1))) ()
   123        else (if max_threads = 1 then () else warning "Multithreading support unavailable"; 1))) ()
   124   handle exn => (Output.error_msg (ML_Compiler.exn_message exn); exit 1);
   124   handle exn => (Output.error_msg (ML_Compiler.exn_message exn); exit 1);