author | wenzelm |
Thu, 07 Apr 2016 16:53:43 +0200 | |
changeset 62902 | 3c0f53eae166 |
parent 62817 | 744bfd770123 |
child 62944 | 3ee643c5ed00 |
permissions | -rw-r--r-- |
62817 | 1 |
(* Title: Pure/ML/ml_compiler2.ML |
2 |
Author: Makarius |
|
3 |
||
62902
3c0f53eae166
more conventional theory syntax for ML bootstrap, with 'ML_file' instead of 'use';
wenzelm
parents:
62817
diff
changeset
|
4 |
Isabelle/ML file operations. |
62817 | 5 |
*) |
6 |
||
62902
3c0f53eae166
more conventional theory syntax for ML bootstrap, with 'ML_file' instead of 'use';
wenzelm
parents:
62817
diff
changeset
|
7 |
val {ML_file, ML_file_debug, ML_file_no_debug} = |
3c0f53eae166
more conventional theory syntax for ML bootstrap, with 'ML_file' instead of 'use';
wenzelm
parents:
62817
diff
changeset
|
8 |
ML_Compiler0.ML_file_operations (fn opt_debug => fn file => |
62817 | 9 |
let val flags = ML_Compiler.verbose true (ML_Compiler.debug_flags opt_debug) in |
10 |
ML_Context.eval_file flags (Path.explode file) |
|
11 |
handle ERROR msg => (writeln msg; error "ML error") |
|
12 |
end); |