sc/source/filter/xml/celltextparacontext.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
  10 #include "celltextparacontext.hxx"
  11 #include "xmlimprt.hxx"
  12 #include "xmlcelli.hxx"
  13
  14 #include <xmloff/nmspmap.hxx>
  15 #include <comphelper/string.hxx>
  16
  17 #include <com/sun/star/xml/sax/XAttributeList.hpp>
  18
  19 using namespace com::sun::star;
  20
  21 ScXMLCellTextParaContext::ScXMLCellTextParaContext(
  22     ScXMLImport& rImport, sal_uInt16 nPrefix, const OUString& rLName, ScXMLTableRowCellContext& rParent) :
  23     ScXMLImportContext(rImport, nPrefix, rLName),
  24     mrParentCxt(rParent)
  25 {
  26 }
  27
  28 void ScXMLCellTextParaContext::StartElement(const uno::Reference<xml::sax::XAttributeList>& /*xAttrList*/)
  29 {
  30 }
  31
  32 void ScXMLCellTextParaContext::EndElement()
  33 {
  34     if (!maContent.isEmpty())
  35         mrParentCxt.PushParagraphSpan(maContent, OUString());
  36
  37     mrParentCxt.PushParagraphEnd();
  38 }
  39
  40 void ScXMLCellTextParaContext::Characters(const OUString& rChars)
  41 {
  42     maContent += rChars;
  43 }
  44
  45 SvXMLImportContext* ScXMLCellTextParaContext::CreateChildContext(
  46     sal_uInt16 nPrefix, const OUString& rLocalName, const uno::Reference<xml::sax::XAttributeList>& /*xAttrList*/)
  47 {
  48     if (!maContent.isEmpty())
  49     {
  50         mrParentCxt.PushParagraphSpan(maContent, OUString());
  51         maContent.clear();
  52     }
  53
  54     const SvXMLTokenMap& rTokenMap = GetScImport().GetCellTextParaElemTokenMap();
  55     switch (rTokenMap.Get(nPrefix, rLocalName))
  56     {
  57         case XML_TOK_CELL_TEXT_S:
  58             return new ScXMLCellFieldSContext(GetScImport(), nPrefix, rLocalName, *this);
  59         case XML_TOK_CELL_TEXT_SPAN:
  60             return new ScXMLCellTextSpanContext(GetScImport(), nPrefix, rLocalName, *this);
  61         case XML_TOK_CELL_TEXT_SHEET_NAME:
  62             return new ScXMLCellFieldSheetNameContext(GetScImport(), nPrefix, rLocalName, *this);
  63         case XML_TOK_CELL_TEXT_DATE:
  64             return new ScXMLCellFieldDateContext(GetScImport(), nPrefix, rLocalName, *this);
  65         case XML_TOK_CELL_TEXT_TITLE:
  66             return new ScXMLCellFieldTitleContext(GetScImport(), nPrefix, rLocalName, *this);
  67         case XML_TOK_CELL_TEXT_URL:
  68             return new ScXMLCellFieldURLContext(GetScImport(), nPrefix, rLocalName, *this);
  69         default:
  70             ;
  71     }
  72
  73     return new SvXMLImportContext(GetImport(), nPrefix, rLocalName);
  74 }
  75
  76 void ScXMLCellTextParaContext::PushSpan(const OUString& rSpan, const OUString& rStyleName)
  77 {
  78     mrParentCxt.PushParagraphSpan(rSpan, rStyleName);
  79 }
  80
  81 void ScXMLCellTextParaContext::PushFieldSheetName(const OUString& rStyleName)
  82 {
  83     mrParentCxt.PushParagraphFieldSheetName(rStyleName);
  84 }
  85
  86 void ScXMLCellTextParaContext::PushFieldDate(const OUString& rStyleName)
  87 {
  88     mrParentCxt.PushParagraphFieldDate(rStyleName);
  89 }
  90
  91 void ScXMLCellTextParaContext::PushFieldTitle(const OUString& rStyleName)
  92 {
  93     mrParentCxt.PushParagraphFieldDocTitle(rStyleName);
  94 }
  95
  96 void ScXMLCellTextParaContext::PushFieldURL(
  97     const OUString& rURL, const OUString& rRep, const OUString& rStyleName)
  98 {
  99     mrParentCxt.PushParagraphFieldURL(rURL, rRep, rStyleName);
 100 }
 101
 102 ScXMLCellTextSpanContext::ScXMLCellTextSpanContext(
 103     ScXMLImport& rImport, sal_uInt16 nPrefix, const OUString& rLName, ScXMLCellTextParaContext& rParent) :
 104     ScXMLImportContext(rImport, nPrefix, rLName),
 105     mrParentCxt(rParent)
 106 {
 107 }
 108
 109 void ScXMLCellTextSpanContext::StartElement(const uno::Reference<xml::sax::XAttributeList>& xAttrList)
 110 {
 111     if (!xAttrList.is())
 112         return;
 113
 114     OUString aLocalName;
 115     sal_Int16 nAttrCount = xAttrList->getLength();
 116
 117     const SvXMLTokenMap& rTokenMap = GetScImport().GetCellTextSpanAttrTokenMap();
 118     for (sal_Int16 i = 0; i < nAttrCount; ++i)
 119     {
 120         sal_uInt16 nAttrPrefix = GetImport().GetNamespaceMap().GetKeyByAttrName(
 121             xAttrList->getNameByIndex(i), &aLocalName);
 122
 123         const OUString& rAttrValue = xAttrList->getValueByIndex(i);
 124         sal_uInt16 nToken = rTokenMap.Get(nAttrPrefix, aLocalName);
 125         switch (nToken)
 126         {
 127             case XML_TOK_CELL_TEXT_SPAN_ATTR_STYLE_NAME:
 128                 maStyleName = rAttrValue;
 129             break;
 130             default:
 131                 ;
 132         }
 133     }
 134 }
 135
 136 void ScXMLCellTextSpanContext::EndElement()
 137 {
 138     if (!maContent.isEmpty())
 139     {
 140         mrParentCxt.PushSpan(maContent, maStyleName);
 141     }
 142 }
 143
 144 void ScXMLCellTextSpanContext::Characters(const OUString& rChars)
 145 {
 146     maContent += rChars;
 147 }
 148
 149 SvXMLImportContext* ScXMLCellTextSpanContext::CreateChildContext(
 150     sal_uInt16 nPrefix, const OUString& rLocalName, const uno::Reference<xml::sax::XAttributeList>& /*xAttrList*/)
 151 {
 152     if (!maContent.isEmpty())
 153     {
 154         mrParentCxt.PushSpan(maContent, maStyleName);
 155         maContent.clear();
 156     }
 157
 158     const SvXMLTokenMap& rTokenMap = GetScImport().GetCellTextSpanElemTokenMap();
 159     switch (rTokenMap.Get(nPrefix, rLocalName))
 160     {
 161         case XML_TOK_CELL_TEXT_SPAN_ELEM_SHEET_NAME:
 162         {
 163             ScXMLCellFieldSheetNameContext* p = new ScXMLCellFieldSheetNameContext(GetScImport(), nPrefix, rLocalName, mrParentCxt);
 164             p->SetStyleName(maStyleName);
 165             return p;
 166         }
 167         case XML_TOK_CELL_TEXT_SPAN_ELEM_DATE:
 168         {
 169             ScXMLCellFieldDateContext* p = new ScXMLCellFieldDateContext(GetScImport(), nPrefix, rLocalName, mrParentCxt);
 170             p->SetStyleName(maStyleName);
 171             return p;
 172         }
 173         case XML_TOK_CELL_TEXT_SPAN_ELEM_TITLE:
 174         {
 175             ScXMLCellFieldTitleContext* p = new ScXMLCellFieldTitleContext(GetScImport(), nPrefix, rLocalName, mrParentCxt);
 176             p->SetStyleName(maStyleName);
 177             return p;
 178         }
 179         case XML_TOK_CELL_TEXT_SPAN_ELEM_URL:
 180         {
 181             ScXMLCellFieldURLContext* p = new ScXMLCellFieldURLContext(GetScImport(), nPrefix, rLocalName, mrParentCxt);
 182             p->SetStyleName(maStyleName);
 183             return p;
 184         }
 185         case XML_TOK_CELL_TEXT_SPAN_ELEM_S:
 186         {
 187             ScXMLCellFieldSContext* p = new ScXMLCellFieldSContext(GetScImport(), nPrefix, rLocalName, mrParentCxt);
 188             p->SetStyleName(maStyleName);
 189             return p;
 190         }
 191         default:
 192             ;
 193     }
 194
 195     return new SvXMLImportContext(GetImport(), nPrefix, rLocalName);
 196 }
 197
 198 ScXMLCellFieldSheetNameContext::ScXMLCellFieldSheetNameContext(
 199     ScXMLImport& rImport, sal_uInt16 nPrefix, const OUString& rLName, ScXMLCellTextParaContext& rParent) :
 200     ScXMLImportContext(rImport, nPrefix, rLName),
 201     mrParentCxt(rParent)
 202 {
 203 }
 204
 205 void ScXMLCellFieldSheetNameContext::SetStyleName(const OUString& rStyleName)
 206 {
 207     maStyleName = rStyleName;
 208 }
 209
 210 void ScXMLCellFieldSheetNameContext::StartElement(const uno::Reference<xml::sax::XAttributeList>& /*xAttrList*/)
 211 {
 212     // <text:sheet-name> has no attributes (that I'm aware of).
 213 }
 214
 215 void ScXMLCellFieldSheetNameContext::EndElement()
 216 {
 217     mrParentCxt.PushFieldSheetName(maStyleName);
 218 }
 219
 220 void ScXMLCellFieldSheetNameContext::Characters(const OUString& /*rChars*/)
 221 {
 222 }
 223
 224 SvXMLImportContext* ScXMLCellFieldSheetNameContext::CreateChildContext(
 225     sal_uInt16 nPrefix, const OUString& rLocalName, const uno::Reference<xml::sax::XAttributeList>& /*xAttrList*/)
 226 {
 227     return new SvXMLImportContext(GetImport(), nPrefix, rLocalName);
 228 }
 229
 230 ScXMLCellFieldDateContext::ScXMLCellFieldDateContext(
 231     ScXMLImport& rImport, sal_uInt16 nPrefix, const OUString& rLName, ScXMLCellTextParaContext& rParent) :
 232     ScXMLImportContext(rImport, nPrefix, rLName),
 233     mrParentCxt(rParent)
 234 {
 235 }
 236
 237 void ScXMLCellFieldDateContext::SetStyleName(const OUString& rStyleName)
 238 {
 239     maStyleName = rStyleName;
 240 }
 241
 242 void ScXMLCellFieldDateContext::StartElement(const uno::Reference<xml::sax::XAttributeList>& /*xAttrList*/)
 243 {
 244 }
 245
 246 void ScXMLCellFieldDateContext::EndElement()
 247 {
 248     mrParentCxt.PushFieldDate(maStyleName);
 249 }
 250
 251 void ScXMLCellFieldDateContext::Characters(const OUString& /*rChars*/)
 252 {
 253 }
 254
 255 SvXMLImportContext* ScXMLCellFieldDateContext::CreateChildContext(
 256     sal_uInt16 nPrefix, const OUString& rLocalName, const uno::Reference<xml::sax::XAttributeList>& /*xAttrList*/)
 257 {
 258     return new SvXMLImportContext(GetImport(), nPrefix, rLocalName);
 259 }
 260
 261 ScXMLCellFieldTitleContext::ScXMLCellFieldTitleContext(
 262     ScXMLImport& rImport, sal_uInt16 nPrefix, const OUString& rLName, ScXMLCellTextParaContext& rParent) :
 263     ScXMLImportContext(rImport, nPrefix, rLName),
 264     mrParentCxt(rParent)
 265 {
 266 }
 267
 268 void ScXMLCellFieldTitleContext::SetStyleName(const OUString& rStyleName)
 269 {
 270     maStyleName = rStyleName;
 271 }
 272
 273 void ScXMLCellFieldTitleContext::StartElement(const uno::Reference<xml::sax::XAttributeList>& /*xAttrList*/)
 274 {
 275 }
 276
 277 void ScXMLCellFieldTitleContext::EndElement()
 278 {
 279     mrParentCxt.PushFieldTitle(maStyleName);
 280 }
 281
 282 void ScXMLCellFieldTitleContext::Characters(const OUString& /*rChars*/)
 283 {
 284 }
 285
 286 SvXMLImportContext* ScXMLCellFieldTitleContext::CreateChildContext(
 287     sal_uInt16 nPrefix, const OUString& rLocalName, const uno::Reference<xml::sax::XAttributeList>& /*xAttrList*/)
 288 {
 289     return new SvXMLImportContext(GetImport(), nPrefix, rLocalName);
 290 }
 291
 292 ScXMLCellFieldURLContext::ScXMLCellFieldURLContext(
 293     ScXMLImport& rImport, sal_uInt16 nPrefix, const OUString& rLName, ScXMLCellTextParaContext& rParent) :
 294     ScXMLImportContext(rImport, nPrefix, rLName),
 295     mrParentCxt(rParent)
 296 {
 297 }
 298
 299 void ScXMLCellFieldURLContext::SetStyleName(const OUString& rStyleName)
 300 {
 301     maStyleName = rStyleName;
 302 }
 303
 304 void ScXMLCellFieldURLContext::StartElement(const uno::Reference<xml::sax::XAttributeList>& xAttrList)
 305 {
 306     if (!xAttrList.is())
 307         return;
 308
 309     OUString aLocalName;
 310     sal_Int16 nAttrCount = xAttrList->getLength();
 311
 312     const SvXMLTokenMap& rTokenMap = GetScImport().GetCellTextURLAttrTokenMap();
 313     for (sal_Int16 i = 0; i < nAttrCount; ++i)
 314     {
 315         sal_uInt16 nAttrPrefix = GetImport().GetNamespaceMap().GetKeyByAttrName(
 316             xAttrList->getNameByIndex(i), &aLocalName);
 317
 318         const OUString& rAttrValue = xAttrList->getValueByIndex(i);
 319         sal_uInt16 nToken = rTokenMap.Get(nAttrPrefix, aLocalName);
 320         switch (nToken)
 321         {
 322             case XML_TOK_CELL_TEXT_URL_ATTR_UREF:
 323                 maURL = rAttrValue;
 324             break;
 325             case XML_TOK_CELL_TEXT_URL_ATTR_TYPE:
 326                 // Ignored for now.
 327             break;
 328             default:
 329                 ;
 330         }
 331     }
 332 }
 333
 334 void ScXMLCellFieldURLContext::EndElement()
 335 {
 336     mrParentCxt.PushFieldURL(maURL, maRep, maStyleName);
 337 }
 338
 339 void ScXMLCellFieldURLContext::Characters(const OUString& rChars)
 340 {
 341     maRep += rChars;
 342 }
 343
 344 SvXMLImportContext* ScXMLCellFieldURLContext::CreateChildContext(
 345     sal_uInt16 nPrefix, const OUString& rLocalName, const uno::Reference<xml::sax::XAttributeList>& /*xAttrList*/)
 346 {
 347     return new SvXMLImportContext(GetImport(), nPrefix, rLocalName);
 348 }
 349
 350 ScXMLCellFieldSContext::ScXMLCellFieldSContext(
 351     ScXMLImport& rImport, sal_uInt16 nPrefix, const OUString& rLName, ScXMLCellTextParaContext& rParent) :
 352     ScXMLImportContext(rImport, nPrefix, rLName),
 353     mrParentCxt(rParent),
 354     mnCount(1)
 355 {
 356 }
 357
 358 void ScXMLCellFieldSContext::SetStyleName(const OUString& rStyleName)
 359 {
 360     maStyleName = rStyleName;
 361 }
 362
 363 void ScXMLCellFieldSContext::StartElement(const uno::Reference<xml::sax::XAttributeList>& xAttrList)
 364 {
 365     if (!xAttrList.is())
 366         return;
 367
 368     OUString aLocalName;
 369     sal_Int16 nAttrCount = xAttrList->getLength();
 370
 371     const SvXMLTokenMap& rTokenMap = GetScImport().GetCellTextSAttrTokenMap();
 372     for (sal_Int16 i = 0; i < nAttrCount; ++i)
 373     {
 374         sal_uInt16 nAttrPrefix = GetImport().GetNamespaceMap().GetKeyByAttrName(
 375             xAttrList->getNameByIndex(i), &aLocalName);
 376
 377         const OUString& rAttrValue = xAttrList->getValueByIndex(i);
 378         sal_uInt16 nToken = rTokenMap.Get(nAttrPrefix, aLocalName);
 379         switch (nToken)
 380         {
 381             case XML_TOK_CELL_TEXT_S_ATTR_C:
 382                 mnCount = rAttrValue.toInt32();
 383                 if (mnCount <= 0)
 384                     mnCount = 1;     // worth a warning?
 385             break;
 386             default:
 387                 ;
 388         }
 389     }
 390 }
 391
 392 void ScXMLCellFieldSContext::EndElement()
 393 {
 394     if (mnCount)
 395         PushSpaces();
 396 }
 397
 398 SvXMLImportContext* ScXMLCellFieldSContext::CreateChildContext(
 399     sal_uInt16 nPrefix, const OUString& rLocalName, const uno::Reference<xml::sax::XAttributeList>& /*xAttrList*/)
 400 {
 401     // <text:s> does not have child elements, but ...
 402     if (mnCount)
 403     {
 404         PushSpaces();
 405         mnCount = 0;
 406     }
 407
 408     return new SvXMLImportContext(GetImport(), nPrefix, rLocalName);
 409 }
 410
 411 void ScXMLCellFieldSContext::PushSpaces()
 412 {
 413     if (mnCount > 0)
 414     {
 415         if (mnCount == 1)
 416             mrParentCxt.PushSpan(" ", maStyleName);
 417         else
 418         {
 419             OUStringBuffer aBuf( mnCount);
 420             comphelper::string::padToLength( aBuf, mnCount, ' ');
 421             mrParentCxt.PushSpan( aBuf.makeStringAndClear(), maStyleName);
 422         }
 423     }
 424 }
 425
 426 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */