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/xmlnmspe.hxx>
  26 #include <xmloff/nmspmap.hxx>
  27 #include <sax/tools/converter.hxx>
  28 #include <svl/sharedstringpool.hxx>
  29 #include <osl/diagnose.h>
  30
  31 using namespace com::sun::star;
  32 using namespace xmloff::token;
  33
  34 ScXMLDDELinksContext::ScXMLDDELinksContext( ScXMLImport& rImport,
  35                                       sal_uInt16 nPrfx,
  36                                       const OUString& rLName,
  37                                       const ::com::sun::star::uno::Reference<
  38                                       ::com::sun::star::xml::sax::XAttributeList>& /* xAttrList */ ) :
  39     SvXMLImportContext( rImport, nPrfx, rLName )
  40 {
  41     // here are no attributes
  42     rImport.LockSolarMutex();
  43 }
  44
  45 ScXMLDDELinksContext::~ScXMLDDELinksContext()
  46 {
  47     GetScImport().UnlockSolarMutex();
  48 }
  49
  50 SvXMLImportContext *ScXMLDDELinksContext::CreateChildContext( sal_uInt16 nPrefix,
  51                                             const OUString& rLName,
  52                                             const ::com::sun::star::uno::Reference<
  53                                           ::com::sun::star::xml::sax::XAttributeList>& xAttrList )
  54 {
  55     SvXMLImportContext *pContext = 0;
  56
  57     if ((nPrefix == XML_NAMESPACE_TABLE) && IsXMLToken(rLName, XML_DDE_LINK))
  58         pContext = new ScXMLDDELinkContext(GetScImport(), nPrefix, rLName, xAttrList);
  59
  60     if( !pContext )
  61         pContext = new SvXMLImportContext( GetImport(), nPrefix, rLName );
  62
  63     return pContext;
  64 }
  65
  66 void ScXMLDDELinksContext::EndElement()
  67 {
  68 }
  69
  70 ScXMLDDELinkContext::ScXMLDDELinkContext( ScXMLImport& rImport,
  71                                       sal_uInt16 nPrfx,
  72                                       const OUString& rLName,
  73                                       const ::com::sun::star::uno::Reference<
  74                                       ::com::sun::star::xml::sax::XAttributeList>& /* xAttrList */ ) :
  75     SvXMLImportContext( rImport, nPrfx, rLName ),
  76     aDDELinkTable(),
  77     aDDELinkRow(),
  78     sApplication(),
  79     sTopic(),
  80     sItem(),
  81     nPosition(-1),
  82     nColumns(0),
  83     nRows(0),
  84     nMode(SC_DDE_DEFAULT)
  85 {
  86     // here are no attributes
  87 }
  88
  89 ScXMLDDELinkContext::~ScXMLDDELinkContext()
  90 {
  91 }
  92
  93 SvXMLImportContext *ScXMLDDELinkContext::CreateChildContext( sal_uInt16 nPrefix,
  94                                             const OUString& rLName,
  95                                             const ::com::sun::star::uno::Reference<
  96                                           ::com::sun::star::xml::sax::XAttributeList>& xAttrList )
  97 {
  98     SvXMLImportContext *pContext = 0;
  99
 100     if ((nPrefix == XML_NAMESPACE_OFFICE) && IsXMLToken(rLName, XML_DDE_SOURCE))
 101         pContext = new ScXMLDDESourceContext(GetScImport(), nPrefix, rLName, xAttrList, this);
 102     else if ((nPrefix == XML_NAMESPACE_TABLE) && IsXMLToken(rLName, XML_TABLE))
 103         pContext = new ScXMLDDETableContext(GetScImport(), nPrefix, rLName, xAttrList, this);
 104
 105     if( !pContext )
 106         pContext = new SvXMLImportContext( GetImport(), nPrefix, rLName );
 107
 108     return pContext;
 109 }
 110
 111 void ScXMLDDELinkContext::CreateDDELink()
 112 {
 113     if (GetScImport().GetDocument() &&
 114         !sApplication.isEmpty() &&
 115         !sTopic.isEmpty() &&
 116         !sItem.isEmpty())
 117     {
 118         GetScImport().GetDocument()->CreateDdeLink(sApplication, sTopic, sItem, nMode, ScMatrixRef());
 119         size_t nPos;
 120         if(GetScImport().GetDocument()->FindDdeLink(sApplication, sTopic, sItem, nMode, nPos))
 121             nPosition = nPos;
 122         else
 123         {
 124             nPosition = -1;
 125             SAL_WARN("sc" , "DDE Link not inserted");
 126         }
 127     }
 128 }
 129
 130 void ScXMLDDELinkContext::AddCellToRow(const ScDDELinkCell& aCell)
 131 {
 132     aDDELinkRow.push_back(aCell);
 133 }
 134
 135 void ScXMLDDELinkContext::AddRowsToTable(const sal_Int32 nRowsP)
 136 {
 137     for (sal_Int32 i = 0; i < nRowsP; ++i)
 138         aDDELinkTable.insert(aDDELinkTable.end(), aDDELinkRow.begin(), aDDELinkRow.end());
 139     aDDELinkRow.clear();
 140 }
 141
 142 void ScXMLDDELinkContext::EndElement()
 143 {
 144     ScDocument* pDoc = GetScImport().GetDocument();
 145     if (nPosition > -1 && nColumns && nRows)
 146     {
 147         bool bSizeMatch = (static_cast<size_t>(nColumns * nRows) == aDDELinkTable.size());
 148         OSL_ENSURE( bSizeMatch, "ScXMLDDELinkContext::EndElement: matrix dimension doesn't match cells count");
 149         // Excel writes bad ODF in that it does not write the
 150         // table:number-columns-repeated attribute of the
 151         // <table:table-column> element, but apparently uses the number of
 152         // <table:table-cell> elements within a <table:table-row> element to
 153         // determine the column count instead. Be lenient ...
 154         if (!bSizeMatch && nColumns == 1)
 155         {
 156             nColumns = aDDELinkTable.size() / nRows;
 157             OSL_ENSURE( static_cast<size_t>(nColumns * nRows) == aDDELinkTable.size(),
 158                     "ScXMLDDELinkContext::EndElement: adapted matrix dimension doesn't match either");
 159         }
 160         ScMatrixRef pMatrix = new ScMatrix(static_cast<SCSIZE>(nColumns), static_cast<SCSIZE>(nRows), 0.0);
 161         sal_Int32 nCol(0);
 162         sal_Int32 nRow(-1);
 163         sal_Int32 nIndex(0);
 164         ScDDELinkCells::iterator aItr(aDDELinkTable.begin());
 165         ScDDELinkCells::iterator aEndItr(aDDELinkTable.end());
 166
 167         svl::SharedStringPool& rPool = pDoc->GetSharedStringPool();
 168         while (aItr != aEndItr)
 169         {
 170             if (nIndex % nColumns == 0)
 171             {
 172                 ++nRow;
 173                 nCol = 0;
 174             }
 175             else
 176                 ++nCol;
 177
 178             SCSIZE nScCol( static_cast< SCSIZE >( nCol ) );
 179             SCSIZE nScRow( static_cast< SCSIZE >( nRow ) );
 180             if( aItr->bEmpty )
 181                 pMatrix->PutEmpty( nScCol, nScRow );
 182             else if( aItr->bString )
 183                 pMatrix->PutString(rPool.intern(aItr->sValue), nScCol, nScRow);
 184             else
 185                 pMatrix->PutDouble( aItr->fValue, nScCol, nScRow );
 186
 187             ++nIndex;
 188             ++aItr;
 189         }
 190
 191         GetScImport().GetDocument()->SetDdeLinkResultMatrix( static_cast< sal_uInt16 >( nPosition ), pMatrix );
 192     }
 193 }
 194
 195 ScXMLDDESourceContext::ScXMLDDESourceContext( ScXMLImport& rImport,
 196                                       sal_uInt16 nPrfx,
 197                                       const OUString& rLName,
 198                                       const ::com::sun::star::uno::Reference<
 199                                       ::com::sun::star::xml::sax::XAttributeList>& xAttrList,
 200                                         ScXMLDDELinkContext* pTempDDELink) :
 201     SvXMLImportContext( rImport, nPrfx, rLName ),
 202     pDDELink(pTempDDELink)
 203 {
 204     if( !xAttrList.is() ) return;
 205
 206     sal_Int16               nAttrCount      = xAttrList->getLength();
 207
 208     for( sal_Int16 nIndex = 0; nIndex < nAttrCount; ++nIndex )
 209     {
 210         const OUString& sAttrName  (xAttrList->getNameByIndex( nIndex ));
 211         const OUString& sValue     (xAttrList->getValueByIndex( nIndex ));
 212         OUString aLocalName;
 213         sal_uInt16 nPrefix      = GetScImport().GetNamespaceMap().GetKeyByAttrName( sAttrName, &aLocalName );
 214
 215         if (nPrefix == XML_NAMESPACE_OFFICE)
 216         {
 217             if (IsXMLToken(aLocalName, XML_DDE_APPLICATION))
 218                 pDDELink->SetApplication(sValue);
 219             else if (IsXMLToken(aLocalName, XML_DDE_TOPIC))
 220                 pDDELink->SetTopic(sValue);
 221             else if (IsXMLToken(aLocalName, XML_DDE_ITEM))
 222                 pDDELink->SetItem(sValue);
 223         }
 224         else if ((nPrefix == XML_NAMESPACE_TABLE) && IsXMLToken(aLocalName, XML_CONVERSION_MODE))
 225         {
 226             if (IsXMLToken(sValue, XML_INTO_ENGLISH_NUMBER))
 227                 pDDELink->SetMode(SC_DDE_ENGLISH);
 228             else if (IsXMLToken(sValue, XML_KEEP_TEXT))
 229                 pDDELink->SetMode(SC_DDE_TEXT);
 230             else
 231                 pDDELink->SetMode(SC_DDE_DEFAULT);
 232         }
 233     }
 234 }
 235
 236 ScXMLDDESourceContext::~ScXMLDDESourceContext()
 237 {
 238 }
 239
 240 SvXMLImportContext *ScXMLDDESourceContext::CreateChildContext( sal_uInt16 nPrefix,
 241                                             const OUString& rLName,
 242                                             const ::com::sun::star::uno::Reference<
 243                                         ::com::sun::star::xml::sax::XAttributeList>& /* xAttrList */ )
 244 {
 245     SvXMLImportContext *pContext = new SvXMLImportContext( GetImport(), nPrefix, rLName );
 246
 247     return pContext;
 248 }
 249
 250 void ScXMLDDESourceContext::EndElement()
 251 {
 252     pDDELink->CreateDDELink();
 253 }
 254
 255 ScXMLDDETableContext::ScXMLDDETableContext( ScXMLImport& rImport,
 256                                       sal_uInt16 nPrfx,
 257                                       const OUString& rLName,
 258                                       const ::com::sun::star::uno::Reference<
 259                                       ::com::sun::star::xml::sax::XAttributeList>& /* xAttrList */,
 260                                         ScXMLDDELinkContext* pTempDDELink) :
 261     SvXMLImportContext( rImport, nPrfx, rLName ),
 262     pDDELink(pTempDDELink)
 263 {
 264     // here are no attributes
 265 }
 266
 267 ScXMLDDETableContext::~ScXMLDDETableContext()
 268 {
 269 }
 270
 271 SvXMLImportContext *ScXMLDDETableContext::CreateChildContext( sal_uInt16 nPrefix,
 272                                             const OUString& rLName,
 273                                             const ::com::sun::star::uno::Reference<
 274                                           ::com::sun::star::xml::sax::XAttributeList>& xAttrList )
 275 {
 276     SvXMLImportContext *pContext = NULL;
 277
 278     if (nPrefix == XML_NAMESPACE_TABLE)
 279     {
 280         if (IsXMLToken(rLName, XML_TABLE_COLUMN))
 281             pContext = new ScXMLDDEColumnContext(GetScImport(), nPrefix, rLName, xAttrList, pDDELink);
 282         else if (IsXMLToken(rLName, XML_TABLE_ROW))
 283             pContext = new ScXMLDDERowContext(GetScImport(), nPrefix, rLName, xAttrList, pDDELink);
 284     }
 285
 286     if (!pContext)
 287         pContext = new SvXMLImportContext( GetImport(), nPrefix, rLName );
 288
 289     return pContext;
 290 }
 291
 292 void ScXMLDDETableContext::EndElement()
 293 {
 294 }
 295
 296 ScXMLDDEColumnContext::ScXMLDDEColumnContext( ScXMLImport& rImport,
 297                                       sal_uInt16 nPrfx,
 298                                       const OUString& rLName,
 299                                       const ::com::sun::star::uno::Reference<
 300                                       ::com::sun::star::xml::sax::XAttributeList>& xAttrList,
 301                                         ScXMLDDELinkContext* pTempDDELink) :
 302     SvXMLImportContext( rImport, nPrfx, rLName ),
 303     pDDELink(pTempDDELink)
 304 {
 305     if( !xAttrList.is() ) return;
 306     sal_Int32 nCols(1);
 307
 308     sal_Int16               nAttrCount      = xAttrList->getLength();
 309
 310     for( sal_Int16 nIndex = 0; nIndex < nAttrCount; ++nIndex )
 311     {
 312         const OUString& sAttrName  (xAttrList->getNameByIndex( nIndex ));
 313         const OUString& sValue     (xAttrList->getValueByIndex( nIndex ));
 314         OUString aLocalName;
 315         sal_uInt16 nPrefix      = GetScImport().GetNamespaceMap().GetKeyByAttrName( sAttrName, &aLocalName );
 316
 317         if (nPrefix == XML_NAMESPACE_TABLE)
 318             if (IsXMLToken(aLocalName, XML_NUMBER_COLUMNS_REPEATED))
 319             {
 320                 ::sax::Converter::convertNumber(nCols, sValue);
 321             }
 322     }
 323     pDDELink->AddColumns(nCols);
 324 }
 325
 326 ScXMLDDEColumnContext::~ScXMLDDEColumnContext()
 327 {
 328 }
 329
 330 SvXMLImportContext *ScXMLDDEColumnContext::CreateChildContext( sal_uInt16 nPrefix,
 331                                             const OUString& rLName,
 332                                             const ::com::sun::star::uno::Reference<
 333                                         ::com::sun::star::xml::sax::XAttributeList>& /* xAttrList */ )
 334 {
 335     SvXMLImportContext *pContext = new SvXMLImportContext( GetImport(), nPrefix, rLName );
 336
 337     return pContext;
 338 }
 339
 340 void ScXMLDDEColumnContext::EndElement()
 341 {
 342 }
 343
 344 ScXMLDDERowContext::ScXMLDDERowContext( ScXMLImport& rImport,
 345                                       sal_uInt16 nPrfx,
 346                                       const OUString& rLName,
 347                                       const ::com::sun::star::uno::Reference<
 348                                       ::com::sun::star::xml::sax::XAttributeList>& xAttrList,
 349                                         ScXMLDDELinkContext* pTempDDELink) :
 350     SvXMLImportContext( rImport, nPrfx, rLName ),
 351     pDDELink(pTempDDELink),
 352     nRows(1)
 353 {
 354     if( !xAttrList.is() ) return;
 355
 356     sal_Int16               nAttrCount      = xAttrList->getLength();
 357
 358     for( sal_Int16 nIndex = 0; nIndex < nAttrCount; ++nIndex )
 359     {
 360         const OUString& sAttrName  (xAttrList->getNameByIndex( nIndex ));
 361         const OUString& sValue     (xAttrList->getValueByIndex( nIndex ));
 362         OUString aLocalName;
 363         sal_uInt16 nPrefix      = GetScImport().GetNamespaceMap().GetKeyByAttrName( sAttrName, &aLocalName );
 364
 365         if (nPrefix == XML_NAMESPACE_TABLE)
 366             if (IsXMLToken(aLocalName, XML_NUMBER_ROWS_REPEATED))
 367             {
 368                 ::sax::Converter::convertNumber(nRows, sValue);
 369             }
 370     }
 371     pDDELink->AddRows(nRows);
 372 }
 373
 374 ScXMLDDERowContext::~ScXMLDDERowContext()
 375 {
 376 }
 377
 378 SvXMLImportContext *ScXMLDDERowContext::CreateChildContext( sal_uInt16 nPrefix,
 379                                             const OUString& rLName,
 380                                             const ::com::sun::star::uno::Reference<
 381                                           ::com::sun::star::xml::sax::XAttributeList>& xAttrList )
 382 {
 383     SvXMLImportContext *pContext = NULL;
 384
 385     if (nPrefix == XML_NAMESPACE_TABLE)
 386         if (IsXMLToken(rLName, XML_TABLE_CELL))
 387             pContext = new ScXMLDDECellContext(GetScImport(), nPrefix, rLName, xAttrList, pDDELink);
 388
 389     if (!pContext)
 390         pContext = new SvXMLImportContext( GetImport(), nPrefix, rLName );
 391
 392     return pContext;
 393 }
 394
 395 void ScXMLDDERowContext::EndElement()
 396 {
 397     pDDELink->AddRowsToTable(nRows);
 398 }
 399
 400 ScXMLDDECellContext::ScXMLDDECellContext( ScXMLImport& rImport,
 401                                       sal_uInt16 nPrfx,
 402                                       const OUString& rLName,
 403                                       const ::com::sun::star::uno::Reference<
 404                                       ::com::sun::star::xml::sax::XAttributeList>& xAttrList,
 405                                         ScXMLDDELinkContext* pTempDDELink) :
 406     SvXMLImportContext( rImport, nPrfx, rLName ),
 407     sValue(),
 408     fValue(),
 409     nCells(1),
 410     bString(true),
 411     bString2(true),
 412     bEmpty(true),
 413     pDDELink(pTempDDELink)
 414 {
 415     if( !xAttrList.is() ) return;
 416
 417     sal_Int16               nAttrCount      = xAttrList->getLength();
 418
 419     for( sal_Int16 nIndex = 0; nIndex < nAttrCount; ++nIndex )
 420     {
 421         const OUString& sAttrName  (xAttrList->getNameByIndex( nIndex ));
 422         const OUString& sTempValue (xAttrList->getValueByIndex( nIndex ));
 423         OUString aLocalName;
 424         sal_uInt16 nPrefix      = GetScImport().GetNamespaceMap().GetKeyByAttrName( sAttrName, &aLocalName );
 425
 426         if (nPrefix == XML_NAMESPACE_OFFICE)
 427         {
 428             if (IsXMLToken(aLocalName, XML_VALUE_TYPE))
 429             {
 430                 if (IsXMLToken(sTempValue, XML_STRING))
 431                     bString = true;
 432                 else
 433                     bString = false;
 434             }
 435             else if (IsXMLToken(aLocalName, XML_STRING_VALUE))
 436             {
 437                 sValue = sTempValue;
 438                 bEmpty = false;
 439                 bString2 = true;
 440             }
 441             else if (IsXMLToken(aLocalName, XML_VALUE))
 442             {
 443                 ::sax::Converter::convertDouble(fValue, sTempValue);
 444                 bEmpty = false;
 445                 bString2 = false;
 446             }
 447         }
 448         else if (nPrefix == XML_NAMESPACE_TABLE)
 449         {
 450             if (IsXMLToken(aLocalName, XML_NUMBER_COLUMNS_REPEATED))
 451             {
 452                 ::sax::Converter::convertNumber(nCells, sTempValue);
 453             }
 454         }
 455     }
 456 }
 457
 458 ScXMLDDECellContext::~ScXMLDDECellContext()
 459 {
 460 }
 461
 462 SvXMLImportContext *ScXMLDDECellContext::CreateChildContext( sal_uInt16 nPrefix,
 463                                             const OUString& rLName,
 464                                             const ::com::sun::star::uno::Reference<
 465                                         ::com::sun::star::xml::sax::XAttributeList>& /* xAttrList */ )
 466 {
 467     SvXMLImportContext *pContext = new SvXMLImportContext( GetImport(), nPrefix, rLName );
 468
 469     return pContext;
 470 }
 471
 472 void ScXMLDDECellContext::EndElement()
 473 {
 474     OSL_ENSURE(bString == bString2, "something wrong with this type");
 475     ScDDELinkCell aCell;
 476     aCell.sValue = sValue;
 477     aCell.fValue = fValue;
 478     aCell.bEmpty = bEmpty;
 479     aCell.bString = bString2;
 480     for(sal_Int32 i = 0; i < nCells; ++i)
 481         pDDELink->AddCellToRow(aCell);
 482 }
 483
 484 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */