From 36794c5ad33be1f415d0cc0fde8b4083a21d9ed6 Mon Sep 17 00:00:00 2001
From: Norman Walsh <ndw@nwalsh.com>
Date: Wed, 28 Nov 2001 15:15:20 +0000
Subject: [PATCH] Support formatting segmented lists as tables

---
 xsl/fo/lists.xsl                      | 59 +++++++++++++++++++-
 xsl/fo/param.ent                      |  1 +
 xsl/fo/param.xweb                     |  4 +-
 xsl/html/lists.xsl                    | 78 ++++++++++++++++++++++++++-
 xsl/html/param.ent                    |  2 +-
 xsl/html/param.xweb                   |  2 +
 xsl/params/segmentedlist.as.table.xml | 23 ++++++++
 7 files changed, 164 insertions(+), 5 deletions(-)
 create mode 100644 xsl/params/segmentedlist.as.table.xml

diff --git a/xsl/fo/lists.xsl b/xsl/fo/lists.xsl
index 29ab93f1f..fa1c87ad9 100644
--- a/xsl/fo/lists.xsl
+++ b/xsl/fo/lists.xsl
@@ -457,7 +457,28 @@
 <!-- ==================================================================== -->
 
 <xsl:template match="segmentedlist">
-  <xsl:apply-templates/>
+  <xsl:variable name="presentation">
+    <xsl:call-template name="pi-attribute">
+      <xsl:with-param name="pis"
+                      select="processing-instruction('dbfo')"/>
+      <xsl:with-param name="attribute" select="'list-presentation'"/>
+    </xsl:call-template>
+  </xsl:variable>
+
+  <xsl:choose>
+    <xsl:when test="$presentation = 'table'">
+      <xsl:apply-templates select="." mode="seglist-table"/>
+    </xsl:when>
+    <xsl:when test="$presentation = 'list'">
+      <xsl:apply-templates/>
+    </xsl:when>
+    <xsl:when test="$segmentedlist.as.table != 0">
+      <xsl:apply-templates select="." mode="seglist-table"/>
+    </xsl:when>
+    <xsl:otherwise>
+      <xsl:apply-templates/>
+    </xsl:otherwise>
+  </xsl:choose>
 </xsl:template>
 
 <xsl:template match="segmentedlist/title">
@@ -498,6 +519,42 @@
   </fo:block>
 </xsl:template>
 
+<xsl:template match="segmentedlist" mode="seglist-table">
+  <xsl:apply-templates select="title" mode="seglist-table"/>
+  <fo:table>
+    <fo:table-header>
+      <fo:table-row>
+        <xsl:apply-templates select="segtitle" mode="seglist-table"/>
+      </fo:table-row>
+    </fo:table-header>
+    <fo:table-body>
+      <xsl:apply-templates select="seglistitem" mode="seglist-table"/>
+    </fo:table-body>
+  </fo:table>
+</xsl:template>
+
+<xsl:template match="segtitle" mode="seglist-table">
+  <fo:table-cell>
+    <fo:block>
+      <xsl:apply-templates/>
+    </fo:block>
+  </fo:table-cell>
+</xsl:template>
+
+<xsl:template match="seglistitem" mode="seglist-table">
+  <fo:table-row>
+    <xsl:apply-templates mode="seglist-table"/>
+  </fo:table-row>
+</xsl:template>
+
+<xsl:template match="seg" mode="seglist-table">
+  <fo:table-cell>
+    <fo:block>
+      <xsl:apply-templates/>
+    </fo:block>
+  </fo:table-cell>
+</xsl:template>
+
 <!-- ==================================================================== -->
 
 <xsl:template match="calloutlist">
diff --git a/xsl/fo/param.ent b/xsl/fo/param.ent
index 4b7eaac6a..380a585a1 100644
--- a/xsl/fo/param.ent
+++ b/xsl/fo/param.ent
@@ -113,3 +113,4 @@
 <!ENTITY table.entry.padding SYSTEM "../params/table.entry.padding.xml">
 
 <!ENTITY punct.honorific SYSTEM "../params/punct.honorific.xml">
+<!ENTITY segmentedlist.as.table SYSTEM "../params/segmentedlist.as.table.xml">
diff --git a/xsl/fo/param.xweb b/xsl/fo/param.xweb
index 474b4bef2..9cefe2d81 100644
--- a/xsl/fo/param.xweb
+++ b/xsl/fo/param.xweb
@@ -175,7 +175,7 @@ to be incomplete. Don't forget to read the source, too :-)</para>
 &table.border.color;
 &title.margin.left;
 &punct.honorific;
-
+&segmentedlist.as.table;
 </reference>
 
 <appendix><title>The Stylesheet</title>
@@ -314,7 +314,7 @@ around all these parameters.</para>
 <src:fragref linkend="table.border.color.frag"/>
 <src:fragref linkend="title.margin.left.frag"/>
 <src:fragref linkend="punct.honorific.frag"/>
-
+<src:fragref linkend="segmentedlist.as.table.frag"/>
 </xsl:stylesheet>
 </src:fragment>
 
diff --git a/xsl/html/lists.xsl b/xsl/html/lists.xsl
index 81e25925e..75bc8b2f3 100644
--- a/xsl/html/lists.xsl
+++ b/xsl/html/lists.xsl
@@ -604,8 +604,30 @@
 <!-- ==================================================================== -->
 
 <xsl:template match="segmentedlist">
+  <xsl:variable name="presentation">
+    <xsl:call-template name="dbhtml-attribute">
+      <xsl:with-param name="pis"
+                      select="processing-instruction('dbhtml')"/>
+      <xsl:with-param name="attribute" select="'list-presentation'"/>
+    </xsl:call-template>
+  </xsl:variable>
+
   <xsl:call-template name="anchor"/>
