Show names of RNG patterns

diff --git a/docbook/relaxng/tools/pattern-names.xsl b/docbook/relaxng/tools/pattern-names.xsl
new file mode 100644 (file)
index 0000000..b34bc60
--- /dev/null
+++ b/docbook/relaxng/tools/pattern-names.xsl
@@ -0,0 +1,19 @@
+<?xml version="1.0"?>
+<xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
+                xmlns:rng="http://relaxng.org/ns/structure/1.0"
+                version="1.0">
+
+<!-- This stylesheet is just used for debugging, it reports what definitions
+     are referenced but undefined or defined but unused in a particular grammar
+     module. For the final grammar, it shouldn't print anything. -->
+
+<xsl:output method="text"/>
+
+<xsl:template match="/">
+  <xsl:for-each select="//rng:define">
+    <xsl:value-of select="@name"/>
+    <xsl:text>&#10;</xsl:text>
+  </xsl:for-each>
+</xsl:template>
+
+</xsl:stylesheet>