From 031917ec85d7bba5c84d1e58af2df200eb87ff33 Mon Sep 17 00:00:00 2001
From: Norman Walsh <ndw@nwalsh.com>
Date: Tue, 17 Sep 2002 15:09:11 +0000
Subject: [PATCH] Patch from Joe Orton

---
 contrib/xsl/db2man/db2man.xsl |  2 +-
 contrib/xsl/db2man/synop.xsl  | 72 ++++++++++++++++++++++-------------
 xsl/manpages/db2man.xsl       |  2 +-
 xsl/manpages/synop.xsl        | 72 ++++++++++++++++++++++-------------
 4 files changed, 94 insertions(+), 54 deletions(-)

diff --git a/contrib/xsl/db2man/db2man.xsl b/contrib/xsl/db2man/db2man.xsl
index 21379dc7e..539f2a57d 100644
--- a/contrib/xsl/db2man/db2man.xsl
+++ b/contrib/xsl/db2man/db2man.xsl
@@ -38,7 +38,7 @@
 </xsl:template>
 
 <xsl:template match="refsect2">
-  <xsl:text>&#10;.Sh "</xsl:text>
+  <xsl:text>&#10;.SS "</xsl:text>
   <xsl:value-of select="title[1]"/>
   <xsl:text>"&#10;</xsl:text>
   <xsl:apply-templates/>
diff --git a/contrib/xsl/db2man/synop.xsl b/contrib/xsl/db2man/synop.xsl
index 051226605..e5c4e37f2 100644
--- a/contrib/xsl/db2man/synop.xsl
+++ b/contrib/xsl/db2man/synop.xsl
@@ -174,11 +174,11 @@
 </xsl:template>
 
 <xsl:template match="void">
