src/Pure/Tools/build.ML
changeset 65934 5f202ba9f590
parent 65532 febfd9f78bd4
child 65936 aece72468de5
equal deleted inserted replaced
65933:f3e4f9e6c485 65934:5f202ba9f590
   218 fun build args_file =
   218 fun build args_file =
   219   let
   219   let
   220     val _ = SHA1.test_samples ();
   220     val _ = SHA1.test_samples ();
   221     val _ = Options.load_default ();
   221     val _ = Options.load_default ();
   222     val _ = Isabelle_Process.init_options ();
   222     val _ = Isabelle_Process.init_options ();
   223     val args = decode_args (File.read (Path.explode args_file));
   223     val args as Args {name, ...} = decode_args (File.read (Path.explode args_file));
       
   224     fun error_message msg = writeln ("\ferror_message = " ^ encode_lines msg);
   224     val _ =
   225     val _ =
   225       Unsynchronized.setmp Private_Output.protocol_message_fn protocol_message
   226       Unsynchronized.setmp Private_Output.protocol_message_fn protocol_message
   226         build_session args;
   227         build_session args
       
   228       handle exn => (List.app (error_message o #2) (Runtime.exn_messages exn); Exn.reraise exn);
   227     val _ = Options.reset_default ();
   229     val _ = Options.reset_default ();
   228   in () end;
   230   in () end;
   229 
   231 
   230 (*PIDE version*)
   232 (*PIDE version*)
   231 val _ =
   233 val _ =