# HG changeset patch
# User wenzelm
# Date 1375178097 -7200
# Node ID 9795ea6549053951b0498346ff2c39682f99540e
# Parent  ecc7d8de4f94dbd351f77a40f831c96adcd7c4bd
tuned signature;
removed notoriously outdated comments;

diff -r ecc7d8de4f94 -r 9795ea654905 src/Pure/PIDE/protocol.ML
--- a/src/Pure/PIDE/protocol.ML	Tue Jul 30 11:44:06 2013 +0200
+++ b/src/Pure/PIDE/protocol.ML	Tue Jul 30 11:54:57 2013 +0200
@@ -8,7 +8,19 @@
 struct
 
 val _ =
-  Isabelle_Process.protocol_command "echo" (fn args => List.app writeln args);
+  Isabelle_Process.protocol_command "Isabelle_Process.echo"
+    (fn args => List.app writeln args);
+
+val _ =
+  Isabelle_Process.protocol_command "Isabelle_Process.options"
+    (fn [options_yxml] =>
+      let val options = Options.decode (YXML.parse_body options_yxml) in
+        Options.set_default options;
+        Future.ML_statistics := true;
+        Multithreading.trace := Options.int options "threads_trace";
+        Multithreading.max_threads := Options.int options "threads";
+        Goal.parallel_proofs := (if Options.int options "parallel_proofs" > 0 then 3 else 0)
+      end);
 
 val _ =
   Isabelle_Process.protocol_command "Document.define_command"
diff -r ecc7d8de4f94 -r 9795ea654905 src/Pure/System/isabelle_process.ML
--- a/src/Pure/System/isabelle_process.ML	Tue Jul 30 11:44:06 2013 +0200
+++ b/src/Pure/System/isabelle_process.ML	Tue Jul 30 11:54:57 2013 +0200
@@ -3,14 +3,6 @@
 
 Isabelle process wrapper, based on private fifos for maximum
 robustness and performance, or local socket for maximum portability.
-
-Startup phases:
-  - raw Posix process startup with uncontrolled output on stdout/stderr
-  - stderr \002: ML running
-  - stdin/stdout/stderr freely available (raw ML loop)
-  - protocol thread initialization
-  - rendezvous on system channel
-  - message INIT: channels ready
 *)
 
 signature ISABELLE_PROCESS =
@@ -221,19 +213,5 @@
 fun init_fifos fifo1 fifo2 = init (fn () => System_Channel.fifo_rendezvous fifo1 fifo2);
 fun init_socket name = init (fn () => System_Channel.socket_rendezvous name);
 
-
-(* options *)
-
-val _ =
-  protocol_command "Isabelle_Process.options"
-    (fn [options_yxml] =>
-      let val options = Options.decode (YXML.parse_body options_yxml) in
-        Options.set_default options;
-        Future.ML_statistics := true;
-        Multithreading.trace := Options.int options "threads_trace";
-        Multithreading.max_threads := Options.int options "threads";
-        Goal.parallel_proofs := (if Options.int options "parallel_proofs" > 0 then 3 else 0)
-      end);
-
 end;