sc/source/filter/xml/XMLDDELinksContext.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 "XMLDDELinksContext.hxx"
  21 #include "xmlimprt.hxx"
  22 #include <document.hxx>
  23 #include <scmatrix.hxx>
  24 #include <xmloff/xmltoken.hxx>
  25 #include <xmloff/xmlnamespace.hxx>
  26 #include <svl/sharedstringpool.hxx>
  27 #include <osl/diagnose.h>
  28 #include <sal/log.hxx>
  29
  30 using namespace com::sun::star;
  31 using namespace xmloff::token;
  32
  33 ScXMLDDELinksContext::ScXMLDDELinksContext( ScXMLImport& rImport ) :
  34     ScXMLImportContext( rImport )
  35 {
  36     // here are no attributes
  37     rImport.LockSolarMutex();
  38 }
  39
  40 ScXMLDDELinksContext::~ScXMLDDELinksContext()
  41 {
  42     GetScImport().UnlockSolarMutex();
  43 }
  44
  45 uno::Reference< xml::sax::XFastContextHandler > SAL_CALL ScXMLDDELinksContext::createFastChildContext(
  46     sal_Int32 nElement, const uno::Reference< xml::sax::XFastAttributeList >& /*xAttrList*/ )
  47 {
  48     SvXMLImportContext *pContext = nullptr;
  49
  50     if ( nElement == XML_ELEMENT( TABLE, XML_DDE_LINK) )
  51         pContext = new ScXMLDDELinkContext(GetScImport());
  52
  53     return pContext;
  54 }
  55
  56 ScXMLDDELinkContext::ScXMLDDELinkContext( ScXMLImport& rImport ) :
  57     ScXMLImportContext( rImport ),
  58     nPosition(-1),
  59     nColumns(0),
  60     nRows(0),
  61     nMode(SC_DDE_DEFAULT)
  62 {
  63     // here are no attributes
  64 }
  65
  66 ScXMLDDELinkContext::~ScXMLDDELinkContext()
  67 {
  68 }
  69
  70 uno::Reference< xml::sax::XFastContextHandler > SAL_CALL ScXMLDDELinkContext::createFastChildContext(
  71     sal_Int32 nElement, const uno::Reference< xml::sax::XFastAttributeList >& xAttrList )
  72 {
  73     SvXMLImportContext *pContext = nullptr;
  74     sax_fastparser::FastAttributeList *pAttribList =
  75         &sax_fastparser::castToFastAttributeList( xAttrList );
  76
  77     switch (nElement)
  78     {
  79         case XML_ELEMENT( OFFICE, XML_DDE_SOURCE ):
  80             pContext = new ScXMLDDESourceContext(GetScImport(), pAttribList, this);
  81         break;
  82         case XML_ELEMENT( TABLE, XML_TABLE ):
  83             pContext = new ScXMLDDETableContext(GetScImport(), this);
  84         break;
  85     }
  86
  87     return pContext;
  88 }
  89
  90 void ScXMLDDELinkContext::CreateDDELink()
  91 {
  92     if (GetScImport().GetDocument() &&
  93         !sApplication.isEmpty() &&
  94         !sTopic.isEmpty() &&
  95         !sItem.isEmpty())
  96     {
  97         GetScImport().GetDocument()->CreateDdeLink(sApplication, sTopic, sItem, nMode, ScMatrixRef());
  98         size_t nPos;
  99         if(GetScImport().GetDocument()->FindDdeLink(sApplication, sTopic, sItem, nMode, nPos))
 100             nPosition = nPos;
 101         else
 102         {
 103             nPosition = -1;
 104             SAL_WARN("sc" , "DDE Link not inserted");
 105         }
 106     }
 107 }
 108
 109 void ScXMLDDELinkContext::AddCellToRow(const ScDDELinkCell& aCell)
 110 {
 111     aDDELinkRow.push_back(aCell);
 112 }
 113
 114 void ScXMLDDELinkContext::AddRowsToTable(const sal_Int32 nRowsP)
 115 {
 116     for (sal_Int32 i = 0; i < nRowsP; ++i)
 117         aDDELinkTable.insert(aDDELinkTable.end(), aDDELinkRow.begin(), aDDELinkRow.end());
 118     aDDELinkRow.clear();
 119 }
 120
 121 void SAL_CALL ScXMLDDELinkContext::endFastElement( sal_Int32 /*nElement*/ )
 122 {
 123     ScDocument* pDoc = GetScImport().GetDocument();
 124     if (!(nPosition > -1 && nColumns && nRows))
 125         return;
 126
 127     bool bSizeMatch = (static_cast<size_t>(nColumns * nRows) == aDDELinkTable.size());
 128     OSL_ENSURE( bSizeMatch, "ScXMLDDELinkContext::EndElement: matrix dimension doesn't match cells count");
 129     // Excel writes bad ODF in that it does not write the
 130     // table:number-columns-repeated attribute of the
 131     // <table:table-column> element, but apparently uses the number of
 132     // <table:table-cell> elements within a <table:table-row> element to
 133     // determine the column count instead. Be lenient ...
 134     if (!bSizeMatch && nColumns == 1)
 135     {
 136         nColumns = aDDELinkTable.size() / nRows;
 137         OSL_ENSURE( static_cast<size_t>(nColumns * nRows) == aDDELinkTable.size(),
 138                 "ScXMLDDELinkContext::EndElement: adapted matrix dimension doesn't match either");
 139     }
 140     ScMatrixRef pMatrix = new ScMatrix(static_cast<SCSIZE>(nColumns), static_cast<SCSIZE>(nRows), 0.0);
 141     sal_Int32 nCol(0);
 142     sal_Int32 nRow(-1);
 143     sal_Int32 nIndex(0);
 144
 145     svl::SharedStringPool& rPool = pDoc->GetSharedStringPool();
 146     for (const auto& rDDELinkCell : aDDELinkTable)
 147     {
 148         if (nIndex % nColumns == 0)
 149         {
 150             ++nRow;
 151             nCol = 0;
 152         }
 153         else
 154             ++nCol;
 155
 156         SCSIZE nScCol( static_cast< SCSIZE >( nCol ) );
 157         SCSIZE nScRow( static_cast< SCSIZE >( nRow ) );
 158         if( rDDELinkCell.bEmpty )
 159             pMatrix->PutEmpty( nScCol, nScRow );
 160         else if( rDDELinkCell.bString )
 161             pMatrix->PutString(rPool.intern(rDDELinkCell.sValue), nScCol, nScRow);
 162         else
 163             pMatrix->PutDouble( rDDELinkCell.fValue, nScCol, nScRow );
 164
 165         ++nIndex;
 166     }
 167
 168     GetScImport().GetDocument()->SetDdeLinkResultMatrix( static_cast< sal_uInt16 >( nPosition ), pMatrix );
 169 }
 170
 171 ScXMLDDESourceContext::ScXMLDDESourceContext( ScXMLImport& rImport,
 172                                       const rtl::Reference<sax_fastparser::FastAttributeList>& rAttrList,
 173                                       ScXMLDDELinkContext* pTempDDELink) :
 174     ScXMLImportContext( rImport ),
 175     pDDELink(pTempDDELink)
 176 {
 177     if ( !rAttrList.is() )
 178         return;
 179
 180     for (auto &aIter : *rAttrList)
 181     {
 182         switch (aIter.getToken())
 183         {
 184             case XML_ELEMENT( OFFICE, XML_DDE_APPLICATION ):
 185                 pDDELink->SetApplication(aIter.toString());
 186             break;
 187             case XML_ELEMENT( OFFICE, XML_DDE_TOPIC ):
 188                 pDDELink->SetTopic(aIter.toString());
 189             break;
 190             case XML_ELEMENT( OFFICE, XML_DDE_ITEM ):
 191                 pDDELink->SetItem(aIter.toString());
 192             break;
 193             case XML_ELEMENT( TABLE, XML_CONVERSION_MODE ):
 194                 if (IsXMLToken(aIter, XML_INTO_ENGLISH_NUMBER))
 195                     pDDELink->SetMode(SC_DDE_ENGLISH);
 196                 else if (IsXMLToken(aIter, XML_KEEP_TEXT))
 197                     pDDELink->SetMode(SC_DDE_TEXT);
 198                 else
 199                     pDDELink->SetMode(SC_DDE_DEFAULT);
 200             break;
 201         }
 202     }
 203 }
 204
 205 ScXMLDDESourceContext::~ScXMLDDESourceContext()
 206 {
 207 }
 208
 209 void SAL_CALL ScXMLDDESourceContext::endFastElement( sal_Int32 /*nElement*/ )
 210 {
 211     pDDELink->CreateDDELink();
 212 }
 213
 214 ScXMLDDETableContext::ScXMLDDETableContext( ScXMLImport& rImport,
 215                                       ScXMLDDELinkContext* pTempDDELink) :
 216     ScXMLImportContext( rImport ),
 217     pDDELink(pTempDDELink)
 218 {
 219     // here are no attributes
 220 }
 221
 222 ScXMLDDETableContext::~ScXMLDDETableContext()
 223 {
 224 }
 225
 226 uno::Reference< xml::sax::XFastContextHandler > SAL_CALL ScXMLDDETableContext::createFastChildContext(
 227     sal_Int32 nElement, const uno::Reference< xml::sax::XFastAttributeList >& xAttrList )
 228 {
 229     SvXMLImportContext *pContext = nullptr;
 230     sax_fastparser::FastAttributeList *pAttribList =
 231         &sax_fastparser::castToFastAttributeList( xAttrList );
 232
 233     switch (nElement)
 234     {
 235         case XML_ELEMENT( TABLE, XML_TABLE_COLUMN ):
 236             pContext = new ScXMLDDEColumnContext(GetScImport(), pAttribList, pDDELink);
 237         break;
 238         case XML_ELEMENT( TABLE, XML_TABLE_ROW ):
 239             pContext = new ScXMLDDERowContext(GetScImport(), pAttribList, pDDELink);
 240         break;
 241     }
 242
 243     return pContext;
 244 }
 245
 246 ScXMLDDEColumnContext::ScXMLDDEColumnContext( ScXMLImport& rImport,
 247                                       const rtl::Reference<sax_fastparser::FastAttributeList>& rAttrList,
 248                                       ScXMLDDELinkContext* pDDELink) :
 249     ScXMLImportContext( rImport )
 250 {
 251     if ( rAttrList.is() )
 252     {
 253         sal_Int32 nCols(1);
 254         auto aIter( rAttrList->find( XML_ELEMENT( TABLE, XML_NUMBER_COLUMNS_REPEATED ) ) );
 255         if (aIter != rAttrList->end())
 256             nCols = aIter.toInt32();
 257
 258         pDDELink->AddColumns(nCols);
 259     }
 260 }
 261
 262 ScXMLDDEColumnContext::~ScXMLDDEColumnContext()
 263 {
 264 }
 265
 266 ScXMLDDERowContext::ScXMLDDERowContext( ScXMLImport& rImport,
 267                                       const rtl::Reference<sax_fastparser::FastAttributeList>& rAttrList,
 268                                       ScXMLDDELinkContext* pTempDDELink) :
 269     ScXMLImportContext( rImport ),
 270     pDDELink(pTempDDELink),
 271     nRows(1)
 272 {
 273     if ( rAttrList.is() )
 274     {
 275         auto aIter( rAttrList->find( XML_ELEMENT( TABLE, XML_NUMBER_ROWS_REPEATED ) ) );
 276         if (aIter != rAttrList->end())
 277             nRows = aIter.toInt32();
 278
 279         pDDELink->AddRows(nRows);
 280     }
 281 }
 282
 283 ScXMLDDERowContext::~ScXMLDDERowContext()
 284 {
 285 }
 286
 287 uno::Reference< xml::sax::XFastContextHandler > SAL_CALL ScXMLDDERowContext::createFastChildContext(
 288     sal_Int32 nElement, const uno::Reference< xml::sax::XFastAttributeList >& xAttrList )
 289 {
 290     SvXMLImportContext *pContext = nullptr;
 291     sax_fastparser::FastAttributeList *pAttribList =
 292         &sax_fastparser::castToFastAttributeList( xAttrList );
 293
 294     if (nElement == XML_ELEMENT( TABLE, XML_TABLE_CELL ))
 295         pContext = new ScXMLDDECellContext(GetScImport(), pAttribList, pDDELink);
 296
 297     return pContext;
 298 }
 299
 300 void SAL_CALL ScXMLDDERowContext::endFastElement( sal_Int32 /*nElement*/ )
 301 {
 302     pDDELink->AddRowsToTable(nRows);
 303 }
 304
 305 ScXMLDDECellContext::ScXMLDDECellContext( ScXMLImport& rImport,
 306                                       const rtl::Reference<sax_fastparser::FastAttributeList>& rAttrList,
 307                                       ScXMLDDELinkContext* pTempDDELink) :
 308     ScXMLImportContext( rImport ),
 309     fValue(),
 310     nCells(1),
 311     bString(true),
 312     bString2(true),
 313     bEmpty(true),
 314     pDDELink(pTempDDELink)
 315 {
 316     if ( !rAttrList.is() )
 317         return;
 318
 319     for (auto &aIter : *rAttrList)
 320     {
 321         switch (aIter.getToken())
 322         {
 323             case XML_ELEMENT( OFFICE, XML_VALUE_TYPE ):
 324                 if (IsXMLToken(aIter, XML_STRING))
 325                     bString = true;
 326                 else
 327                     bString = false;
 328             break;
 329             case XML_ELEMENT( OFFICE, XML_STRING_VALUE ):
 330                 sValue = aIter.toString();
 331                 bEmpty = false;
 332                 bString2 = true;
 333             break;
 334             case XML_ELEMENT( OFFICE, XML_VALUE ):
 335                 fValue = aIter.toDouble();
 336                 bEmpty = false;
 337                 bString2 = false;
 338             break;
 339             case XML_ELEMENT( TABLE, XML_NUMBER_COLUMNS_REPEATED ):
 340                 nCells = aIter.toInt32();
 341             break;
 342         }
 343     }
 344 }
 345
 346 ScXMLDDECellContext::~ScXMLDDECellContext()
 347 {
 348 }
 349
 350 void SAL_CALL ScXMLDDECellContext::endFastElement( sal_Int32 /*nElement*/ )
 351 {
 352     OSL_ENSURE(bString == bString2, "something wrong with this type");
 353     ScDDELinkCell aCell;
 354     aCell.sValue = sValue;
 355     aCell.fValue = fValue;
 356     aCell.bEmpty = bEmpty;
 357     aCell.bString = bString2;
 358     for(sal_Int32 i = 0; i < nCells; ++i)
 359         pDDELink->AddCellToRow(aCell);
 360 }
 361
 362 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */