src/Pure/Tools/debugger.ML
changeset 60878 1f0d2bbcf38b
parent 60871 9b26f3118e40
child 60880 fa958e24ff24
equal deleted inserted replaced
60877:8d00ff5a052e 60878:1f0d2bbcf38b
   231 val _ =
   231 val _ =
   232   Isabelle_Process.protocol_command "Debugger.init"
   232   Isabelle_Process.protocol_command "Debugger.init"
   233     (fn [] => init ());
   233     (fn [] => init ());
   234 
   234 
   235 val _ =
   235 val _ =
       
   236   Isabelle_Process.protocol_command "Debugger.breakpoint"
       
   237     (fn [serial_string, b_string] =>
       
   238       let
       
   239         val serial = Markup.parse_int serial_string;
       
   240         val b = Markup.parse_bool b_string;
       
   241         (* FIXME *)
       
   242       in () end);
       
   243 
       
   244 val _ =
   236   Isabelle_Process.protocol_command "Debugger.cancel"
   245   Isabelle_Process.protocol_command "Debugger.cancel"
   237     (fn [thread_name] => cancel thread_name);
   246     (fn [thread_name] => cancel thread_name);
   238 
   247 
   239 val _ =
   248 val _ =
   240   Isabelle_Process.protocol_command "Debugger.input"
   249   Isabelle_Process.protocol_command "Debugger.input"