From 9320f0aa4c3b9e238f3145527b021c9f1d16a64d Mon Sep 17 00:00:00 2001
From: Norman Walsh <ndw@nwalsh.com>
Date: Sat, 20 Apr 2002 15:03:09 +0000
Subject: [PATCH] Support shade.verbatim in FO; stop using vendor test to
 decide what extension function to call for line numbering

---
 xsl/fo/param.ent                    |   2 +
 xsl/fo/param.xweb                   |   4 +
 xsl/fo/verbatim.xsl                 | 196 ++++++++++++++--------------
 xsl/params/shade.verbatim.style.xml |   9 +-
 4 files changed, 109 insertions(+), 102 deletions(-)

diff --git a/xsl/fo/param.ent b/xsl/fo/param.ent
index ac7f23933..8ac9b16d6 100644
--- a/xsl/fo/param.ent
+++ b/xsl/fo/param.ent
@@ -111,6 +111,8 @@
 <!ENTITY section.autolabel SYSTEM "../params/section.autolabel.xml">
 <!ENTITY section.label.includes.component.label SYSTEM "../params/section.label.includes.component.label.xml">
 <!ENTITY segmentedlist.as.table SYSTEM "../params/segmentedlist.as.table.xml">
+<!ENTITY shade.verbatim SYSTEM "../params/shade.verbatim.xml">
+<!ENTITY shade.verbatim.style SYSTEM "../params/shade.verbatim.style.xml">
 <!ENTITY show.comments SYSTEM "../params/show.comments.xml">
 <!ENTITY table.border.color SYSTEM "../params/table.border.color.xml">
 <!ENTITY table.border.style SYSTEM "../params/table.border.style.xml">
diff --git a/xsl/fo/param.xweb b/xsl/fo/param.xweb
index 493e1a135..feac37e96 100644
--- a/xsl/fo/param.xweb
+++ b/xsl/fo/param.xweb
@@ -188,6 +188,8 @@ generate.section.toc.level;
 &ulink.show;
 &ulink.footnotes;
 &ulink.hyphenate;
+&shade.verbatim;
+&shade.verbatim.style;
 </reference>
 
 <reference><title>Pagination and General Styles</title>
@@ -479,6 +481,8 @@ around all these parameters.</para>
 <src:fragref linkend="section.autolabel.frag"/>
 <src:fragref linkend="section.label.includes.component.label.frag"/>
 <src:fragref linkend="segmentedlist.as.table.frag"/>
+<src:fragref linkend="shade.verbatim.frag"/>
+<src:fragref linkend="shade.verbatim.style.frag"/>
 <src:fragref linkend="show.comments.frag"/>
 <src:fragref linkend="table.border.color.frag"/>
 <src:fragref linkend="table.border.style.frag"/>
diff --git a/xsl/fo/verbatim.xsl b/xsl/fo/verbatim.xsl
index b7e6c222c..234e527c1 100644
--- a/xsl/fo/verbatim.xsl
+++ b/xsl/fo/verbatim.xsl
@@ -22,116 +22,86 @@
 
 <xsl:template match="programlisting|screen|synopsis">
   <xsl:param name="suppress-numbers" select="'0'"/>
-  <xsl:variable name="vendor" select="system-property('xsl:vendor')"/>
   <xsl:variable name="id"><xsl:call-template name="object.id"/></xsl:variable>
 
-  <xsl:choose>
-    <xsl:when test="$suppress-numbers = '0'
-                    and @linenumbering = 'numbered'
-                    and $use.extensions != '0'
-                    and $linenumbering.extension != '0'">
-      <xsl:variable name="rtf">
-        <xsl:apply-templates/>
-      </xsl:variable>
-      <fo:block wrap-option='no-wrap'
-                white-space-collapse='false'
-                linefeed-treatment="preserve"
-                xsl:use-attribute-sets="monospace.verbatim.properties">
+  <xsl:variable name="content">
+    <xsl:choose>
+      <xsl:when test="$suppress-numbers = '0'
+                      and @linenumbering = 'numbered'
+                      and $use.extensions != '0'
+                      and $linenumbering.extension != '0'">
         <xsl:call-template name="number.rtf.lines">
-          <xsl:with-param name="rtf" select="$rtf"/>
+          <xsl:with-param name="rtf">
+            <xsl:apply-templates/>
+          </xsl:with-param>
         </xsl:call-template>
-      </fo:block>
-    </xsl:when>
-    <xsl:otherwise>
-      <fo:block wrap-option='no-wrap'
-                white-space-collapse='false'
-                linefeed-treatment="preserve"
-                xsl:use-attribute-sets="monospace.verbatim.properties">
+      </xsl:when>
+      <xsl:otherwise>
         <xsl:apply-templates/>
-      </fo:block>
-    </xsl:otherwise>
-  </xsl:choose>
+      </xsl:otherwise>
+    </xsl:choose>
+  </xsl:variable>
+
+  <fo:block wrap-option='no-wrap'
+            white-space-collapse='false'
+            linefeed-treatment="preserve"
+            xsl:use-attribute-sets="monospace.verbatim.properties">
+    <xsl:choose>
+      <xsl:when test="$shade.verbatim != 0">
+        <fo:block space-before="0pt" space-after="0pt"
+                  xsl:use-attribute-sets="shade.verbatim.style">
+          <xsl:copy-of select="$content"/>
+        </fo:block>
+      </xsl:when>
+      <xsl:otherwise>
+        <xsl:copy-of select="$content"/>
+      </xsl:otherwise>
+    </xsl:choose>
+  </fo:block>
 </xsl:template>
 
 <xsl:template match="literallayout">
   <xsl:param name="suppress-numbers" select="'0'"/>
-  <xsl:variable name="vendor" select="system-property('xsl:vendor')"/>
 
-  <xsl:variable name="rtf">
-    <xsl:apply-templates/>
+  <xsl:variable name="raw.content">
+    <xsl:choose>
+      <xsl:when test="$suppress-numbers = '0'
+                      and @linenumbering = 'numbered'
+                      and $use.extensions != '0'
+                      and $linenumbering.extension != '0'">
+        <xsl:call-template name="number.rtf.lines">
+          <xsl:with-param name="rtf">
+            <xsl:apply-templates/>
+          </xsl:with-param>
+        </xsl:call-template>
+      </xsl:when>
+      <xsl:otherwise>
+        <xsl:apply-templates/>
+      </xsl:otherwise>
+    </xsl:choose>
   </xsl:variable>
 
-  <xsl:choose>
-    <xsl:when test="$suppress-numbers = '0'
-                    and @linenumbering = 'numbered'
-                    and $use.extensions != '0'
-                    and $linenumbering.extension != '0'">
-      <xsl:choose>
-        <xsl:when test="@class='monospaced'">
-          <fo:block wrap-option='no-wrap'
-                    linefeed-treatment="preserve"
-                    white-space-collapse='false'
-                    xsl:use-attribute-sets="monospace.verbatim.properties">
-            <xsl:call-template name="number.rtf.lines">
-              <xsl:with-param name="rtf" select="$rtf"/>
-            </xsl:call-template>
-          </fo:block>
-        </xsl:when>
-        <xsl:otherwise>
-          <fo:block wrap-option='no-wrap'
-                    linefeed-treatment="preserve"
-                    white-space-collapse='false'
-                    xsl:use-attribute-sets="verbatim.properties">
-            <xsl:call-template name="number.rtf.lines">
-              <xsl:with-param name="rtf" select="$rtf"/>
-            </xsl:call-template>
-          </fo:block>
-        </xsl:otherwise>
-      </xsl:choose>
-    </xsl:when>
-    <xsl:otherwise>
-      <xsl:choose>
-        <xsl:when test="@class='monospaced'">
-          <fo:block wrap-option='no-wrap'
-                    linefeed-treatment="preserve"
-                    white-space-collapse='false'
-                    xsl:use-attribute-sets="monospace.verbatim.properties">
-            <xsl:copy-of select="$rtf"/>
-          </fo:block>
-        </xsl:when>
-        <xsl:otherwise>
-          <fo:block wrap-option='no-wrap'
-                    linefeed-treatment="preserve"
-                    white-space-collapse='false'
-                    xsl:use-attribute-sets="verbatim.properties">
-            <xsl:copy-of select="$rtf"/>
-          </fo:block>
-        </xsl:otherwise>
-      </xsl:choose>
-    </xsl:otherwise>
-  </xsl:choose>
-</xsl:template>
-
-<xsl:template match="address">
-  <xsl:param name="suppress-numbers" select="'0'"/>
-  <xsl:variable name="vendor" select="system-property('xsl:vendor')"/>
-
-  <xsl:variable name="rtf">
-    <xsl:apply-templates/>
+  <xsl:variable name="content">
+    <xsl:choose>
+      <xsl:when test="@class='monospaced' and $shade.verbatim != 0">
+        <fo:block space-before="0pt" space-after="0pt"
+                  xsl:use-attribute-sets="shade.verbatim.style">
+          <xsl:copy-of select="$raw.content"/>
+        </fo:block>
+      </xsl:when>
+      <xsl:otherwise>
+        <xsl:copy-of select="$raw.content"/>
+      </xsl:otherwise>
+    </xsl:choose>
   </xsl:variable>
 
   <xsl:choose>
-    <xsl:when test="$suppress-numbers = '0'
-                    and @linenumbering = 'numbered'
-                    and $use.extensions != '0'
-                    and $linenumbering.extension != '0'">
+    <xsl:when test="@class='monospaced'">
       <fo:block wrap-option='no-wrap'
-                white-space-collapse='false'
                 linefeed-treatment="preserve"
-                xsl:use-attribute-sets="verbatim.properties">
-        <xsl:call-template name="number.rtf.lines">
-          <xsl:with-param name="rtf" select="$rtf"/>
-        </xsl:call-template>
+                white-space-collapse='false'
+                xsl:use-attribute-sets="monospace.verbatim.properties">
+        <xsl:copy-of select="$content"/>
       </fo:block>
     </xsl:when>
     <xsl:otherwise>
@@ -139,12 +109,41 @@
                 linefeed-treatment="preserve"
                 white-space-collapse='false'
                 xsl:use-attribute-sets="verbatim.properties">
-        <xsl:apply-templates/>
+        <xsl:copy-of select="$content"/>
       </fo:block>
     </xsl:otherwise>
   </xsl:choose>
 </xsl:template>
 
+<xsl:template match="address">
+  <xsl:param name="suppress-numbers" select="'0'"/>
+
+  <xsl:variable name="content">
+    <xsl:choose>
+      <xsl:when test="$suppress-numbers = '0'
+                      and @linenumbering = 'numbered'
+                      and $use.extensions != '0'
+                      and $linenumbering.extension != '0'">
+        <xsl:call-template name="number.rtf.lines">
+          <xsl:with-param name="rtf">
+            <xsl:apply-templates/>
+          </xsl:with-param>
+        </xsl:call-template>
+      </xsl:when>
+      <xsl:otherwise>
+        <xsl:apply-templates/>
+      </xsl:otherwise>
+    </xsl:choose>
+  </xsl:variable>
+
+  <fo:block wrap-option='no-wrap'
+            white-space-collapse='false'
+            linefeed-treatment="preserve"
+            xsl:use-attribute-sets="verbatim.properties">
+    <xsl:copy-of select="$content"/>
+  </fo:block>
+</xsl:template>
+
 <xsl:template name="number.rtf.lines">
   <xsl:param name="rtf" select="''"/>
   <xsl:param name="pi.context" select="."/>
@@ -218,19 +217,16 @@
     </xsl:choose>
   </xsl:variable>
 
-  <xsl:variable name="vendor" select="system-property('xsl:vendor')"/>
-
   <xsl:choose>
-    <xsl:when test="contains($vendor, 'SAXON ')">
+    <xsl:when test="function-available('sverb:numberLines')">
       <xsl:copy-of select="sverb:numberLines($rtf)"/>
     </xsl:when>
-    <xsl:when test="contains($vendor, 'Apache Software Foundation')">
+    <xsl:when test="function-available('xverb:numberLines')">
       <xsl:copy-of select="xverb:numberLines($rtf)"/>
     </xsl:when>
     <xsl:otherwise>
       <xsl:message terminate="yes">
-        <xsl:text>Don't know how to do line numbering with </xsl:text>
-        <xsl:value-of select="$vendor"/>
+        <xsl:text>No numberLines function available.</xsl:text>
       </xsl:message>
     </xsl:otherwise>
   </xsl:choose>
diff --git a/xsl/params/shade.verbatim.style.xml b/xsl/params/shade.verbatim.style.xml
index 7ed2ccb45..34805ceda 100644
--- a/xsl/params/shade.verbatim.style.xml
+++ b/xsl/params/shade.verbatim.style.xml
@@ -9,10 +9,15 @@
 </refnamediv>
 
 <refsynopsisdiv>
-<src:fragment id='shade.verbatim.style.frag'><xsl:attribute-set name="shade.verbatim.style">
+<src:fragment id='shade.verbatim.style.frag'>
+<xsl:attribute-set condition="html" name="shade.verbatim.style">
   <xsl:attribute name="border">0</xsl:attribute>
   <xsl:attribute name="bgcolor">#E0E0E0</xsl:attribute>
-</xsl:attribute-set></src:fragment>
+</xsl:attribute-set>
+<xsl:attribute-set condition="fo" name="shade.verbatim.style">
+  <xsl:attribute name="background-color">#E0E0E0</xsl:attribute>
+</xsl:attribute-set>
+</src:fragment>
 </refsynopsisdiv>
 
 <refsect1><title>Description</title>
-- 
2.50.1