sc/source/ui/unoobj/addruno.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 <com/sun/star/table/CellAddress.hpp>
  21 #include <com/sun/star/table/CellRangeAddress.hpp>
  22
  23 #include <svl/itemprop.hxx>
  24 #include <vcl/svapp.hxx>
  25
  26 #include "docsh.hxx"
  27 #include "unonames.hxx"
  28 #include "miscuno.hxx"
  29 #include "convuno.hxx"
  30 #include "addruno.hxx"
  31
  32 using namespace com::sun::star;
  33
  34 //------------------------------------------------------------------------
  35
  36 ScAddressConversionObj::ScAddressConversionObj(ScDocShell* pDocSh, sal_Bool bForRange) :
  37     pDocShell( pDocSh ),
  38     nRefSheet( 0 ),
  39     bIsRange( bForRange )
  40 {
  41     pDocShell->GetDocument()->AddUnoObject(*this);
  42 }
  43
  44 ScAddressConversionObj::~ScAddressConversionObj()
  45 {
  46     if (pDocShell)
  47         pDocShell->GetDocument()->RemoveUnoObject(*this);
  48 }
  49
  50 void ScAddressConversionObj::Notify( SfxBroadcaster&, const SfxHint& rHint )
  51 {
  52     if ( rHint.ISA( SfxSimpleHint ) &&
  53             ((const SfxSimpleHint&)rHint).GetId() == SFX_HINT_DYING )
  54     {
  55         pDocShell = NULL;       // invalid
  56     }
  57 }
  58
  59 sal_Bool ScAddressConversionObj::ParseUIString( const OUString& rUIString, ::formula::FormulaGrammar::AddressConvention eConv )
  60 {
  61     if (!pDocShell)
  62         return false;
  63
  64     ScDocument* pDoc = pDocShell->GetDocument();
  65     sal_Bool bSuccess = false;
  66     if ( bIsRange )
  67     {
  68         sal_uInt16 nResult = aRange.ParseAny( rUIString, pDoc, eConv );
  69         if ( nResult & SCA_VALID )
  70         {
  71             if ( ( nResult & SCA_TAB_3D ) == 0 )
  72                 aRange.aStart.SetTab( static_cast<SCTAB>(nRefSheet) );
  73             if ( ( nResult & SCA_TAB2_3D ) == 0 )
  74                 aRange.aEnd.SetTab( aRange.aStart.Tab() );
  75             // different sheets are not supported in CellRangeAddress
  76             if ( aRange.aStart.Tab() == aRange.aEnd.Tab() )
  77                 bSuccess = sal_True;
  78         }
  79     }
  80     else
  81     {
  82         sal_uInt16 nResult = aRange.aStart.Parse( rUIString, pDoc, eConv );
  83         if ( nResult & SCA_VALID )
  84         {
  85             if ( ( nResult & SCA_TAB_3D ) == 0 )
  86                 aRange.aStart.SetTab( static_cast<SCTAB>(nRefSheet) );
  87             bSuccess = sal_True;
  88         }
  89     }
  90     return bSuccess;
  91 }
  92
  93 // XPropertySet
  94
  95 uno::Reference<beans::XPropertySetInfo> SAL_CALL ScAddressConversionObj::getPropertySetInfo()
  96                                                         throw(uno::RuntimeException)
  97 {
  98     SolarMutexGuard aGuard;
  99
 100     if ( bIsRange )
 101     {
 102         static const SfxItemPropertyMapEntry aPropertyMap[] =
 103         {
 104             {MAP_CHAR_LEN(SC_UNONAME_ADDRESS),  0,  &getCppuType((table::CellRangeAddress*)0), 0, 0 },
 105             {MAP_CHAR_LEN(SC_UNONAME_PERSREPR), 0,  &getCppuType((OUString*)0),    0, 0 },
 106             {MAP_CHAR_LEN(SC_UNONAME_XLA1REPR), 0,  &getCppuType((OUString*)0),    0, 0 },
 107             {MAP_CHAR_LEN(SC_UNONAME_REFSHEET), 0,  &getCppuType((sal_Int32*)0),        0, 0 },
 108             {MAP_CHAR_LEN(SC_UNONAME_UIREPR),   0,  &getCppuType((OUString*)0),    0, 0 },
 109             {MAP_CHAR_LEN(SC_UNONAME_XLA1REPR), 0,  &getCppuType((OUString*)0),    0, 0 },
 110             {0,0,0,0,0,0}
 111         };
 112         static uno::Reference<beans::XPropertySetInfo> aRef(new SfxItemPropertySetInfo( aPropertyMap ));
 113         return aRef;
 114     }
 115     else
 116     {
 117         static const SfxItemPropertyMapEntry aPropertyMap[] =
 118         {
 119             {MAP_CHAR_LEN(SC_UNONAME_ADDRESS),  0,  &getCppuType((table::CellAddress*)0), 0, 0 },
 120             {MAP_CHAR_LEN(SC_UNONAME_PERSREPR), 0,  &getCppuType((OUString*)0),    0, 0 },
 121             {MAP_CHAR_LEN(SC_UNONAME_XLA1REPR), 0,  &getCppuType((OUString*)0),    0, 0 },
 122             {MAP_CHAR_LEN(SC_UNONAME_REFSHEET), 0,  &getCppuType((sal_Int32*)0),        0, 0 },
 123             {MAP_CHAR_LEN(SC_UNONAME_UIREPR),   0,  &getCppuType((OUString*)0),    0, 0 },
 124             {MAP_CHAR_LEN(SC_UNONAME_XLA1REPR), 0,  &getCppuType((OUString*)0),    0, 0 },
 125             {0,0,0,0,0,0}
 126         };
 127         static uno::Reference<beans::XPropertySetInfo> aRef(new SfxItemPropertySetInfo( aPropertyMap ));
 128         return aRef;
 129     }
 130 }
 131
 132 void SAL_CALL ScAddressConversionObj::setPropertyValue( const OUString& aPropertyName, const uno::Any& aValue )
 133                 throw(beans::UnknownPropertyException, beans::PropertyVetoException,
 134                         lang::IllegalArgumentException, lang::WrappedTargetException,
 135                         uno::RuntimeException)
 136 {
 137     if ( !pDocShell )
 138         throw uno::RuntimeException();
 139
 140     sal_Bool bSuccess = false;
 141     OUString aNameStr(aPropertyName);
 142     if ( aNameStr.equalsAscii( SC_UNONAME_ADDRESS ) )
 143     {
 144         //  read the cell/range address from API struct
 145         if ( bIsRange )
 146         {
 147             table::CellRangeAddress aRangeAddress;
 148             if ( aValue >>= aRangeAddress )
 149             {
 150                 ScUnoConversion::FillScRange( aRange, aRangeAddress );
 151                 bSuccess = sal_True;
 152             }
 153         }
 154         else
 155         {
 156             table::CellAddress aCellAddress;
 157             if ( aValue >>= aCellAddress )
 158             {
 159                 ScUnoConversion::FillScAddress( aRange.aStart, aCellAddress );
 160                 bSuccess = sal_True;
 161             }
 162         }
 163     }
 164     else if ( aNameStr.equalsAscii( SC_UNONAME_REFSHEET ) )
 165     {
 166         //  set the reference sheet
 167         sal_Int32 nIntVal = 0;
 168         if ( aValue >>= nIntVal )
 169         {
 170             nRefSheet = nIntVal;
 171             bSuccess = sal_True;
 172         }
 173     }
 174     else if ( aNameStr.equalsAscii( SC_UNONAME_UIREPR ) )
 175     {
 176         //  parse the UI representation string
 177         OUString sRepresentation;
 178         if (aValue >>= sRepresentation)
 179         {
 180             OUString aUIString = sRepresentation;
 181             bSuccess = ParseUIString( aUIString );
 182         }
 183     }
 184     else if ( aNameStr.equalsAscii( SC_UNONAME_PERSREPR ) || aNameStr.equalsAscii( SC_UNONAME_XLA1REPR ) )
 185     {
 186         ::formula::FormulaGrammar::AddressConvention eConv = aNameStr.equalsAscii( SC_UNONAME_XLA1REPR ) ?
 187             ::formula::FormulaGrammar::CONV_XL_A1 : ::formula::FormulaGrammar::CONV_OOO;
 188
 189         //  parse the file format string
 190         OUString sRepresentation;
 191         if (aValue >>= sRepresentation)
 192         {
 193             OUString aUIString(sRepresentation);
 194
 195             //  cell or range: strip a single "." at the start
 196             if ( aUIString[0]== (sal_Unicode) '.' )
 197                 aUIString = aUIString.copy( 1 );
 198
 199             if ( bIsRange )
 200             {
 201                 //  range: also strip a "." after the last colon
 202                 sal_Int32 nColon = OUString(aUIString).lastIndexOf( (sal_Unicode) ':' );
 203                 if ( nColon >= 0 && nColon < aUIString.getLength() - 1 &&
 204                      aUIString[nColon+1] == '.' )
 205                     aUIString = aUIString.replaceAt( nColon+1, 1, "" );
 206             }
 207
 208             //  parse the rest like a UI string
 209             bSuccess = ParseUIString( aUIString, eConv );
 210         }
 211     }
 212     else
 213         throw beans::UnknownPropertyException();
 214
 215     if ( !bSuccess )
 216         throw lang::IllegalArgumentException();
 217 }
 218
 219 uno::Any SAL_CALL ScAddressConversionObj::getPropertyValue( const OUString& aPropertyName )
 220                 throw(beans::UnknownPropertyException, lang::WrappedTargetException,
 221                         uno::RuntimeException)
 222 {
 223     if ( !pDocShell )
 224         throw uno::RuntimeException();
 225
 226     ScDocument* pDoc = pDocShell->GetDocument();
 227     uno::Any aRet;
 228
 229     OUString aNameStr(aPropertyName);
 230     if ( aNameStr.equalsAscii( SC_UNONAME_ADDRESS ) )
 231     {
 232         if ( bIsRange )
 233         {
 234             table::CellRangeAddress aRangeAddress;
 235             ScUnoConversion::FillApiRange( aRangeAddress, aRange );
 236             aRet <<= aRangeAddress;
 237         }
 238         else
 239         {
 240             table::CellAddress aCellAddress;
 241             ScUnoConversion::FillApiAddress( aCellAddress, aRange.aStart );
 242             aRet <<= aCellAddress;
 243         }
 244     }
 245     else if ( aNameStr.equalsAscii( SC_UNONAME_REFSHEET ) )
 246     {
 247         aRet <<= nRefSheet;
 248     }
 249     else if ( aNameStr.equalsAscii( SC_UNONAME_UIREPR ) )
 250     {
 251         //  generate UI representation string - include sheet only if different from ref sheet
 252         OUString aFormatStr;
 253         sal_uInt16 nFlags = SCA_VALID;
 254         if ( aRange.aStart.Tab() != nRefSheet )
 255             nFlags |= SCA_TAB_3D;
 256         if ( bIsRange )
 257             aFormatStr = aRange.Format(nFlags, pDoc);
 258         else
 259             aFormatStr = aRange.aStart.Format(nFlags, pDoc);
 260         aRet <<= aFormatStr;
 261     }
 262     else if ( aNameStr.equalsAscii( SC_UNONAME_PERSREPR ) || aNameStr.equalsAscii( SC_UNONAME_XLA1REPR ) )
 263     {
 264         ::formula::FormulaGrammar::AddressConvention eConv = aNameStr.equalsAscii( SC_UNONAME_XLA1REPR ) ?
 265             ::formula::FormulaGrammar::CONV_XL_A1 : ::formula::FormulaGrammar::CONV_OOO;
 266
 267         //  generate file format string - always include sheet
 268         OUString aFormatStr(aRange.aStart.Format(SCA_VALID | SCA_TAB_3D, pDoc, eConv));
 269         if ( bIsRange )
 270         {
 271             //  manually concatenate range so both parts always have the sheet name
 272             aFormatStr += ":";
 273             sal_uInt16 nFlags = SCA_VALID;
 274             if( eConv != ::formula::FormulaGrammar::CONV_XL_A1 )
 275                 nFlags |= SCA_TAB_3D;
 276             OUString aSecond(aRange.aEnd.Format(nFlags, pDoc, eConv));
 277             aFormatStr += aSecond ;
 278         }
 279         aRet <<= OUString( aFormatStr );
 280     }
 281     else
 282         throw beans::UnknownPropertyException();
 283
 284     return aRet;
 285 }
 286
 287 SC_IMPL_DUMMY_PROPERTY_LISTENER( ScAddressConversionObj )
 288
 289 // lang::XServiceInfo
 290
 291 OUString SAL_CALL ScAddressConversionObj::getImplementationName() throw(uno::RuntimeException)
 292 {
 293     return OUString("ScAddressConversionObj" );
 294 }
 295
 296 sal_Bool SAL_CALL ScAddressConversionObj::supportsService( const OUString& rServiceName )
 297                                                     throw(uno::RuntimeException)
 298 {
 299     OUString aServiceStr( rServiceName );
 300     return aServiceStr.equalsAscii( bIsRange ? SC_SERVICENAME_RANGEADDRESS
 301                                              : SC_SERVICENAME_CELLADDRESS );
 302 }
 303
 304 uno::Sequence<OUString> SAL_CALL ScAddressConversionObj::getSupportedServiceNames()
 305                                                     throw(uno::RuntimeException)
 306 {
 307     uno::Sequence<OUString> aRet(1);
 308     OUString* pArray = aRet.getArray();
 309     pArray[0] = bIsRange ? OUString(SC_SERVICENAME_RANGEADDRESS)
 310                          : OUString(SC_SERVICENAME_CELLADDRESS);
 311     return aRet;
 312 }
 313
 314 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */