src/Pure/System/isabelle_process.ML
changeset 39509 cab2719398a7
parent 39234 d76a2fd129b5
child 39513 fce2202892c4
     1.1 --- a/src/Pure/System/isabelle_process.ML	Fri Sep 17 20:42:26 2010 +0200
     1.2 +++ b/src/Pure/System/isabelle_process.ML	Fri Sep 17 20:56:32 2010 +0200
     1.3 @@ -62,9 +62,10 @@
     1.4  
     1.5  in
     1.6  
     1.7 -fun standard_message out_stream ch body =
     1.8 +fun standard_message out_stream with_serial ch body =
     1.9    message out_stream ch
    1.10 -    ((Markup.serialN, serial_string ()) :: Position.properties_of (Position.thread_data ())) body;
    1.11 +    ((if with_serial then cons (Markup.serialN, serial_string ()) else I)
    1.12 +      (Position.properties_of (Position.thread_data ()))) body;
    1.13  
    1.14  fun init_message out_stream =
    1.15    message out_stream "A" [(Markup.pidN, process_id ())] (Session.welcome ());
    1.16 @@ -102,13 +103,13 @@
    1.17      val _ = Simple_Thread.fork false (auto_flush TextIO.stdOut);
    1.18      val _ = Simple_Thread.fork false (auto_flush TextIO.stdErr);
    1.19    in
    1.20 -    Output.status_fn   := standard_message out_stream "B";
    1.21 -    Output.report_fn   := standard_message out_stream "C";
    1.22 -    Output.writeln_fn  := standard_message out_stream "D";
    1.23 -    Output.tracing_fn  := standard_message out_stream "E";
    1.24 -    Output.warning_fn  := standard_message out_stream "F";
    1.25 -    Output.error_fn    := standard_message out_stream "G";
    1.26 -    Output.debug_fn    := standard_message out_stream "H";
    1.27 +    Output.status_fn   := standard_message out_stream false "B";
    1.28 +    Output.report_fn   := standard_message out_stream false "C";
    1.29 +    Output.writeln_fn  := standard_message out_stream true "D";
    1.30 +    Output.tracing_fn  := standard_message out_stream true "E";
    1.31 +    Output.warning_fn  := standard_message out_stream true "F";
    1.32 +    Output.error_fn    := standard_message out_stream true "G";
    1.33 +    Output.debug_fn    := standard_message out_stream true "H";
    1.34      Output.priority_fn := ! Output.writeln_fn;
    1.35      Output.prompt_fn   := ignore;
    1.36      (in_stream, out_stream)