From 5b81a5923de0a5a0e7dd903ac9f8c80ad3536b97 Mon Sep 17 00:00:00 2001
From: Norman Walsh <ndw@nwalsh.com>
Date: Mon, 8 Jul 2002 13:44:18 +0000
Subject: [PATCH] Bug #567130: make sure literallayout children don't get lost

---
 xsl/html/html-rtf.xsl | 80 +++++++++++++++++++++++++++++++++++++++++++
 xsl/html/verbatim.xsl | 66 +++++++++--------------------------
 2 files changed, 96 insertions(+), 50 deletions(-)

diff --git a/xsl/html/html-rtf.xsl b/xsl/html/html-rtf.xsl
index bfb4cfe01..898a2e545 100644
--- a/xsl/html/html-rtf.xsl
+++ b/xsl/html/html-rtf.xsl
@@ -199,6 +199,86 @@
   </xsl:if>
 </xsl:template>
 
+<!-- ==================================================================== -->
+<!-- make.verbatim.mode replaces spaces and newlines -->
+
+<xsl:template match="/" mode="make.verbatim.mode">
+  <xsl:apply-templates mode="make.verbatim.mode"/>
+</xsl:template>
+
+<xsl:template match="*" mode="make.verbatim.mode">
+  <xsl:copy>
+    <xsl:copy-of select="@*"/>
+    <xsl:apply-templates mode="make.verbatim.mode"/>
+  </xsl:copy>
+</xsl:template>
+
+<xsl:template match="processing-instruction()|comment()" mode="make.verbatim.mode">
+  <xsl:copy/>
+</xsl:template>
+
+<xsl:template match="text()" mode="make.verbatim.mode">
+  <xsl:variable name="text" select="translate(., ' ', '&#160;')"/>
+
+  <xsl:choose>
+    <xsl:when test="not(contains($text, '&#xA;'))">
+      <xsl:value-of select="$text"/>
+    </xsl:when>
+
+    <xsl:otherwise>
+      <xsl:variable name="len" select="string-length($text)"/>
+
+      <xsl:choose>
+        <xsl:when test="$len = 1">
+          <br/><xsl:text>&#xA;</xsl:text>
+        </xsl:when>
+
+        <xsl:otherwise>
+          <xsl:variable name="half" select="$len div 2"/>
+          <xsl:call-template name="make-verbatim-recursive">
+            <xsl:with-param name="text" select="substring($text, 1, $half)"/>
+          </xsl:call-template>
+          <xsl:call-template name="make-verbatim-recursive">
+            <xsl:with-param name="text"
+                            select="substring($text, ($half + 1), $len)"/>
+          </xsl:call-template>
+    	</xsl:otherwise>
+      </xsl:choose>
+    </xsl:otherwise>
+  </xsl:choose>
+</xsl:template>
+
+<xsl:template name="make-verbatim-recursive">
+  <xsl:param name="text" select="''"/>
+
+  <xsl:choose>
+    <xsl:when test="not(contains($text, '&#xA;'))">
+      <xsl:value-of select="$text"/>
+    </xsl:when>
+
+    <xsl:otherwise>
+      <xsl:variable name="len" select="string-length($text)"/>
+
+      <xsl:choose>
+        <xsl:when test="$len = 1">
+          <br/><xsl:text>&#xA;</xsl:text>
+        </xsl:when>
+
+        <xsl:otherwise>
+    	  <xsl:variable name="half" select="$len div 2"/>
+          <xsl:call-template name="make-verbatim-recursive">
+    	    <xsl:with-param name="text" select="substring($text, 1, $half)"/>
+    	  </xsl:call-template>
+    	  <xsl:call-template name="make-verbatim-recursive">
+    	    <xsl:with-param name="text"
+    			    select="substring($text, ($half + 1), $len)"/>
+    	  </xsl:call-template>
+    	</xsl:otherwise>
+      </xsl:choose>
+    </xsl:otherwise>
+  </xsl:choose>
+</xsl:template>
+
 <!-- ==================================================================== -->
 
 </xsl:stylesheet>
diff --git a/xsl/html/verbatim.xsl b/xsl/html/verbatim.xsl
index e638ce365..02282d152 100644
--- a/xsl/html/verbatim.xsl
+++ b/xsl/html/verbatim.xsl
@@ -3,7 +3,8 @@
                 xmlns:sverb="http://nwalsh.com/xslt/ext/com.nwalsh.saxon.Verbatim"
                 xmlns:xverb="com.nwalsh.xalan.Verbatim"
                 xmlns:lxslt="http://xml.apache.org/xslt"
