X-Git-Url: https://git.stg.codes/stg.git/blobdiff_plain/bfec9cc7ab5a396f7662090b208691ec59a69f1b..2f1753cc3e240fa497a87873ed19fe3f11e22331:/doc/xslt/roundtrip/wordml2normalise.xsl

diff --git a/doc/xslt/roundtrip/wordml2normalise.xsl b/doc/xslt/roundtrip/wordml2normalise.xsl
new file mode 100644
index 00000000..ad22b194
--- /dev/null
+++ b/doc/xslt/roundtrip/wordml2normalise.xsl
@@ -0,0 +1,445 @@
+<xsl:stylesheet version="1.0"
+  xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
+  xmlns:w="http://schemas.microsoft.com/office/word/2003/wordml"
+  xmlns:v="urn:schemas-microsoft-com:vml"
+  xmlns:w10="urn:schemas-microsoft-com:office:word"
+  xmlns:sl="http://schemas.microsoft.com/schemaLibrary/2003/core"
+  xmlns:aml="http://schemas.microsoft.com/aml/2001/core"
+  xmlns:wx="http://schemas.microsoft.com/office/word/2003/auxHint"
+  xmlns:o="urn:schemas-microsoft-com:office:office"
+  xmlns:dt="uuid:C2F41010-65B3-11d1-A29F-00AA00C14882"
+  xmlns:dbk='http://docbook.org/ns/docbook'
+  xmlns:rnd='http://docbook.org/ns/docbook/roundtrip'
+  xmlns:xlink='http://www.w3.org/1999/xlink'
+  xmlns:exsl='http://exslt.org/common'
+  exclude-result-prefixes='w v w10 sl aml wx o dt'
+  extension-element-prefixes='exsl'>
+
+  <xsl:import href='normalise-common.xsl'/>
+
+  <xsl:output method='xml' indent="yes"/>
+
+  <!-- ********************************************************************
+       $Id: wordml2normalise.xsl 8105 2008-08-15 01:29:11Z balls $
+       ********************************************************************
+
+       This file is part of the XSL DocBook Stylesheet distribution.
+       See ../README or http://nwalsh.com/docbook/xsl/ for copyright
+       and other information.
+
+       ******************************************************************** -->
+
+  <xsl:strip-space elements='*'/>
+  <xsl:preserve-space elements='w:t'/>
+
+  <xsl:key name='style'
+    match='w:style'
+    use='@w:styleId'/>
+
+  <xsl:template match="w:wordDocument">
+    <dbk:article>
+      <xsl:apply-templates select='w:body'/>
+    </dbk:article>
+  </xsl:template>
+
+  <xsl:template match='wx:borders |
+                       wx:margin-left'/>
+
+  <xsl:template match='w:p'>
+    <xsl:variable name='style'>
+      <xsl:call-template name='rnd:map-paragraph-style'>
+        <xsl:with-param name='style' select='w:pPr/w:pStyle/@w:val'/>
+      </xsl:call-template>
+    </xsl:variable>
+    <xsl:choose>
+      <xsl:when test='aml:annotation[@w:type = "Word.Deletion"] and
+                      not(aml:annotation[@w:type != "Word.Deletion"]) and
+                      count(*) = count(aml:annotation|w:pPr)'/>
+
+      <!-- Eliminate paragraphs that have no content.
+           These are section or page breaks.
+        -->
+      <xsl:when test='not(w:r|w:hlink|w:tbl) and
+                      w:pPr/w:sectPr'/>
+
+      <xsl:otherwise>
+        <dbk:para>
+          <xsl:attribute name='rnd:style'>
+            <xsl:value-of select='$style'/>
+          </xsl:attribute>
+          <xsl:if test='w:pPr/w:pStyle/@w:val and
+                        $style != w:pPr/w:pStyle/@w:val'>
+            <xsl:attribute name='rnd:original-style'>
+              <xsl:value-of select='w:pPr/w:pStyle/@w:val'/>
+            </xsl:attribute>
+          </xsl:if>
+
+          <xsl:if test='w:r[1][w:rPr/w:rStyle/@w:val = "attributes"] and
+                        w:r[2][w:rPr/w:rStyle/@w:val = "CommentReference"]'>
+            <xsl:apply-templates select='w:r[2]//w:r[w:rPr/w:rStyle/@w:val = "attribute-name"]'
+              mode='rnd:attributes'/>
+          </xsl:if>
+
+          <xsl:apply-templates/>
+        </dbk:para>
+      </xsl:otherwise>
+    </xsl:choose>
+  </xsl:template>
+
+  <xsl:template match='*' mode='rnd:attributes'>
+    <xsl:attribute name='{w:t}'>
+      <xsl:apply-templates select='following-sibling::w:r[w:rPr/w:rStyle/@w:val = "attribute-value"][1]'
+        mode='rnd:attribute-value'/>
+    </xsl:attribute>
+  </xsl:template>
+
+  <xsl:template match='w:r'>
+    <xsl:param name='do-vert-align' select='true()'/>
+
+    <xsl:variable name='role'>
+      <xsl:choose>
+        <xsl:when test='w:rPr/w:b and
+                        w:rPr/w:i'>
+          <xsl:text>bold-italic</xsl:text>
+        </xsl:when>
+        <xsl:when test='w:rPr/w:b'>
+          <xsl:text>bold</xsl:text>
+        </xsl:when>
+        <xsl:when test='w:rPr/w:i'>
+          <xsl:text>italic</xsl:text>
+        </xsl:when>
+        <xsl:when test='w:rPr/w:u'>
+          <xsl:text>underline</xsl:text>
+        </xsl:when>
+        <!-- TODO: add support for other styles -->
+      </xsl:choose>
+    </xsl:variable>
+    <xsl:variable name='style'>
+      <xsl:if test='w:rPr/w:rStyle'>
+        <xsl:value-of select='w:rPr/w:rStyle/@w:val'/>
+      </xsl:if>
+    </xsl:variable>
+
+    <xsl:choose>
+      <xsl:when test='w:rPr/w:rStyle/@w:val = "attributes"'/>
+      <xsl:when test='w:rPr/w:rStyle/@w:val = "CommentReference"'/>
+      <xsl:when test='w:pict'>
+        <!-- "filename" is where the image data gets extracted to -->
+        <xsl:variable name='filename'>
+          <xsl:call-template name='rnd:image-filename'/>
+        </xsl:variable>
+        <!-- "target" is the URL that will be the target of the imagedata hyperlink.
+             This may or may not be related to the physical filename.
+          -->
+        <xsl:variable name='target'>
+          <xsl:call-template name='rnd:image-target'>
+            <xsl:with-param name='filename' select='$filename'/>
+          </xsl:call-template>
+        </xsl:variable>
+
+        <xsl:call-template name='rnd:handle-image-data'>
+          <xsl:with-param name='filename' select='$filename'/>
+          <xsl:with-param name='data' select='w:pict/w:binData'/>
+        </xsl:call-template>
+
+        <dbk:inlinemediaobject>
+          <dbk:imageobject>
+            <dbk:imagedata fileref='{$target}'>
+              <xsl:if test='w:pict/v:shape/@style'>
+                <xsl:attribute name='width'>
+                  <xsl:value-of select='normalize-space(substring-before(substring-after(w:pict/v:shape/@style, "width:"), ";"))'/>
+                </xsl:attribute>
+                <xsl:attribute name='depth'>
+                  <xsl:value-of select='normalize-space(substring-after(w:pict/v:shape/@style, "height:"))'/>
+                </xsl:attribute>
+              </xsl:if>
+            </dbk:imagedata>
+          </dbk:imageobject>
+        </dbk:inlinemediaobject>
+      </xsl:when>
+      <xsl:when test='$do-vert-align and
+                      w:rPr/w:vertAlign/@w:val = "subscript"'>
+        <dbk:subscript>
+          <xsl:apply-templates select='.'>
+            <xsl:with-param name='do-vert-align' select='false()'/>
+          </xsl:apply-templates>
+        </dbk:subscript>
+      </xsl:when>
+      <xsl:when test='$do-vert-align and
+                      w:rPr/w:vertAlign/@w:val = "superscript"'>
+        <dbk:superscript>
+          <xsl:apply-templates select='.'>
+            <xsl:with-param name='do-vert-align' select='false()'/>
+          </xsl:apply-templates>
+        </dbk:superscript>
+      </xsl:when>
+      <xsl:when test='w:endnoteRef and
+                      parent::w:p/parent::w:endnote and
+                      count(w:rPr|w:endnoteRef) = count(*)'/>
+      <xsl:when test='w:footnoteRef'/> <!-- is a label supplied? -->
+      <xsl:when test='w:footnote|w:endnote'>
+        <dbk:footnote>
+          <xsl:apply-templates select='w:footnote|w:endnote'/>
+        </dbk:footnote>
+      </xsl:when>
+      <xsl:when test='$role != "" or $style != ""'>
+        <dbk:emphasis>
+          <xsl:if test='$role != ""'>
+            <xsl:attribute name='role'>
+              <xsl:value-of select='$role'/>
+            </xsl:attribute>
+          </xsl:if>
+          <xsl:if test='$style != ""'>
+            <xsl:attribute name='rnd:style'>
+              <xsl:call-template name='rnd:map-character-style'>
+                <xsl:with-param name='style' select='$style'/>
+              </xsl:call-template>
+            </xsl:attribute>
+          </xsl:if>
+          <xsl:apply-templates/>
+        </dbk:emphasis>
+      </xsl:when>
+      <xsl:otherwise>
+        <xsl:apply-templates/>
+      </xsl:otherwise>
+    </xsl:choose>
+  </xsl:template>
+
+  <!-- An application may wish to override these templates -->
+
+  <!-- rnd:image-filename determines the filename of the physical file
+       to which the image data should be written.
+    -->
+  <xsl:template name='rnd:image-filename'>
+    <xsl:param name='pict' select='w:pict'/>
+
+    <xsl:choose>
+      <xsl:when test='contains($pict/w:binData/@w:name, "wordml://")'>
+        <xsl:value-of select='substring-after($pict/w:binData/@w:name, "wordml://")'/>
+      </xsl:when>
+      <xsl:otherwise>
+        <xsl:text>image</xsl:text>
+        <xsl:value-of select='count($pict/preceding::w:pict) + 1'/>
+        <xsl:text>.jpg</xsl:text>
+      </xsl:otherwise>
+    </xsl:choose>
+  </xsl:template>
+
+  <!-- rnd:image-target determines the URL for the image data.
+       This may or may not be related to the physical filename.
+    -->
+  <xsl:template name='rnd:image-target'>
+    <xsl:param name='filename'/>
+    <xsl:param name='pict' select='w:pict'/>
+
+    <xsl:value-of select='$filename'/>
+  </xsl:template>
+
+  <!-- rnd:handle-image-data receives the base64-encoded data and a filename
+       for the physical file to which the data should be written.
+       Since XSLT cannot natively handle binary data, this implementation
+       just writes the undecoded data to the nominated file.
+       A real application would decode the data into a binary representation.
+    -->
+  <xsl:template name='rnd:handle-image-data'>
+    <xsl:param name='filename'/>
+    <xsl:param name='data'/>
+
+    <xsl:if test='element-available("exsl:document")'>
+      <exsl:document href='{$filename}.b64' method='text'>
+        <xsl:value-of select='w:pict/w:binData'/>
+      </exsl:document>
+    </xsl:if>
+  </xsl:template>
+
+  <xsl:template match='w:hlink'>
+    <dbk:link xlink:href='{@w:dest}'>
+      <xsl:apply-templates/>
+    </dbk:link>
+  </xsl:template>
+
+  <!-- Soft returns don't really have an equivalent in DocBook,
+     - except in literal line environments.
+    -->
+  <xsl:template match='w:br'>
+    <xsl:text>&#xa;</xsl:text>
+  </xsl:template>
+
+  <xsl:template match='w:tbl'>
+    <xsl:variable name='tbl.style'
+      select='key("style", w:tblPr/w:tblStyle/@w:val) | .'/>
+
+    <xsl:variable name='border.top'>
+      <xsl:choose>
+        <xsl:when test='$tbl.style/w:tblPr/w:tblBorders/w:top[not(@w:val = "nil" or @w:val = "none")]'>1</xsl:when>
+        <xsl:when test='$tbl.style/w:tblPr/w:tblBorders/w:top[@w:val = "nil" or @w:val = "none"]'>0</xsl:when>
+        <xsl:when test='w:tr[1]/w:tc[w:tcPr/w:tcBorders/w:top[not(@w:val = "nil" or @w:val = "none")]]'>1</xsl:when>
+        <xsl:otherwise>0</xsl:otherwise>
+      </xsl:choose>
+    </xsl:variable>
+    <xsl:variable name='border.bottom'>
+      <xsl:choose>
+        <xsl:when test='$tbl.style/w:tblPr/w:tblBorders/w:bottom[not(@w:val = "nil" or @w:val = "none")]'>1</xsl:when>
+        <xsl:when test='$tbl.style/w:tblPr/w:tblBorders/w:bottom[@w:val = "nil" or @w:val = "none"]'>0</xsl:when>
+        <xsl:when test='w:tr[1]/w:tc[w:tcPr/w:tcBorders/w:bottom[not(@w:val = "nil" or @w:val = "none")]]'>1</xsl:when>
+        <xsl:otherwise>0</xsl:otherwise>
+      </xsl:choose>
+    </xsl:variable>
+    <xsl:variable name='border.left'>
+      <xsl:choose>
+        <xsl:when test='$tbl.style/w:tblPr/w:tblBorders/w:left[not(@w:val = "nil" or @w:val = "none")]'>1</xsl:when>
+        <xsl:when test='$tbl.style/w:tblPr/w:tblBorders/w:left[@w:val = "nil" or @w:val = "none"]'>0</xsl:when>
+        <xsl:when test='w:tr[1]/w:tc[w:tcPr/w:tcBorders/w:left[not(@w:val = "nil" or @w:val = "none")]]'>1</xsl:when>
+        <xsl:otherwise>0</xsl:otherwise>
+      </xsl:choose>
+    </xsl:variable>
+    <xsl:variable name='border.right'>
+      <xsl:choose>
+        <xsl:when test='$tbl.style/w:tblPr/w:tblBorders/w:right[not(@w:val = "nil" or @w:val = "none")]'>1</xsl:when>
+        <xsl:when test='$tbl.style/w:tblPr/w:tblBorders/w:right[@w:val = "nil" or @w:val = "none"]'>0</xsl:when>
+        <xsl:when test='w:tr[1]/w:tc[w:tcPr/w:tcBorders/w:rightt[not(@w:val = "nil" or @w:val = "none")]]'>1</xsl:when>
+        <xsl:otherwise>0</xsl:otherwise>
+      </xsl:choose>
+    </xsl:variable>
+
+    <dbk:informaltable>
+      <xsl:choose>
+        <xsl:when test='$border.top = "1" and $border.bottom = "1" and
+                        $border.left = "1" and $border.right = "1"'>
+          <xsl:attribute name='frame'>all</xsl:attribute>
+        </xsl:when>
+        <xsl:when test='$border.top = "1" and $border.bottom = "1"'>
+          <xsl:attribute name='frame'>topbot</xsl:attribute>
+        </xsl:when>
+        <xsl:when test='$border.left = "1" and $border.right = "1"'>
+          <xsl:attribute name='frame'>sides</xsl:attribute>
+        </xsl:when>
+        <xsl:when test='$border.top = "1"'>
+          <xsl:attribute name='frame'>top</xsl:attribute>
+        </xsl:when>
+        <xsl:when test='$border.bottom = "1"'>
+          <xsl:attribute name='frame'>bottom</xsl:attribute>
+        </xsl:when>
+      </xsl:choose>
+
+      <!-- TODO: analyse column widths -->
+
+      <dbk:tgroup>
+        <xsl:apply-templates select='w:tblGrid'/>
+        <xsl:choose>
+          <xsl:when test='$tbl.style/w:tblStylePr[@w:type = "firstRow"]/w:trPr/w:tblHeader'>
+            <dbk:thead>
+              <xsl:apply-templates select='w:tr[1]'/>
+            </dbk:thead>
+            <dbk:tbody>
+              <xsl:apply-templates select='w:tr[position() != 1]'/>
+            </dbk:tbody>
+          </xsl:when>
+          <xsl:otherwise>
+            <dbk:tbody>
+              <xsl:apply-templates select='w:tr'/>
+            </dbk:tbody>
+          </xsl:otherwise>
+        </xsl:choose>
+      </dbk:tgroup>
+    </dbk:informaltable>
+  </xsl:template>
+  <xsl:template match='w:tblPr'/>
+  <xsl:template match='w:tblGrid/w:gridCol'>
+    <dbk:colspec colwidth='{@w:w}*'
+      colname='column-{count(preceding-sibling::w:gridCol) + 1}'/>
+  </xsl:template>
+  <xsl:template match='w:tr'>
+    <dbk:row>
+      <xsl:apply-templates/>
+    </dbk:row>
+  </xsl:template>
+  <xsl:template match='w:tc'>
+    <xsl:variable name='tbl.style'
+      select='ancestor::w:tbl[1] |
+              key("style", ancestor::w:tbl[1]/w:tblPr/w:tblStyle/@w:val)'/>
+
+    <dbk:entry>
+      <xsl:if test='$tbl.style/w:tblPr/w:tblBorders/w:insideH[not(@w:val = "nil" or @w:val = "none")] |
+                    w:tcPr/w:tcBorders/w:bottom[not(@w:val = "nil" or @w:val = "none")]'>
+        <xsl:attribute name='rowsep'>1</xsl:attribute>
+      </xsl:if>
+      <xsl:if test='$tbl.style/w:tblPr/w:tblBorders/w:insideV[not(@w:val = "nil" or @w:val = "none")] |
+                    w:tcPr/w:tcBorders/w:right[not(@w:val = "nil" or @w:val = "none")]'>
+        <xsl:attribute name='colsep'>1</xsl:attribute>
+      </xsl:if>
+
+      <xsl:variable name='this.colnum'
+        select='count(preceding-sibling::w:tc) + 1 +
+                sum(preceding-sibling::w:tc/w:tcPr/w:gridSpan/@w:val) -
+                count(preceding-sibling::w:tc/w:tcPr/w:gridSpan[@w:val])'/>
+
+      <xsl:if test='w:tcPr/w:gridSpan[@w:val > 1]'>
+        <xsl:attribute name='namest'>
+          <xsl:text>column-</xsl:text>
+          <xsl:value-of select='$this.colnum'/>
+        </xsl:attribute>
+        <xsl:attribute name='nameend'>
+          <xsl:text>column-</xsl:text>
+          <xsl:value-of select='$this.colnum + w:tcPr/w:gridSpan/@w:val - 1'/>
+        </xsl:attribute>
+      </xsl:if>
+
+      <xsl:if test='w:tcPr/w:vmerge[@w:val = "restart"]'>
+        <xsl:attribute name='morerows'>
+          <xsl:call-template name='rnd:count-rowspan'>
+            <xsl:with-param name='row' select='../following-sibling::w:tr[1]'/>
+            <xsl:with-param name='colnum' select='$this.colnum'/>
+          </xsl:call-template>
+        </xsl:attribute>
+      </xsl:if>
+
+      <xsl:apply-templates/>
+    </dbk:entry>
+  </xsl:template>
+
+  <xsl:template match='w:pStyle |
+                       w:rStyle |
+                       w:proofErr |
+                       w:fldData |
+                       w:instrText'/>
+
+  <xsl:template name='rnd:count-rowspan'>
+    <xsl:param name='row' select='/..'/>
+    <xsl:param name='colnum' select='0'/>
+
+    <xsl:variable name='cell'
+      select='$row/w:tc[count(preceding-sibling::w:tc) + 1 +
+              sum(preceding-sibling::w:tc/w:tcPr/w:gridSpan/@w:val) -
+              count(preceding-sibling::w:tc/w:tcPr/w:gridSpan[@w:val]) = $colnum]'/>
+
+    <xsl:choose>
+      <xsl:when test='not($cell)'>
+        <xsl:text>0</xsl:text>
+      </xsl:when>
+      <xsl:when test='$cell/w:tcPr/w:vmerge[not(@w:val = "restart")]'>
+        <xsl:variable name='remainder'>
+          <xsl:call-template name='rnd:count-rowspan'>
+            <xsl:with-param name='row'
+              select='$row/following-sibling::w:tr[1]'/>
+            <xsl:with-param name='colnum' select='$colnum'/>
+          </xsl:call-template>
+        </xsl:variable>
+        <xsl:value-of select='$remainder + 1'/>
+      </xsl:when>
+      <xsl:otherwise>0</xsl:otherwise>
+    </xsl:choose>
+  </xsl:template>
+
+  <xsl:template match='w:hdr|w:ftr'/>
+
+  <xsl:template match='aml:annotation'>
+    <xsl:choose>
+      <xsl:when test='@w:type = "Word.Deletion"'/>
+      <xsl:otherwise>
+        <xsl:apply-templates/>
+      </xsl:otherwise>
+    </xsl:choose>
+  </xsl:template>
+
+</xsl:stylesheet>