# HG changeset patch
# User wenzelm
# Date 1550155598 -3600
# Node ID 3389fda6cffdc7d6443a1bbcb2946e4592b2469f
# Parent  2156053c4ce903b9eee0019eb942e218feec585b
support for RDF/XML representation;

diff -r 2156053c4ce9 -r 3389fda6cffd src/Pure/General/rdf.scala
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/src/Pure/General/rdf.scala	Thu Feb 14 15:46:38 2019 +0100
@@ -0,0 +1,42 @@
+/*  Title:      Pure/General/rdf.scala
+    Author:     Makarius
+
+Support for RDF/XML representation, see also:
+  - https://www.w3.org/RDF
+  - https://www.w3.org/TR/rdf-primer
+*/
+
+package isabelle
+
+
+object RDF
+{
+  /* document */
+
+  val rdf: XML.Namespace = XML.Namespace("rdf", "http://www.w3.org/1999/02/22-rdf-syntax-ns#")
+  val dc: XML.Namespace = XML.Namespace("dc", "http://purl.org/dc/elements/1.1/")
+
+  val default_namespaces: List[XML.Namespace] = List(rdf, dc)
+
+  def document(body: XML.Body,
+    namespaces: List[XML.Namespace] = default_namespaces,
+    attributes: XML.Attributes = Nil): XML.Elem =
+  {
+    XML.Elem(Markup(rdf("RDF"), namespaces.map(_.attribute) ::: attributes), body)
+  }
+
+
+  /* multiple triples vs. compact description */
+
+  sealed case class Triple(subject: String, predicate: String, `object`: XML.Body)
+  {
+    def property: XML.Elem = XML.elem(predicate, `object`)
+  }
+
+  def triples(args: List[Triple]): XML.Body =
+    args.groupBy(_.subject).toList.map(
+      { case (subject, ts) => description(subject, ts.map(_.property)) })
+
+  def description(subject: String, body: XML.Body, attributes: XML.Attributes = Nil): XML.Elem =
+    XML.Elem(Markup(rdf("Description"), (rdf("about"), subject) :: attributes), body)
+}
diff -r 2156053c4ce9 -r 3389fda6cffd src/Pure/build-jars
--- a/src/Pure/build-jars	Thu Feb 14 15:45:34 2019 +0100
+++ b/src/Pure/build-jars	Thu Feb 14 15:46:38 2019 +0100
@@ -65,6 +65,7 @@
   General/position.scala
   General/pretty.scala
   General/properties.scala
+  General/rdf.scala
   General/scan.scala
   General/sha1.scala
   General/sql.scala