-  <xsl:text> (void</xsl:text>
+  <xsl:text>void</xsl:text>
 </xsl:template>
 
 <xsl:template match="varargs">
-  <xsl:text> (...</xsl:text>
+  <xsl:text>...</xsl:text>
 </xsl:template>
 
 <xsl:template match="funcsynopsisinfo">
@@ -187,10 +187,13 @@
   <xsl:text>&#10;.sp&#10;</xsl:text>
 </xsl:template>
 
+<!-- disable hyphenation, and use left-aligned filling for the duration
+     of the synopsis, so that line breaks only occur between 
+     separate paramdefs. -->
 <xsl:template match="funcsynopsis">
-  <xsl:text>.nf&#10;</xsl:text>
+  <xsl:text>.ad l&#10;.hy 0&#10;</xsl:text>
   <xsl:apply-templates/>
-  <xsl:text>.fi&#10;</xsl:text>
+  <xsl:text>.ad&#10;.hy&#10;</xsl:text>
 </xsl:template>
 
 <!-- TODO: Handle K&R-style parameter lists
@@ -198,33 +201,50 @@
 	   is now obsolete and thus deleted
 -->
 
+<!-- evaluates to parameter string with all space characters converted
+     to non-breaking spaces. -->
+<xsl:template name="nbspace">
+  <xsl:param name="string" select="''"/>
+  <xsl:choose>
+    <xsl:when test="contains($string, ' ')">
+      <xsl:value-of select="substring-before($string, ' ')"/>
+      <xsl:text>\ </xsl:text>
+      <xsl:call-template name="nbspace">
+	<xsl:with-param name="string" select="substring-after($string, ' ')"/>
+      </xsl:call-template>
+    </xsl:when>
+    <xsl:otherwise>
+      <xsl:value-of select="$string"/>
+    </xsl:otherwise>
+  </xsl:choose>
+</xsl:template>
+
+<!-- replaces all spaces within the funcdef/paramdef with non-breaking
+     spaces -->
+<xsl:template match="paramdef|funcdef">
+  <xsl:variable name="content">
+    <xsl:apply-templates select="*|./*|text()"/>
+  </xsl:variable>
+  <xsl:call-template name="nbspace">
+    <xsl:with-param name="string" select="$content"/>
+  </xsl:call-template>
+  <xsl:if test="local-name(.) = 'paramdef' and 
+	  (following-sibling::paramdef or following-sibling::varargs)">
+    <xsl:text>, </xsl:text>
+  </xsl:if>
+</xsl:template>
+
 <xsl:template match="funcprototype">
   <xsl:variable name="funcprototype">
     <xsl:apply-templates select="funcdef"/>
   </xsl:variable>
-  <xsl:text>.sp&#10;</xsl:text>
+  <xsl:text>.HP </xsl:text>
+  <xsl:value-of select="string-length (normalize-space ($funcprototype)) - 5"/>
+  <xsl:text>&#10;</xsl:text>
   <xsl:value-of select="normalize-space ($funcprototype)"/>
-  <xsl:text> (</xsl:text>
-  <xsl:for-each select="paramdef">
-    <xsl:variable name="param">
-      <xsl:apply-templates select="." />
-    </xsl:variable>
-    <xsl:value-of select="normalize-space ($param)" />
-    <xsl:choose>
-      <xsl:when test="following-sibling::paramdef">
-	<xsl:text>,&#10;</xsl:text>
-      </xsl:when>
-      <xsl:otherwise>
-	<xsl:text>);&#10;.RE&#10;</xsl:text>
-      </xsl:otherwise>
-    </xsl:choose>
-    <xsl:if test="not (preceding-sibling::paramdef)">
-      <xsl:text>.RS </xsl:text>
-      <xsl:value-of
-	select="string-length(normalize-space ($funcprototype)) - 4" />
-      <xsl:text>&#10;</xsl:text>
-    </xsl:if>
-  </xsl:for-each>
+  <xsl:text>\ (</xsl:text>
+  <xsl:apply-templates select="void|paramdef|varargs"/>
+  <xsl:text>);&#10;</xsl:text>
 </xsl:template>
 
 </xsl:stylesheet>
diff --git a/xsl/manpages/db2man.xsl b/xsl/manpages/db2man.xsl
index ae8eebf16..7e776537a 100644
--- a/xsl/manpages/db2man.xsl
+++ b/xsl/manpages/db2man.xsl
@@ -34,7 +34,7 @@
 </xsl:template>
 
 <xsl:template match="refsect2">
-  <xsl:text>&#10;.Sh "</xsl:text>
+  <xsl:text>&#10;.SS "</xsl:text>
   <xsl:value-of select="title[1]"/>
   <xsl:text>"&#10;</xsl:text>
   <xsl:apply-templates/>
diff --git a/xsl/manpages/synop.xsl b/xsl/manpages/synop.xsl
index 051226605..e5c4e37f2 100644
--- a/xsl/manpages/synop.xsl
+++ b/xsl/manpages/synop.xsl
@@ -174,11 +174,11 @@
 </xsl:template>
 
 <xsl:template match="void">
-  <xsl:text> (void</xsl:text>
+  <xsl:text>void</xsl:text>
 </xsl:template>
 
 <xsl:template match="varargs">
-  <xsl:text> (...</xsl:text>
+  <xsl:text>...</xsl:text>
 </xsl:template>
 
 <xsl:template match="funcsynopsisinfo">
@@ -187,10 +187,13 @@
   <xsl:text>&#10;.sp&#10;</xsl:text>
 </xsl:template>
 
+<!-- disable hyphenation, and use left-aligned filling for the duration
+     of the synopsis, so that line breaks only occur between 
+     separate paramdefs. -->
 <xsl:template match="funcsynopsis">
-  <xsl:text>.nf&#10;</xsl:text>
+  <xsl:text>.ad l&#10;.hy 0&#10;</xsl:text>
   <xsl:apply-templates/>
-  <xsl:text>.fi&#10;</xsl:text>
+  <xsl:text>.ad&#10;.hy&#10;</xsl:text>
 </xsl:template>
 
 <!-- TODO: Handle K&R-style parameter lists
@@ -198,33 +201,50 @@
 	   is now obsolete and thus deleted
 -->
 
+<!-- evaluates to parameter string with all space characters converted
+     to non-breaking spaces. -->
+<xsl:template name="nbspace">
+  <xsl:param name="string" select="''"/>
+  <xsl:choose>
+    <xsl:when test="contains($string, ' ')">
+      <xsl:value-of select="substring-before($string, ' ')"/>
+      <xsl:text>\ </xsl:text>
+      <xsl:call-template name="nbspace">
+	<xsl:with-param name="string" select="substring-after($string, ' ')"/>
+      </xsl:call-template>
+    </xsl:when>
+    <xsl:otherwise>
+      <xsl:value-of select="$string"/>
+    </xsl:otherwise>
+  </xsl:choose>
+</xsl:template>
+
+<!-- replaces all spaces within the funcdef/paramdef with non-breaking
+     spaces -->
+<xsl:template match="paramdef|funcdef">
+  <xsl:variable name="content">
+    <xsl:apply-templates select="*|./*|text()"/>
+  </xsl:variable>
+  <xsl:call-template name="nbspace">
+    <xsl:with-param name="string" select="$content"/>
+  </xsl:call-template>
+  <xsl:if test="local-name(.) = 'paramdef' and 
+	  (following-sibling::paramdef or following-sibling::varargs)">
+    <xsl:text>, </xsl:text>
+  </xsl:if>
+</xsl:template>
+
 <xsl:template match="funcprototype">
   <xsl:variable name="funcprototype">
     <xsl:apply-templates select="funcdef"/>
   </xsl:variable>
-  <xsl:text>.sp&#10;</xsl:text>
+  <xsl:text>.HP </xsl:text>
+  <xsl:value-of select="string-length (normalize-space ($funcprototype)) - 5"/>
+  <xsl:text>&#10;</xsl:text>
   <xsl:value-of select="normalize-space ($funcprototype)"/>
-  <xsl:text> (</xsl:text>
-  <xsl:for-each select="paramdef">
-    <xsl:variable name="param">
-      <xsl:apply-templates select="." />
-    </xsl:variable>
-    <xsl:value-of select="normalize-space ($param)" />
-    <xsl:choose>
-      <xsl:when test="following-sibling::paramdef">
-	<xsl:text>,&#10;</xsl:text>
-      </xsl:when>
-      <xsl:otherwise>
-	<xsl:text>);&#10;.RE&#10;</xsl:text>
-      </xsl:otherwise>
-    </xsl:choose>
-    <xsl:if test="not (preceding-sibling::paramdef)">
-      <xsl:text>.RS </xsl:text>
-      <xsl:value-of
-	select="string-length(normalize-space ($funcprototype)) - 4" />
-      <xsl:text>&#10;</xsl:text>
-    </xsl:if>
-  </xsl:for-each>
+  <xsl:text>\ (</xsl:text>
+  <xsl:apply-templates select="void|paramdef|varargs"/>
+  <xsl:text>);&#10;</xsl:text>
 </xsl:template>
 
 </xsl:stylesheet>
-- 
2.50.1