home *** CD-ROM | disk | FTP | other *** search
/ Freelog 52 / Freelog052.iso / Dossier / OpenOffice / f_0381 / style_mapping.xsl
Text File  |  2003-04-04  |  37KB  |  661 lines
  1. <!--
  2.  
  3.    The Contents of this file are made available subject to the terms of
  4.    either of the following licenses
  5.  
  6.           - GNU Lesser General Public License Version 2.1
  7.           - Sun Industry Standards Source License Version 1.1
  8.  
  9.    Sun Microsystems Inc., October, 2000
  10.  
  11.    GNU Lesser General Public License Version 2.1
  12.    =============================================
  13.    Copyright 2000 by Sun Microsystems, Inc.
  14.    901 San Antonio Road, Palo Alto, CA 94303, USA
  15.  
  16.    This library is free software; you can redistribute it and/or
  17.    modify it under the terms of the GNU Lesser General Public
  18.    License version 2.1, as published by the Free Software Foundation.
  19.  
  20.    This library is distributed in the hope that it will be useful,
  21.    but WITHOUT ANY WARRANTY; without even the implied warranty of
  22.    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  23.    Lesser General Public License for more details.
  24.  
  25.    You should have received a copy of the GNU Lesser General Public
  26.    License along with this library; if not, write to the Free Software
  27.    Foundation, Inc., 59 Temple Place, Suite 330, Boston,
  28.    MA  02111-1307  USA
  29.  
  30.  
  31.    Sun Industry Standards Source License Version 1.1
  32.    =================================================
  33.    The contents of this file are subject to the Sun Industry Standards
  34.    Source License Version 1.1 (the "License"); You may not use this file
  35.    except in compliance with the License. You may obtain a copy of the
  36.    License at http://www.openoffice.org/license.html.
  37.  
  38.    Software provided under this License is provided on an "AS IS" basis,
  39.    WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESS OR IMPLIED, INCLUDING,
  40.    WITHOUT LIMITATION, WARRANTIES THAT THE SOFTWARE IS FREE OF DEFECTS,
  41.    MERCHANTABLE, FIT FOR A PARTICULAR PURPOSE, OR NON-INFRINGING.
  42.    See the License for the specific provisions governing your rights and
  43.    obligations concerning the Software.
  44.  
  45.    The Initial Developer of the Original Code is: Sun Microsystems, Inc.
  46.  
  47.    Copyright ┬⌐ 2002 by Sun Microsystems, Inc.
  48.  
  49.    All Rights Reserved.
  50.  
  51.    Contributor(s): _______________________________________
  52.  
  53. -->
  54. <xsl:stylesheet version="1.0"
  55.                 xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
  56.                 xmlns:office="http://openoffice.org/2000/office"
  57.                 xmlns:style="http://openoffice.org/2000/style"
  58.                 xmlns:text="http://openoffice.org/2000/text"
  59.                 xmlns:table="http://openoffice.org/2000/table"
  60.                 xmlns:draw="http://openoffice.org/2000/drawing"
  61.                 xmlns:fo="http://www.w3.org/1999/XSL/Format"
  62.                 xmlns:xlink="http://www.w3.org/1999/xlink"
  63.                 xmlns:number="http://openoffice.org/2000/datastyle"
  64.                 xmlns:svg="http://www.w3.org/2000/svg"
  65.                 xmlns:chart="http://openoffice.org/2000/chart"
  66.                 xmlns:dr3d="http://openoffice.org/2000/dr3d"
  67.                 xmlns:math="http://www.w3.org/1998/Math/MathML"
  68.                 xmlns:form="http://openoffice.org/2000/form"
  69.                 xmlns:script="http://openoffice.org/2000/script"
  70.                 office:class="text"
  71.                 office:version="1.0"
  72.                 xmlns:dc="http://purl.org/dc/elements/1.1/"
  73.                 xmlns:meta="http://openoffice.org/2000/meta"
  74.                 xmlns:config="http://openoffice.org/2001/config"
  75.                 xmlns:help="http://openoffice.org/2000/help"
  76.                 xmlns:xt="http://www.jclark.com/xt"
  77.                 xmlns:system="http://www.jclark.com/xt/java/java.lang.System"
  78.                 xmlns:xalan="http://xml.apache.org/xalan"
  79.                 xmlns:java="http://xml.apache.org/xslt/java"
  80.                 exclude-result-prefixes="java">
  81.  
  82.  
  83.     <xsl:template name="write-style-properties">
  84.         <xsl:param name="styleAttributePath"/>
  85.  
  86.         <xsl:choose>
  87.             <!--+++++ CSS PROPERTIES  +++++-->
  88.             <xsl:when test="$outputType = 'CSS_HEADER' or $outputType = 'CSS_INLINED'">
  89.  
  90.                 <xsl:for-each select="$styleAttributePath">
  91.                 <!-- isDebugModeMESSAGE:
  92.                     <xsl:message> Name:<xsl:value-of select="name()"/> Value:<xsl:value-of select="."/></xsl:message>      -->
  93.  
  94.  
  95.                     <!-- <!ATTLIST style:properties style:horizontal-pos (from-left|left|center|right|from-inside|inside|outside)#IMPLIED>-->
  96.                     <!-- 2DO: is inside/from-inside also better showable ? -->
  97.                     <!-- !!!! 2DO: Still there have to be placed a <br clear='all'/> to disable the flow!!!!-->
  98.                     <!--           The OOo attribute 'style:number-wrapped-paragraphs' is currently ignored -->
  99.                     <xsl:choose>
  100.                         <xsl:when test='name(.)="style:wrap"'>
  101.                             <xsl:choose>
  102.                                 <xsl:when test='.="left"'>
  103.                                     <xsl:text>float: right; </xsl:text>
  104.                                 </xsl:when>
  105.                                 <xsl:when test='.="right"'>
  106.                                     <xsl:text>float: left; </xsl:text>
  107.                                 </xsl:when>
  108.                             </xsl:choose>
  109.                         </xsl:when>
  110.  
  111.                         <xsl:when test='name(.) = "style:horizontal-pos"'>
  112.                             <xsl:choose>
  113.                                 <xsl:when test='.="left"'>
  114.                                     <xsl:text>align: left; </xsl:text>
  115.                                 </xsl:when>
  116.                                 <xsl:when test='.="right"'>
  117.                                     <xsl:text>align: right; </xsl:text>
  118.                                 </xsl:when>
  119.                                 <xsl:when test='.="center"'>
  120.                                     <xsl:text>align: center; </xsl:text>
  121.                                 </xsl:when>
  122.                             </xsl:choose>
  123.                         </xsl:when>
  124. <!-- results into a bad view (overlapped) in Mozilla 1.0
  125.                         <xsl:when test='name(.) = "table:align"'>
  126.                             <xsl:choose>
  127.                                 <xsl:when test='.="left"'>
  128.                                     <xsl:text>float: right; </xsl:text>
  129.                                 </xsl:when>
  130.                                 <xsl:when test='.="right"'>
  131.                                     <xsl:text>float: left; </xsl:text>
  132.                                 </xsl:when>
  133.                             </xsl:choose>
  134.                         </xsl:when>
  135. -->
  136.  
  137.                         <!-- PADDING for all variations: fo:padding, fo:padding-top, fo:padding-bottom, fo:padding-left, fo:padding-right -->
  138.                         <xsl:when test='contains(name(.),"fo:padding")'>
  139.                             <xsl:text>padding: </xsl:text>
  140.                             <xsl:value-of select="."/>
  141.                             <xsl:text>; </xsl:text>
  142.                         </xsl:when>
  143.                         <!--
  144.                         fo:border
  145.                         fo:border-top
  146.                         fo:border-bottom
  147.                         fo:border-left
  148.                         fo:border-right
  149.  
  150.                             At present, all four borders must be set simultaneously by using either
  151.                             the fo:border property or by attaching all four of the other border
  152.                             properties to an item set element. In the latter case, if one or more
  153.                             of the properties is missing their values are assumed to be none. The
  154.                             only border styles supported are none or hidden, solid, and double. Any
  155.                             other border style specified is displayed as solid. Transparent borders
  156.                             are not supported and the border widths thin, medium, and thick are
  157.                             mapped to lengths. In addition, only some distinct border widths are
  158.                             supported. Unsupported widths are rounded up to the next supported
  159.                             width.
  160.                             If there are no padding properties specified within the same
  161.                             item set element, a default padding is used for sides that have a
  162.                             border. A value of 0cm is used for sides without a border.
  163.                             (cp. wd-so-xml-text.sdw)
  164.                         -->
  165.  
  166. <!--2DO START: change measurement equally -->
  167.                         <xsl:when test='name(.)="fo:border"'>
  168.                             <xsl:choose>
  169.                                 <!-- changing the distance measure: inch to in -->
  170.                                 <xsl:when test="contains(., 'ch')">
  171.                                     <xsl:text>border-width:</xsl:text><xsl:value-of select="substring-before(.,'ch ')"/><xsl:text>; </xsl:text>
  172.                                     <xsl:text>border-style:</xsl:text><xsl:value-of select="substring-before(substring-after(.,'ch '), ' ')"/><xsl:text>; </xsl:text>
  173.                                     <xsl:text>border-color:</xsl:text><xsl:value-of select="substring-after(substring-after(.,'ch '), ' ')"/><xsl:text>; </xsl:text>
  174.                                 </xsl:when>
  175.                                 <xsl:when test="contains(., 'cm')">
  176.                                     <xsl:text>border-width:</xsl:text><xsl:value-of select="substring-before(.,' ')"/><xsl:text>; </xsl:text>
  177.                                     <xsl:text>border-style:</xsl:text><xsl:value-of select="substring-before(substring-after(.,'cm '), ' ')"/><xsl:text>; </xsl:text>
  178.                                     <xsl:text>border-color:</xsl:text><xsl:value-of select="substring-after(substring-after(.,'cm '), ' ')"/><xsl:text>; </xsl:text>
  179.                                 </xsl:when>
  180.                                 <xsl:when test="contains(., 'pt')">
  181.                                     <xsl:text>border-width:</xsl:text><xsl:value-of select="substring-before(.,' ')"/><xsl:text>; </xsl:text>
  182.                                     <xsl:text>border-style:</xsl:text><xsl:value-of select="substring-before(substring-after(.,'pt '), ' ')"/><xsl:text>; </xsl:text>
  183.                                     <xsl:text>border-color:</xsl:text><xsl:value-of select="substring-after(substring-after(.,'pt '), ' ')"/><xsl:text>; </xsl:text>
  184.                                 </xsl:when>
  185.                             </xsl:choose>
  186.                         </xsl:when>
  187.                         <xsl:when test='name(.)="fo:border-top"'>
  188.                             <xsl:text>border-top: </xsl:text><xsl:value-of select="."/><xsl:text>; </xsl:text>
  189.                         </xsl:when>
  190.                         <xsl:when test='name(.)="fo:border-bottom"'>
  191.                             <xsl:text>border-bottom: </xsl:text><xsl:value-of select="."/><xsl:text>; </xsl:text>
  192.                         </xsl:when>
  193.                         <xsl:when test='name(.)="fo:border-left"'>
  194.                             <xsl:text>border-left: </xsl:text><xsl:value-of select="."/><xsl:text>; </xsl:text>
  195.                         </xsl:when>
  196.                         <xsl:when test='name(.)="fo:border-right"'>
  197.                             <xsl:text>border-right: </xsl:text><xsl:value-of select="."/><xsl:text>; </xsl:text>
  198.                         </xsl:when>
  199.                         <xsl:when test='name(.)="style:column-width"'>
  200.                             <xsl:choose>
  201.                                 <!-- changing the distance measure: inch to in -->
  202.                                 <xsl:when test="contains(., 'ch')">
  203.                                     <xsl:text>width:</xsl:text><xsl:value-of select="substring-before(.,'ch')"/><xsl:text>; </xsl:text>
  204.                                 </xsl:when>
  205.                                 <xsl:otherwise>
  206.                                     <xsl:text>width:</xsl:text><xsl:value-of select="."/><xsl:text>; </xsl:text>
  207.                                 </xsl:otherwise>
  208.                             </xsl:choose>
  209.                         </xsl:when>
  210.                         <xsl:when test='name(.)="style:row-height"'>
  211.                             <xsl:choose>
  212.                                 <!-- changing the distance measure: inch to in -->
  213.                                 <xsl:when test="contains(., 'ch')">
  214.                                     <xsl:text>height:</xsl:text><xsl:value-of select="substring-before(.,'ch')"/><xsl:text>; </xsl:text>
  215.                                 </xsl:when>
  216.                                 <xsl:otherwise>
  217.                                     <xsl:text>height:</xsl:text><xsl:value-of select="."/><xsl:text>; </xsl:text>
  218.                                 </xsl:otherwise>
  219.                             </xsl:choose>
  220.                         </xsl:when>
  221.                         <xsl:when test='name(.)="fo:width"'>
  222.                             <xsl:choose>
  223.                                 <!-- changing the distance measure: inch to in -->
  224.                                 <xsl:when test="contains(., 'ch')">
  225.                                     <xsl:text>width:</xsl:text><xsl:value-of select="substring-before(.,'ch')"/><xsl:text>; </xsl:text>
  226.                                 </xsl:when>
  227.                                 <xsl:otherwise>
  228.                                     <xsl:text>width:</xsl:text><xsl:value-of select="."/><xsl:text>; </xsl:text>
  229.                                 </xsl:otherwise>
  230.                             </xsl:choose>
  231.                         </xsl:when>
  232. <!--2DO END: change measurement equally -->
  233.                         <xsl:when test='name(.)="fo:font-style"'>
  234.                             <xsl:value-of select="substring-after(name(.), ':')"/><xsl:text>:</xsl:text><xsl:value-of select="."/><xsl:text>; </xsl:text>
  235.                         </xsl:when>
  236.                         <xsl:when test='name(.)="style:font-name"'>
  237.                             <xsl:text>font-family:</xsl:text>
  238.                                 <xsl:variable name="content" select="."/>
  239.                                 <xsl:value-of select="$office:font-decls/style:font-decl[@style:name=$content]/@fo:font-family"/>
  240.                             <xsl:text>; </xsl:text>
  241.                             <xsl:if test="contains($office:font-decls/style:font-decl[@style:name=$content]/@style:font-style-name, 'Italic')">
  242.                                 <xsl:text>font-style:italic; </xsl:text>
  243.                             </xsl:if>
  244.                             <xsl:if test="contains($office:font-decls/style:font-decl[@style:name=$content]/@style:font-style-name, 'Bold')">
  245.                                 <xsl:text>font-weight:bold; </xsl:text>
  246.                             </xsl:if>
  247.                         </xsl:when>
  248.                         <xsl:when test='name(.)="fo:font-weight"'>
  249.                             <xsl:value-of select="substring-after(name(.), ':')"/><xsl:text>:</xsl:text><xsl:value-of select="."/><xsl:text>; </xsl:text>
  250.                         </xsl:when>
  251.                         <xsl:when test='name(.)="fo:font-size"'>
  252.                             <xsl:value-of select="substring-after(name(.), ':')"/><xsl:text>:</xsl:text><xsl:value-of select="."/><xsl:text>; </xsl:text>
  253.                         </xsl:when>
  254.                         <xsl:when test='name(.)="fo:font-family"'>
  255.                             <xsl:value-of select="substring-after(name(.), ':')"/><xsl:text>:</xsl:text><xsl:value-of select="."/><xsl:text>; </xsl:text>
  256.                         </xsl:when>
  257.                         <xsl:when test='name(.)="fo:color"'>
  258.                             <xsl:value-of select="substring-after(name(.), ':')"/><xsl:text>:</xsl:text><xsl:value-of select="."/><xsl:text>; </xsl:text>
  259.                         </xsl:when>
  260.                         <xsl:when test='name(.)="fo:margin-left"'>
  261.                             <xsl:value-of select="substring-after(name(.), ':')"/><xsl:text>:</xsl:text><xsl:value-of select="."/><xsl:text>; </xsl:text>
  262.                         </xsl:when>
  263.                         <xsl:when test='name(.)="fo:margin-right"'>
  264.                             <xsl:value-of select="substring-after(name(.), ':')"/><xsl:text>:</xsl:text><xsl:value-of select="."/><xsl:text>; </xsl:text>
  265.                         </xsl:when>
  266.                         <xsl:when test='name(.)="fo:margin-top"'>
  267.                             <xsl:value-of select="substring-after(name(.), ':')"/><xsl:text>:</xsl:text><xsl:value-of select="."/><xsl:text>; </xsl:text>
  268.                         </xsl:when>
  269.                         <xsl:when test='name(.)="fo:margin-bottom"'>
  270.                             <xsl:value-of select="substring-after(name(.), ':')"/><xsl:text>:</xsl:text><xsl:value-of select="."/><xsl:text>; </xsl:text>
  271.                         </xsl:when>
  272.                         <xsl:when test='name(.)="fo:line-height"'>
  273.                             <xsl:value-of select="substring-after(name(.), ':')"/><xsl:text>:</xsl:text><xsl:value-of select="."/><xsl:text>; </xsl:text>
  274.                         </xsl:when>
  275.                         <xsl:when test='name(.)="fo:text-align"'>
  276.                             <!-- IMPORTANT is necessary as table cell value alignment is decided by runtime over the valuetype
  277.                                  Otherwise a table cell style-class will ALWAYS be overwritten by the run-time value -->
  278.                              <xsl:choose>
  279.                                 <xsl:when test="contains(., 'start')">
  280.                                     <xsl:text>text-align:left ! important; </xsl:text>
  281.                                 </xsl:when>
  282.                                 <xsl:when test="contains(., 'end')">
  283.                                     <xsl:text>text-align:right ! important; </xsl:text>
  284.                                 </xsl:when>
  285.                                 <xsl:otherwise>
  286.                                     <xsl:text>text-align:</xsl:text><xsl:value-of select='.'/><xsl:text> ! important; </xsl:text>
  287.                                 </xsl:otherwise>
  288.                              </xsl:choose>
  289.                         </xsl:when>
  290.                         <xsl:when test='name(.)="fo:text-indent"'>
  291.                             <xsl:value-of select="substring-after(name(.), ':')"/><xsl:text>:</xsl:text><xsl:value-of select="."/><xsl:text>; </xsl:text>
  292.                         </xsl:when>
  293.                         <xsl:when test='name(.)="style:text-background-color"'>
  294.                             <xsl:text>background-color:</xsl:text><xsl:value-of select="."/><xsl:text>; </xsl:text>
  295.                         </xsl:when>
  296.                         <xsl:when test='name(.)="fo:background-color"'>
  297.                             <xsl:text>background-color:</xsl:text><xsl:value-of select="."/><xsl:text>; </xsl:text>
  298.                         </xsl:when>
  299.                         <xsl:when test='name(.)="style:background-image"'>
  300.                             <xsl:text>background-image:url(</xsl:text><xsl:value-of select="@xlink:href"/><xsl:text>); </xsl:text>
  301.                             <xsl:choose>
  302.                                 <xsl:when test="@style:repeat = 'repeat'">
  303.                                     <xsl:text>background-repeat:repeat; </xsl:text>
  304.                                 </xsl:when>
  305.                                 <xsl:otherwise>
  306.                                     <xsl:text>background-repeat:no-repeat; </xsl:text>
  307.                                 </xsl:otherwise>
  308.                             </xsl:choose>
  309.                         </xsl:when>
  310.                         <!-- text-shadow is a CSS2 feature and yet not common used in user-agents -->
  311.                         <xsl:when test='name(.)="fo:text-shadow"'>
  312.                             <xsl:value-of select="substring-after(name(.), ':')"/><xsl:text>:</xsl:text><xsl:value-of select="."/><xsl:text>; </xsl:text>
  313.                         </xsl:when>
  314.                         <xsl:when test='name(.)="style:text-crossing-out"'>
  315.                             <xsl:if test='not(.="none")'>
  316.                                 <xsl:text>text-decoration:line-through; </xsl:text>
  317.                             </xsl:if>
  318.                         </xsl:when>
  319.                         <xsl:when test='name(.)="style:text-underline"'>
  320.                             <xsl:if test='not(.="none")'>
  321.                                 <xsl:text>text-decoration:underline; </xsl:text>
  322.                             </xsl:if>
  323.                         </xsl:when>
  324.                         <xsl:when test='name(.)="style:text-position"'>
  325.                             <xsl:if test='contains(., "sub")'>
  326.                                 <xsl:text>vertical-align:sub; </xsl:text>
  327.                             </xsl:if>
  328.                             <xsl:if test='contains(., "sup")'>
  329.                                 <xsl:text>vertical-align:sup; </xsl:text>
  330.                             </xsl:if>
  331.                         </xsl:when>
  332.                         <!-- isDebugModeMESSAGE:
  333.                         <xsl:otherwise>
  334.                                 <xsl:message>No transformation implemented for attribute-typ <xsl:value-of select="name(.)"/></xsl:message>
  335.                         </xsl:otherwise>-->
  336.                     </xsl:choose>
  337.                 </xsl:for-each>
  338.             </xsl:when>
  339.             <!--+++++ PALM 3.2 SUBSET AND WAP PROPERTIES  +++++-->
  340.             <xsl:otherwise>
  341.                 <xsl:for-each select="$styleAttributePath">
  342.                     <!-- isDebugModeMESSAGE:
  343.                     <xsl:message> Name:<xsl:value-of select="name()"/> Value:<xsl:value-of select="."/></xsl:message>      -->
  344.  
  345.                     <!-- BUG WORK AROUND:
  346.                     Due to a bug in the XT Processor, it is not possible to create serveral elements in variable and search over them,
  347.                     after explicit conversion to nodeset
  348.                     This generated sting identifier shall be later changed back to a set of elements
  349.                     -->
  350.                     <xsl:choose>
  351.                         <!--*** FORMAT ATTRIBUTES ***-->
  352.  
  353.                         <!-- Italic -->
  354.                         <xsl:when test='name(.)="fo:font-style"'>
  355.                             <xsl:if test="contains(., 'italic') or contains(., 'oblique')">
  356.                                 <xsl:text>italic, </xsl:text>
  357.                             </xsl:if>
  358.                         </xsl:when>
  359.  
  360.                         <!-- Boldface -->
  361.                         <xsl:when test='name(.)="fo:font-weight"'>
  362.                             <xsl:if test="contains(., 'bold') or contains(., 'bolder')">
  363.                                 <xsl:text>bold, </xsl:text>
  364.                             </xsl:if>
  365.                         </xsl:when>
  366.  
  367.                         <!-- Underline -->
  368.                         <xsl:when test='name(.)="style:text-underline"'>
  369.                             <xsl:text>underline, </xsl:text>
  370.                         </xsl:when>
  371.  
  372.                         <!-- Alignment -->
  373.                         <xsl:when test='name(.)="fo:text-align"'>
  374.                              <xsl:choose>
  375.                                 <xsl:when test="contains(., 'start')">
  376.                                     <xsl:text>align:left, </xsl:text>
  377.                                 </xsl:when>
  378.                                 <xsl:when test="contains(., 'end')">
  379.                                     <xsl:text>align:right, </xsl:text>
  380.                                 </xsl:when>
  381.                                 <xsl:when test="contains(., 'center')">
  382.                                     <xsl:text>align:center, </xsl:text>
  383.                                 </xsl:when>
  384.                              </xsl:choose>
  385.                         </xsl:when>
  386.  
  387.                         <!-- strikethrough -->
  388.                         <xsl:when test='name(.)="style:text-crossing-out"'>
  389.                             <xsl:text>strike, </xsl:text>
  390.                         </xsl:when>
  391.  
  392.                         <!-- Font - size (Palm: emulator transformed sizes to available set (e.g. 30 to (probably) 9)-->
  393.                         <xsl:when test='name(.)="fo:font-size"'>
  394.                             <xsl:text>size:</xsl:text><xsl:value-of select="."/><xsl:text>:size, </xsl:text>
  395.                         </xsl:when>
  396.  
  397.                         <!-- Font - Color (PALM: but mostly only 2 available)
  398.                             black (#000000)
  399.                             gray (#808080)(rendered as dark gray)
  400.                             silver (#C0C0C0)(rendered as light gray)
  401.                             white (#FFFFFF)-->
  402.                         <xsl:when test='name(.)="fo:color"'>
  403.                             <xsl:choose>
  404.                                 <xsl:when test="contains(. , '#FFFFFF') or contains(. , '#ffffff') or contains(. , 'white') or contains(. , 'WHITE')">
  405.                                     <xsl:text>color:#FFFFFF, </xsl:text>
  406.                                 </xsl:when>
  407.                                 <xsl:otherwise>
  408.                                     <xsl:text>color:#000000, </xsl:text>
  409.                                 </xsl:otherwise>
  410.                             </xsl:choose>
  411.                         </xsl:when>
  412.  
  413.  
  414.                         <!--*** TABLE ATTRIBUTES ***-->
  415.                         <xsl:when test='name(.)="fo:font-size"'>
  416.                             <xsl:text>size:</xsl:text><xsl:value-of select="."/><xsl:text>:size, </xsl:text>
  417.                         </xsl:when>
  418.                         <xsl:when test='name(.)="style:column-width"'>
  419.                             <xsl:choose>
  420.                                 <!-- changing the distance measure: inch to in -->
  421.                                 <xsl:when test="contains(., 'ch')">
  422.                                     <xsl:text>width:</xsl:text><xsl:value-of select="substring-before(.,'ch')"/><xsl:text>:width, </xsl:text>
  423.                                 </xsl:when>
  424.                                 <xsl:otherwise>
  425.                                     <xsl:text>width:</xsl:text><xsl:value-of select="."/><xsl:text>:width; </xsl:text>
  426.                                 </xsl:otherwise>
  427.                             </xsl:choose>
  428.                         </xsl:when>
  429.                         <xsl:when test='name(.)="style:row-height"'>
  430.                             <xsl:choose>
  431.                                 <!-- changing the distance measure: inch to in -->
  432.                                 <xsl:when test="contains(., 'ch')">
  433.                                     <xsl:text>height:</xsl:text><xsl:value-of select="substring-before(.,'ch')"/><xsl:text>:height; </xsl:text>
  434.                                 </xsl:when>
  435.                                 <xsl:otherwise>
  436.                                     <xsl:text>height:</xsl:text><xsl:value-of select="."/><xsl:text>:height; </xsl:text>
  437.                                 </xsl:otherwise>
  438.                             </xsl:choose>
  439.                         </xsl:when>
  440.                         <xsl:when test='name(.)="style:width"'> <!--earlier fo:width-->
  441.                             <xsl:choose>
  442.                                 <!-- changing the distance measure: inch to in -->
  443.                                 <xsl:when test="contains(., 'ch')">
  444.                                     <xsl:text>width:</xsl:text><xsl:value-of select="substring-before(.,'ch')"/><xsl:text>:width; </xsl:text>
  445.                                 </xsl:when>
  446.                                 <xsl:otherwise>
  447.                                     <xsl:text>width:</xsl:text><xsl:value-of select="."/><xsl:text>:width; </xsl:text>
  448.                                 </xsl:otherwise>
  449.                             </xsl:choose>
  450.                         </xsl:when>
  451.                     </xsl:choose>
  452.                 </xsl:for-each>
  453.             </xsl:otherwise>
  454.         </xsl:choose>
  455.     </xsl:template>
  456.  
  457.  
  458.  
  459. <!-- 2DO: NAMING CONVENTION variable are written with '-' instead of case-sensitive writing -->
  460.  
  461.  
  462.  
  463.     <!-- ***** MEASUREMENT CONVERSIONS *****
  464.  
  465.      * 1 centimeter = 10 mm
  466.  
  467.      * 1 inch = 25.4 mm
  468.         While the English have already seen the light (read: the metric system), the US
  469.         remains loyal to this medieval system.
  470.  
  471.      * 1 didot point = 0.376065 mm
  472.             The didot system originated in France but was used in most of Europe
  473.  
  474.      * 1 pica point = 0.35146 mm
  475.             The Pica points system was developed in England and is used in Great-Britain and the US.
  476.  
  477.      * 1 PostScript point = 0.35277138 mm
  478.             When Adobe created PostScript, they added their own system of points.
  479.             There are exactly 72 PostScript points in 1 inch.
  480.  
  481.      * 1 pixel = 0.26458333.. mm   (by 96 dpi)
  482.             Most pictures have the 96 dpi resolution, but the dpi variable may vary by stylesheet parameter
  483.     -->
  484.  
  485.  
  486.     <!-- changing measure to mm -->
  487.     <xsl:template name="convert2mm">
  488.         <xsl:param name="value"/>
  489.  
  490.         <xsl:param name="centimeter-in-mm"          select="10"/>
  491.         <xsl:param name="inch-in-mm"                select="25.4"/>
  492.         <xsl:param name="didot-point-in-mm"         select="0.376065"/>
  493.         <xsl:param name="pica-point-in-mm"          select="0.35146"/>
  494.  
  495.         <xsl:choose>
  496.             <xsl:when test="contains($value, 'cm')">
  497.                 <xsl:value-of select="round(number(substring-before($value,'cm' )) * $centimeter-in-mm)"/>
  498.             </xsl:when>
  499.             <xsl:when test="contains($value, 'in')">
  500.                 <xsl:value-of select="round(number(substring-before($value,'in' )) * $inch-in-mm)"/>
  501.             </xsl:when>
  502.             <xsl:when test="contains($value, 'dpt')">
  503.                 <xsl:value-of select="round(number(substring-before($value,'dpt')) * $didot-point-in-mm)"/>
  504.             </xsl:when>
  505.             <xsl:when test="contains($value, 'ppt')">
  506.                 <xsl:value-of select="round(number(substring-before($value,'ppt')) * $pica-point-in-mm)"/>
  507.             </xsl:when>
  508.             <xsl:otherwise>
  509.                 <xsl:value-of select="$value"/>
  510.             </xsl:otherwise>
  511.         </xsl:choose>
  512.     </xsl:template>
  513.  
  514.  
  515.     <!-- changing measure to cm -->
  516.     <xsl:template name="convert2cm">
  517.         <xsl:param name="value"/>
  518.  
  519.         <xsl:param name="centimeter-in-mm"          select="10"/>
  520.         <xsl:param name="inch-in-mm"                select="25.4"/>
  521.         <xsl:param name="didot-point-in-mm"         select="0.376065"/>
  522.         <xsl:param name="pica-point-in-mm"          select="0.35146"/>
  523.  
  524.         <xsl:choose>
  525.             <xsl:when test="contains($value, 'mm')">
  526.                 <xsl:value-of select="round(number(substring-before($value, 'mm')) div $centimeter-in-mm)"/>
  527.             </xsl:when>
  528.             <xsl:when test="contains($value, 'in')">
  529.                 <xsl:value-of select="round(number(substring-before($value, 'in')) div $centimeter-in-mm * $inch-in-mm)"/>
  530.             </xsl:when>
  531.             <xsl:when test="contains($value, 'dpt')">
  532.                 <xsl:value-of select="round(number(substring-before($value,'dpt')) div $centimeter-in-mm * $didot-point-in-mm)"/>
  533.             </xsl:when>
  534.             <xsl:when test="contains($value, 'ppt')">
  535.                 <xsl:value-of select="round(number(substring-before($value,'ppt')) div $centimeter-in-mm * $pica-point-in-mm)"/>
  536.             </xsl:when>
  537.             <xsl:otherwise>
  538.                 <xsl:value-of select="$value"/>
  539.             </xsl:otherwise>
  540.         </xsl:choose>
  541.     </xsl:template>
  542.  
  543.     <!-- changing measure to inch (cp. section comment) -->
  544.     <xsl:template name="convert2inch">
  545.         <xsl:param name="value"/>
  546.  
  547.         <xsl:param name="centimeter-in-mm"          select="10"/>
  548.         <xsl:param name="inch-in-mm"                select="25.4"/>
  549.         <xsl:param name="didot-point-in-mm"         select="0.376065"/>
  550.         <xsl:param name="pica-point-in-mm"          select="0.35146"/>
  551.  
  552.         <xsl:choose>
  553.             <xsl:when test="contains($value, 'mm')">
  554.                 <xsl:value-of select="round(number(substring-before($value, 'mm')) div $inch-in-mm)"/>
  555.             </xsl:when>
  556.             <xsl:when test="contains($value, 'cm')">
  557.                 <xsl:value-of select="round(number(substring-before($value, 'cm')) div $inch-in-mm * $centimeter-in-mm)"/>
  558.             </xsl:when>
  559.             <xsl:when test="contains($value, 'dpt')">
  560.                 <xsl:value-of select="round(number(substring-before($value,'dpt')) div $inch-in-mm * $didot-point-in-mm)"/>
  561.             </xsl:when>
  562.             <xsl:when test="contains($value, 'ppt')">
  563.                 <xsl:value-of select="round(number(substring-before($value,'ppt')) div $inch-in-mm * $pica-point-in-mm)"/>
  564.             </xsl:when>
  565.             <xsl:otherwise>
  566.                 <xsl:value-of select="$value"/>
  567.             </xsl:otherwise>
  568.         </xsl:choose>
  569.     </xsl:template>
  570.  
  571.  
  572.     <!-- changing measure to dpt (cp. section comment) -->
  573.     <xsl:template name="convert2dpt">
  574.         <xsl:param name="value"/>
  575.  
  576.         <xsl:param name="centimeter-in-mm"          select="10"/>
  577.         <xsl:param name="inch-in-mm"                select="25.4"/>
  578.         <xsl:param name="didot-point-in-mm"         select="0.376065"/>
  579.         <xsl:param name="pica-point-in-mm"          select="0.35146"/>
  580.  
  581.         <xsl:choose>
  582.             <xsl:when test="contains($value, 'mm')">
  583.                 <xsl:value-of select="round(number(substring-before($value, 'mm')) div $didot-point-in-mm)"/>
  584.             </xsl:when>
  585.             <xsl:when test="contains($value, 'cm')">
  586.                 <xsl:value-of select="round(number(substring-before($value, 'cm')) div $didot-point-in-mm * $centimeter-in-mm)"/>
  587.             </xsl:when>
  588.             <xsl:when test="contains($value, 'in')">
  589.                 <xsl:value-of select="round(number(substring-before($value, 'in')) div $didot-point-in-mm * $inch-in-mm)"/>
  590.             </xsl:when>
  591.             <xsl:when test="contains($value, 'ppt')">
  592.                 <xsl:value-of select="round(number(substring-before($value,'ppt')) div $didot-point-in-mm * $pica-point-in-mm)"/>
  593.             </xsl:when>
  594.             <xsl:otherwise>
  595.                 <xsl:value-of select="$value"/>
  596.             </xsl:otherwise>
  597.         </xsl:choose>
  598.  
  599.     </xsl:template>
  600.  
  601.  
  602.     <!-- changing measure to ppt (cp. section comment) -->
  603.     <xsl:template name="convert2ppt">
  604.         <xsl:param name="value"/>
  605.  
  606.         <xsl:param name="centimeter-in-mm"          select="10"/>
  607.         <xsl:param name="inch-in-mm"                select="25.4"/>
  608.         <xsl:param name="didot-point-in-mm"         select="0.376065"/>
  609.         <xsl:param name="pica-point-in-mm"          select="0.35146"/>
  610.  
  611.         <xsl:choose>
  612.             <xsl:when test="contains($value, 'mm')">
  613.                 <xsl:value-of select="round(number(substring-before($value, 'mm')) div $pica-point-in-mm)"/>
  614.             </xsl:when>
  615.             <xsl:when test="contains($value, 'cm')">
  616.                 <xsl:value-of select="round(number(substring-before($value, 'cm')) div $pica-point-in-mm * $centimeter-in-mm)"/>
  617.             </xsl:when>
  618.             <xsl:when test="contains($value, 'in')">
  619.                 <xsl:value-of select="round(number(substring-before($value, 'in')) div $pica-point-in-mm * $inch-in-mm)"/>
  620.             </xsl:when>
  621.             <xsl:when test="contains($value, 'dpt')">
  622.                 <xsl:value-of select="round(number(substring-before($value,'dpt')) div $pica-point-in-mm * $didot-point-in-mm)"/>
  623.             </xsl:when>
  624.             <xsl:otherwise>
  625.                 <xsl:value-of select="$value"/>
  626.             </xsl:otherwise>
  627.         </xsl:choose>
  628.     </xsl:template>
  629.  
  630.  
  631.     <!-- changing measure to pixel by via parameter provided dpi (dots per inch) standard factor (cp. section comment) -->
  632.     <xsl:template name="convert2pixel">
  633.         <xsl:param name="value"/>
  634.  
  635.         <xsl:param name="centimeter-in-mm"          select="10"/>
  636.         <xsl:param name="inch-in-mm"                select="25.4"/>
  637.         <xsl:param name="didot-point-in-mm"         select="0.376065"/>
  638.         <xsl:param name="pica-point-in-mm"          select="0.35146"/>
  639.         <xsl:param name="pixel-in-mm"               select="$inch-in-mm div $dpi"/>
  640.  
  641.         <xsl:choose>
  642.             <xsl:when test="contains($value, 'mm')">
  643.                 <xsl:value-of select="round(number(substring-before($value, 'mm')) div $pixel-in-mm)"/>
  644.             </xsl:when>
  645.             <xsl:when test="contains($value, 'cm')">
  646.                 <xsl:value-of select="round(number(substring-before($value, 'cm')) div $pixel-in-mm * $centimeter-in-mm)"/>
  647.             </xsl:when>
  648.             <xsl:when test="contains($value, 'in')">
  649.                 <xsl:value-of select="round(number(substring-before($value, 'in')) div $pixel-in-mm * $inch-in-mm)"/>
  650.             </xsl:when>
  651.             <xsl:when test="contains($value, 'dpt')">
  652.                 <xsl:value-of select="round(number(substring-before($value,'dpt')) div $pixel-in-mm * $didot-point-in-mm)"/>
  653.             </xsl:when>
  654.             <xsl:otherwise>
  655.                 <xsl:value-of select="$value"/>
  656.             </xsl:otherwise>
  657.         </xsl:choose>
  658.     </xsl:template>
  659.  
  660. </xsl:stylesheet>
  661.