-  <xsl:apply-templates/>
+
+  <xsl:choose>
+    <xsl:when test="$presentation = 'table'">
+      <xsl:apply-templates select="." mode="seglist-table"/>
+    </xsl:when>
+    <xsl:when test="$presentation = 'list'">
+      <xsl:apply-templates/>
+    </xsl:when>
+    <xsl:when test="$segmentedlist.as.table != 0">
+      <xsl:apply-templates select="." mode="seglist-table"/>
+    </xsl:when>
+    <xsl:otherwise>
+      <xsl:apply-templates/>
+    </xsl:otherwise>
+  </xsl:choose>
 </xsl:template>
 
 <xsl:template match="segmentedlist/title">
@@ -644,6 +666,60 @@
   </p>
 </xsl:template>
 
+<xsl:template match="segmentedlist" mode="seglist-table">
+  <xsl:variable name="table-summary">
+    <xsl:call-template name="dbhtml-attribute">
+      <xsl:with-param name="pis"
+                      select="processing-instruction('dbhtml')"/>
+      <xsl:with-param name="attribute" select="'table-summary'"/>
+    </xsl:call-template>
+  </xsl:variable>
+
+  <xsl:variable name="list-width">
+    <xsl:call-template name="dbhtml-attribute">
+      <xsl:with-param name="pis"
+                      select="processing-instruction('dbhtml')"/>
+      <xsl:with-param name="attribute" select="'list-width'"/>
+    </xsl:call-template>
+  </xsl:variable>
+
+  <xsl:apply-templates select="title" mode="seglist-table"/>
+  <table border="0">
+    <xsl:if test="$list-width != ''">
+      <xsl:attribute name="width">
+        <xsl:value-of select="$list-width"/>
+      </xsl:attribute>
+    </xsl:if>
+    <xsl:if test="$table-summary != ''">
+      <xsl:attribute name="summary">
+        <xsl:value-of select="$table-summary"/>
+      </xsl:attribute>
+    </xsl:if>
+    <thead>
+      <tr>
+        <xsl:apply-templates select="segtitle" mode="seglist-table"/>
+      </tr>
+    </thead>
+    <tbody>
+      <xsl:apply-templates select="seglistitem" mode="seglist-table"/>
+    </tbody>
+  </table>
+</xsl:template>
+
+<xsl:template match="segtitle" mode="seglist-table">
+  <th><xsl:apply-templates/></th>
+</xsl:template>
+
+<xsl:template match="seglistitem" mode="seglist-table">
+  <tr>
+    <xsl:apply-templates mode="seglist-table"/>
+  </tr>
+</xsl:template>
+
+<xsl:template match="seg" mode="seglist-table">
+  <td><xsl:apply-templates/></td>
+</xsl:template>
+
 <!-- ==================================================================== -->
 
 <xsl:template match="calloutlist">
diff --git a/xsl/html/param.ent b/xsl/html/param.ent
index 6f5acc471..14fb9afbf 100644
--- a/xsl/html/param.ent
+++ b/xsl/html/param.ent
@@ -135,4 +135,4 @@
 <!ENTITY htmlhelp.force.map.and.alias SYSTEM "../params/htmlhelp.force.map.and.alias.xml">
 <!ENTITY htmlhelp.map.file SYSTEM "../params/htmlhelp.map.file.xml">
 <!ENTITY htmlhelp.alias.file SYSTEM "../params/htmlhelp.alias.file.xml">
-
+<!ENTITY segmentedlist.as.table SYSTEM "../params/segmentedlist.as.table.xml">
diff --git a/xsl/html/param.xweb b/xsl/html/param.xweb
index 561a9c142..367b2628d 100644
--- a/xsl/html/param.xweb
+++ b/xsl/html/param.xweb
@@ -218,6 +218,7 @@ to be incomplete. Don't forget to read the source, too :-)</para>
 &shade.verbatim;
 &shade.verbatim.style;
 &punct.honorific;
+&segmentedlist.as.table;
 </reference>
 
 <reference><title>Chunking</title>
@@ -403,6 +404,7 @@ around all these parameters.</para>
 <src:fragref linkend="htmlhelp.force.map.and.alias.frag"/>
 <src:fragref linkend="htmlhelp.map.file.frag"/>
 <src:fragref linkend="htmlhelp.alias.file.frag"/>
+<src:fragref linkend="segmentedlist.as.table.frag"/>
 </xsl:stylesheet>
 </src:fragment>
 
diff --git a/xsl/params/segmentedlist.as.table.xml b/xsl/params/segmentedlist.as.table.xml
new file mode 100644
index 000000000..e7ce9c8b5
--- /dev/null
+++ b/xsl/params/segmentedlist.as.table.xml
@@ -0,0 +1,23 @@
+<refentry id="segmentedlist.as.table">
+<refmeta>
+<refentrytitle>segmentedlist.as.table</refentrytitle>
+<refmiscinfo role="type">boolean</refmiscinfo>
+</refmeta>
+<refnamediv>
+<refname>segmentedlist.as.table</refname>
+<refpurpose>Format segmented lists as tables?</refpurpose>
+</refnamediv>
+
+<refsynopsisdiv>
+<src:fragment id='segmentedlist.as.table.frag'>
+<xsl:param name="segmentedlist.as.table" select="0"/>
+</src:fragment>
+</refsynopsisdiv>
+
+<refsect1><title>Description</title>
+
+<para>If non-zero, <sgmltag>segmentedlist</sgmltag>s will be formatted as
+tables.</para>
+
+</refsect1>
+</refentry>
-- 
2.40.0