Remove unused patterns

diff --git a/docbook/relaxng/tools/include.xsl b/docbook/relaxng/tools/include.xsl
index 9cf447c403b537c33ef45c4c06422d460d6b4640..c5198a78672986e761ba80f526d20f4cb9969b62 100644 (file)
--- a/docbook/relaxng/tools/include.xsl
+++ b/docbook/relaxng/tools/include.xsl
@@ -10,12 +10,15 @@
   <xsl:strip-space elements="*"/>
 
   <xsl:key name="defs" match="rng:define" use="@name"/>
+  <xsl:key name="refs" match="rng:ref" use="@name"/>
   <xsl:key name="combines" match="rng:define[@combine='choice']" use="@name"/>
   <xsl:key name="interleaves"
           match="rng:define[@combine='interleave']"
           use="@name"/>
   <xsl:key name="overrides" match="rng:define[@override]" use="@name"/>
 
+  <xsl:variable name="debug" select="1"/>
+
   <xsl:template match="/">
     <xsl:variable name="expanded">
       <xsl:apply-templates mode="include"/>
@@ -31,8 +34,18 @@
                           mode="override"/>
     </xsl:variable>
 
-    <xsl:apply-templates select="exsl:node-set($overridden)/*"
-                        mode="combine"/>
+    <xsl:variable name="combined">
+      <xsl:apply-templates select="exsl:node-set($overridden)/*"
+                          mode="combine"/>
+    </xsl:variable>
+
+    <xsl:variable name="withoutunused">
+      <xsl:call-template name="removeunused">
+       <xsl:with-param name="doc" select="exsl:node-set($combined)"/>
+      </xsl:call-template>
+    </xsl:variable>
+
+    <xsl:copy-of select="$withoutunused"/>
   </xsl:template>
 
   <!-- ====================================================================== -->
@@ -325,4 +338,79 @@
     <xsl:copy/>
   </xsl:template>
 
+  <!-- ============================================================ -->
+
+  <xsl:template name="removeunused">
+    <xsl:param name="doc"/>
+
+    <xsl:variable name="unused">
+      <xsl:for-each select="$doc//rng:define[@name]">
+       <xsl:variable name="name" select="@name"/>
+       <xsl:if test="count(key('refs',@name)) = 0">1</xsl:if>
+      </xsl:for-each>
+      <xsl:for-each select="$doc//rng:div">
+       <xsl:if test="not(.//rng:*)">1</xsl:if>
+      </xsl:for-each>
+    </xsl:variable>
+
+    <xsl:choose>
+      <xsl:when test="string-length($unused) &gt; 0">
+       <xsl:message>
+         <xsl:text>Removing </xsl:text>
+         <xsl:value-of select="string-length($unused)"/>
+         <xsl:text> patterns.</xsl:text>
+       </xsl:message>
+       <xsl:variable name="doc2">
+         <xsl:apply-templates select="$doc" mode="remove-unused"/>
+       </xsl:variable>
+       <xsl:call-template name="removeunused">
+         <xsl:with-param name="doc" select="exsl:node-set($doc2)"/>
+       </xsl:call-template>
+      </xsl:when>
+      <xsl:otherwise>
+       <xsl:copy-of select="$doc"/>
+      </xsl:otherwise>
+    </xsl:choose>
+  </xsl:template>
+
+  <xsl:template match="rng:div" mode="remove-unused">
+    <xsl:choose>
+      <xsl:when test=".//rng:*">
+       <xsl:copy>
+         <xsl:copy-of select="@*"/>
+         <xsl:apply-templates mode="remove-unused"/>
+       </xsl:copy>
+      </xsl:when>
+      <xsl:when test="$debug != 0">
+       <xsl:message>   Removing empty rng:div</xsl:message>
+      </xsl:when>
+    </xsl:choose>
+  </xsl:template>
+
+  <xsl:template match="rng:define[@name]" mode="remove-unused">
+    <xsl:choose>
+      <xsl:when test="key('refs', @name) != 0">
+       <xsl:copy>
+         <xsl:copy-of select="@*"/>
+         <xsl:apply-templates mode="remove-unused"/>
+       </xsl:copy>
+      </xsl:when>
+      <xsl:when test="$debug != 0">
+       <xsl:message>   Removing <xsl:value-of select="@name"/>...</xsl:message>
+      </xsl:when>
+    </xsl:choose>
+  </xsl:template>
+
+  <xsl:template match="*" mode="remove-unused">
+    <xsl:copy>
+      <xsl:copy-of select="@*"/>
+      <xsl:apply-templates mode="remove-unused"/>
+    </xsl:copy>
+  </xsl:template>
+
+  <xsl:template match="comment()|processing-instruction()|text()"
+               mode="remove-unused">
+    <xsl:copy/>
+  </xsl:template>
+
 </xsl:stylesheet>