| <?xml version="1.0" encoding="UTF-8"?> |
| <!--*********************************************************** |
| * |
| * Licensed to the Apache Software Foundation (ASF) under one |
| * or more contributor license agreements. See the NOTICE file |
| * distributed with this work for additional information |
| * regarding copyright ownership. The ASF licenses this file |
| * to you under the Apache License, Version 2.0 (the |
| * "License"); you may not use this file except in compliance |
| * with the License. You may obtain a copy of the License at |
| * |
| * http://www.apache.org/licenses/LICENSE-2.0 |
| * |
| * Unless required by applicable law or agreed to in writing, |
| * software distributed under the License is distributed on an |
| * "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY |
| * KIND, either express or implied. See the License for the |
| * specific language governing permissions and limitations |
| * under the License. |
| * |
| ***********************************************************--> |
| |
| |
| <xsl:stylesheet version="1.0" |
| xmlns:xsl="http://www.w3.org/1999/XSL/Transform" |
| xmlns:chart="urn:oasis:names:tc:opendocument:xmlns:chart:1.0" |
| xmlns:config="urn:oasis:names:tc:opendocument:xmlns:config:1.0" |
| xmlns:dc="http://purl.org/dc/elements/1.1/" |
| xmlns:dom="http://www.w3.org/2001/xml-events" |
| xmlns:dr3d="urn:oasis:names:tc:opendocument:xmlns:dr3d:1.0" |
| xmlns:draw="urn:oasis:names:tc:opendocument:xmlns:drawing:1.0" |
| xmlns:fo="urn:oasis:names:tc:opendocument:xmlns:xsl-fo-compatible:1.0" |
| xmlns:form="urn:oasis:names:tc:opendocument:xmlns:form:1.0" |
| xmlns:math="http://www.w3.org/1998/Math/MathML" |
| xmlns:meta="urn:oasis:names:tc:opendocument:xmlns:meta:1.0" |
| xmlns:number="urn:oasis:names:tc:opendocument:xmlns:datastyle:1.0" |
| xmlns:office="urn:oasis:names:tc:opendocument:xmlns:office:1.0" |
| xmlns:ooo="http://openoffice.org/2004/office" |
| xmlns:oooc="http://openoffice.org/2004/calc" |
| xmlns:ooow="http://openoffice.org/2004/writer" |
| xmlns:script="urn:oasis:names:tc:opendocument:xmlns:script:1.0" |
| xmlns:style="urn:oasis:names:tc:opendocument:xmlns:style:1.0" |
| xmlns:svg="urn:oasis:names:tc:opendocument:xmlns:svg-compatible:1.0" |
| xmlns:table="urn:oasis:names:tc:opendocument:xmlns:table:1.0" |
| xmlns:text="urn:oasis:names:tc:opendocument:xmlns:text:1.0" |
| xmlns:xlink="http://www.w3.org/1999/xlink" |
| xmlns:xt="http://www.jclark.com/xt" |
| xmlns:common="http://exslt.org/common" |
| xmlns:xalan="http://xml.apache.org/xalan" |
| xmlns="urn:schemas-microsoft-com:office:spreadsheet" xmlns:c="urn:schemas-microsoft-com:office:component:spreadsheet" xmlns:html="http://www.w3.org/TR/REC-html40" xmlns:o="urn:schemas-microsoft-com:office:office" xmlns:ss="urn:schemas-microsoft-com:office:spreadsheet" xmlns:x2="http://schemas.microsoft.com/office/excel/2003/xml" xmlns:x="urn:schemas-microsoft-com:office:excel" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" |
| exclude-result-prefixes="chart config dc dom dr3d draw fo form math meta number office ooo oooc ooow script style svg table text xlink xt common xalan"> |
| |
| |
| <!-- Mapping @table:formula to @ss:Formula translating the expression syntax --> |
| <xsl:template match="@table:formula"> |
| <xsl:param name="calculatedCellPosition" /> |
| <xsl:param name="calculatedRowPosition" /> |
| |
| <xsl:attribute name="ss:Formula"> |
| <xsl:call-template name="translate-formular-expression"> |
| <xsl:with-param name="rowPos" select="$calculatedRowPosition" /> |
| <xsl:with-param name="columnPos" select="$calculatedCellPosition" /> |
| <xsl:with-param name="expression" select="." /> |
| </xsl:call-template> |
| </xsl:attribute> |
| </xsl:template> |
| |
| |
| <!-- Translate OOOC formula expressions of table cells to spreadsheetml expression |
| |
| For example: |
| "oooc:=ROUNDDOWN(123.321;2)" |
| to "=ROUNDDOWN(123.321,2)" |
| "oooc:=([.B2]-[.C2])" |
| to "=(RC[-2]-RC[-1])" |
| "oooc:=DCOUNTA([.E14:.F21];[.F14];[.H14:.I15])" |
| to "=DCOUNTA(R[-17]C[3]:R[-10]C[4],R[-17]C[4],R[-17]C[6]:R[-16]C[7])" --> |
| <xsl:template name="translate-formular-expression"> |
| <!-- return position or range for formula or other --> |
| <xsl:param name="rowPos" /> <!-- the position in row (vertical) of cell --> |
| <xsl:param name="columnPos" /> <!-- the position in column (horizontal of cell) --> |
| <xsl:param name="expression" /> <!-- the expression string to be converted --> |
| |
| <xsl:choose> |
| <xsl:when test="$expression != ''"> |
| <xsl:choose> |
| <!-- OASIS Open Document XML formular expressions --> |
| <xsl:when test="starts-with($expression,'oooc:')"> |
| <!-- giving out the '=', which will be removed with 'oooc:=' to enable recursive string parsing --> |
| <xsl:text>=</xsl:text> |
| <xsl:call-template name="function-parameter-mapping"> |
| <xsl:with-param name="rowPos" select="$rowPos" /> |
| <xsl:with-param name="columnPos" select="$columnPos" /> |
| <!-- 1) remove 'oooc:=' prefix and exchange ';' with ',' --> |
| <xsl:with-param name="expression" select="translate(substring($expression,7),';',',')"/> |
| </xsl:call-template> |
| </xsl:when> |
| <xsl:otherwise> |
| <xsl:value-of select="$expression" /> |
| </xsl:otherwise> |
| </xsl:choose> |
| </xsl:when> |
| <xsl:otherwise> |
| <xsl:value-of select="$expression" /> |
| </xsl:otherwise> |
| </xsl:choose> |
| </xsl:template> |
| |
| <!-- As the function API of our Office and MS Office show differences in the argumentlists, |
| - sometimes the last parameter have to be neglected |
| - sometimes a default have to be added |
| these exchanges have to be done as well --> |
| <xsl:template name="function-parameter-mapping"> |
| <xsl:param name="rowPos" /> <!-- the position in row (vertical of cell) --> |
| <xsl:param name="columnPos" /> <!-- the position in column (horizontal of cell) --> |
| <xsl:param name="expression" /> <!-- expression to be exchanged --> |
| |
| <!-- Choose if the expression contains one of the function, which might need changes --> |
| <xsl:choose> |
| <!-- if not contain one of the functions, which need parameter mapping --> |
| <xsl:when test="not(contains($expression, 'ADDRESS(') or |
| contains($expression, 'CEILING(') or |
| contains($expression, 'FLOOR(') or |
| contains($expression, 'IF(') or |
| contains($expression, 'ROUND('))"> |
| <!-- simply translate possily exisiting column & row references --> |
| <xsl:call-template name="translate-oooc-expression"> |
| <xsl:with-param name="rowPos" select="$rowPos" /> |
| <xsl:with-param name="columnPos" select="$columnPos" /> |
| <xsl:with-param name="expression" select="$expression"/> |
| </xsl:call-template> |
| </xsl:when> |
| <!-- functions to be mapped --> |
| <xsl:otherwise> |
| <xsl:variable name="functionPrefix" select="substring-before($expression, '(')" /> |
| <xsl:variable name="expressionSuffix" select="substring-after($expression, '(')" /> |
| |
| <!-- translate in case the expression contains row/cell references aside of the function name --> |
| <xsl:call-template name="translate-oooc-expression"> |
| <xsl:with-param name="rowPos" select="$rowPos" /> |
| <xsl:with-param name="columnPos" select="$columnPos" /> |
| <xsl:with-param name="expression" select="$functionPrefix"/> |
| </xsl:call-template> |
| <!-- Prefix do not include the bracket --> |
| <xsl:text>(</xsl:text> |
| <xsl:choose> |
| <xsl:when test="not(contains($functionPrefix, 'ADDRESS') or |
| contains($functionPrefix, 'CEILING') or |
| contains($functionPrefix, 'FLOOR') or |
| (contains($functionPrefix, 'IF') and not( |
| contains($functionPrefix, 'COUNTIF') or |
| contains($functionPrefix, 'SUMIF'))) or |
| contains($functionPrefix, 'ROUND'))"> |
| <xsl:call-template name="function-parameter-mapping"> |
| <xsl:with-param name="rowPos" select="$rowPos" /> |
| <xsl:with-param name="columnPos" select="$columnPos" /> |
| <xsl:with-param name="expression" select="$expressionSuffix"/> |
| </xsl:call-template> |
| </xsl:when> |
| <xsl:otherwise> |
| <xsl:choose> |
| <xsl:when test="contains($functionPrefix, 'ADDRESS')"> |
| <xsl:call-template name="find-parameters"> |
| <xsl:with-param name="rowPos" select="$rowPos" /> |
| <xsl:with-param name="columnPos" select="$columnPos" /> |
| <xsl:with-param name="expressionSuffix" select="$expressionSuffix"/> |
| <xsl:with-param name="parameterRemoval" select="4" /> |
| </xsl:call-template> |
| </xsl:when> |
| <xsl:when test="contains($functionPrefix, 'CEILING') or |
| contains($functionPrefix, 'FLOOR')"> |
| <xsl:call-template name="find-parameters"> |
| <xsl:with-param name="rowPos" select="$rowPos" /> |
| <xsl:with-param name="columnPos" select="$columnPos" /> |
| <xsl:with-param name="expressionSuffix" select="$expressionSuffix"/> |
| <xsl:with-param name="parameterRemoval" select="3" /> |
| </xsl:call-template> |
| </xsl:when> |
| <xsl:when test="contains($functionPrefix, 'IF')"> |
| <xsl:if test="not(contains($functionPrefix, 'COUNTIF') or |
| contains($functionPrefix, 'SUMIF'))"> |
| <xsl:call-template name="find-parameters"> |
| <xsl:with-param name="rowPos" select="$rowPos" /> |
| <xsl:with-param name="columnPos" select="$columnPos" /> |
| <xsl:with-param name="expressionSuffix" select="$expressionSuffix"/> |
| <xsl:with-param name="parameterAddition" select="'true'" /> |
| <xsl:with-param name="additonAfterLastParameter" select="2" /> |
| </xsl:call-template> |
| </xsl:if> |
| </xsl:when> |
| <xsl:when test="contains($functionPrefix, 'ROUND')"> |
| <xsl:call-template name="find-parameters"> |
| <xsl:with-param name="rowPos" select="$rowPos" /> |
| <xsl:with-param name="columnPos" select="$columnPos" /> |
| <xsl:with-param name="expressionSuffix" select="$expressionSuffix"/> |
| <xsl:with-param name="parameterAddition" select="'null'" /> |
| <xsl:with-param name="additonAfterLastParameter" select="1" /> |
| </xsl:call-template> |
| </xsl:when> |
| </xsl:choose> |
| </xsl:otherwise> |
| </xsl:choose> |
| </xsl:otherwise> |
| </xsl:choose> |
| </xsl:template> |
| |
| <!-- Each parameter of the argumentlist have to be determined. |
| Due to the low level string functionlity in XSLT it becomes a clumsy task --> |
| <xsl:template name="find-parameters"> |
| <!-- used for mapping of row/column reference --> |
| <xsl:param name="rowPos" /> <!-- the position in row (vertical of cell) --> |
| <xsl:param name="columnPos" /> <!-- the position in column (horizontal of cell) --> |
| <!-- used for mapping of parameter --> |
| <xsl:param name="parameterRemoval" /> |
| <xsl:param name="parameterAddition" /> |
| <xsl:param name="additonAfterLastParameter" /> |
| <!-- used as helper to find a parameter --> |
| <xsl:param name="expressionSuffix" /> |
| <xsl:param name="parameterNumber" select="1" /> |
| |
| <xsl:variable name="parameter"> |
| <xsl:call-template name="getParameter"> |
| <xsl:with-param name="expressionSuffix" select="$expressionSuffix"/> |
| </xsl:call-template> |
| </xsl:variable> |
| |
| <xsl:choose> |
| <!-- if it is not the last parameter --> |
| <xsl:when test="starts-with(substring-after($expressionSuffix, $parameter), ',')"> |
| <!-- searches the argument for functions to be mapped --> |
| <xsl:if test="not($parameterRemoval = $parameterNumber)"> |
| <xsl:call-template name="function-parameter-mapping"> |
| <xsl:with-param name="rowPos" select="$rowPos" /> |
| <xsl:with-param name="columnPos" select="$columnPos" /> |
| <xsl:with-param name="expression"> |
| <xsl:choose> |
| <!-- in case a character will be removed the preceding won't make a comma --> |
| <xsl:when test="$parameterRemoval = ($parameterNumber + 1)"> |
| <xsl:value-of select="$parameter" /> |
| </xsl:when> |
| <xsl:otherwise> |
| <xsl:value-of select="concat($parameter, ',')" /> |
| </xsl:otherwise> |
| </xsl:choose> |
| </xsl:with-param> |
| </xsl:call-template> |
| </xsl:if> |
| <!-- searches for the next parameter --> |
| <xsl:call-template name="find-parameters"> |
| <xsl:with-param name="rowPos" select="$rowPos" /> |
| <xsl:with-param name="columnPos" select="$columnPos" /> |
| <xsl:with-param name="expressionSuffix" select="substring-after(substring-after($expressionSuffix, $parameter),',')"/> |
| <xsl:with-param name="parameterAddition" select="$parameterAddition" /> |
| <xsl:with-param name="parameterRemoval" select="$parameterRemoval" /> |
| <xsl:with-param name="additonAfterLastParameter" select="$additonAfterLastParameter" /> |
| <xsl:with-param name="parameterNumber" select="$parameterNumber + 1" /> |
| </xsl:call-template> |
| </xsl:when> |
| <xsl:otherwise> |
| <!-- the last parameter --> |
| <xsl:choose> |
| <xsl:when test="$parameterRemoval = $parameterNumber"> |
| <!-- searches the rest of the expression for functions to be mapped --> |
| <xsl:call-template name="function-parameter-mapping"> |
| <xsl:with-param name="rowPos" select="$rowPos" /> |
| <xsl:with-param name="columnPos" select="$columnPos" /> |
| <xsl:with-param name="expression" select="substring-after($expressionSuffix, $parameter)"/> |
| </xsl:call-template> |
| </xsl:when> |
| <xsl:when test="$parameterAddition and ($parameterNumber = $additonAfterLastParameter)"> |
| <!-- searches the rest of the expression for functions to be mapped --> |
| <xsl:call-template name="function-parameter-mapping"> |
| <xsl:with-param name="rowPos" select="$rowPos" /> |
| <xsl:with-param name="columnPos" select="$columnPos" /> |
| <xsl:with-param name="expression" select="$parameter" /> |
| </xsl:call-template> |
| <!-- searches last parameter and additional parameters for functions to be mapped --> |
| <xsl:call-template name="function-parameter-mapping"> |
| <xsl:with-param name="rowPos" select="$rowPos" /> |
| <xsl:with-param name="columnPos" select="$columnPos" /> |
| <!-- for the final parameter the latter substring is the ')' --> |
| <xsl:with-param name="expression" select="concat(',', $parameterAddition, substring-after($expressionSuffix, $parameter))"/> |
| </xsl:call-template> |
| </xsl:when> |
| <xsl:otherwise> |
| <!-- searches the argument for functions to be mapped --> |
| <xsl:call-template name="function-parameter-mapping"> |
| <xsl:with-param name="rowPos" select="$rowPos" /> |
| <xsl:with-param name="columnPos" select="$columnPos" /> |
| <xsl:with-param name="expression" select="$parameter" /> |
| </xsl:call-template> |
| <!-- searches the rest of the expression for functions to be mapped --> |
| <xsl:call-template name="function-parameter-mapping"> |
| <xsl:with-param name="rowPos" select="$rowPos" /> |
| <xsl:with-param name="columnPos" select="$columnPos" /> |
| <xsl:with-param name="expression" select="substring-after($expressionSuffix, $parameter)"/> |
| </xsl:call-template> |
| </xsl:otherwise> |
| </xsl:choose> |
| </xsl:otherwise> |
| </xsl:choose> |
| </xsl:template> |
| |
| <xsl:template name="getParameter"> |
| <xsl:param name="closingBracketCount" select="0" /> |
| <xsl:param name="openingBracketCount" select="0" /> |
| <xsl:param name="expressionSuffix" /> |
| <xsl:param name="parameterCandidate"> |
| <xsl:choose> |
| <!-- if there are multiple parameter --> |
| <xsl:when test="contains(substring-before($expressionSuffix, ')'), ',')"> |
| <xsl:value-of select="substring-before($expressionSuffix, ',')"/> |
| </xsl:when> |
| <xsl:otherwise> |
| <xsl:value-of select="substring-before($expressionSuffix, ')')"/> |
| </xsl:otherwise> |
| </xsl:choose> |
| </xsl:param> |
| <xsl:param name="earlierCandidate" select="$parameterCandidate" /> |
| |
| <xsl:choose> |
| <xsl:when test="contains($parameterCandidate, '(') or contains($parameterCandidate, ')')"> |
| <xsl:choose> |
| <!-- contains only closing bracket(s) --> |
| <xsl:when test="contains($parameterCandidate, '(') and not(contains($parameterCandidate, ')'))"> |
| <xsl:call-template name="getParameter"> |
| <xsl:with-param name="openingBracketCount" select="$openingBracketCount + 1" /> |
| <xsl:with-param name="closingBracketCount" select="$closingBracketCount" /> |
| <xsl:with-param name="parameterCandidate" select="substring-after($parameterCandidate, '(')" /> |
| <xsl:with-param name="earlierCandidate" select="$earlierCandidate" /> |
| <xsl:with-param name="expressionSuffix" select="$expressionSuffix"/> |
| </xsl:call-template> |
| </xsl:when> |
| <!-- contains only opening bracket(s) --> |
| <xsl:when test="not(contains($parameterCandidate, '(')) and contains($parameterCandidate, ')')"> |
| <xsl:call-template name="getParameter"> |
| <xsl:with-param name="openingBracketCount" select="$openingBracketCount" /> |
| <xsl:with-param name="closingBracketCount" select="$closingBracketCount + 1" /> |
| <xsl:with-param name="parameterCandidate" select="substring-after($parameterCandidate, ')')" /> |
| <xsl:with-param name="earlierCandidate" select="$earlierCandidate" /> |
| <xsl:with-param name="expressionSuffix" select="$expressionSuffix"/> |
| </xsl:call-template> |
| </xsl:when> |
| <xsl:otherwise> |
| <xsl:choose> |
| <xsl:when test="string-length(substring-before($parameterCandidate, '(')) < |
| string-length(substring-before($parameterCandidate, ')'))"> |
| <xsl:call-template name="getParameter"> |
| <xsl:with-param name="openingBracketCount" select="$openingBracketCount + 1" /> |
| <xsl:with-param name="closingBracketCount" select="$closingBracketCount" /> |
| <xsl:with-param name="parameterCandidate" select="substring-after($parameterCandidate, '(')" /> |
| <xsl:with-param name="earlierCandidate" select="$earlierCandidate" /> |
| <xsl:with-param name="expressionSuffix" select="$expressionSuffix"/> |
| </xsl:call-template> |
| </xsl:when> |
| <xsl:otherwise> |
| <xsl:call-template name="getParameter"> |
| <xsl:with-param name="openingBracketCount" select="$openingBracketCount" /> |
| <xsl:with-param name="closingBracketCount" select="$closingBracketCount + 1" /> |
| <xsl:with-param name="parameterCandidate" select="substring-after($parameterCandidate, ')')" /> |
| <xsl:with-param name="earlierCandidate" select="$earlierCandidate" /> |
| <xsl:with-param name="expressionSuffix" select="$expressionSuffix"/> |
| </xsl:call-template> |
| </xsl:otherwise> |
| </xsl:choose> |
| </xsl:otherwise> |
| </xsl:choose> |
| </xsl:when> |
| <xsl:otherwise> |
| <xsl:choose> |
| <xsl:when test="$openingBracketCount = $closingBracketCount"> |
| <xsl:value-of select="$earlierCandidate" /> |
| </xsl:when> |
| <xsl:otherwise> |
| <xsl:value-of select="$earlierCandidate" /> |
| <xsl:variable name="parameterCandidate2"> |
| <xsl:variable name="formularAfterCandidate" select="substring-after($expressionSuffix, $earlierCandidate)" /> |
| <xsl:variable name="parameterTillBracket" select="concat(substring-before($formularAfterCandidate,')'),')')" /> |
| <xsl:variable name="parameterTillComma" select="substring-before(substring-after($expressionSuffix, $parameterTillBracket),',')" /> |
| <xsl:choose> |
| <xsl:when test="string-length($parameterTillComma) > 0 and |
| not(contains($parameterTillComma, '('))"> |
| <xsl:choose> |
| <xsl:when test="starts-with($formularAfterCandidate, ',')"> |
| <xsl:value-of select="concat(',',substring-before(substring-after($formularAfterCandidate,','),','))"/> |
| </xsl:when> |
| <xsl:otherwise> |
| <xsl:value-of select="substring-before($formularAfterCandidate,',')"/> |
| </xsl:otherwise> |
| </xsl:choose> |
| </xsl:when> |
| <xsl:otherwise> |
| <xsl:value-of select="$parameterTillBracket"/> |
| </xsl:otherwise> |
| </xsl:choose> |
| </xsl:variable> |
| <xsl:call-template name="getParameter"> |
| <xsl:with-param name="closingBracketCount" select="$closingBracketCount" /> |
| <xsl:with-param name="openingBracketCount" select="$openingBracketCount" /> |
| <xsl:with-param name="parameterCandidate" select="$parameterCandidate2" /> |
| <xsl:with-param name="earlierCandidate" select="$parameterCandidate2" /> |
| <xsl:with-param name="expressionSuffix" select="$expressionSuffix" /> |
| </xsl:call-template> |
| </xsl:otherwise> |
| </xsl:choose> |
| </xsl:otherwise> |
| </xsl:choose> |
| </xsl:template> |
| |
| <!-- Mapping table-cell definitions by exchangomg all table cell definitions: |
| a) a pair of cells e.g. "[.E14:.F21]" to "R[-17]C[3]:R[-10]C[4]" |
| b) a single cell e.g. "[.F14]" to "R[-17]"--> |
| <xsl:template name="translate-oooc-expression"> |
| <xsl:param name="rowPos" /> <!-- the position in row (vertical of cell) --> |
| <xsl:param name="columnPos" /> <!-- the position in column (horizontal of cell) --> |
| <xsl:param name="expression" /> <!-- expression to be exchanged --> |
| |
| <xsl:choose> |
| <xsl:when test="contains($expression, '[')"> |
| |
| <!-- Giving out the part before '[.' --> |
| <xsl:value-of select="substring-before($expression, '[')" /> |
| |
| <!-- Mapping cell definitions |
| 1) a pair of cells e.g. "[.E14:.F21]" to "R[-17]C[3]:R[-10]C[4]" |
| 2) a single cell e.g. "[.F14]" to "R[-17]"--> |
| <xsl:variable name="remainingExpression" select="substring-after($expression, '[')"/> |
| <xsl:choose> |
| <xsl:when test="contains(substring-before($remainingExpression, ']'), ':')"> |
| <xsl:call-template name="translate-cell-expression"> |
| <xsl:with-param name="rowPos" select="$rowPos" /> |
| <xsl:with-param name="columnPos" select="$columnPos" /> |
| <xsl:with-param name="expression" select="substring-before($remainingExpression, ':')" /> |
| </xsl:call-template> |
| <xsl:value-of select="':'" /> |
| <xsl:call-template name="translate-cell-expression"> |
| <xsl:with-param name="rowPos" select="$rowPos" /> |
| <xsl:with-param name="columnPos" select="$columnPos" /> |
| <xsl:with-param name="expression" select="substring-after(substring-before($remainingExpression, ']'), ':')" /> |
| </xsl:call-template> |
| </xsl:when> |
| <xsl:otherwise> |
| <xsl:call-template name="translate-cell-expression"> |
| <xsl:with-param name="rowPos" select="$rowPos" /> |
| <xsl:with-param name="columnPos" select="$columnPos" /> |
| <xsl:with-param name="expression" select="substring-before($remainingExpression, ']')" /> |
| </xsl:call-template> |
| </xsl:otherwise> |
| </xsl:choose> |
| <xsl:call-template name="translate-oooc-expression"> |
| <xsl:with-param name="rowPos" select="$rowPos" /> |
| <xsl:with-param name="columnPos" select="$columnPos" /> |
| <xsl:with-param name="expression" select="substring-after($remainingExpression,']')"/> |
| </xsl:call-template> |
| </xsl:when> |
| <xsl:otherwise> |
| <!-- Giving out the remaining part --> |
| <xsl:value-of select="$expression" /> |
| </xsl:otherwise> |
| </xsl:choose> |
| </xsl:template> |
| |
| |
| <!-- A cell expression has usually starts with a '.' otherwise it references to a sheet --> |
| <xsl:template name="translate-cell-expression"> |
| <xsl:param name="rowPos" /> <!-- the vertical position of the current cell --> |
| <xsl:param name="columnPos" /> <!-- the horizontal position of the current cell --> |
| <xsl:param name="targetRowPos" select="0"/> <!-- the vertical position of the target cell --> |
| <xsl:param name="targetColumnPos" select="0"/> <!-- the horizontal position of the target cell --> |
| <xsl:param name="charPos" select="0"/> <!-- current column position (needed for multiplying) --> |
| <xsl:param name="digitPos" select="0"/> <!-- current row position (needed for multiplying) --> |
| <xsl:param name="expression" /> <!-- expression to be parsed by character --> |
| <xsl:param name="isRow" select="true()"/> <!-- the string (e.g. $D39 is parsed character per character from the back, |
| first the row, later the column is parsed --> |
| |
| <xsl:choose> |
| <xsl:when test="starts-with($expression, '.')"> |
| <xsl:variable name="expLength" select="string-length($expression)" /> |
| <xsl:choose> |
| <!-- parsing from the end, till only the '.' remains --> |
| <xsl:when test="$expLength != 1"> |
| <xsl:variable name="token" select="substring($expression, $expLength)" /> |
| <xsl:choose> |
| <xsl:when test="$token='0' or $token='1' or $token='2' or $token='3' or $token='4' or $token='5' or $token='6' or $token='7' or $token='8' or $token='9'"> |
| <xsl:variable name="multiplier"> |
| <xsl:call-template name="calculate-square-numbers"> |
| <xsl:with-param name="base" select="10" /> |
| <xsl:with-param name="exponent" select="$digitPos"/> |
| </xsl:call-template> |
| </xsl:variable> |
| <xsl:call-template name="translate-cell-expression"> |
| <xsl:with-param name="columnPos" select="$columnPos" /> |
| <xsl:with-param name="rowPos" select="$rowPos" /> |
| <xsl:with-param name="targetColumnPos" select="$targetColumnPos" /> |
| <xsl:with-param name="targetRowPos" select="$targetRowPos + $multiplier * $token" /> |
| <xsl:with-param name="digitPos" select="$digitPos + 1" /> |
| <xsl:with-param name="charPos" select="$charPos" /> |
| <!-- removing the last character--> |
| <xsl:with-param name="expression" select="substring($expression, 1, $expLength - 1)" /> |
| <xsl:with-param name="isRow" select="true()" /> |
| </xsl:call-template> |
| </xsl:when> |
| <xsl:when test="$token = '$'"> |
| <xsl:choose> |
| <!-- if this is the first '$' after '.' (column--> |
| <xsl:when test="$expLength = 2"> |
| <xsl:text>C</xsl:text><xsl:value-of select="$targetColumnPos"/> |
| </xsl:when> |
| <xsl:otherwise> |
| <xsl:text>R</xsl:text><xsl:value-of select="$targetRowPos"/> |
| <xsl:call-template name="translate-cell-expression"> |
| <xsl:with-param name="columnPos" select="$columnPos" /> |
| <xsl:with-param name="rowPos" select="$rowPos" /> |
| <xsl:with-param name="targetColumnPos" select="$targetColumnPos" /> |
| <xsl:with-param name="targetRowPos" select="$targetRowPos" /> |
| <xsl:with-param name="charPos" select="$charPos" /> |
| <!-- removing the last character--> |
| <xsl:with-param name="expression" select="substring($expression, 1, $expLength - 1)" /> |
| <xsl:with-param name="isRow" select="false()" /> |
| </xsl:call-template> |
| </xsl:otherwise> |
| </xsl:choose> |
| </xsl:when> |
| <!-- in case of a letter --> |
| <xsl:otherwise> |
| <xsl:if test="$isRow"> |
| <xsl:text>R</xsl:text> |
| <xsl:if test="$targetRowPos != $rowPos"> |
| <xsl:text>[</xsl:text><xsl:value-of select="$targetRowPos - $rowPos"/><xsl:text>]</xsl:text> |
| </xsl:if> |
| </xsl:if> |
| <xsl:variable name="multiplier"> |
| <xsl:call-template name="calculate-square-numbers"> |
| <xsl:with-param name="base" select="26" /> |
| <xsl:with-param name="exponent" select="$charPos"/> |
| </xsl:call-template> |
| </xsl:variable> |
| <xsl:variable name="tokenNumber"> |
| <xsl:call-template name="character-to-number"> |
| <xsl:with-param name="character" select="$token" /> |
| </xsl:call-template> |
| </xsl:variable> |
| |
| <xsl:call-template name="translate-cell-expression"> |
| <xsl:with-param name="columnPos" select="$columnPos" /> |
| <xsl:with-param name="rowPos" select="$rowPos" /> |
| <xsl:with-param name="targetColumnPos" select="$targetColumnPos + $multiplier * $tokenNumber" /> |
| <xsl:with-param name="targetRowPos" select="$targetRowPos" /> |
| <xsl:with-param name="digitPos" select="$digitPos" /> |
| <xsl:with-param name="charPos" select="$charPos + 1" /> |
| <!-- removing the last character--> |
| <xsl:with-param name="expression" select="substring($expression, 1, $expLength - 1)" /> |
| <xsl:with-param name="isRow" select="false()" /> |
| </xsl:call-template> |
| </xsl:otherwise> |
| </xsl:choose> |
| </xsl:when> |
| <xsl:otherwise> |
| <xsl:text>C</xsl:text> |
| <xsl:if test="$targetColumnPos != $columnPos"> |
| <xsl:text>[</xsl:text><xsl:value-of select="$targetColumnPos - $columnPos"/><xsl:text>]</xsl:text> |
| </xsl:if> |
| </xsl:otherwise> |
| </xsl:choose> |
| </xsl:when> |
| <xsl:otherwise> |
| <xsl:variable name="sheetName" select="substring-before($expression, '.')" /> |
| <xsl:value-of select="$sheetName"/><xsl:text>!</xsl:text> |
| <xsl:call-template name="translate-cell-expression"> |
| <xsl:with-param name="rowPos" select="$rowPos" /> |
| <xsl:with-param name="columnPos" select="$columnPos" /> |
| <xsl:with-param name="expression" select="substring-after($expression, $sheetName)" /> |
| </xsl:call-template> |
| </xsl:otherwise> |
| </xsl:choose> |
| </xsl:template> |
| |
| |
| <xsl:template name="calculate-square-numbers"> |
| <xsl:param name="base" /> |
| <xsl:param name="exponent" /> |
| <xsl:param name="return" select="1" /> |
| |
| <xsl:choose> |
| <xsl:when test="$exponent > '1'"> |
| <xsl:call-template name="calculate-square-numbers"> |
| <xsl:with-param name="base" select="$base" /> |
| <xsl:with-param name="exponent" select="$exponent - 1"/> |
| <xsl:with-param name="return" select="$return * $base" /> |
| </xsl:call-template> |
| </xsl:when> |
| <xsl:when test="$exponent = '1'"> |
| <xsl:value-of select="$return * $base"/> |
| </xsl:when> |
| <!-- if exponent is equal '0' --> |
| <xsl:otherwise> |
| <xsl:value-of select="1"/> |
| </xsl:otherwise> |
| </xsl:choose> |
| </xsl:template> |
| |
| |
| <xsl:template name="character-to-number"> |
| <xsl:param name="character" /> |
| <xsl:choose> |
| <xsl:when test="$character = 'A'">1</xsl:when> |
| <xsl:when test="$character = 'B'">2</xsl:when> |
| <xsl:when test="$character = 'C'">3</xsl:when> |
| <xsl:when test="$character = 'D'">4</xsl:when> |
| <xsl:when test="$character = 'E'">5</xsl:when> |
| <xsl:when test="$character = 'F'">6</xsl:when> |
| <xsl:when test="$character = 'G'">7</xsl:when> |
| <xsl:when test="$character = 'H'">8</xsl:when> |
| <xsl:when test="$character = 'I'">9</xsl:when> |
| <xsl:when test="$character = 'J'">10</xsl:when> |
| <xsl:when test="$character = 'K'">11</xsl:when> |
| <xsl:when test="$character = 'L'">12</xsl:when> |
| <xsl:when test="$character = 'M'">13</xsl:when> |
| <xsl:when test="$character = 'N'">14</xsl:when> |
| <xsl:when test="$character = 'O'">15</xsl:when> |
| <xsl:when test="$character = 'P'">16</xsl:when> |
| <xsl:when test="$character = 'Q'">17</xsl:when> |
| <xsl:when test="$character = 'R'">18</xsl:when> |
| <xsl:when test="$character = 'S'">19</xsl:when> |
| <xsl:when test="$character = 'T'">20</xsl:when> |
| <xsl:when test="$character = 'U'">21</xsl:when> |
| <xsl:when test="$character = 'V'">22</xsl:when> |
| <xsl:when test="$character = 'W'">23</xsl:when> |
| <xsl:when test="$character = 'X'">24</xsl:when> |
| <xsl:when test="$character = 'Y'">25</xsl:when> |
| <xsl:when test="$character = 'Z'">26</xsl:when> |
| <xsl:otherwise/> |
| </xsl:choose> |
| </xsl:template> |
| |
| </xsl:stylesheet> |
