src/Pure/General/xml.scala
author wenzelm
Sun, 17 Aug 2008 21:11:08 +0200
changeset 27931 b533a9de87a7
child 27941 b4656b671cce
permissions -rw-r--r--
Minimalistic XML tree values.
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
27931
b533a9de87a7 Minimalistic XML tree values.
wenzelm
parents:
diff changeset
     1
/*  Title:      Pure/General/xml.scala
b533a9de87a7 Minimalistic XML tree values.
wenzelm
parents:
diff changeset
     2
    ID:         $Id$
b533a9de87a7 Minimalistic XML tree values.
wenzelm
parents:
diff changeset
     3
    Author:     Makarius
b533a9de87a7 Minimalistic XML tree values.
wenzelm
parents:
diff changeset
     4
b533a9de87a7 Minimalistic XML tree values.
wenzelm
parents:
diff changeset
     5
Minimalistic XML tree values.
b533a9de87a7 Minimalistic XML tree values.
wenzelm
parents:
diff changeset
     6
*/
b533a9de87a7 Minimalistic XML tree values.
wenzelm
parents:
diff changeset
     7
b533a9de87a7 Minimalistic XML tree values.
wenzelm
parents:
diff changeset
     8
package isabelle
b533a9de87a7 Minimalistic XML tree values.
wenzelm
parents:
diff changeset
     9
b533a9de87a7 Minimalistic XML tree values.
wenzelm
parents:
diff changeset
    10
object XML {
b533a9de87a7 Minimalistic XML tree values.
wenzelm
parents:
diff changeset
    11
  type Attributes = List[(String, String)]
b533a9de87a7 Minimalistic XML tree values.
wenzelm
parents:
diff changeset
    12
b533a9de87a7 Minimalistic XML tree values.
wenzelm
parents:
diff changeset
    13
  abstract class Tree
b533a9de87a7 Minimalistic XML tree values.
wenzelm
parents:
diff changeset
    14
  case class Elem(name: String, attributes: Attributes, body: List[Tree]) extends Tree
b533a9de87a7 Minimalistic XML tree values.
wenzelm
parents:
diff changeset
    15
  case class Text(content: String) extends Tree
b533a9de87a7 Minimalistic XML tree values.
wenzelm
parents:
diff changeset
    16
}