src/Pure/System/isabelle_process.ML
changeset 58848 fd0c85d7da38
parent 58843 521cea5fa777
child 58850 1bb0ad7827b4
equal deleted inserted replaced
58847:c44aff8ac894 58848:fd0c85d7da38
   202         (fn mode => (mode @ default_modes1) |> fold (update op =) default_modes2);
   202         (fn mode => (mode @ default_modes1) |> fold (update op =) default_modes2);
   203 
   203 
   204     val channel = rendezvous ();
   204     val channel = rendezvous ();
   205     val msg_channel = init_channels channel;
   205     val msg_channel = init_channels channel;
   206     val _ = Session.init_protocol_handlers ();
   206     val _ = Session.init_protocol_handlers ();
   207     val _ = (loop |> Unsynchronized.setmp Toplevel.quiet true) channel;
   207     val _ = loop channel;
   208   in Message_Channel.shutdown msg_channel end);
   208   in Message_Channel.shutdown msg_channel end);
   209 
   209 
   210 fun init_fifos fifo1 fifo2 = init (fn () => System_Channel.fifo_rendezvous fifo1 fifo2);
   210 fun init_fifos fifo1 fifo2 = init (fn () => System_Channel.fifo_rendezvous fifo1 fifo2);
   211 fun init_socket name = init (fn () => System_Channel.socket_rendezvous name);
   211 fun init_socket name = init (fn () => System_Channel.socket_rendezvous name);
   212 
   212