From b120ec9b97a88ba89002a9c6f2881220f938c036 Mon Sep 17 00:00:00 2001
From: Norman Walsh <ndw@nwalsh.com>
Date: Wed, 27 Aug 2003 23:57:58 +0000
Subject: [PATCH] Rudimentary support for HTML tables

---
 xsl/fo/docbook.xsl |   1 +
 xsl/fo/formal.xsl  |  20 +++---
 xsl/fo/htmltbl.xsl | 175 +++++++++++++++++++++++++++++++++++++++++++++
 3 files changed, 184 insertions(+), 12 deletions(-)
 create mode 100644 xsl/fo/htmltbl.xsl

diff --git a/xsl/fo/docbook.xsl b/xsl/fo/docbook.xsl
index cf201c9ed..8af8cc49d 100644
--- a/xsl/fo/docbook.xsl
+++ b/xsl/fo/docbook.xsl
@@ -41,6 +41,7 @@
 <xsl:include href="xref.xsl"/>
 <xsl:include href="formal.xsl"/>
 <xsl:include href="table.xsl"/>
+<xsl:include href="htmltbl.xsl"/>
 <xsl:include href="sections.xsl"/>
 <xsl:include href="inline.xsl"/>
 <xsl:include href="footnote.xsl"/>
diff --git a/xsl/fo/formal.xsl b/xsl/fo/formal.xsl
index 328d2de01..112bee7b2 100644
--- a/xsl/fo/formal.xsl
+++ b/xsl/fo/formal.xsl
@@ -445,17 +445,18 @@
       <xsl:call-template name="calsTable"/>
     </xsl:when>
     <xsl:otherwise>
-      <xsl:message>Warning: HTML Tables are not supported yet!</xsl:message>
-      <fo:block font-weight="bold" font-size="16pt"
-                text-align="center"
-                space-before="0.25in" space-after="0.25in">
-        <fo:inline>[[[ Stylesheet error: HTML Tables are not supported yet! ]]]</fo:inline>
-      </fo:block>
+      <xsl:apply-templates select="." mode="htmlTable"/>
     </xsl:otherwise>
   </xsl:choose>
 </xsl:template>
 
 <xsl:template name="calsTable">
+  <xsl:if test="tgroup/tbody/tr
+                |tgroup/thead/tr
+                |tgroup/tfoot/tr">
+    <xsl:message terminate="yes">Broken table: tr descendent of CALS Table.</xsl:message>
+  </xsl:if>
+
   <xsl:variable name="id">
     <xsl:call-template name="object.id"/>
   </xsl:variable>
@@ -612,12 +613,7 @@
       <xsl:call-template name="informalCalsTable"/>
     </xsl:when>
     <xsl:otherwise>
-      <xsl:message>Warning: HTML Tables are not supported yet!</xsl:message>
-      <fo:block font-weight="bold" font-size="16pt"
-                text-align="center"
-                space-before="0.25in" space-after="0.25in">
-        <fo:inline>[[[ Stylesheet error: HTML Tables are not supported yet! ]]]</fo:inline>
-      </fo:block>
+      <xsl:apply-templates select="." mode="htmlTable"/>
     </xsl:otherwise>
   </xsl:choose>
 </xsl:template>
