470 |
470 |
471 case (info, Text.Info(r0, XML.Elem(Markup(Markup.ML_TYPING, _), body))) => |
471 case (info, Text.Info(r0, XML.Elem(Markup(Markup.ML_TYPING, _), body))) => |
472 Some(info + (r0, false, Pretty.block(XML.Text("ML:") :: Pretty.brk(1) :: body))) |
472 Some(info + (r0, false, Pretty.block(XML.Text("ML:") :: Pretty.brk(1) :: body))) |
473 |
473 |
474 case (info, Text.Info(r0, Protocol.ML_Breakpoint(breakpoint))) => |
474 case (info, Text.Info(r0, Protocol.ML_Breakpoint(breakpoint))) => |
475 Debugger.get(session) match { |
475 val text = |
476 case None => None |
476 if (session.debugger.breakpoint_state(breakpoint)) "breakpoint (enabled)" |
477 case Some(debugger) => |
477 else "breakpoint (disabled)" |
478 val text = |
478 Some(info + (r0, true, XML.Text(text))) |
479 if (debugger.breakpoint_state(breakpoint)) "breakpoint (enabled)" |
|
480 else "breakpoint (disabled)" |
|
481 Some(info + (r0, true, XML.Text(text))) |
|
482 } |
|
483 case (info, Text.Info(r0, XML.Elem(Markup.Language(language, _, _, _), _))) => |
479 case (info, Text.Info(r0, XML.Elem(Markup.Language(language, _, _, _), _))) => |
484 val lang = Word.implode(Word.explode('_', language)) |
480 val lang = Word.implode(Word.explode('_', language)) |
485 Some(info + (r0, true, XML.Text("language: " + lang))) |
481 Some(info + (r0, true, XML.Text("language: " + lang))) |
486 |
482 |
487 case (info, Text.Info(r0, XML.Elem(Markup.Expression(kind), _))) => |
483 case (info, Text.Info(r0, XML.Elem(Markup.Expression(kind), _))) => |