-                exclude-result-prefixes="sverb xverb lxslt"
+                xmlns:exsl="http://exslt.org/common"
+                exclude-result-prefixes="sverb xverb lxslt exsl"
                 version='1.0'>
 
 <!-- ********************************************************************
@@ -91,11 +92,7 @@
             <div class="{name(.)}">
               <p>
                 <xsl:call-template name="number.rtf.lines">
-                  <xsl:with-param name="rtf">
-                    <xsl:call-template name="make-verbatim">
-                      <xsl:with-param name="text" select="translate($rtf,' ','&#160;')"/>
-                    </xsl:call-template>
-                  </xsl:with-param>
+                  <xsl:with-param name="rtf" select="$rtf"/>
                 </xsl:call-template>
               </p>
             </div>
@@ -114,7 +111,7 @@
             <div class="{name(.)}">
               <p>
                 <xsl:call-template name="make-verbatim">
-                  <xsl:with-param name="text" select="translate($rtf,' ','&#160;')"/>
+                  <xsl:with-param name="rtf" select="$rtf"/>
                 </xsl:call-template>
               </p>
             </div>
@@ -140,13 +137,6 @@
   </xsl:choose>
 </xsl:template>
 
-<xsl:template match="literallayout[not(@class)
-                                   or @class != 'monospaced']//text()">
-  <xsl:call-template name="make-verbatim">
-    <xsl:with-param name="text" select="translate(.,' ','&#160;')"/>
-  </xsl:call-template>
-</xsl:template>
-
 <xsl:template match="address">
   <xsl:param name="suppress-numbers" select="'0'"/>
 
@@ -171,7 +161,9 @@
     <xsl:otherwise>
       <div class="{name(.)}">
         <p>
-          <xsl:apply-templates/>
+          <xsl:call-template name="make-verbatim">
+            <xsl:with-param name="rtf" select="$rtf"/>
+          </xsl:call-template>
         </p>
       </div>
     </xsl:otherwise>
@@ -266,47 +258,21 @@
   </xsl:choose>
 </xsl:template>
 
-<xsl:template match="address//text()">
-  <xsl:call-template name="make-verbatim">
-    <xsl:with-param name="text" select="translate(.,' ','&#160;')"/>
-  </xsl:call-template>
-</xsl:template>
-
 <xsl:template name="make-verbatim">
-  <xsl:param name="text" select="''"/>
+  <xsl:param name="rtf"/>
 
-  <xsl:call-template name="make-verbatim-recursive">
-    <xsl:with-param name="text" select="translate($text, ' ', '&#160;')"/>
-  </xsl:call-template>
-</xsl:template>
-
-<xsl:template name="make-verbatim-recursive">
-  <xsl:param name="text" select="''"/>
+  <!-- I want to make this RTF verbatim. There are two possibilities: either
+       I have access to the exsl:node-set extension function and I can "do it right"
+       or I have to rely on CSS. -->
 
   <xsl:choose>
-    <xsl:when test="not(contains($text, '&#xA;'))">
-      <xsl:value-of select="$text"/>
+    <xsl:when test="function-available('exsl:node-set')">
+      <xsl:apply-templates select="exsl:node-set($rtf)" mode="make.verbatim.mode"/>
     </xsl:when>
-
     <xsl:otherwise>
-      <xsl:variable name="len" select="string-length($text)"/>
-
-      <xsl:choose>
-        <xsl:when test="$len = 1">
-          <br/><xsl:text>&#xA;</xsl:text>
-        </xsl:when>
-
-        <xsl:otherwise>
-    	  <xsl:variable name="half" select="$len div 2"/>
-    	  <xsl:call-template name="make-verbatim-recursive">
-    	    <xsl:with-param name="text" select="substring($text, 1, $half)"/>
-    	  </xsl:call-template>
-    	  <xsl:call-template name="make-verbatim-recursive">
-    	    <xsl:with-param name="text"
-    			    select="substring($text, ($half + 1), $len)"/>
-    	  </xsl:call-template>
-    	</xsl:otherwise>
-      </xsl:choose>
+      <span style="white-space: pre;">
+        <xsl:copy-of select="$rtf"/>
+      </span>
     </xsl:otherwise>
   </xsl:choose>
 </xsl:template>
-- 
2.50.1