diff --git a/xsl/fo/htmltbl.xsl b/xsl/fo/htmltbl.xsl
new file mode 100644
index 000000000..bbe87b7a0
--- /dev/null
+++ b/xsl/fo/htmltbl.xsl
@@ -0,0 +1,175 @@
+<?xml version="1.0"?>
+<xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
+                xmlns:fo="http://www.w3.org/1999/XSL/Format"
+                version="1.0">
+
+  <xsl:attribute-set name="th.style">
+    <xsl:attribute name="font-weight">bold</xsl:attribute>
+  </xsl:attribute-set>
+
+  <xsl:template match="table|informaltable" mode="htmlTable">
+    <xsl:if test="tgroup/tbody/row
+                  |tgroup/thead/row
+                  |tgroup/tfoot/row">
+      <xsl:message terminate="yes">Broken table: row descendent of HTML table.</xsl:message>
+    </xsl:if>
+
+    <xsl:variable name="numcols">
+      <xsl:call-template name="widest-html-row">
+        <xsl:with-param name="rows" select=".//tr"/>
+      </xsl:call-template>
+    </xsl:variable>
+
+    <xsl:choose>
+      <xsl:when test="caption">
+        <fo:table-and-caption>
+          <xsl:apply-templates select="caption" mode="htmlTable"/>
+          <fo:table table-layout="fixed">
+            <xsl:attribute name="width">
+              <xsl:choose>
+                <xsl:when test="@width">
+                  <xsl:value-of select="@width"/>
+                </xsl:when>
+                <xsl:otherwise>100%</xsl:otherwise>
+              </xsl:choose>
+            </xsl:attribute>
+            <xsl:call-template name="make-html-table-columns">
+              <xsl:with-param name="count" select="$numcols"/>
+            </xsl:call-template>
+            <xsl:apply-templates select="tbody|thead|tfoot" mode="htmlTable"/>
+          </fo:table>
+        </fo:table-and-caption>
+      </xsl:when>
+      <xsl:otherwise>
+        <fo:table table-layout="fixed">
+          <xsl:attribute name="width">
+            <xsl:choose>
+              <xsl:when test="@width">
+                <xsl:value-of select="@width"/>
+              </xsl:when>
+              <xsl:otherwise>100%</xsl:otherwise>
+            </xsl:choose>
+          </xsl:attribute>
+          <xsl:call-template name="make-html-table-columns">
+            <xsl:with-param name="count" select="$numcols"/>
+          </xsl:call-template>
+          <xsl:apply-templates mode="htmlTable"/>
+        </fo:table>
+      </xsl:otherwise>
+    </xsl:choose>
+  </xsl:template>
+
+  <xsl:template match="caption" mode="htmlTable">
+    <fo:table-caption>
+      <fo:block>
+        <xsl:apply-templates select=".." mode="object.title.markup">
+          <xsl:with-param name="allow-anchors" select="1"/>
+        </xsl:apply-templates>
+      </fo:block>
+    </fo:table-caption>
+  </xsl:template>
+
+  <xsl:template name="widest-html-row">
+    <xsl:param name="rows" select="''"/>
+    <xsl:param name="count" select="0"/>
+    <xsl:choose>
+      <xsl:when test="count($rows) = 0">
+        <xsl:value-of select="$count"/>
+      </xsl:when>
+      <xsl:otherwise>
+        <xsl:choose>
+          <xsl:when test="$count &gt; count($rows[1]/*)">
+            <xsl:call-template name="widest-html-row">
+              <xsl:with-param name="rows" select="$rows[position() &gt; 1]"/>
+              <xsl:with-param name="count" select="$count"/>
+            </xsl:call-template>
+          </xsl:when>
+          <xsl:otherwise>
+            <xsl:call-template name="widest-html-row">
+              <xsl:with-param name="rows" select="$rows[position() &gt; 1]"/>
+              <xsl:with-param name="count" select="count($rows[1]/*)"/>
+            </xsl:call-template>
+          </xsl:otherwise>
+        </xsl:choose>
+      </xsl:otherwise>
+    </xsl:choose>
+  </xsl:template>
+
+  <xsl:template name="make-html-table-columns">
+    <xsl:param name="count" select="0"/>
+    <xsl:param name="number" select="1"/>
+
+    <xsl:choose>
+      <xsl:when test="col|colgroup/col">
+        <xsl:for-each select="col|colgroup/col">
+          <fo:table-column>
+            <xsl:attribute name="column-number">
+              <xsl:number from="table" level="any" format="1"/>
+            </xsl:attribute>
+            <xsl:if test="@width">
+              <xsl:attribute name="column-width">
+                <xsl:value-of select="@width"/>
+              </xsl:attribute>
+            </xsl:if>
+          </fo:table-column>
+        </xsl:for-each>
+      </xsl:when>
+      <xsl:when test="$fop.extensions != 0">
+        <xsl:if test="$number &lt;= $count">
+          <fo:table-column column-number="{$number}"
+                           column-width="{6.5 div $count}in"/>
+          <xsl:call-template name="make-html-table-columns">
+            <xsl:with-param name="count" select="$count"/>
+            <xsl:with-param name="number" select="$number + 1"/>
+          </xsl:call-template>
+        </xsl:if>
+      </xsl:when>
+    </xsl:choose>
+  </xsl:template>
+
+  <xsl:template match="tbody" mode="htmlTable">
+    <fo:table-body border-bottom-width="0.25pt"
+                   border-bottom-style="solid"
+                   border-bottom-color="black">
+      <xsl:apply-templates mode="htmlTable"/>
+    </fo:table-body>
+  </xsl:template>
+
+  <xsl:template match="td" mode="htmlTable">
+    <fo:table-cell>
+      <fo:block>
+        <xsl:apply-templates/>
+      </fo:block>
+    </fo:table-cell>
+  </xsl:template>
+
+  <xsl:template match="tfoot" mode="htmlTable">
+    <fo:table-footer>
+      <xsl:apply-templates mode="htmlTable"/>
+    </fo:table-footer>
+  </xsl:template>
+
+  <xsl:template match="th" mode="htmlTable">
+    <fo:table-cell xsl:use-attribute-sets="th.style">
+      <fo:block>
+        <xsl:apply-templates/>
+      </fo:block>
+    </fo:table-cell>
+  </xsl:template>
+
+  <xsl:template match="thead" mode="htmlTable">
+    <fo:table-header border-bottom-width="0.25pt"
+                     border-bottom-style="solid"
+                     border-bottom-color="black"
+                     font-weight="bold">
+      <xsl:apply-templates mode="htmlTable"/>
+    </fo:table-header>
+  </xsl:template>
+
+  <xsl:template match="tr" mode="htmlTable">
+    <fo:table-row>
+      <xsl:apply-templates mode="htmlTable"/>
+    </fo:table-row>
+  </xsl:template>
+
+</xsl:stylesheet>
-- 
2.40.0