# HG changeset patch
# User wenzelm
# Date 1281474228 -7200
# Node ID e50c283dd1250e2705d0b0bcf369baca2c58ebe1
# Parent  492d377ecfe28979531affff752df93b70bfb248
type XML.Body as basic data representation language (Scala version);
tuned;

diff -r 492d377ecfe2 -r e50c283dd125 src/Pure/General/xml.scala
--- a/src/Pure/General/xml.scala	Tue Aug 10 22:26:23 2010 +0200
+++ b/src/Pure/General/xml.scala	Tue Aug 10 23:03:48 2010 +0200
@@ -30,6 +30,8 @@
   def elem(name: String, body: List[Tree]) = Elem(Markup(name, Nil), body)
   def elem(name: String) = Elem(Markup(name, Nil), Nil)
 
+  type Body = List[Tree]
+
 
   /* string representation */
 
diff -r 492d377ecfe2 -r e50c283dd125 src/Pure/General/xml_data.ML
--- a/src/Pure/General/xml_data.ML	Tue Aug 10 22:26:23 2010 +0200
+++ b/src/Pure/General/xml_data.ML	Tue Aug 10 23:03:48 2010 +0200
@@ -53,6 +53,7 @@
   | dest_bool_atom "1" = true
   | dest_bool_atom s = raise XML_ATOM s;
 
+
 fun make_unit_atom () = "";
 
 fun dest_unit_atom "" = ()
