From: Bob Stayton <bobs@sagehill.net>
Date: Sun, 10 Sep 2006 07:22:08 +0000 (+0000)
Subject: Add two-stage recursion for hyphenate.verbatim to fix recursion depth bug for long... 
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=73dbda36844cef785604a2de504650e863a68440;p=docbook-dsssl

Add two-stage recursion for hyphenate.verbatim to fix recursion depth bug for long programlistings.
---

diff --git a/xsl/fo/verbatim.xsl b/xsl/fo/verbatim.xsl
index d90f80b84..71ffd9590 100644
--- a/xsl/fo/verbatim.xsl
+++ b/xsl/fo/verbatim.xsl
@@ -387,11 +387,37 @@
 </xsl:template>
 
 <xsl:template match="text()" mode="hyphenate.verbatim" priority="2">
-  <xsl:call-template name="hyphenate.verbatim">
+  <xsl:call-template name="hyphenate.verbatim.block">
     <xsl:with-param name="content" select="."/>
   </xsl:call-template>
 </xsl:template>
 
+<xsl:template name="hyphenate.verbatim.block">
+  <xsl:param name="content" select="''"/>
+  <xsl:param name="count" select="1"/>
+
+  <!-- recurse on lines first to keep recursion depth reasonable -->
+  <xsl:choose>
+    <xsl:when test="contains($content, '&#xA;')">
+      <xsl:variable name="line" select="substring-before($content, '&#xA;')"/>
+      <xsl:variable name="rest" select="substring-after($content, '&#xA;')"/>
+      <xsl:call-template name="hyphenate.verbatim">
+        <xsl:with-param name="content" select="concat($line, '&#xA;')"/>
+      </xsl:call-template>
+      <xsl:call-template name="hyphenate.verbatim.block">
+        <xsl:with-param name="content" select="$rest"/>
+        <xsl:with-param name="count" select="$count + 1"/>
+      </xsl:call-template>
+    </xsl:when>
+    <xsl:otherwise>
+      <xsl:call-template name="hyphenate.verbatim">
+        <xsl:with-param name="content" select="$content"/>
+      </xsl:call-template>
+    </xsl:otherwise>
+  </xsl:choose>
+  
+</xsl:template>
+
 <xsl:template name="hyphenate.verbatim">
   <xsl:param name="content"/>
   <xsl:variable name="head" select="substring($content, 1, 1)"/>