author | wenzelm |
Mon, 26 Aug 2013 21:56:08 +0200 | |
changeset 53212 | 387b9f7cb0ac |
parent 52852 | 08ecbffaf25c |
child 54458 | 96ccc8972fc7 |
permissions | -rw-r--r-- |
50686 | 1 |
(* Title: Pure/Tools/build.ML |
48418 | 2 |
Author: Makarius |
3 |
||
4 |
Build Isabelle sessions. |
|
5 |
*) |
|
6 |
||
7 |
signature BUILD = |
|
8 |
sig |
|
48731
a45ba78abcc1
more casual exit back to ML toplevel, to accomodate commit in SML/NJ which continues at the saved point;
wenzelm
parents:
48681
diff
changeset
|
9 |
val build: string -> unit |
48418 | 10 |
end; |
11 |
||
12 |
structure Build: BUILD = |
|
13 |
struct |
|
14 |
||
51662
3391a493f39a
just one timing protocol function, with 3 implementations: TTY/PG, PIDE/document, build;
wenzelm
parents:
51661
diff
changeset
|
15 |
(* command timings *) |
3391a493f39a
just one timing protocol function, with 3 implementations: TTY/PG, PIDE/document, build;
wenzelm
parents:
51661
diff
changeset
|
16 |
|
3391a493f39a
just one timing protocol function, with 3 implementations: TTY/PG, PIDE/document, build;
wenzelm
parents:
51661
diff
changeset
|
17 |
type timings = ((string * Time.time) Inttab.table) Symtab.table; (*file -> offset -> name * time *) |
3391a493f39a
just one timing protocol function, with 3 implementations: TTY/PG, PIDE/document, build;
wenzelm
parents:
51661
diff
changeset
|
18 |
|
3391a493f39a
just one timing protocol function, with 3 implementations: TTY/PG, PIDE/document, build;
wenzelm
parents:
51661
diff
changeset
|
19 |
val empty_timings: timings = Symtab.empty; |
3391a493f39a
just one timing protocol function, with 3 implementations: TTY/PG, PIDE/document, build;
wenzelm
parents:
51661
diff
changeset
|
20 |
|
3391a493f39a
just one timing protocol function, with 3 implementations: TTY/PG, PIDE/document, build;
wenzelm
parents:
51661
diff
changeset
|
21 |
fun update_timings props = |
3391a493f39a
just one timing protocol function, with 3 implementations: TTY/PG, PIDE/document, build;
wenzelm
parents:
51661
diff
changeset
|
22 |
(case Markup.parse_command_timing_properties props of |
3391a493f39a
just one timing protocol function, with 3 implementations: TTY/PG, PIDE/document, build;
wenzelm
parents:
51661
diff
changeset
|
23 |
SOME ({file, offset, name}, time) => |
51666
b97aeb018900
add command timings (like document command status);
wenzelm
parents:
51662
diff
changeset
|
24 |
Symtab.map_default (file, Inttab.empty) |
b97aeb018900
add command timings (like document command status);
wenzelm
parents:
51662
diff
changeset
|
25 |
(Inttab.map_default (offset, (name, time)) (fn (_, t) => (name, Time.+ (t, time)))) |
51662
3391a493f39a
just one timing protocol function, with 3 implementations: TTY/PG, PIDE/document, build;
wenzelm
parents:
51661
diff
changeset
|
26 |
| NONE => I); |
3391a493f39a
just one timing protocol function, with 3 implementations: TTY/PG, PIDE/document, build;
wenzelm
parents:
51661
diff
changeset
|
27 |
|
3391a493f39a
just one timing protocol function, with 3 implementations: TTY/PG, PIDE/document, build;
wenzelm
parents:
51661
diff
changeset
|
28 |
fun approximative_id name pos = |
3391a493f39a
just one timing protocol function, with 3 implementations: TTY/PG, PIDE/document, build;
wenzelm
parents:
51661
diff
changeset
|
29 |
(case (Position.file_of pos, Position.offset_of pos) of |
3391a493f39a
just one timing protocol function, with 3 implementations: TTY/PG, PIDE/document, build;
wenzelm
parents:
51661
diff
changeset
|
30 |
(SOME file, SOME offset) => |
3391a493f39a
just one timing protocol function, with 3 implementations: TTY/PG, PIDE/document, build;
wenzelm
parents:
51661
diff
changeset
|
31 |
if name = "" then NONE else SOME {file = file, offset = offset, name = name} |
3391a493f39a
just one timing protocol function, with 3 implementations: TTY/PG, PIDE/document, build;
wenzelm
parents:
51661
diff
changeset
|
32 |
| _ => NONE); |
3391a493f39a
just one timing protocol function, with 3 implementations: TTY/PG, PIDE/document, build;
wenzelm
parents:
51661
diff
changeset
|
33 |
|
3391a493f39a
just one timing protocol function, with 3 implementations: TTY/PG, PIDE/document, build;
wenzelm
parents:
51661
diff
changeset
|
34 |
fun lookup_timings timings tr = |
3391a493f39a
just one timing protocol function, with 3 implementations: TTY/PG, PIDE/document, build;
wenzelm
parents:
51661
diff
changeset
|
35 |
(case approximative_id (Toplevel.name_of tr) (Toplevel.pos_of tr) of |
3391a493f39a
just one timing protocol function, with 3 implementations: TTY/PG, PIDE/document, build;
wenzelm
parents:
51661
diff
changeset
|
36 |
SOME {file, offset, name} => |
3391a493f39a
just one timing protocol function, with 3 implementations: TTY/PG, PIDE/document, build;
wenzelm
parents:
51661
diff
changeset
|
37 |
(case Symtab.lookup timings file of |
3391a493f39a
just one timing protocol function, with 3 implementations: TTY/PG, PIDE/document, build;
wenzelm
parents:
51661
diff
changeset
|
38 |
SOME offsets => |
3391a493f39a
just one timing protocol function, with 3 implementations: TTY/PG, PIDE/document, build;
wenzelm
parents:
51661
diff
changeset
|
39 |
(case Inttab.lookup offsets offset of |
3391a493f39a
just one timing protocol function, with 3 implementations: TTY/PG, PIDE/document, build;
wenzelm
parents:
51661
diff
changeset
|
40 |
SOME (name', time) => if name = name' then SOME time else NONE |
3391a493f39a
just one timing protocol function, with 3 implementations: TTY/PG, PIDE/document, build;
wenzelm
parents:
51661
diff
changeset
|
41 |
| NONE => NONE) |
3391a493f39a
just one timing protocol function, with 3 implementations: TTY/PG, PIDE/document, build;
wenzelm
parents:
51661
diff
changeset
|
42 |
| NONE => NONE) |
3391a493f39a
just one timing protocol function, with 3 implementations: TTY/PG, PIDE/document, build;
wenzelm
parents:
51661
diff
changeset
|
43 |
| NONE => NONE); |
3391a493f39a
just one timing protocol function, with 3 implementations: TTY/PG, PIDE/document, build;
wenzelm
parents:
51661
diff
changeset
|
44 |
|
3391a493f39a
just one timing protocol function, with 3 implementations: TTY/PG, PIDE/document, build;
wenzelm
parents:
51661
diff
changeset
|
45 |
|
52052
892061142ba6
discontinued obsolete isabelle usedir, mkdir, make;
wenzelm
parents:
52041
diff
changeset
|
46 |
(* session timing *) |
892061142ba6
discontinued obsolete isabelle usedir, mkdir, make;
wenzelm
parents:
52041
diff
changeset
|
47 |
|
892061142ba6
discontinued obsolete isabelle usedir, mkdir, make;
wenzelm
parents:
52041
diff
changeset
|
48 |
fun session_timing name verbose f x = |
892061142ba6
discontinued obsolete isabelle usedir, mkdir, make;
wenzelm
parents:
52041
diff
changeset
|
49 |
let |
892061142ba6
discontinued obsolete isabelle usedir, mkdir, make;
wenzelm
parents:
52041
diff
changeset
|
50 |
val start = Timing.start (); |
892061142ba6
discontinued obsolete isabelle usedir, mkdir, make;
wenzelm
parents:
52041
diff
changeset
|
51 |
val y = f x; |
892061142ba6
discontinued obsolete isabelle usedir, mkdir, make;
wenzelm
parents:
52041
diff
changeset
|
52 |
val timing = Timing.result start; |
892061142ba6
discontinued obsolete isabelle usedir, mkdir, make;
wenzelm
parents:
52041
diff
changeset
|
53 |
|
892061142ba6
discontinued obsolete isabelle usedir, mkdir, make;
wenzelm
parents:
52041
diff
changeset
|
54 |
val threads = string_of_int (Multithreading.max_threads_value ()); |
892061142ba6
discontinued obsolete isabelle usedir, mkdir, make;
wenzelm
parents:
52041
diff
changeset
|
55 |
val factor = Time.toReal (#cpu timing) / Time.toReal (#elapsed timing) |
892061142ba6
discontinued obsolete isabelle usedir, mkdir, make;
wenzelm
parents:
52041
diff
changeset
|
56 |
|> Real.fmt (StringCvt.FIX (SOME 2)); |
892061142ba6
discontinued obsolete isabelle usedir, mkdir, make;
wenzelm
parents:
52041
diff
changeset
|
57 |
|
892061142ba6
discontinued obsolete isabelle usedir, mkdir, make;
wenzelm
parents:
52041
diff
changeset
|
58 |
val timing_props = |
892061142ba6
discontinued obsolete isabelle usedir, mkdir, make;
wenzelm
parents:
52041
diff
changeset
|
59 |
[("threads", threads)] @ Markup.timing_properties timing @ [("factor", factor)]; |
892061142ba6
discontinued obsolete isabelle usedir, mkdir, make;
wenzelm
parents:
52041
diff
changeset
|
60 |
val _ = writeln ("\fTiming = " ^ YXML.string_of_body (XML.Encode.properties timing_props)); |
892061142ba6
discontinued obsolete isabelle usedir, mkdir, make;
wenzelm
parents:
52041
diff
changeset
|
61 |
val _ = |
892061142ba6
discontinued obsolete isabelle usedir, mkdir, make;
wenzelm
parents:
52041
diff
changeset
|
62 |
if verbose then |
892061142ba6
discontinued obsolete isabelle usedir, mkdir, make;
wenzelm
parents:
52041
diff
changeset
|
63 |
Output.physical_stderr ("Timing " ^ name ^ " (" ^ |
892061142ba6
discontinued obsolete isabelle usedir, mkdir, make;
wenzelm
parents:
52041
diff
changeset
|
64 |
threads ^ " threads, " ^ Timing.message timing ^ ", factor " ^ factor ^ ")\n") |
892061142ba6
discontinued obsolete isabelle usedir, mkdir, make;
wenzelm
parents:
52041
diff
changeset
|
65 |
else (); |
892061142ba6
discontinued obsolete isabelle usedir, mkdir, make;
wenzelm
parents:
52041
diff
changeset
|
66 |
in y end; |
892061142ba6
discontinued obsolete isabelle usedir, mkdir, make;
wenzelm
parents:
52041
diff
changeset
|
67 |
|
892061142ba6
discontinued obsolete isabelle usedir, mkdir, make;
wenzelm
parents:
52041
diff
changeset
|
68 |
|
50683 | 69 |
(* protocol messages *) |
70 |
||
51662
3391a493f39a
just one timing protocol function, with 3 implementations: TTY/PG, PIDE/document, build;
wenzelm
parents:
51661
diff
changeset
|
71 |
fun inline_message a args = |
3391a493f39a
just one timing protocol function, with 3 implementations: TTY/PG, PIDE/document, build;
wenzelm
parents:
51661
diff
changeset
|
72 |
writeln ("\f" ^ a ^ " = " ^ YXML.string_of_body (XML.Encode.properties args)); |
50683 | 73 |
|
74 |
fun protocol_message props output = |
|
51216 | 75 |
(case props of |
76 |
function :: args => |
|
51662
3391a493f39a
just one timing protocol function, with 3 implementations: TTY/PG, PIDE/document, build;
wenzelm
parents:
51661
diff
changeset
|
77 |
if function = Markup.ML_statistics orelse function = Markup.task_statistics then |
3391a493f39a
just one timing protocol function, with 3 implementations: TTY/PG, PIDE/document, build;
wenzelm
parents:
51661
diff
changeset
|
78 |
inline_message (#2 function) args |
3391a493f39a
just one timing protocol function, with 3 implementations: TTY/PG, PIDE/document, build;
wenzelm
parents:
51661
diff
changeset
|
79 |
else if function = Markup.command_timing then |
3391a493f39a
just one timing protocol function, with 3 implementations: TTY/PG, PIDE/document, build;
wenzelm
parents:
51661
diff
changeset
|
80 |
let |
3391a493f39a
just one timing protocol function, with 3 implementations: TTY/PG, PIDE/document, build;
wenzelm
parents:
51661
diff
changeset
|
81 |
val name = the_default "" (Properties.get args Markup.nameN); |
3391a493f39a
just one timing protocol function, with 3 implementations: TTY/PG, PIDE/document, build;
wenzelm
parents:
51661
diff
changeset
|
82 |
val pos = Position.of_properties args; |
3391a493f39a
just one timing protocol function, with 3 implementations: TTY/PG, PIDE/document, build;
wenzelm
parents:
51661
diff
changeset
|
83 |
val {elapsed, ...} = Markup.parse_timing_properties args; |
3391a493f39a
just one timing protocol function, with 3 implementations: TTY/PG, PIDE/document, build;
wenzelm
parents:
51661
diff
changeset
|
84 |
in |
3391a493f39a
just one timing protocol function, with 3 implementations: TTY/PG, PIDE/document, build;
wenzelm
parents:
51661
diff
changeset
|
85 |
(case approximative_id name pos of |
3391a493f39a
just one timing protocol function, with 3 implementations: TTY/PG, PIDE/document, build;
wenzelm
parents:
51661
diff
changeset
|
86 |
SOME id => inline_message (#2 function) (Markup.command_timing_properties id elapsed) |
3391a493f39a
just one timing protocol function, with 3 implementations: TTY/PG, PIDE/document, build;
wenzelm
parents:
51661
diff
changeset
|
87 |
| NONE => ()) |
3391a493f39a
just one timing protocol function, with 3 implementations: TTY/PG, PIDE/document, build;
wenzelm
parents:
51661
diff
changeset
|
88 |
end |
51216 | 89 |
else |
90 |
(case Markup.dest_loading_theory props of |
|
91 |
SOME name => writeln ("\floading_theory = " ^ name) |
|
51661 | 92 |
| NONE => raise Output.Protocol_Message props) |
93 |
| [] => raise Output.Protocol_Message props); |
|
51045
630c0895d9d1
more efficient inlined properties, especially relevant for voluminous tasks trace;
wenzelm
parents:
50982
diff
changeset
|
94 |
|
50683 | 95 |
|
96 |
(* build *) |
|
97 |
||
48465 | 98 |
local |
99 |
||
48500 | 100 |
fun no_document options = |
50121
97d2b77313a0
isabelle build no longer supports document_dump/document_dump_mode (no INCOMPATIBILITY, since it was never in official release);
wenzelm
parents:
49911
diff
changeset
|
101 |
(case Options.string options "document" of "" => true | "false" => true | _ => false); |
48500 | 102 |
|
51217
65ab2c4f4c32
support for prescient timing information within command transactions;
wenzelm
parents:
51216
diff
changeset
|
103 |
fun use_theories last_timing options = |
65ab2c4f4c32
support for prescient timing information within command transactions;
wenzelm
parents:
51216
diff
changeset
|
104 |
Thy_Info.use_theories {last_timing = last_timing, master_dir = Path.current} |
48457 | 105 |
|> Unsynchronized.setmp print_mode |
106 |
(space_explode "," (Options.string options "print_mode") @ print_mode_value ()) |
|
107 |
|> Unsynchronized.setmp Goal.parallel_proofs (Options.int options "parallel_proofs") |
|
108 |
|> Unsynchronized.setmp Multithreading.trace (Options.int options "threads_trace") |
|
48460 | 109 |
|> Unsynchronized.setmp Multithreading.max_threads (Options.int options "threads") |
50698
49621c755075
always enable Future.ML_statistics where this makes sense -- runtime overhead should be negligible;
wenzelm
parents:
50686
diff
changeset
|
110 |
|> Unsynchronized.setmp Future.ML_statistics true |
48500 | 111 |
|> no_document options ? Present.no_document |
48527 | 112 |
|> Unsynchronized.setmp Pretty.margin_default (Options.int options "pretty_margin") |
48492 | 113 |
|> Unsynchronized.setmp Toplevel.timing (Options.bool options "timing"); |
48457 | 114 |
|
51217
65ab2c4f4c32
support for prescient timing information within command transactions;
wenzelm
parents:
51216
diff
changeset
|
115 |
fun use_theories_condition last_timing (options, thys) = |
48465 | 116 |
let val condition = space_explode "," (Options.string options "condition") in |
117 |
(case filter_out (can getenv_strict) condition of |
|
51941
ead4248aef3b
full default options for Isabelle_Process and Build;
wenzelm
parents:
51666
diff
changeset
|
118 |
[] => |
ead4248aef3b
full default options for Isabelle_Process and Build;
wenzelm
parents:
51666
diff
changeset
|
119 |
(Options.set_default options; |
ead4248aef3b
full default options for Isabelle_Process and Build;
wenzelm
parents:
51666
diff
changeset
|
120 |
use_theories last_timing options (map (rpair Position.none) thys)) |
48465 | 121 |
| conds => |
48512 | 122 |
Output.physical_stderr ("Skipping theories " ^ commas_quote thys ^ |
48477 | 123 |
" (undefined " ^ commas conds ^ ")\n")) |
48465 | 124 |
end; |
125 |
||
126 |
in |
|
127 |
||
48681
181b91e1d1c1
prefer general Command_Line.tool wrapper (cf. Scala version);
wenzelm
parents:
48673
diff
changeset
|
128 |
fun build args_file = Command_Line.tool (fn () => |
48672
9bc7922ba2ae
further robustification of interrupts during build;
wenzelm
parents:
48662
diff
changeset
|
129 |
let |
53212
387b9f7cb0ac
added SHA1 library integrity test, which is invoked at compile time and Isabelle_Process run-time;
wenzelm
parents:
52852
diff
changeset
|
130 |
val _ = SHA1_Samples.test (); |
387b9f7cb0ac
added SHA1 library integrity test, which is invoked at compile time and Isabelle_Process run-time;
wenzelm
parents:
52852
diff
changeset
|
131 |
|
51220 | 132 |
val (command_timings, (do_output, (options, (verbose, (browser_info, |
51399
6ac3c29a300e
discontinued "isabelle usedir" option -r (reset session path);
wenzelm
parents:
51398
diff
changeset
|
133 |
(parent_name, (chapter, (name, theories)))))))) = |
48672
9bc7922ba2ae
further robustification of interrupts during build;
wenzelm
parents:
48662
diff
changeset
|
134 |
File.read (Path.explode args_file) |> YXML.parse_body |> |
9bc7922ba2ae
further robustification of interrupts during build;
wenzelm
parents:
48662
diff
changeset
|
135 |
let open XML.Decode in |
51218
6425a0d3b7ac
support for build passing timings from Scala to ML;
wenzelm
parents:
51217
diff
changeset
|
136 |
pair (list properties) (pair bool (pair Options.decode (pair bool (pair string |
51399
6ac3c29a300e
discontinued "isabelle usedir" option -r (reset session path);
wenzelm
parents:
51398
diff
changeset
|
137 |
(pair string (pair string (pair string |
6ac3c29a300e
discontinued "isabelle usedir" option -r (reset session path);
wenzelm
parents:
51398
diff
changeset
|
138 |
((list (pair Options.decode (list string))))))))))) |
48672
9bc7922ba2ae
further robustification of interrupts during build;
wenzelm
parents:
48662
diff
changeset
|
139 |
end; |
48418 | 140 |
|
51941
ead4248aef3b
full default options for Isabelle_Process and Build;
wenzelm
parents:
51666
diff
changeset
|
141 |
val _ = Options.set_default options; |
ead4248aef3b
full default options for Isabelle_Process and Build;
wenzelm
parents:
51666
diff
changeset
|
142 |
|
48804
6348e5fca42e
more direct interpretation of document_variants for build (unchanged for usedir);
wenzelm
parents:
48734
diff
changeset
|
143 |
val document_variants = |
6348e5fca42e
more direct interpretation of document_variants for build (unchanged for usedir);
wenzelm
parents:
48734
diff
changeset
|
144 |
map Present.read_variant (space_explode ":" (Options.string options "document_variants")); |
48672
9bc7922ba2ae
further robustification of interrupts during build;
wenzelm
parents:
48662
diff
changeset
|
145 |
val _ = |
48805
c3ea910b3581
explicit document_output directory, without implicit purge of default in ISABELLE_BROWSER_INFO;
wenzelm
parents:
48804
diff
changeset
|
146 |
(case duplicates (op =) (map fst document_variants) of |
c3ea910b3581
explicit document_output directory, without implicit purge of default in ISABELLE_BROWSER_INFO;
wenzelm
parents:
48804
diff
changeset
|
147 |
[] => () |
c3ea910b3581
explicit document_output directory, without implicit purge of default in ISABELLE_BROWSER_INFO;
wenzelm
parents:
48804
diff
changeset
|
148 |
| dups => error ("Duplicate document variants: " ^ commas_quote dups)); |
49242 | 149 |
|
50982 | 150 |
val _ = writeln ("\fSession.name = " ^ name); |
49242 | 151 |
val _ = |
51399
6ac3c29a300e
discontinued "isabelle usedir" option -r (reset session path);
wenzelm
parents:
51398
diff
changeset
|
152 |
Session.init do_output |
6ac3c29a300e
discontinued "isabelle usedir" option -r (reset session path);
wenzelm
parents:
51398
diff
changeset
|
153 |
(Options.bool options "browser_info") |
6ac3c29a300e
discontinued "isabelle usedir" option -r (reset session path);
wenzelm
parents:
51398
diff
changeset
|
154 |
(Path.explode browser_info) |
48672
9bc7922ba2ae
further robustification of interrupts during build;
wenzelm
parents:
48662
diff
changeset
|
155 |
(Options.string options "document") |
9bc7922ba2ae
further robustification of interrupts during build;
wenzelm
parents:
48662
diff
changeset
|
156 |
(Options.bool options "document_graph") |
48805
c3ea910b3581
explicit document_output directory, without implicit purge of default in ISABELLE_BROWSER_INFO;
wenzelm
parents:
48804
diff
changeset
|
157 |
(Options.string options "document_output") |
48804
6348e5fca42e
more direct interpretation of document_variants for build (unchanged for usedir);
wenzelm
parents:
48734
diff
changeset
|
158 |
document_variants |
51399
6ac3c29a300e
discontinued "isabelle usedir" option -r (reset session path);
wenzelm
parents:
51398
diff
changeset
|
159 |
parent_name (chapter, name) |
51398
c3d02b3518c2
discontinued "isabelle usedir" option -P (remote path);
wenzelm
parents:
51228
diff
changeset
|
160 |
(false, "") |
50121
97d2b77313a0
isabelle build no longer supports document_dump/document_dump_mode (no INCOMPATIBILITY, since it was never in official release);
wenzelm
parents:
49911
diff
changeset
|
161 |
verbose; |
49911
262c36fd5f26
collective errors from use_thys and Session.finish/Goal.finish_futures -- avoid uninformative interrupts stemming from failure of goal forks that are not registered in the theory (e.g. unnamed theorems);
wenzelm
parents:
49242
diff
changeset
|
162 |
|
51228 | 163 |
val last_timing = lookup_timings (fold update_timings command_timings empty_timings); |
51218
6425a0d3b7ac
support for build passing timings from Scala to ML;
wenzelm
parents:
51217
diff
changeset
|
164 |
|
49911
262c36fd5f26
collective errors from use_thys and Session.finish/Goal.finish_futures -- avoid uninformative interrupts stemming from failure of goal forks that are not registered in the theory (e.g. unnamed theorems);
wenzelm
parents:
49242
diff
changeset
|
165 |
val res1 = |
48673
b2b09970c571
let with_timing report overall number of threads;
wenzelm
parents:
48672
diff
changeset
|
166 |
theories |> |
51218
6425a0d3b7ac
support for build passing timings from Scala to ML;
wenzelm
parents:
51217
diff
changeset
|
167 |
(List.app (use_theories_condition last_timing) |
52052
892061142ba6
discontinued obsolete isabelle usedir, mkdir, make;
wenzelm
parents:
52041
diff
changeset
|
168 |
|> session_timing name verbose |
52852 | 169 |
|> Unsynchronized.setmp Output.Internal.protocol_message_fn protocol_message |
49911
262c36fd5f26
collective errors from use_thys and Session.finish/Goal.finish_futures -- avoid uninformative interrupts stemming from failure of goal forks that are not registered in the theory (e.g. unnamed theorems);
wenzelm
parents:
49242
diff
changeset
|
170 |
|> Unsynchronized.setmp Multithreading.max_threads (Options.int options "threads") |
262c36fd5f26
collective errors from use_thys and Session.finish/Goal.finish_futures -- avoid uninformative interrupts stemming from failure of goal forks that are not registered in the theory (e.g. unnamed theorems);
wenzelm
parents:
49242
diff
changeset
|
171 |
|> Exn.capture); |
262c36fd5f26
collective errors from use_thys and Session.finish/Goal.finish_futures -- avoid uninformative interrupts stemming from failure of goal forks that are not registered in the theory (e.g. unnamed theorems);
wenzelm
parents:
49242
diff
changeset
|
172 |
val res2 = Exn.capture Session.finish (); |
262c36fd5f26
collective errors from use_thys and Session.finish/Goal.finish_futures -- avoid uninformative interrupts stemming from failure of goal forks that are not registered in the theory (e.g. unnamed theorems);
wenzelm
parents:
49242
diff
changeset
|
173 |
val _ = Par_Exn.release_all [res1, res2]; |
48673
b2b09970c571
let with_timing report overall number of threads;
wenzelm
parents:
48672
diff
changeset
|
174 |
|
51941
ead4248aef3b
full default options for Isabelle_Process and Build;
wenzelm
parents:
51666
diff
changeset
|
175 |
val _ = Options.reset_default (); |
48734
af91cd2301ba
back to implicit commit via isabelle-process -- save image only once (cf. 181b91e1d1c1);
wenzelm
parents:
48731
diff
changeset
|
176 |
val _ = if do_output then () else exit 0; |
48681
181b91e1d1c1
prefer general Command_Line.tool wrapper (cf. Scala version);
wenzelm
parents:
48673
diff
changeset
|
177 |
in 0 end); |
48418 | 178 |
|
179 |
end; |
|
48465 | 180 |
|
181 |
end; |