src/Pure/ML/ml_compiler2.ML
author wenzelm
Sun, 10 Apr 2016 21:46:12 +0200
changeset 62944 3ee643c5ed00
parent 62902 3c0f53eae166
child 74148 a97d5356f1d9
permissions -rw-r--r--
more standard session build process, including browser_info; clarified final setup of global ML environment;
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
62817
744bfd770123 clarified modules;
wenzelm
parents:
diff changeset
     1
(*  Title:      Pure/ML/ml_compiler2.ML
744bfd770123 clarified modules;
wenzelm
parents:
diff changeset
     2
    Author:     Makarius
744bfd770123 clarified modules;
wenzelm
parents:
diff changeset
     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
744bfd770123 clarified modules;
wenzelm
parents:
diff changeset
     5
*)
744bfd770123 clarified modules;
wenzelm
parents:
diff changeset
     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
744bfd770123 clarified modules;
wenzelm
parents:
diff changeset
     9
    let val flags = ML_Compiler.verbose true (ML_Compiler.debug_flags opt_debug) in
744bfd770123 clarified modules;
wenzelm
parents:
diff changeset
    10
      ML_Context.eval_file flags (Path.explode file)
744bfd770123 clarified modules;
wenzelm
parents:
diff changeset
    11
        handle ERROR msg => (writeln msg; error "ML error")
744bfd770123 clarified modules;
wenzelm
parents:
diff changeset
    12
    end);
62944
3ee643c5ed00 more standard session build process, including browser_info;
wenzelm
parents: 62902
diff changeset
    13
3ee643c5ed00 more standard session build process, including browser_info;
wenzelm
parents: 62902
diff changeset
    14
val use = ML_file;