diff -r 492d377ecfe2 -r e50c283dd125 src/Pure/General/xml_data.scala
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/src/Pure/General/xml_data.scala	Tue Aug 10 23:03:48 2010 +0200
@@ -0,0 +1,124 @@
+/*  Title:      Pure/General/xml_data.scala
+    Author:     Makarius
+
+XML as basic data representation language.
+*/
+
+package isabelle
+
+
+
+object XML_Data
+{
+  /* basic values */
+
+  class XML_Atom(s: String) extends Exception(s)
+
+
+  private def make_int_atom(i: Int): String = i.toString
+
+  private def dest_int_atom(s: String): Int =
+    try { Integer.parseInt(s) }
+    catch { case e: NumberFormatException => throw new XML_Atom(s) }
+
+
+  private def make_bool_atom(b: Boolean): String = if (b) "1" else "0"
+
+  private def dest_bool_atom(s: String): Boolean =
+    if (s == "1") true
+    else if (s == "0") false
+    else throw new XML_Atom(s)
+
+
+  private def make_unit_atom(u: Unit) = ""
+
+  private def dest_unit_atom(s: String): Unit =
+    if (s == "") () else throw new XML_Atom(s)
+
+
+  /* structural nodes */
+
+  class XML_Body extends Exception  // FIXME exception argument!?
+
+  private def make_node(ts: XML.Body): XML.Tree = XML.Elem(Markup(":", Nil), ts)
+
+  private def dest_node(t: XML.Tree): XML.Body =
+    t match {
+      case XML.Elem(Markup(":", Nil), ts) => ts
+      case _ => throw new XML_Body
+    }
+
+
+  /* representation of standard types */
+
+  def make_properties(props: List[(String, String)]): XML.Body =
+    List(XML.Elem(Markup(":", props), Nil))
+
+  def dest_properties(ts: XML.Body): List[(String, String)] =
+    ts match {
+      case List(XML.Elem(Markup(":", props), Nil)) => props
+      case _ => throw new XML_Body
+    }
+
+
+  def make_string(s: String): XML.Body = List(XML.Text(s))
+
+  def dest_string(ts: XML.Body): String =
+    ts match {
+      case List(XML.Text(s)) => s
+      case _ => throw new XML_Body
+    }
+
+
+  def make_int(i: Int): XML.Body = make_string(make_int_atom(i))
+  def dest_int(ts: XML.Body): Int = dest_int_atom(dest_string(ts))
+
+  def make_bool(b: Boolean): XML.Body = make_string(make_bool_atom(b))
+  def dest_bool(ts: XML.Body) = dest_bool_atom(dest_string(ts))
+
+  def make_unit(u: Unit): XML.Body = make_string(make_unit_atom(u))
+  def dest_unit(ts: XML.Body): Unit = dest_unit_atom(dest_string(ts))
+
+
+  def make_pair[A, B](make1: A => XML.Body)(make2: B => XML.Body)(p: (A, B)): XML.Body =
+    List(make_node(make1(p._1)), make_node(make2(p._2)))
+
+  def dest_pair[A, B](dest1: XML.Body => A)(dest2: XML.Body => B)(ts: XML.Body): (A, B) =
+    ts match {
+      case List(t1, t2) => (dest1(dest_node(t1)), dest2(dest_node(t2)))
+      case _ => throw new XML_Body
+    }
+
+
+  def make_triple[A, B, C](make1: A => XML.Body)(make2: B => XML.Body)(make3: C => XML.Body)
+      (p: (A, B, C)): XML.Body =
+    List(make_node(make1(p._1)), make_node(make2(p._2)), make_node(make3(p._3)))
+
+  def dest_triple[A, B, C](dest1: XML.Body => A)(dest2: XML.Body => B)(dest3: XML.Body => C)
+      (ts: XML.Body): (A, B, C) =
+    ts match {
+      case List(t1, t2, t3) => (dest1(dest_node(t1)), dest2(dest_node(t2)), dest3(dest_node(t3)))
+      case _ => throw new XML_Body
+    }
+
+
+  def make_list[A](make: A => XML.Body)(xs: List[A]): XML.Body =
+    xs.map((x: A) => make_node(make(x)))
+
+  def dest_list[A](dest: XML.Body => A)(ts: XML.Body): List[A] =
+    ts.map((t: XML.Tree) => dest(dest_node(t)))
+
+
+  def make_option[A](make: A => XML.Body)(opt: Option[A]): XML.Body =
+    opt match {
+      case None => make_list(make)(Nil)
+      case Some(x) => make_list(make)(List(x))
+    }
+
+  def dest_option[A](dest: XML.Body => A)(ts: XML.Body): Option[A] =
+    dest_list(dest)(ts) match {
+      case Nil => None
+      case List(x) => Some(x)
+      case _ => throw new XML_Body
+    }
+}
diff -r 492d377ecfe2 -r e50c283dd125 src/Pure/General/yxml.scala
--- a/src/Pure/General/yxml.scala	Tue Aug 10 22:26:23 2010 +0200
+++ b/src/Pure/General/yxml.scala	Tue Aug 10 23:03:48 2010 +0200
@@ -59,7 +59,7 @@
   }
 
 
-  def parse_body(source: CharSequence): List[XML.Tree] =
+  def parse_body(source: CharSequence): XML.Body =
   {
     /* stack operations */
 
@@ -120,7 +120,7 @@
     XML.elem (Markup.MALFORMED,
       List(XML.Text(source.toString.replace(X_string, "\\<^X>").replace(Y_string, "\\<^Y>"))))
 
-  def parse_body_failsafe(source: CharSequence): List[XML.Tree] =
+  def parse_body_failsafe(source: CharSequence): XML.Body =
   {
     try { parse_body(source) }
     catch { case _: RuntimeException => List(markup_failsafe(source)) }
diff -r 492d377ecfe2 -r e50c283dd125 src/Pure/build-jars
--- a/src/Pure/build-jars	Tue Aug 10 22:26:23 2010 +0200
+++ b/src/Pure/build-jars	Tue Aug 10 23:03:48 2010 +0200
@@ -31,6 +31,7 @@
   General/scan.scala
   General/symbol.scala
   General/xml.scala
+  General/xml_data.scala
   General/yxml.scala
   Isar/isar_document.scala
   Isar/keyword.scala