equal
deleted
inserted
replaced
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); |