svl/source/numbers/numfmuno.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 <tools/color.hxx>
  21 #include <i18nlangtag/mslangid.hxx>
  22 #include <o3tl/any.hxx>
  23 #include <osl/mutex.hxx>
  24 #include <osl/diagnose.h>
  25 #include <rtl/ustring.hxx>
  26
  27 #include <com/sun/star/util/Date.hpp>
  28 #include <com/sun/star/util/MalformedNumberFormatException.hpp>
  29 #include <com/sun/star/util/NotNumericException.hpp>
  30 #include <com/sun/star/beans/PropertyAttribute.hpp>
  31 #include <comphelper/propertysequence.hxx>
  32 #include <cppuhelper/supportsservice.hxx>
  33
  34 #include "numfmuno.hxx"
  35 #include <svl/numuno.hxx>
  36 #include <svl/zforlist.hxx>
  37 #include <svl/zformat.hxx>
  38 #include <svl/itemprop.hxx>
  39
  40 using namespace com::sun::star;
  41
  42 #define PROPERTYNAME_FMTSTR     "FormatString"
  43 #define PROPERTYNAME_LOCALE     "Locale"
  44 #define PROPERTYNAME_TYPE       "Type"
  45 #define PROPERTYNAME_COMMENT    "Comment"
  46 #define PROPERTYNAME_CURREXT    "CurrencyExtension"
  47 #define PROPERTYNAME_CURRSYM    "CurrencySymbol"
  48 #define PROPERTYNAME_CURRABB    "CurrencyAbbreviation"
  49 #define PROPERTYNAME_DECIMALS   "Decimals"
  50 #define PROPERTYNAME_LEADING    "LeadingZeros"
  51 #define PROPERTYNAME_NEGRED     "NegativeRed"
  52 #define PROPERTYNAME_STDFORM    "StandardFormat"
  53 #define PROPERTYNAME_THOUS      "ThousandsSeparator"
  54 #define PROPERTYNAME_USERDEF    "UserDefined"
  55
  56 #define PROPERTYNAME_NOZERO     "NoZero"
  57 #define PROPERTYNAME_NULLDATE   "NullDate"
  58 #define PROPERTYNAME_STDDEC     "StandardDecimals"
  59 #define PROPERTYNAME_TWODIGIT   "TwoDigitDateStart"
  60
  61 // All without a Which-ID, Map only for PropertySetInfo
  62
  63 static const SfxItemPropertyMapEntry* lcl_GetNumberFormatPropertyMap()
  64 {
  65     static const SfxItemPropertyMapEntry aNumberFormatPropertyMap_Impl[] =
  66     {
  67         {OUString(PROPERTYNAME_FMTSTR),   0, cppu::UnoType<OUString>::get(),    beans::PropertyAttribute::BOUND | beans::PropertyAttribute::READONLY, 0},
  68         {OUString(PROPERTYNAME_LOCALE),   0, cppu::UnoType<lang::Locale>::get(),beans::PropertyAttribute::BOUND | beans::PropertyAttribute::READONLY, 0},
  69         {OUString(PROPERTYNAME_TYPE),     0, cppu::UnoType<sal_Int16>::get(),   beans::PropertyAttribute::BOUND | beans::PropertyAttribute::READONLY, 0},
  70         {OUString(PROPERTYNAME_COMMENT),  0, cppu::UnoType<OUString>::get(),    beans::PropertyAttribute::BOUND | beans::PropertyAttribute::READONLY, 0},
  71         {OUString(PROPERTYNAME_CURREXT),  0, cppu::UnoType<OUString>::get(),    beans::PropertyAttribute::BOUND | beans::PropertyAttribute::READONLY, 0},
  72         {OUString(PROPERTYNAME_CURRSYM),  0, cppu::UnoType<OUString>::get(),    beans::PropertyAttribute::BOUND | beans::PropertyAttribute::READONLY, 0},
  73         {OUString(PROPERTYNAME_DECIMALS), 0, cppu::UnoType<sal_Int16>::get(),   beans::PropertyAttribute::BOUND | beans::PropertyAttribute::READONLY, 0},
  74         {OUString(PROPERTYNAME_LEADING),  0, cppu::UnoType<sal_Int16>::get(),   beans::PropertyAttribute::BOUND | beans::PropertyAttribute::READONLY, 0},
  75         {OUString(PROPERTYNAME_NEGRED),   0, cppu::UnoType<bool>::get(),         beans::PropertyAttribute::BOUND | beans::PropertyAttribute::READONLY, 0},
  76         {OUString(PROPERTYNAME_STDFORM),  0, cppu::UnoType<bool>::get(),         beans::PropertyAttribute::BOUND | beans::PropertyAttribute::READONLY, 0},
  77         {OUString(PROPERTYNAME_THOUS),    0, cppu::UnoType<bool>::get(),         beans::PropertyAttribute::BOUND | beans::PropertyAttribute::READONLY, 0},
  78         {OUString(PROPERTYNAME_USERDEF),  0, cppu::UnoType<bool>::get(),         beans::PropertyAttribute::BOUND | beans::PropertyAttribute::READONLY, 0},
  79         {OUString(PROPERTYNAME_CURRABB),  0, cppu::UnoType<OUString>::get(),    beans::PropertyAttribute::BOUND | beans::PropertyAttribute::READONLY, 0},
  80         { OUString(), 0, css::uno::Type(), 0, 0 }
  81     };
  82     return aNumberFormatPropertyMap_Impl;
  83 }
  84
  85 static const SfxItemPropertyMapEntry* lcl_GetNumberSettingsPropertyMap()
  86 {
  87     static const SfxItemPropertyMapEntry aNumberSettingsPropertyMap_Impl[] =
  88     {
  89         {OUString(PROPERTYNAME_NOZERO),   0, cppu::UnoType<bool>::get(),         beans::PropertyAttribute::BOUND, 0},
  90         {OUString(PROPERTYNAME_NULLDATE), 0, cppu::UnoType<util::Date>::get(),  beans::PropertyAttribute::BOUND, 0},
  91         {OUString(PROPERTYNAME_STDDEC),   0, cppu::UnoType<sal_Int16>::get(),   beans::PropertyAttribute::BOUND, 0},
  92         {OUString(PROPERTYNAME_TWODIGIT), 0, cppu::UnoType<sal_Int16>::get(),   beans::PropertyAttribute::BOUND, 0},
  93         { OUString(), 0, css::uno::Type(), 0, 0 }
  94     };
  95     return aNumberSettingsPropertyMap_Impl;
  96 }
  97
  98 static LanguageType lcl_GetLanguage( const lang::Locale& rLocale )
  99 {
 100     LanguageType eRet = LanguageTag::convertToLanguageType( rLocale, false);
 101     if ( eRet == LANGUAGE_NONE )
 102         eRet = LANGUAGE_SYSTEM; //! or throw an exception?
 103
 104     return eRet;
 105 }
 106
 107 SvNumberFormatterServiceObj::SvNumberFormatterServiceObj()
 108     :m_aMutex()
 109 {
 110 }
 111
 112 SvNumberFormatterServiceObj::~SvNumberFormatterServiceObj()
 113 {
 114 }
 115
 116 // XNumberFormatter
 117
 118 void SAL_CALL SvNumberFormatterServiceObj::attachNumberFormatsSupplier( const uno::Reference<util::XNumberFormatsSupplier>& _xSupplier )
 119 {
 120     ::rtl::Reference< SvNumberFormatsSupplierObj > xAutoReleaseOld;
 121
 122     // SYNCHRONIZED ->
 123     {
 124         ::osl::MutexGuard aGuard( ::osl::Mutex::getGlobalMutex() );
 125
 126         SvNumberFormatsSupplierObj* pNew = SvNumberFormatsSupplierObj::getImplementation( _xSupplier );
 127         if (!pNew)
 128             throw uno::RuntimeException(); // wrong object
 129
 130         xAutoReleaseOld = xSupplier;
 131
 132         xSupplier = pNew;
 133         m_aMutex = xSupplier->getSharedMutex();
 134     }
 135     // <- SYNCHRONIZED
 136 }
 137
 138 uno::Reference<util::XNumberFormatsSupplier> SAL_CALL SvNumberFormatterServiceObj::getNumberFormatsSupplier()
 139 {
 140     ::osl::MutexGuard aGuard( m_aMutex );
 141     return xSupplier.get();
 142 }
 143
 144 sal_Int32 SAL_CALL SvNumberFormatterServiceObj::detectNumberFormat( sal_Int32 nKey, const OUString& aString )
 145 {
 146     ::osl::MutexGuard aGuard( m_aMutex );
 147
 148     SvNumberFormatter* pFormatter = xSupplier.is() ? xSupplier->GetNumberFormatter() : nullptr;
 149     if (!pFormatter)
 150         throw uno::RuntimeException();
 151
 152     sal_uInt32 nUKey = nKey;
 153     double fValue = 0.0;
 154     if ( !pFormatter->IsNumberFormat(aString, nUKey, fValue) )
 155         throw util::NotNumericException();
 156
 157     return nUKey;
 158 }
 159
 160 double SAL_CALL SvNumberFormatterServiceObj::convertStringToNumber( sal_Int32 nKey, const OUString& aString )
 161 {
 162     ::osl::MutexGuard aGuard( m_aMutex );
 163
 164     SvNumberFormatter* pFormatter = xSupplier.is() ? xSupplier->GetNumberFormatter() : nullptr;
 165     if (!pFormatter)
 166         throw uno::RuntimeException();
 167
 168     sal_uInt32 nUKey = nKey;
 169     double fValue = 0.0;
 170     if ( !pFormatter->IsNumberFormat(aString, nUKey, fValue) )
 171         throw util::NotNumericException();
 172
 173     return fValue;
 174 }
 175
 176 OUString SAL_CALL SvNumberFormatterServiceObj::convertNumberToString( sal_Int32 nKey, double fValue )
 177 {
 178     ::osl::MutexGuard aGuard( m_aMutex );
 179
 180     OUString aRet;
 181     SvNumberFormatter* pFormatter = xSupplier.is() ? xSupplier->GetNumberFormatter() : nullptr;
 182     if (!pFormatter)
 183         throw uno::RuntimeException();
 184
 185     Color* pColor = nullptr;
 186     pFormatter->GetOutputString(fValue, nKey, aRet, &pColor);
 187
 188     return aRet;
 189 }
 190
 191 util::Color SAL_CALL SvNumberFormatterServiceObj::queryColorForNumber( sal_Int32 nKey,
 192                                                                        double fValue,
 193                                                                        util::Color aDefaultColor )
 194 {
 195     ::osl::MutexGuard aGuard( m_aMutex );
 196
 197     util::Color nRet = aDefaultColor; // color = sal_Int32
 198     SvNumberFormatter* pFormatter = xSupplier.is() ? xSupplier->GetNumberFormatter() : nullptr;
 199     if (!pFormatter)
 200         throw uno::RuntimeException();
 201
 202     OUString aStr;
 203     Color* pColor = nullptr;
 204     pFormatter->GetOutputString(fValue, nKey, aStr, &pColor);
 205     if (pColor)
 206         nRet = sal_uInt32(*pColor);
 207     // Else keep Default
 208
 209     return nRet;
 210 }
 211
 212 OUString SAL_CALL SvNumberFormatterServiceObj::formatString( sal_Int32 nKey,
 213                                                              const OUString& aString )
 214 {
 215     ::osl::MutexGuard aGuard( m_aMutex );
 216
 217     OUString aRet;
 218     SvNumberFormatter* pFormatter = xSupplier.is() ? xSupplier->GetNumberFormatter() : nullptr;
 219     if (!pFormatter)
 220     {
 221         throw uno::RuntimeException();
 222     }
 223
 224     Color* pColor = nullptr;
 225     pFormatter->GetOutputString(aString, nKey, aRet, &pColor);
 226
 227     return aRet;
 228 }
 229
 230 util::Color SAL_CALL SvNumberFormatterServiceObj::queryColorForString( sal_Int32 nKey,
 231                                                                        const OUString& aString,
 232                                                                        util::Color aDefaultColor )
 233 {
 234     ::osl::MutexGuard aGuard( m_aMutex );
 235
 236     util::Color nRet = aDefaultColor; // color = sal_Int32
 237     SvNumberFormatter* pFormatter = xSupplier.is() ? xSupplier->GetNumberFormatter() : nullptr;
 238     if (!pFormatter)
 239     {
 240         throw uno::RuntimeException();
 241     }
 242
 243     OUString aStr;
 244     Color* pColor = nullptr;
 245     pFormatter->GetOutputString(aString, nKey, aStr, &pColor);
 246     if (pColor)
 247     {
 248         nRet = sal_uInt32(*pColor);
 249     }
 250     // Else keep Default
 251
 252     return nRet;
 253 }
 254
 255 OUString SAL_CALL SvNumberFormatterServiceObj::getInputString( sal_Int32 nKey, double fValue )
 256 {
 257     ::osl::MutexGuard aGuard( m_aMutex );
 258
 259     OUString aRet;
 260     SvNumberFormatter* pFormatter = xSupplier.is() ? xSupplier->GetNumberFormatter() : nullptr;
 261     if (!pFormatter)
 262         throw uno::RuntimeException();
 263
 264     pFormatter->GetInputLineString(fValue, nKey, aRet);
 265
 266     return aRet;
 267 }
 268
 269 // XNumberFormatPreviewer
 270
 271 OUString SAL_CALL SvNumberFormatterServiceObj::convertNumberToPreviewString( const OUString& aFormat,
 272                                                                              double fValue,
 273                                                                              const lang::Locale& nLocale,
 274                                                                              sal_Bool bAllowEnglish )
 275 {
 276     ::osl::MutexGuard aGuard( m_aMutex );
 277
 278     OUString aRet;
 279     SvNumberFormatter* pFormatter = xSupplier.is() ? xSupplier->GetNumberFormatter() : nullptr;
 280     if (!pFormatter)
 281         throw uno::RuntimeException();
 282
 283     LanguageType eLang = lcl_GetLanguage( nLocale );
 284     Color* pColor = nullptr;
 285
 286     bool bOk;
 287     if ( bAllowEnglish )
 288         bOk = pFormatter->GetPreviewStringGuess( aFormat, fValue, aRet, &pColor, eLang );
 289     else
 290         bOk = pFormatter->GetPreviewString( aFormat, fValue, aRet, &pColor, eLang );
 291
 292     if (!bOk)
 293         throw util::MalformedNumberFormatException();
 294
 295     return aRet;
 296 }
 297
 298 util::Color SAL_CALL SvNumberFormatterServiceObj::queryPreviewColorForNumber( const OUString& aFormat,
 299                                                                               double fValue,
 300                                                                               const lang::Locale& nLocale,
 301                                                                               sal_Bool bAllowEnglish,
 302                                                                               util::Color aDefaultColor )
 303 {
 304     ::osl::MutexGuard aGuard( m_aMutex );
 305
 306     util::Color nRet = aDefaultColor; // color = sal_Int32
 307     SvNumberFormatter* pFormatter = xSupplier.is() ? xSupplier->GetNumberFormatter() : nullptr;
 308     if (!pFormatter)
 309         throw uno::RuntimeException();
 310
 311     OUString aOutString;
 312     LanguageType eLang = lcl_GetLanguage( nLocale );
 313     Color* pColor = nullptr;
 314
 315     bool bOk;
 316     if ( bAllowEnglish )
 317         bOk = pFormatter->GetPreviewStringGuess( aFormat, fValue, aOutString, &pColor, eLang );
 318     else
 319         bOk = pFormatter->GetPreviewString( aFormat, fValue, aOutString, &pColor, eLang );
 320
 321     if (!bOk)
 322         throw util::MalformedNumberFormatException();
 323
 324     if (pColor)
 325         nRet = sal_uInt32(*pColor);
 326     // Else keep Default
 327
 328     return nRet;
 329 }
 330
 331 // XServiceInfo
 332
 333 OUString SAL_CALL SvNumberFormatterServiceObj::getImplementationName()
 334 {
 335     return OUString("com.sun.star.uno.util.numbers.SvNumberFormatterServiceObject");
 336 }
 337
 338 sal_Bool SAL_CALL SvNumberFormatterServiceObj::supportsService( const OUString& ServiceName )
 339 {
 340     return cppu::supportsService( this, ServiceName );
 341 }
 342
 343 uno::Sequence<OUString> SAL_CALL SvNumberFormatterServiceObj::getSupportedServiceNames()
 344 {
 345     return { "com.sun.star.util.NumberFormatter" };
 346 }
 347
 348 SvNumberFormatsObj::SvNumberFormatsObj( SvNumberFormatsSupplierObj& _rParent, ::comphelper::SharedMutex const & _rMutex )
 349     :m_xSupplier( &_rParent )
 350     ,m_aMutex( _rMutex )
 351 {
 352 }
 353
 354 SvNumberFormatsObj::~SvNumberFormatsObj()
 355 {
 356 }
 357
 358 // XNumberFormats
 359
 360 uno::Reference<beans::XPropertySet> SAL_CALL SvNumberFormatsObj::getByKey( sal_Int32 nKey )
 361 {
 362     ::osl::MutexGuard aGuard( m_aMutex );
 363
 364     SvNumberFormatter* pFormatter = m_xSupplier->GetNumberFormatter();
 365     const SvNumberformat* pFormat = pFormatter ? pFormatter->GetEntry(nKey) : nullptr;
 366     if (!pFormat)
 367         throw uno::RuntimeException();
 368
 369     return new SvNumberFormatObj( *m_xSupplier, nKey, m_aMutex );
 370 }
 371
 372 uno::Sequence<sal_Int32> SAL_CALL SvNumberFormatsObj::queryKeys( sal_Int16 nType,
 373                                                                  const lang::Locale& nLocale,
 374                                                                  sal_Bool bCreate )
 375 {
 376     ::osl::MutexGuard aGuard( m_aMutex );
 377
 378     SvNumberFormatter* pFormatter = m_xSupplier->GetNumberFormatter();
 379     if ( !pFormatter )
 380         throw uno::RuntimeException();
 381
 382     sal_uInt32 nIndex = 0;
 383     LanguageType eLang = lcl_GetLanguage( nLocale );
 384     SvNumberFormatTable& rTable = bCreate ?
 385                                     pFormatter->ChangeCL( static_cast<SvNumFormatType>(nType), nIndex, eLang ) :
 386                                     pFormatter->GetEntryTable( static_cast<SvNumFormatType>(nType), nIndex, eLang );
 387     sal_uInt32 nCount = rTable.size();
 388     uno::Sequence<sal_Int32> aSeq(nCount);
 389     sal_Int32* pAry = aSeq.getArray();
 390     sal_uInt32 i=0;
 391     for (SvNumberFormatTable::const_iterator it = rTable.begin(); it != rTable.end(); ++it, ++i)
 392         pAry[i] = it->first;
 393
 394     return aSeq;
 395 }
 396
 397 sal_Int32 SAL_CALL SvNumberFormatsObj::queryKey( const OUString& aFormat,
 398                                                  const lang::Locale& nLocale,
 399                                                  sal_Bool bScan )
 400 {
 401     ::osl::MutexGuard aGuard( m_aMutex );
 402
 403     SvNumberFormatter* pFormatter = m_xSupplier->GetNumberFormatter();
 404     if (!pFormatter)
 405         throw uno::RuntimeException();
 406
 407     LanguageType eLang = lcl_GetLanguage( nLocale );
 408     if (bScan)
 409     {
 410         //! FIXME: Something still needs to happen here ...
 411     }
 412     sal_Int32 nRet = pFormatter->GetEntryKey( aFormat, eLang );
 413     return nRet;
 414 }
 415
 416 sal_Int32 SAL_CALL SvNumberFormatsObj::addNew( const OUString& aFormat,
 417                                                const lang::Locale& nLocale )
 418 {
 419     ::osl::MutexGuard aGuard( m_aMutex );
 420
 421     sal_Int32 nRet = 0;
 422     SvNumberFormatter* pFormatter = m_xSupplier->GetNumberFormatter();
 423     if (!pFormatter)
 424         throw uno::RuntimeException();
 425
 426     OUString aFormStr = aFormat;
 427     LanguageType eLang = lcl_GetLanguage( nLocale );
 428     sal_uInt32 nKey = 0;
 429     sal_Int32 nCheckPos = 0;
 430     SvNumFormatType nType = SvNumFormatType::ALL;
 431     bool bOk = pFormatter->PutEntry( aFormStr, nCheckPos, nType, nKey, eLang );
 432     if (bOk)
 433         nRet = nKey;
 434     else if (nCheckPos)
 435     {
 436         throw util::MalformedNumberFormatException(); // Invalid Format
 437     }
 438     else
 439         throw uno::RuntimeException(); // Other error (e.g. already added)
 440
 441     return nRet;
 442 }
 443
 444 sal_Int32 SAL_CALL SvNumberFormatsObj::addNewConverted( const OUString& aFormat,
 445                                                         const lang::Locale& nLocale,
 446                                                         const lang::Locale& nNewLocale )
 447 {
 448     ::osl::MutexGuard aGuard( m_aMutex );
 449
 450     sal_Int32 nRet = 0;
 451     SvNumberFormatter* pFormatter = m_xSupplier->GetNumberFormatter();
 452     if (!pFormatter)
 453         throw uno::RuntimeException();
 454
 455     OUString aFormStr = aFormat;
 456     LanguageType eLang = lcl_GetLanguage( nLocale );
 457     LanguageType eNewLang = lcl_GetLanguage( nNewLocale );
 458     sal_uInt32 nKey = 0;
 459     sal_Int32 nCheckPos = 0;
 460     SvNumFormatType nType = SvNumFormatType::ALL;
 461     // This is used also when reading OOXML documents, there's no indicator
 462     // whether to convert date particle order as well, so don't. See tdf#119013
 463     bool bOk = pFormatter->PutandConvertEntry( aFormStr, nCheckPos, nType, nKey, eLang, eNewLang, false);
 464     if (bOk || nKey > 0)
 465         nRet = nKey;
 466     else if (nCheckPos)
 467     {
 468         throw util::MalformedNumberFormatException();       // Invalid format
 469     }
 470     else
 471         throw uno::RuntimeException(); // Other error (e.g. already added)
 472
 473     return nRet;
 474 }
 475
 476 void SAL_CALL SvNumberFormatsObj::removeByKey( sal_Int32 nKey )
 477 {
 478     ::osl::MutexGuard aGuard( m_aMutex );
 479     SvNumberFormatter* pFormatter = m_xSupplier->GetNumberFormatter();
 480
 481     if (pFormatter)
 482     {
 483         pFormatter->DeleteEntry(nKey);
 484     }
 485 }
 486
 487 OUString SAL_CALL SvNumberFormatsObj::generateFormat( sal_Int32 nBaseKey,
 488                                                       const lang::Locale& nLocale,
 489                                                       sal_Bool bThousands,
 490                                                       sal_Bool bRed, sal_Int16 nDecimals,
 491                                                       sal_Int16 nLeading )
 492 {
 493     ::osl::MutexGuard aGuard( m_aMutex );
 494
 495     SvNumberFormatter* pFormatter = m_xSupplier->GetNumberFormatter();
 496     if (!pFormatter)
 497         throw uno::RuntimeException();
 498
 499     LanguageType eLang = lcl_GetLanguage( nLocale );
 500     OUString aRet = pFormatter->GenerateFormat(nBaseKey, eLang, bThousands, bRed, nDecimals, nLeading);
 501     return aRet;
 502 }
 503
 504 // XNumberFormatTypes
 505
 506 sal_Int32 SAL_CALL SvNumberFormatsObj::getStandardIndex( const lang::Locale& nLocale )
 507 {
 508     ::osl::MutexGuard aGuard( m_aMutex );
 509
 510     SvNumberFormatter* pFormatter = m_xSupplier->GetNumberFormatter();
 511     if (!pFormatter)
 512         throw uno::RuntimeException();
 513
 514     LanguageType eLang = lcl_GetLanguage( nLocale );
 515     sal_Int32 nRet = pFormatter->GetStandardIndex(eLang);
 516     return nRet;
 517 }
 518
 519 sal_Int32 SAL_CALL SvNumberFormatsObj::getStandardFormat( sal_Int16 nType, const lang::Locale& nLocale )
 520 {
 521     ::osl::MutexGuard aGuard( m_aMutex );
 522
 523     SvNumberFormatter* pFormatter = m_xSupplier->GetNumberFormatter();
 524     if (!pFormatter)
 525         throw uno::RuntimeException();
 526
 527     LanguageType eLang = lcl_GetLanguage( nLocale );
 528     // Mask out "defined" bit, so type from an existing number format
 529     // can directly be used for getStandardFormat
 530     SvNumFormatType nType2 = static_cast<SvNumFormatType>(nType);
 531     nType2 &= ~SvNumFormatType::DEFINED;
 532     sal_Int32 nRet = pFormatter->GetStandardFormat(nType2, eLang);
 533     return nRet;
 534 }
 535
 536 sal_Int32 SAL_CALL SvNumberFormatsObj::getFormatIndex( sal_Int16 nIndex, const lang::Locale& nLocale )
 537 {
 538     ::osl::MutexGuard aGuard( m_aMutex );
 539
 540     SvNumberFormatter* pFormatter = m_xSupplier->GetNumberFormatter();
 541     if (!pFormatter)
 542         throw uno::RuntimeException();
 543
 544     LanguageType eLang = lcl_GetLanguage( nLocale );
 545     sal_Int32 nRet = pFormatter->GetFormatIndex( static_cast<NfIndexTableOffset>(nIndex), eLang );
 546     return nRet;
 547 }
 548
 549 sal_Bool SAL_CALL SvNumberFormatsObj::isTypeCompatible( sal_Int16 nOldType, sal_Int16 nNewType )
 550 {
 551     ::osl::MutexGuard aGuard( m_aMutex );
 552
 553     return SvNumberFormatter::IsCompatible( static_cast<SvNumFormatType>(nOldType), static_cast<SvNumFormatType>(nNewType) );
 554 }
 555
 556 sal_Int32 SAL_CALL SvNumberFormatsObj::getFormatForLocale( sal_Int32 nKey, const lang::Locale& nLocale )
 557 {
 558     ::osl::MutexGuard aGuard( m_aMutex );
 559
 560     SvNumberFormatter* pFormatter = m_xSupplier->GetNumberFormatter();
 561     if (!pFormatter)
 562         throw uno::RuntimeException();
 563
 564     LanguageType eLang = lcl_GetLanguage( nLocale );
 565     sal_Int32 nRet = pFormatter->GetFormatForLanguageIfBuiltIn(nKey, eLang);
 566     return nRet;
 567 }
 568
 569 // XServiceInfo
 570
 571 OUString SAL_CALL SvNumberFormatsObj::getImplementationName()
 572 {
 573     return OUString("SvNumberFormatsObj");
 574 }
 575
 576 sal_Bool SAL_CALL SvNumberFormatsObj::supportsService( const OUString& ServiceName )
 577 {
 578     return cppu::supportsService( this, ServiceName );
 579 }
 580
 581 uno::Sequence<OUString> SAL_CALL SvNumberFormatsObj::getSupportedServiceNames()
 582 {
 583     return { "com.sun.star.util.NumberFormats" };
 584 }
 585
 586 SvNumberFormatObj::SvNumberFormatObj( SvNumberFormatsSupplierObj& rParent, sal_uLong nK, const ::comphelper::SharedMutex& _rMutex )
 587     :m_xSupplier( &rParent )
 588     ,nKey( nK )
 589     ,m_aMutex( _rMutex )
 590 {
 591 }
 592
 593 SvNumberFormatObj::~SvNumberFormatObj()
 594 {
 595 }
 596
 597 // XPropertySet
 598
 599 uno::Reference<beans::XPropertySetInfo> SAL_CALL SvNumberFormatObj::getPropertySetInfo()
 600 {
 601     static uno::Reference<beans::XPropertySetInfo> aRef =
 602         new SfxItemPropertySetInfo( lcl_GetNumberFormatPropertyMap() );
 603     return aRef;
 604 }
 605
 606 void SAL_CALL SvNumberFormatObj::setPropertyValue( const OUString&,
 607                                                    const uno::Any& )
 608 {
 609     throw beans::UnknownPropertyException(); // Everything is read-only
 610 }
 611
 612 uno::Any SAL_CALL SvNumberFormatObj::getPropertyValue( const OUString& aPropertyName )
 613 {
 614     ::osl::MutexGuard aGuard( m_aMutex );
 615
 616     uno::Any aRet;
 617     SvNumberFormatter* pFormatter = m_xSupplier->GetNumberFormatter();
 618     const SvNumberformat* pFormat = pFormatter ? pFormatter->GetEntry(nKey) : nullptr;
 619     if (!pFormat)
 620         throw uno::RuntimeException();
 621
 622     bool bThousand, bRed;
 623     sal_uInt16 nDecimals, nLeading;
 624
 625     if (aPropertyName == PROPERTYNAME_FMTSTR)
 626     {
 627         aRet <<= pFormat->GetFormatstring();
 628     }
 629     else if (aPropertyName == PROPERTYNAME_LOCALE)
 630     {
 631         lang::Locale aLocale( LanguageTag::convertToLocale( pFormat->GetLanguage(), false));
 632         aRet <<= aLocale;
 633     }
 634     else if (aPropertyName == PROPERTYNAME_TYPE)
 635     {
 636         aRet <<= static_cast<sal_Int16>( pFormat->GetType() );
 637     }
 638     else if (aPropertyName == PROPERTYNAME_COMMENT)
 639     {
 640         aRet <<= pFormat->GetComment();
 641     }
 642     else if (aPropertyName == PROPERTYNAME_STDFORM)
 643     {
 644         //! Pass through SvNumberformat Member bStandard?
 645         aRet <<= ( ( nKey % SV_COUNTRY_LANGUAGE_OFFSET ) == 0 );
 646     }
 647     else if (aPropertyName == PROPERTYNAME_USERDEF)
 648     {
 649         aRet <<= bool( pFormat->GetType() & SvNumFormatType::DEFINED );
 650     }
 651     else if (aPropertyName == PROPERTYNAME_DECIMALS)
 652     {
 653         pFormat->GetFormatSpecialInfo( bThousand, bRed, nDecimals, nLeading );
 654         aRet <<= static_cast<sal_Int16>(nDecimals);
 655     }
 656     else if (aPropertyName == PROPERTYNAME_LEADING)
 657     {
 658         pFormat->GetFormatSpecialInfo( bThousand, bRed, nDecimals, nLeading );
 659         aRet <<= static_cast<sal_Int16>(nLeading);
 660     }
 661     else if (aPropertyName == PROPERTYNAME_NEGRED)
 662     {
 663         pFormat->GetFormatSpecialInfo( bThousand, bRed, nDecimals, nLeading );
 664         aRet <<= bRed;
 665     }
 666     else if (aPropertyName == PROPERTYNAME_THOUS)
 667     {
 668         pFormat->GetFormatSpecialInfo( bThousand, bRed, nDecimals, nLeading );
 669         aRet <<= bThousand;
 670     }
 671     else if (aPropertyName == PROPERTYNAME_CURRSYM)
 672     {
 673         OUString aSymbol, aExt;
 674         pFormat->GetNewCurrencySymbol( aSymbol, aExt );
 675         aRet <<= aSymbol;
 676     }
 677     else if (aPropertyName == PROPERTYNAME_CURREXT)
 678     {
 679         OUString aSymbol, aExt;
 680         pFormat->GetNewCurrencySymbol( aSymbol, aExt );
 681         aRet <<= aExt;
 682     }
 683     else if (aPropertyName == PROPERTYNAME_CURRABB)
 684     {
 685         OUString aSymbol, aExt;
 686         bool bBank = false;
 687         pFormat->GetNewCurrencySymbol( aSymbol, aExt );
 688         const NfCurrencyEntry* pCurr = SvNumberFormatter::GetCurrencyEntry( bBank,
 689             aSymbol, aExt, pFormat->GetLanguage() );
 690         if ( pCurr )
 691             aRet <<= pCurr->GetBankSymbol();
 692         else
 693             aRet <<= OUString();
 694     }
 695     else
 696         throw beans::UnknownPropertyException();
 697
 698     return aRet;
 699 }
 700
 701 void SAL_CALL SvNumberFormatObj::addPropertyChangeListener( const OUString&,
 702                                                             const uno::Reference<beans::XPropertyChangeListener>&)
 703 {
 704     OSL_FAIL("not implemented");
 705 }
 706
 707 void SAL_CALL SvNumberFormatObj::removePropertyChangeListener( const OUString&,
 708                                                                const uno::Reference<beans::XPropertyChangeListener>&)
 709 {
 710     OSL_FAIL("not implemented");
 711 }
 712
 713 void SAL_CALL SvNumberFormatObj::addVetoableChangeListener( const OUString&,
 714                                                             const uno::Reference<beans::XVetoableChangeListener>&)
 715 {
 716     OSL_FAIL("not implemented");
 717 }
 718
 719 void SAL_CALL SvNumberFormatObj::removeVetoableChangeListener( const OUString&,
 720                                                                const uno::Reference<beans::XVetoableChangeListener>&)
 721 {
 722     OSL_FAIL("not implemented");
 723 }
 724
 725 // XPropertyAccess
 726
 727 uno::Sequence<beans::PropertyValue> SAL_CALL SvNumberFormatObj::getPropertyValues()
 728 {
 729     ::osl::MutexGuard aGuard( m_aMutex );
 730
 731     SvNumberFormatter* pFormatter = m_xSupplier->GetNumberFormatter();
 732     const SvNumberformat* pFormat = pFormatter ? pFormatter->GetEntry(nKey) : nullptr;
 733     if (!pFormat)
 734         throw uno::RuntimeException();
 735
 736     OUString aSymbol, aExt;
 737     OUString aAbb;
 738     bool bBank = false;
 739     pFormat->GetNewCurrencySymbol( aSymbol, aExt );
 740     const NfCurrencyEntry* pCurr = SvNumberFormatter::GetCurrencyEntry( bBank,
 741         aSymbol, aExt, pFormat->GetLanguage() );
 742     if ( pCurr )
 743         aAbb = pCurr->GetBankSymbol();
 744
 745     OUString aFmtStr = pFormat->GetFormatstring();
 746     OUString aComment = pFormat->GetComment();
 747     bool bStandard = ( ( nKey % SV_COUNTRY_LANGUAGE_OFFSET ) == 0 );
 748     //! Pass through SvNumberformat Member bStandard?
 749     bool bUserDef( pFormat->GetType() & SvNumFormatType::DEFINED );
 750     bool bThousand, bRed;
 751     sal_uInt16 nDecimals, nLeading;
 752     pFormat->GetFormatSpecialInfo( bThousand, bRed, nDecimals, nLeading );
 753     lang::Locale aLocale( LanguageTag( pFormat->GetLanguage()).getLocale());
 754
 755     uno::Sequence<beans::PropertyValue> aSeq( comphelper::InitPropertySequence({
 756             { PROPERTYNAME_FMTSTR, uno::Any(aFmtStr) },
 757             { PROPERTYNAME_LOCALE, uno::Any(aLocale) },
 758             { PROPERTYNAME_TYPE, uno::Any(sal_Int16( pFormat->GetType() )) },
 759             { PROPERTYNAME_COMMENT, uno::Any(aComment) },
 760             { PROPERTYNAME_STDFORM, uno::Any(bStandard) },
 761             { PROPERTYNAME_USERDEF, uno::Any(bUserDef) },
 762             { PROPERTYNAME_DECIMALS, uno::Any(sal_Int16( nDecimals )) },
 763             { PROPERTYNAME_LEADING, uno::Any(sal_Int16( nLeading )) },
 764             { PROPERTYNAME_NEGRED, uno::Any(bRed) },
 765             { PROPERTYNAME_THOUS, uno::Any(bThousand) },
 766             { PROPERTYNAME_CURRSYM, uno::Any(aSymbol) },
 767             { PROPERTYNAME_CURREXT, uno::Any(aExt) },
 768             { PROPERTYNAME_CURRABB, uno::Any(aAbb) }
 769         }));
 770
 771     return aSeq;
 772 }
 773
 774 void SAL_CALL SvNumberFormatObj::setPropertyValues( const uno::Sequence<beans::PropertyValue>& )
 775 {
 776     throw beans::UnknownPropertyException(); // Everything is read-only
 777 }
 778
 779 // XServiceInfo
 780
 781 OUString SAL_CALL SvNumberFormatObj::getImplementationName()
 782 {
 783     return OUString("SvNumberFormatObj");
 784 }
 785
 786 sal_Bool SAL_CALL SvNumberFormatObj::supportsService( const OUString& ServiceName )
 787 {
 788     return cppu::supportsService( this, ServiceName );
 789 }
 790
 791 uno::Sequence<OUString> SAL_CALL SvNumberFormatObj::getSupportedServiceNames()
 792 {
 793     return { "com.sun.star.util.NumberFormatProperties" };
 794 }
 795
 796 SvNumberFormatSettingsObj::SvNumberFormatSettingsObj( SvNumberFormatsSupplierObj& rParent, const ::comphelper::SharedMutex& _rMutex )
 797     :m_xSupplier( &rParent )
 798     ,m_aMutex( _rMutex )
 799 {
 800 }
 801
 802 SvNumberFormatSettingsObj::~SvNumberFormatSettingsObj()
 803 {
 804 }
 805
 806 // XPropertySet
 807
 808 uno::Reference<beans::XPropertySetInfo> SAL_CALL SvNumberFormatSettingsObj::getPropertySetInfo()
 809 {
 810     static uno::Reference<beans::XPropertySetInfo> aRef =
 811         new SfxItemPropertySetInfo( lcl_GetNumberSettingsPropertyMap() );
 812     return aRef;
 813 }
 814
 815 void SAL_CALL SvNumberFormatSettingsObj::setPropertyValue( const OUString& aPropertyName,
 816                                                            const uno::Any& aValue )
 817 {
 818     ::osl::MutexGuard aGuard( m_aMutex );
 819
 820     SvNumberFormatter* pFormatter = m_xSupplier->GetNumberFormatter();
 821     if (!pFormatter)
 822         throw uno::RuntimeException();
 823
 824     if (aPropertyName == PROPERTYNAME_NOZERO)
 825     {
 826         //  operator >>= shouldn't be used for bool (?)
 827         if ( auto b = o3tl::tryAccess<bool>(aValue) )
 828             pFormatter->SetNoZero( *b );
 829     }
 830     else if (aPropertyName == PROPERTYNAME_NULLDATE)
 831     {
 832         util::Date aDate;
 833         if ( aValue >>= aDate )
 834             pFormatter->ChangeNullDate( aDate.Day, aDate.Month, aDate.Year );
 835     }
 836     else if (aPropertyName == PROPERTYNAME_STDDEC)
 837     {
 838         sal_Int16 nInt16 = sal_Int16();
 839         if ( aValue >>= nInt16 )
 840             pFormatter->ChangeStandardPrec( nInt16 );
 841     }
 842     else if (aPropertyName == PROPERTYNAME_TWODIGIT)
 843     {
 844         sal_Int16 nInt16 = sal_Int16();
 845         if ( aValue >>= nInt16 )
 846             pFormatter->SetYear2000( nInt16 );
 847     }
 848     else
 849         throw beans::UnknownPropertyException();
 850
 851 }
 852
 853 uno::Any SAL_CALL SvNumberFormatSettingsObj::getPropertyValue( const OUString& aPropertyName )
 854 {
 855     ::osl::MutexGuard aGuard( m_aMutex );
 856
 857     uno::Any aRet;
 858     SvNumberFormatter* pFormatter = m_xSupplier->GetNumberFormatter();
 859     if (!pFormatter)
 860         throw uno::RuntimeException();
 861
 862     if (aPropertyName == PROPERTYNAME_NOZERO)
 863     {
 864         aRet <<= pFormatter->GetNoZero();
 865     }
 866     else if (aPropertyName == PROPERTYNAME_NULLDATE)
 867     {
 868         const Date& rDate = pFormatter->GetNullDate();
 869         aRet <<= rDate.GetUNODate();
 870     }
 871     else if (aPropertyName == PROPERTYNAME_STDDEC)
 872         aRet <<= static_cast<sal_Int16>( pFormatter->GetStandardPrec() );
 873     else if (aPropertyName == PROPERTYNAME_TWODIGIT)
 874         aRet <<= static_cast<sal_Int16>( pFormatter->GetYear2000() );
 875     else
 876         throw beans::UnknownPropertyException();
 877
 878     return aRet;
 879 }
 880
 881 void SAL_CALL SvNumberFormatSettingsObj::addPropertyChangeListener( const OUString&,
 882                                                                     const uno::Reference<beans::XPropertyChangeListener>&)
 883 {
 884     OSL_FAIL("not implemented");
 885 }
 886
 887 void SAL_CALL SvNumberFormatSettingsObj::removePropertyChangeListener( const OUString&,
 888                                                                        const uno::Reference<beans::XPropertyChangeListener>&)
 889 {
 890     OSL_FAIL("not implemented");
 891 }
 892
 893 void SAL_CALL SvNumberFormatSettingsObj::addVetoableChangeListener( const OUString&,
 894                                                                     const uno::Reference<beans::XVetoableChangeListener>&)
 895 {
 896     OSL_FAIL("not implemented");
 897 }
 898
 899 void SAL_CALL SvNumberFormatSettingsObj::removeVetoableChangeListener( const OUString&,
 900                                                                        const uno::Reference<beans::XVetoableChangeListener>&)
 901 {
 902     OSL_FAIL("not implemented");
 903 }
 904
 905 // XServiceInfo
 906
 907 OUString SAL_CALL SvNumberFormatSettingsObj::getImplementationName()
 908 {
 909     return OUString("SvNumberFormatSettingsObj");
 910 }
 911
 912 sal_Bool SAL_CALL SvNumberFormatSettingsObj::supportsService( const OUString& ServiceName )
 913 {
 914     return cppu::supportsService( this, ServiceName );
 915 }
 916
 917 uno::Sequence<OUString> SAL_CALL SvNumberFormatSettingsObj::getSupportedServiceNames()
 918 {
 919     return { "com.sun.star.util.NumberFormatSettings" };
 920 }
 921
 922
 923 extern "C" SAL_DLLPUBLIC_EXPORT css::uno::XInterface*
 924 com_sun_star_uno_util_numbers_SvNumberFormatterServiceObject_get_implementation(css::uno::XComponentContext*,
 925                                                                                 css::uno::Sequence<css::uno::Any> const &)
 926 {
 927     return cppu::acquire(new SvNumberFormatterServiceObj());
 928 }
 929
 930
 931 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */