From 5c0aaf2f2f52890eaabffda55413e5fd7585f76e Mon Sep 17 00:00:00 2001
From: Martijn van Beers <lotr@users.sourceforge.net>
Date: Thu, 9 May 2002 13:14:30 +0000
Subject: [PATCH] batch of patches from twaugh: * This patch (based on one from
 Jirka Kosek) adds support for   block-level elements inside
 <para>s---<screen>s for example, or lists. * This patch replaces entities
 (like '&#x8212;') with sensible   characters or groups of characters. * This
 patch adds support for sbr. * This patch normalizes spaces in varlistentry
 terms. * This patch normalizes spaces in terminal varlistentry terms. * This
 patch allows variable lists to be nested (once). * This patch prevents
 variable list item paragraphs from merging into   one another. * This patch
 improves the rendering of itemized lists, and adds support   for ordered
 lists and procedures. * This patch makes some small adjustments to group/arg:
 don't put extra   spaces in where they aren't needed, and normalize the space
 of $arg. * This patch makes adjustments to cmdsynopsis elements.  In
 particular,   they can now be wrapped if no <sbr/> is provided. * This patch
 adds funcsynopsis//* support.  Again, wrapping is done   automatically.

---
 contrib/xsl/db2man/db2man.xsl | 127 +++++++++++++++++++++++--
 contrib/xsl/db2man/lists.xsl  |  62 ++++++++++---
 contrib/xsl/db2man/synop.xsl  | 168 +++++++++++++++++++++++++++++++++-
 3 files changed, 338 insertions(+), 19 deletions(-)

diff --git a/contrib/xsl/db2man/db2man.xsl b/contrib/xsl/db2man/db2man.xsl
index e702d1e6e..1a91534fb 100644
--- a/contrib/xsl/db2man/db2man.xsl
+++ b/contrib/xsl/db2man/db2man.xsl
@@ -69,13 +69,34 @@
 
 
 <xsl:template match="para">
-  <xsl:variable name="foo">
-    <xsl:apply-templates/>
-  </xsl:variable>
   <xsl:text>&#10;.PP&#10;</xsl:text>
-  <xsl:value-of select="normalize-space($foo)"/>
-  <xsl:text>
-</xsl:text>
+  <xsl:for-each select="node()">
+    <xsl:choose>
+      <xsl:when test="self::screen|self::programlisting|self::itemizedlist|self::orderedlist|self::variablelist">
+        <xsl:text>&#10;</xsl:text>
+        <xsl:apply-templates select="."/>
+      </xsl:when>
+      <xsl:when test="self::text()">
+	<xsl:if test="starts-with(translate(.,'&#10;',' '), ' ') and
+		      preceding-sibling::node()[name(.)!='']">
+	  <xsl:text> </xsl:text>
+	</xsl:if>
+	<xsl:value-of select="normalize-space(.)"/>
+	<xsl:if
+        test="translate(substring(., string-length(.), 1),'&#10;',' ') = ' ' and
+              following-sibling::node()[name(.)!='']">
+	  <xsl:text> </xsl:text>
+	</xsl:if>
+      </xsl:when>
+      <xsl:otherwise>
+        <xsl:variable name="foo">
+          <xsl:apply-templates select="."/>
+        </xsl:variable>
+        <xsl:value-of select="normalize-space($foo)"/>
+      </xsl:otherwise>
+    </xsl:choose>
+  </xsl:for-each>
+  <xsl:text>&#10;</xsl:text>
 </xsl:template>
   
 <xsl:template match="refentry">
@@ -277,6 +298,100 @@
   <xsl:apply-templates mode="italic" select="@url" />
 </xsl:template>
 
+<!-- Translate some entities to textual equivalents. -->
+<xsl:template name="replace-string">
+  <xsl:param name="content" select="''"/>
+  <xsl:param name="replace" select="''"/>
+  <xsl:param name="with" select="''"/>
+  <xsl:choose>
+    <xsl:when test="not(contains($content,$replace))">
+      <xsl:value-of select="$content"/>
+    </xsl:when>
+    <xsl:otherwise>
+      <xsl:value-of select="substring-before($content,$replace)"/>
+      <xsl:value-of select="$with"/>
+      <xsl:call-template name="replace-string">
+        <xsl:with-param name="content"
+             select="substring-after($content,$replace)"/>
+        <xsl:with-param name="replace" select="$replace"/>
+        <xsl:with-param name="with" select="$with"/>
+      </xsl:call-template>
+    </xsl:otherwise>
+  </xsl:choose>
+</xsl:template>
+
+<xsl:template name="replace-mdash">
+  <xsl:param name="content" select="''"/>
+  <xsl:call-template name="replace-string">
+    <xsl:with-param name="content" select="$content"/>
+    <xsl:with-param name="replace" select="'&#8212;'"/>
+    <xsl:with-param name="with" select="'--'"/>
+  </xsl:call-template>
+</xsl:template>
+
+<xsl:template name="replace-hellip">
+  <xsl:param name="content" select="''"/>
+  <xsl:call-template name="replace-string">
+    <xsl:with-param name="content" select="$content"/>
+    <xsl:with-param name="replace" select="'&#8230;'"/>
+    <xsl:with-param name="with" select="'...'"/>
+  </xsl:call-template>
+</xsl:template>
+
+<xsl:template name="replace-setmn">
+  <xsl:param name="content" select="''"/>
+  <xsl:call-template name="replace-string">
+    <xsl:with-param name="content" select="$content"/>
+    <xsl:with-param name="replace" select="'&#8726;'"/>
+    <xsl:with-param name="with" select="'\\'"/>
+  </xsl:call-template>
+</xsl:template>
+
+<xsl:template name="replace-minus">
+  <xsl:param name="content" select="''"/>
+  <xsl:value-of select="translate($content,'&#8722;','-')"/>
+</xsl:template>
+
+<xsl:template name="replace-backslash">
+  <xsl:param name="content" select="''"/>
+  <xsl:call-template name="replace-string">
+    <xsl:with-param name="content" select="$content"/>
+    <xsl:with-param name="replace" select="'\'"/>
+    <xsl:with-param name="with" select="'\\'"/>
+  </xsl:call-template>
+</xsl:template>
+
+<xsl:template name="replace-entities">
+  <xsl:param name="content" select="''"/>
+  <xsl:call-template name="replace-hellip">
+    <xsl:with-param name="content">
+      <xsl:call-template name="replace-minus">
+        <xsl:with-param name="content">
+          <xsl:call-template name="replace-mdash">
+            <xsl:with-param name="content">
+              <xsl:call-template name="replace-setmn">
+                <xsl:with-param name="content">
+		  <xsl:call-template name="replace-backslash">
+		    <xsl:with-param name="content" select="$content"/>
+		  </xsl:call-template>
+                </xsl:with-param>
+              </xsl:call-template>
+            </xsl:with-param>
+          </xsl:call-template>
+        </xsl:with-param>
+      </xsl:call-template>
+    </xsl:with-param>
+  </xsl:call-template>
+</xsl:template>
+
+<xsl:template match="text()">
+  <xsl:call-template name="replace-entities">
+    <xsl:with-param name="content">
+      <xsl:value-of select="."/>
+    </xsl:with-param>
+  </xsl:call-template>
+</xsl:template>
+
 <xsl:template match="/">
   <xsl:choose>
     <xsl:when test="//refentry">
diff --git a/contrib/xsl/db2man/lists.xsl b/contrib/xsl/db2man/lists.xsl
index 5aedc54e0..b28299b9d 100644
--- a/contrib/xsl/db2man/lists.xsl
+++ b/contrib/xsl/db2man/lists.xsl
@@ -3,33 +3,71 @@
 <xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
                 version='1.0'>
 
+<xsl:template match="para|remark" mode="list">
+  <xsl:variable name="foo">
+    <xsl:apply-templates/>
+  </xsl:variable>
+  <xsl:value-of select="normalize-space($foo)"/>
+  <xsl:text>&#10;</xsl:text>
+  <xsl:if test="following-sibling::para or following-sibling::remark">
+    <!-- Make sure multiple paragraphs within a list item don't -->
+    <!-- merge together.                                        -->
+    <xsl:text>&#10;</xsl:text>
+  </xsl:if>
+</xsl:template>
+
 <xsl:template match="varlistentry">
   <xsl:text>&#10;.TP&#10;</xsl:text>
-<xsl:apply-templates/>
+  <xsl:apply-templates/>
 </xsl:template>
 
-<xsl:template match="varlistentry/term">
+<xsl:template match="variablelist" mode="list">
+  <xsl:text>&#10;.RS&#10;</xsl:text>
   <xsl:apply-templates/>
+  <xsl:text>&#10;.RE&#10;</xsl:text>
+</xsl:template>
+
+<xsl:template match="varlistentry/term">
+  <xsl:variable name="content">
+    <xsl:apply-templates/>
+  </xsl:variable>
+  <xsl:value-of select="normalize-space($content)"/>
   <xsl:text>, </xsl:text>
 </xsl:template>
 
 <xsl:template match="varlistentry/term[position()=last()]" priority="2">
-  <xsl:apply-templates/>
+  <xsl:variable name="content">
+    <xsl:apply-templates/>
+  </xsl:variable>
+  <xsl:value-of select="normalize-space($content)"/>
+</xsl:template>
+
+<xsl:template match="varlistentry/listitem">
+  <xsl:text>&#10;</xsl:text>
+  <xsl:apply-templates mode="list"/>
 </xsl:template>
 
 <xsl:template match="itemizedlist/listitem">
-  <xsl:text>&#10;\(bu </xsl:text>
-  <xsl:apply-templates/>
-  <xsl:text>&#10;.Sp&#10;</xsl:text>
+  <xsl:text>\(bu&#10;</xsl:text>
+  <xsl:apply-templates mode="list"/>
+  <xsl:if test="position()!=last()">
+    <xsl:text>.TP&#10;</xsl:text>
+  </xsl:if>
 </xsl:template>
 
-<xsl:template match="varlistentry/listitem/para">
-  <xsl:variable name="foo">
-    <xsl:apply-templates/>
-  </xsl:variable>
-  <xsl:text>&#10;</xsl:text>
-  <xsl:value-of select="normalize-space($foo)"/>
+<xsl:template match="orderedlist/listitem|procedure/step">
+  <xsl:number format="1."/>
   <xsl:text>&#10;</xsl:text>
+  <xsl:apply-templates mode="list"/>
+  <xsl:if test="position()!=last()">
+    <xsl:text>.TP&#10;</xsl:text>
+  </xsl:if>
+</xsl:template>
+
+<xsl:template match="itemizedlist|orderedlist|procedure">
+  <xsl:text>&#10;.TP 3&#10;</xsl:text>
+  <xsl:apply-templates/>
+  <xsl:text>.LP&#10;</xsl:text>
 </xsl:template>
 
 </xsl:stylesheet>
diff --git a/contrib/xsl/db2man/synop.xsl b/contrib/xsl/db2man/synop.xsl
index 207a133f4..3383e43f5 100644
--- a/contrib/xsl/db2man/synop.xsl
+++ b/contrib/xsl/db2man/synop.xsl
@@ -39,7 +39,10 @@
       <xsl:value-of select="$arg.choice.def.open.str"/>
     </xsl:otherwise>
   </xsl:choose>
-  <xsl:apply-templates/>
+  <xsl:variable name="arg">
+    <xsl:apply-templates/>
+  </xsl:variable>
+  <xsl:value-of select="normalize-space($arg)"/>
   <xsl:choose>
     <xsl:when test="$rep='repeat'">
       <xsl:value-of select="$arg.rep.repeat.str"/>
@@ -78,10 +81,173 @@
   <xsl:apply-templates mode="bold" select="."/>
 </xsl:template>
 
+<xsl:template match="function[not(ancestor::command)]">
+  <xsl:apply-templates mode="bold" select="."/>
+</xsl:template>
+
 <xsl:template match="arg/replaceable">
   <xsl:text> </xsl:text>
   <xsl:apply-templates mode="italic" select="."/>
   <xsl:text> </xsl:text>
 </xsl:template>
 
+<xsl:template match="parameter[not(ancestor::command)]">
+  <xsl:apply-templates mode="italic" select="."/>
+</xsl:template>
+
+<xsl:template match="sbr">
+  <xsl:variable name="cmd" select="ancestor::cmdsynopsis/command"/>
+  <xsl:text>&#10;</xsl:text>
+  <xsl:value-of select="translate($cmd,$cmd,'                        ')"/>
+</xsl:template>
+
+<xsl:template name="wrap-cmd">
+  <xsl:param name="indent" select="''"/>
+  <xsl:param name="text" select="''"/>
+  <xsl:param name="allow" select="75"/>
+  <xsl:param name="width" select="$allow - string-length($indent)"/>
+  <xsl:variable name="total" select="string-length($text)"/>
+  <xsl:variable name="split"
+                select="substring($text,$width+1,$total - $width)"/>
+  <xsl:variable name="fragment" select="substring-before($split,' ')"/>
+  <xsl:variable name="line">
+    <xsl:value-of select="substring($text,1,$width)"/>
+    <xsl:choose>
+      <xsl:when test="$fragment!=''">
+        <xsl:value-of select="$fragment"/>
+      </xsl:when>
+      <xsl:otherwise>
+        <xsl:value-of select="$split"/>
+      </xsl:otherwise>
+    </xsl:choose>
+  </xsl:variable>
+  <xsl:choose>
+    <xsl:when test="$split=''">
+      <xsl:value-of select="$line"/>
+    </xsl:when>
+    <xsl:otherwise>
+      <xsl:value-of select="$line"/>
+      <xsl:text>&#10;</xsl:text>
+      <xsl:value-of select="$indent"/>
+      <xsl:variable name="done" select="string-length($line)"/>
+      <xsl:variable name="remaining" select="$total - $done + 1"/>
+      <xsl:call-template name="wrap-cmd">
+        <xsl:with-param name="indent" select="$indent"/>
+        <xsl:with-param name="text"
+                        select="substring($text,1+$done,$remaining)"/>
+      </xsl:call-template>
+    </xsl:otherwise>
+  </xsl:choose>
+</xsl:template>
+
+<xsl:template match="cmdsynopsis">
+  <xsl:text>&#10;.nf&#10;</xsl:text>
+  <xsl:choose>
+    <xsl:when test=".//sbr">
+      <!-- The author has put explicit formatting hints in for us. -->
+      <xsl:apply-templates/>
+    </xsl:when>
+    <xsl:otherwise>
+      <!-- Try to do some smart formatting. -->
+      <xsl:variable name="cmdsynopsis">
+        <xsl:apply-templates/>
+      </xsl:variable>
+      <xsl:variable name="cmd" select="command"/>
+      <xsl:variable name="indent"
+                    select="translate($cmd,$cmd,'                         ')"/>
+      <xsl:text>\fB</xsl:text>
+      <xsl:value-of select="$cmd"/><xsl:text>\fR </xsl:text>
+      <xsl:call-template name="wrap-cmd">
+        <xsl:with-param name="indent" select="$indent"/>
+        <xsl:with-param name="text" select="substring-after($cmdsynopsis,' ')"/>
+      </xsl:call-template>
+    </xsl:otherwise>
+  </xsl:choose>
+  <xsl:text>&#10;.fi&#10;</xsl:text>
+</xsl:template>
+
+<xsl:template match="synopsis">
+  <xsl:text>&#10;.nf&#10;</xsl:text>
+  <xsl:apply-templates/>
+  <xsl:text>&#10;.fi&#10;</xsl:text>
+</xsl:template>
+
+<!-- TODO: Handle K&R-style parameter lists -->
+<xsl:template match="paramdef">
+  <xsl:choose>
+    <xsl:when test="position() > 2">
+      <xsl:text>, </xsl:text>
+    </xsl:when>
+    <xsl:otherwise>
+      <xsl:text> (</xsl:text>
+    </xsl:otherwise>
+  </xsl:choose>
+  <xsl:apply-templates/>
+</xsl:template>
+
+<xsl:template match="void">
+  <xsl:text> (void</xsl:text>
+</xsl:template>
+
+<xsl:template match="varargs">
+  <xsl:text> (...</xsl:text>
+</xsl:template>
+
+<xsl:template name="wrap-fn">
+  <xsl:param name="indent" select="''"/>
+  <xsl:param name="text" select="''"/>
+  <xsl:variable name="total" select="string-length($text)"/>
+  <xsl:variable name="param" select="substring-before($text,',')"/>
+  <xsl:choose>
+    <xsl:when test="$param=''">
+      <xsl:value-of select="$text"/>
+    </xsl:when>
+    <xsl:otherwise>
+      <xsl:value-of select="$param"/>
+      <xsl:text>,&#10;</xsl:text>
+      <xsl:value-of select="$indent"/>
+      <xsl:variable name="done" select="string-length($param)"/>
+      <xsl:variable name="remaining" select="$total - $done + 1"/>
+      <xsl:call-template name="wrap-fn">
+        <xsl:with-param name="indent" select="$indent"/>
+        <xsl:with-param name="text"
+                        select="substring($text,2+$done,$remaining)"/>
+      </xsl:call-template>
+    </xsl:otherwise>
+  </xsl:choose>
+</xsl:template>
+
+<xsl:template match="funcsynopsisinfo">
+  <xsl:text>&#10;</xsl:text>
+  <xsl:apply-templates/>
+  <xsl:text>&#10;.sp&#10;</xsl:text>
+</xsl:template>
+
+<xsl:template match="funcsynopsis">
+  <xsl:text>.nf&#10;</xsl:text>
+  <xsl:apply-templates/>
+  <xsl:text>.fi&#10;</xsl:text>
+</xsl:template>
+
+<xsl:template match="funcprototype">
+  <xsl:variable name="fnprototype">
+    <xsl:apply-templates/>
+  </xsl:variable>
+  <xsl:variable name="funcprototype" select="normalize-space($fnprototype)"/>
+  <xsl:variable name="fn"
+       select="substring-before($funcprototype,'(')"/>
+  <xsl:variable name="indent"
+                select="translate($fn,$fn,'                               ')"/>
+  <xsl:text>.sp&#10;</xsl:text>
+  <xsl:value-of select="substring-before($funcprototype,'(')"/>
+  <xsl:text>(</xsl:text>
+  <xsl:call-template name="wrap-fn">
+    <xsl:with-param name="indent"
+    select="substring($indent,1,string-length($indent) - 6)"/>
+    <xsl:with-param name="text"
+                    select="substring-after($funcprototype,'(')"/>
+  </xsl:call-template>
+  <xsl:text>);&#10;</xsl:text>
+</xsl:template>
+
 </xsl:stylesheet>
-- 
2.40.0