--- a/src/Pure/General/output.scala Fri May 21 18:10:19 2010 +0200
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,24 +0,0 @@
-/* Title: Pure/General/output.scala
- Author: Makarius
-
-Prover output messages.
-*/
-
-package isabelle
-
-
-object Output
-{
- object Message
- {
- def apply(name: String, atts: XML.Attributes, body: List[XML.Tree]): XML.Tree =
- XML.Elem(Markup.MESSAGE, (Markup.CLASS, name) :: atts, body)
-
- def unapply(tree: XML.Tree): Option[(String, XML.Attributes, List[XML.Tree])] =
- tree match {
- case XML.Elem(Markup.MESSAGE, (Markup.CLASS, name) :: atts, body) =>
- Some(name, atts, body)
- case _ => None
- }
- }
-}
--- a/src/Pure/PIDE/state.scala Fri May 21 18:10:19 2010 +0200
+++ b/src/Pure/PIDE/state.scala Fri May 21 20:10:45 2010 +0200
@@ -74,7 +74,7 @@
{
val changed: State =
message match {
- case XML.Elem(Markup.MESSAGE, (Markup.CLASS, Markup.STATUS) :: _, elems) =>
+ case XML.Elem(Markup.STATUS, _, elems) =>
(this /: elems)((state, elem) =>
elem match {
case XML.Elem(Markup.UNPROCESSED, _, _) => state.set_status(Command.Status.UNPROCESSED)
--- a/src/Pure/System/isabelle_process.scala Fri May 21 18:10:19 2010 +0200
+++ b/src/Pure/System/isabelle_process.scala Fri May 21 20:10:45 2010 +0200
@@ -84,7 +84,7 @@
class Result(val kind: Kind.Value, val props: List[(String, String)], val body: List[XML.Tree])
{
- def message = Output.Message(Kind.markup(kind), props, body)
+ def message = XML.Elem(Kind.markup(kind), props, body)
override def toString: String =
{
--- a/src/Pure/build-jars Fri May 21 18:10:19 2010 +0200
+++ b/src/Pure/build-jars Fri May 21 20:10:45 2010 +0200
@@ -26,7 +26,6 @@
General/exn.scala
General/linear_set.scala
General/markup.scala
- General/output.scala
General/position.scala
General/pretty.scala
General/scan.scala
--- a/src/Tools/jEdit/src/jedit/output_dockable.scala Fri May 21 18:10:19 2010 +0200
+++ b/src/Tools/jEdit/src/jedit/output_dockable.scala Fri May 21 20:10:45 2010 +0200
@@ -61,8 +61,8 @@
val show_tracing = tracing.selected
val show_debug = debug.selected
document.current_state(cmd).results filter {
- case Output.Message(Markup.TRACING, _, _) => show_tracing
- case Output.Message(Markup.DEBUG, _, _) => show_debug
+ case XML.Elem(Markup.TRACING, _, _) => show_tracing
+ case XML.Elem(Markup.DEBUG, _, _) => show_debug
case _ => true
}
}