sc/source/filter/xml/XMLCalculationSettingsContext.cxx

   1 /* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
   2 /*
   3  * This file is part of the LibreOffice project.
   4  *
   5  * This Source Code Form is subject to the terms of the Mozilla Public
   6  * License, v. 2.0. If a copy of the MPL was not distributed with this
   7  * file, You can obtain one at http://mozilla.org/MPL/2.0/.
   8  *
   9  * This file incorporates work covered by the following license notice:
  10  *
  11  *   Licensed to the Apache Software Foundation (ASF) under one or more
  12  *   contributor license agreements. See the NOTICE file distributed
  13  *   with this work for additional information regarding copyright
  14  *   ownership. The ASF licenses this file to you under the Apache
  15  *   License, Version 2.0 (the "License"); you may not use this file
  16  *   except in compliance with the License. You may obtain a copy of
  17  *   the License at http://www.apache.org/licenses/LICENSE-2.0 .
  18  */
  19
  20 #include "XMLCalculationSettingsContext.hxx"
  21 #include "xmlimprt.hxx"
  22 #include "unonames.hxx"
  23 #include "docoptio.hxx"
  24 #include "document.hxx"
  25 #include <xmloff/xmltoken.hxx>
  26 #include <xmloff/xmlnmspe.hxx>
  27 #include <xmloff/nmspmap.hxx>
  28 #include <sax/tools/converter.hxx>
  29 #include <com/sun/star/sheet/XSpreadsheetDocument.hpp>
  30 #include <comphelper/extract.hxx>
  31
  32 using namespace com::sun::star;
  33 using namespace xmloff::token;
  34
  35 ScXMLCalculationSettingsContext::ScXMLCalculationSettingsContext( ScXMLImport& rImport,
  36                                       sal_uInt16 nPrfx,
  37                                       const OUString& rLName,
  38                                       const ::com::sun::star::uno::Reference<
  39                                       ::com::sun::star::xml::sax::XAttributeList>& xAttrList) :
  40     SvXMLImportContext( rImport, nPrfx, rLName ),
  41     fIterationEpsilon(0.001),
  42     nIterationCount(100),
  43     nYear2000(1930),
  44     bIsIterationEnabled(false),
  45     bCalcAsShown(false),
  46     bIgnoreCase(false),
  47     bLookUpLabels(true),
  48     bMatchWholeCell(true),
  49     bUseRegularExpressions(true)
  50 {
  51     aNullDate.Day = 30;
  52     aNullDate.Month = 12;
  53     aNullDate.Year = 1899;
  54     sal_Int16 nAttrCount = xAttrList.is() ? xAttrList->getLength() : 0;
  55     for( sal_Int16 i=0; i < nAttrCount; ++i )
  56     {
  57         const OUString& sAttrName(xAttrList->getNameByIndex( i ));
  58         OUString aLocalName;
  59         sal_uInt16 nPrefix = GetScImport().GetNamespaceMap().GetKeyByAttrName(
  60                                             sAttrName, &aLocalName );
  61         const OUString& sValue(xAttrList->getValueByIndex( i ));
  62
  63         if (nPrefix == XML_NAMESPACE_TABLE)
  64         {
  65             if (IsXMLToken(aLocalName, XML_CASE_SENSITIVE))
  66             {
  67                 if (IsXMLToken(sValue, XML_FALSE))
  68                     bIgnoreCase = true;
  69             }
  70             else if (IsXMLToken(aLocalName, XML_PRECISION_AS_SHOWN))
  71             {
  72                 if (IsXMLToken(sValue, XML_TRUE))
  73                     bCalcAsShown = true;
  74             }
  75             else if (IsXMLToken(aLocalName, XML_SEARCH_CRITERIA_MUST_APPLY_TO_WHOLE_CELL))
  76             {
  77                 if (IsXMLToken(sValue, XML_FALSE))
  78                     bMatchWholeCell = false;
  79             }
  80             else if (IsXMLToken(aLocalName, XML_AUTOMATIC_FIND_LABELS))
  81             {
  82                 if (IsXMLToken(sValue, XML_FALSE))
  83                     bLookUpLabels = false;
  84             }
  85             else if (IsXMLToken(aLocalName, XML_NULL_YEAR))
  86             {
  87                 sal_Int32 nTemp;
  88                 ::sax::Converter::convertNumber(nTemp, sValue);
  89                 nYear2000 = static_cast<sal_uInt16>(nTemp);
  90             }
  91             else if (IsXMLToken(aLocalName, XML_USE_REGULAR_EXPRESSIONS))
  92             {
  93                 if (IsXMLToken(sValue, XML_FALSE))
  94                     bUseRegularExpressions = false;
  95             }
  96         }
  97     }
  98 }
  99
 100 ScXMLCalculationSettingsContext::~ScXMLCalculationSettingsContext()
 101 {
 102 }
 103
 104 SvXMLImportContext *ScXMLCalculationSettingsContext::CreateChildContext( sal_uInt16 nPrefix,
 105                                             const OUString& rLName,
 106                                             const ::com::sun::star::uno::Reference<
 107                                           ::com::sun::star::xml::sax::XAttributeList>& xAttrList )
 108 {
 109     SvXMLImportContext *pContext = 0;
 110
 111     if (nPrefix == XML_NAMESPACE_TABLE)
 112     {
 113         if (IsXMLToken(rLName, XML_NULL_DATE))
 114             pContext = new ScXMLNullDateContext(GetScImport(), nPrefix, rLName, xAttrList, this);
 115         else if (IsXMLToken(rLName, XML_ITERATION))
 116             pContext = new ScXMLIterationContext(GetScImport(), nPrefix, rLName, xAttrList, this);
 117     }
 118
 119     if( !pContext )
 120         pContext = new SvXMLImportContext( GetImport(), nPrefix, rLName );
 121
 122     return pContext;
 123 }
 124
 125 void ScXMLCalculationSettingsContext::EndElement()
 126 {
 127     if (GetScImport().GetModel().is())
 128     {
 129         uno::Reference <beans::XPropertySet> xPropertySet (GetScImport().GetModel(), uno::UNO_QUERY);
 130         if (xPropertySet.is())
 131         {
 132             xPropertySet->setPropertyValue(OUString(SC_UNO_CALCASSHOWN), uno::makeAny(bCalcAsShown) );
 133             xPropertySet->setPropertyValue(OUString(SC_UNO_IGNORECASE), uno::makeAny(bIgnoreCase) );
 134             xPropertySet->setPropertyValue(OUString(SC_UNO_LOOKUPLABELS), uno::makeAny(bLookUpLabels) );
 135             xPropertySet->setPropertyValue(OUString(SC_UNO_MATCHWHOLE), uno::makeAny(bMatchWholeCell) );
 136             xPropertySet->setPropertyValue(OUString(SC_UNO_REGEXENABLED), uno::makeAny(bUseRegularExpressions) );
 137             xPropertySet->setPropertyValue(OUString(SC_UNO_ITERENABLED), uno::makeAny(bIsIterationEnabled) );
 138             xPropertySet->setPropertyValue( OUString(SC_UNO_ITERCOUNT), uno::makeAny(nIterationCount) );
 139             xPropertySet->setPropertyValue( OUString(SC_UNO_ITEREPSILON), uno::makeAny(fIterationEpsilon) );
 140             xPropertySet->setPropertyValue( OUString(SC_UNO_NULLDATE), uno::makeAny(aNullDate) );
 141             if (GetScImport().GetDocument())
 142             {
 143                 ScXMLImport::MutexGuard aGuard(GetScImport());
 144                 ScDocOptions aDocOptions (GetScImport().GetDocument()->GetDocOptions());
 145                 aDocOptions.SetYear2000(nYear2000);
 146                 GetScImport().GetDocument()->SetDocOptions(aDocOptions);
 147             }
 148         }
 149     }
 150 }
 151
 152 ScXMLNullDateContext::ScXMLNullDateContext( ScXMLImport& rImport,
 153                                       sal_uInt16 nPrfx,
 154                                       const OUString& rLName,
 155                                       const ::com::sun::star::uno::Reference<
 156                                       ::com::sun::star::xml::sax::XAttributeList>& xAttrList,
 157                                       ScXMLCalculationSettingsContext* pCalcSet) :
 158     SvXMLImportContext( rImport, nPrfx, rLName )
 159 {
 160     sal_Int16 nAttrCount = xAttrList.is() ? xAttrList->getLength() : 0;
 161     for( sal_Int16 i=0; i < nAttrCount; ++i )
 162     {
 163         const OUString& sAttrName(xAttrList->getNameByIndex( i ));
 164         OUString aLocalName;
 165         sal_uInt16 nPrefix = GetScImport().GetNamespaceMap().GetKeyByAttrName(
 166                                             sAttrName, &aLocalName );
 167         const OUString& sValue(xAttrList->getValueByIndex( i ));
 168
 169         if (nPrefix == XML_NAMESPACE_TABLE && IsXMLToken(aLocalName, XML_DATE_VALUE))
 170         {
 171             util::DateTime aDateTime;
 172             ::sax::Converter::parseDateTime(aDateTime, 0, sValue);
 173             util::Date aDate;
 174             aDate.Day = aDateTime.Day;
 175             aDate.Month = aDateTime.Month;
 176             aDate.Year = aDateTime.Year;
 177             pCalcSet->SetNullDate(aDate);
 178         }
 179     }
 180 }
 181
 182 ScXMLNullDateContext::~ScXMLNullDateContext()
 183 {
 184 }
 185
 186 SvXMLImportContext *ScXMLNullDateContext::CreateChildContext( sal_uInt16 nPrefix,
 187                                             const OUString& rLName,
 188                                             const ::com::sun::star::uno::Reference<
 189                                         ::com::sun::star::xml::sax::XAttributeList>& /* xAttrList */ )
 190 {
 191     SvXMLImportContext *pContext = new SvXMLImportContext( GetImport(), nPrefix, rLName );
 192
 193     return pContext;
 194 }
 195
 196 void ScXMLNullDateContext::EndElement()
 197 {
 198 }
 199
 200 ScXMLIterationContext::ScXMLIterationContext( ScXMLImport& rImport,
 201                                       sal_uInt16 nPrfx,
 202                                       const OUString& rLName,
 203                                       const ::com::sun::star::uno::Reference<
 204                                       ::com::sun::star::xml::sax::XAttributeList>& xAttrList,
 205                                       ScXMLCalculationSettingsContext* pCalcSet) :
 206     SvXMLImportContext( rImport, nPrfx, rLName )
 207 {
 208     sal_Int16 nAttrCount = xAttrList.is() ? xAttrList->getLength() : 0;
 209     for( sal_Int16 i=0; i < nAttrCount; ++i )
 210     {
 211         const OUString& sAttrName(xAttrList->getNameByIndex( i ));
 212         OUString aLocalName;
 213         sal_uInt16 nPrefix = GetScImport().GetNamespaceMap().GetKeyByAttrName(
 214                                             sAttrName, &aLocalName );
 215         const OUString& sValue(xAttrList->getValueByIndex( i ));
 216
 217         if (nPrefix == XML_NAMESPACE_TABLE)
 218         {
 219             if (IsXMLToken(aLocalName, XML_STATUS))
 220             {
 221                 if (IsXMLToken(sValue, XML_ENABLE))
 222                     pCalcSet->SetIterationStatus(true);
 223             }
 224             else if (IsXMLToken(aLocalName, XML_STEPS))
 225             {
 226                 sal_Int32 nSteps;
 227                 ::sax::Converter::convertNumber(nSteps, sValue);
 228                 pCalcSet->SetIterationCount(nSteps);
 229             }
 230             else if (IsXMLToken(aLocalName, XML_MAXIMUM_DIFFERENCE))
 231             {
 232                 double fDif;
 233                 ::sax::Converter::convertDouble(fDif, sValue);
 234                 pCalcSet->SetIterationEpsilon(fDif);
 235             }
 236         }
 237     }
 238 }
 239
 240 ScXMLIterationContext::~ScXMLIterationContext()
 241 {
 242 }
 243
 244 SvXMLImportContext *ScXMLIterationContext::CreateChildContext( sal_uInt16 nPrefix,
 245                                             const OUString& rLName,
 246                                             const ::com::sun::star::uno::Reference<
 247                                         ::com::sun::star::xml::sax::XAttributeList>& /* xAttrList */ )
 248 {
 249     SvXMLImportContext *pContext = new SvXMLImportContext( GetImport(), nPrefix, rLName );
 250
 251     return pContext;
 252 }
 253
 254 void ScXMLIterationContext::EndElement()
 255 {
 256 }
 257
 258 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */