201 val ML_statistics: Properties.entry |
201 val ML_statistics: Properties.entry |
202 val task_statistics: Properties.entry |
202 val task_statistics: Properties.entry |
203 val command_timing: Properties.entry |
203 val command_timing: Properties.entry |
204 val theory_timing: Properties.entry |
204 val theory_timing: Properties.entry |
205 val exportN: string |
205 val exportN: string |
206 type export_args = {id: string option, theory_name: string, path: string, compress: bool} |
206 type export_args = {id: string option, theory_name: string, name: string, compress: bool} |
207 val export: export_args -> Properties.T |
207 val export: export_args -> Properties.T |
208 val loading_theory: string -> Properties.T |
208 val loading_theory: string -> Properties.T |
209 val dest_loading_theory: Properties.T -> string option |
209 val dest_loading_theory: Properties.T -> string option |
210 val build_session_finished: Properties.T |
210 val build_session_finished: Properties.T |
211 val print_operationsN: string |
211 val print_operationsN: string |
640 val command_timing = (functionN, "command_timing"); |
640 val command_timing = (functionN, "command_timing"); |
641 |
641 |
642 val theory_timing = (functionN, "theory_timing"); |
642 val theory_timing = (functionN, "theory_timing"); |
643 |
643 |
644 val exportN = "export"; |
644 val exportN = "export"; |
645 type export_args = {id: string option, theory_name: string, path: string, compress: bool} |
645 type export_args = {id: string option, theory_name: string, name: string, compress: bool} |
646 fun export ({id, theory_name, path, compress}: export_args) = |
646 fun export ({id, theory_name, name, compress}: export_args) = |
647 [(functionN, exportN), ("id", the_default "" id), |
647 [(functionN, exportN), (idN, the_default "" id), |
648 ("theory_name", theory_name), ("path", path), ("compress", Value.print_bool compress)]; |
648 ("theory_name", theory_name), (nameN, name), ("compress", Value.print_bool compress)]; |
649 |
649 |
650 fun loading_theory name = [("function", "loading_theory"), ("name", name)]; |
650 fun loading_theory name = [("function", "loading_theory"), ("name", name)]; |
651 |
651 |
652 fun dest_loading_theory [("function", "loading_theory"), ("name", name)] = SOME name |
652 fun dest_loading_theory [("function", "loading_theory"), ("name", name)] = SOME name |
653 | dest_loading_theory _ = NONE; |
653 | dest_loading_theory _ = NONE; |