xref: /aoo4110/main/sc/source/ui/unoobj/addruno.cxx (revision b1cdbd2c)
1 /**************************************************************
2  *
3  * Licensed to the Apache Software Foundation (ASF) under one
4  * or more contributor license agreements.  See the NOTICE file
5  * distributed with this work for additional information
6  * regarding copyright ownership.  The ASF licenses this file
7  * to you under the Apache License, Version 2.0 (the
8  * "License"); you may not use this file except in compliance
9  * with the License.  You may obtain a copy of the License at
10  *
11  *   http://www.apache.org/licenses/LICENSE-2.0
12  *
13  * Unless required by applicable law or agreed to in writing,
14  * software distributed under the License is distributed on an
15  * "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
16  * KIND, either express or implied.  See the License for the
17  * specific language governing permissions and limitations
18  * under the License.
19  *
20  *************************************************************/
21 
22 
23 
24 // MARKER(update_precomp.py): autogen include statement, do not remove
25 #include "precompiled_sc.hxx"
26 
27 
28 
29 #include <com/sun/star/table/CellAddress.hpp>
30 #include <com/sun/star/table/CellRangeAddress.hpp>
31 
32 #include <svl/itemprop.hxx>
33 
34 #include "docsh.hxx"
35 #include "unonames.hxx"
36 #include "unoguard.hxx"
37 #include "miscuno.hxx"
38 #include "convuno.hxx"
39 #include "addruno.hxx"
40 
41 using namespace com::sun::star;
42 
43 //------------------------------------------------------------------------
44 
ScAddressConversionObj(ScDocShell * pDocSh,sal_Bool bForRange)45 ScAddressConversionObj::ScAddressConversionObj(ScDocShell* pDocSh, sal_Bool bForRange) :
46     pDocShell( pDocSh ),
47     nRefSheet( 0 ),
48     bIsRange( bForRange )
49 {
50     pDocShell->GetDocument()->AddUnoObject(*this);
51 }
52 
~ScAddressConversionObj()53 ScAddressConversionObj::~ScAddressConversionObj()
54 {
55     if (pDocShell)
56         pDocShell->GetDocument()->RemoveUnoObject(*this);
57 }
58 
Notify(SfxBroadcaster &,const SfxHint & rHint)59 void ScAddressConversionObj::Notify( SfxBroadcaster&, const SfxHint& rHint )
60 {
61     if ( rHint.ISA( SfxSimpleHint ) &&
62             ((const SfxSimpleHint&)rHint).GetId() == SFX_HINT_DYING )
63     {
64         pDocShell = NULL;       // invalid
65     }
66 }
67 
ParseUIString(const String & rUIString,::formula::FormulaGrammar::AddressConvention eConv)68 sal_Bool ScAddressConversionObj::ParseUIString( const String& rUIString, ::formula::FormulaGrammar::AddressConvention eConv )
69 {
70     if (!pDocShell)
71         return sal_False;
72 
73     ScDocument* pDoc = pDocShell->GetDocument();
74     sal_Bool bSuccess = sal_False;
75     if ( bIsRange )
76     {
77         sal_uInt16 nResult = aRange.ParseAny( rUIString, pDoc, eConv );
78         if ( nResult & SCA_VALID )
79         {
80             if ( ( nResult & SCA_TAB_3D ) == 0 )
81                 aRange.aStart.SetTab( static_cast<SCTAB>(nRefSheet) );
82             if ( ( nResult & SCA_TAB2_3D ) == 0 )
83                 aRange.aEnd.SetTab( aRange.aStart.Tab() );
84             // different sheets are not supported in CellRangeAddress
85             if ( aRange.aStart.Tab() == aRange.aEnd.Tab() )
86                 bSuccess = sal_True;
87         }
88     }
89     else
90     {
91         sal_uInt16 nResult = aRange.aStart.Parse( rUIString, pDoc, eConv );
92         if ( nResult & SCA_VALID )
93         {
94             if ( ( nResult & SCA_TAB_3D ) == 0 )
95                 aRange.aStart.SetTab( static_cast<SCTAB>(nRefSheet) );
96             bSuccess = sal_True;
97         }
98     }
99     return bSuccess;
100 }
101 
102 // XPropertySet
103 
getPropertySetInfo()104 uno::Reference<beans::XPropertySetInfo> SAL_CALL ScAddressConversionObj::getPropertySetInfo()
105                                                         throw(uno::RuntimeException)
106 {
107     ScUnoGuard aGuard;
108 
109     if ( bIsRange )
110     {
111         static SfxItemPropertyMapEntry aPropertyMap[] =
112         {
113             {MAP_CHAR_LEN(SC_UNONAME_ADDRESS),  0,  &getCppuType((table::CellRangeAddress*)0), 0, 0 },
114             {MAP_CHAR_LEN(SC_UNONAME_PERSREPR), 0,  &getCppuType((rtl::OUString*)0),    0, 0 },
115             {MAP_CHAR_LEN(SC_UNONAME_REFSHEET), 0,  &getCppuType((sal_Int32*)0),        0, 0 },
116             {MAP_CHAR_LEN(SC_UNONAME_UIREPR),   0,  &getCppuType((rtl::OUString*)0),    0, 0 },
117             {MAP_CHAR_LEN(SC_UNONAME_XLA1REPR), 0,  &getCppuType((rtl::OUString*)0),    0, 0 },
118             {0,0,0,0,0,0}
119         };
120         static uno::Reference<beans::XPropertySetInfo> aRef(new SfxItemPropertySetInfo( aPropertyMap ));
121         return aRef;
122     }
123     else
124     {
125         static SfxItemPropertyMapEntry aPropertyMap[] =
126         {
127             {MAP_CHAR_LEN(SC_UNONAME_ADDRESS),  0,  &getCppuType((table::CellAddress*)0), 0, 0 },
128             {MAP_CHAR_LEN(SC_UNONAME_PERSREPR), 0,  &getCppuType((rtl::OUString*)0),    0, 0 },
129             {MAP_CHAR_LEN(SC_UNONAME_REFSHEET), 0,  &getCppuType((sal_Int32*)0),        0, 0 },
130             {MAP_CHAR_LEN(SC_UNONAME_UIREPR),   0,  &getCppuType((rtl::OUString*)0),    0, 0 },
131             {MAP_CHAR_LEN(SC_UNONAME_XLA1REPR), 0,  &getCppuType((rtl::OUString*)0),    0, 0 },
132             {0,0,0,0,0,0}
133         };
134         static uno::Reference<beans::XPropertySetInfo> aRef(new SfxItemPropertySetInfo( aPropertyMap ));
135         return aRef;
136     }
137 }
138 
setPropertyValue(const rtl::OUString & aPropertyName,const uno::Any & aValue)139 void SAL_CALL ScAddressConversionObj::setPropertyValue( const rtl::OUString& aPropertyName, const uno::Any& aValue )
140                 throw(beans::UnknownPropertyException, beans::PropertyVetoException,
141                         lang::IllegalArgumentException, lang::WrappedTargetException,
142                         uno::RuntimeException)
143 {
144     if ( !pDocShell )
145         throw uno::RuntimeException();
146 
147     sal_Bool bSuccess = sal_False;
148     String aNameStr(aPropertyName);
149     if ( aNameStr.EqualsAscii( SC_UNONAME_ADDRESS ) )
150     {
151         //  read the cell/range address from API struct
152         if ( bIsRange )
153         {
154             table::CellRangeAddress aRangeAddress;
155             if ( aValue >>= aRangeAddress )
156             {
157                 ScUnoConversion::FillScRange( aRange, aRangeAddress );
158                 bSuccess = sal_True;
159             }
160         }
161         else
162         {
163             table::CellAddress aCellAddress;
164             if ( aValue >>= aCellAddress )
165             {
166                 ScUnoConversion::FillScAddress( aRange.aStart, aCellAddress );
167                 bSuccess = sal_True;
168             }
169         }
170     }
171     else if ( aNameStr.EqualsAscii( SC_UNONAME_REFSHEET ) )
172     {
173         //  set the reference sheet
174         sal_Int32 nIntVal = 0;
175         if ( aValue >>= nIntVal )
176         {
177             nRefSheet = nIntVal;
178             bSuccess = sal_True;
179         }
180     }
181     else if ( aNameStr.EqualsAscii( SC_UNONAME_UIREPR ) )
182     {
183         //  parse the UI representation string
184         rtl::OUString sRepresentation;
185         if (aValue >>= sRepresentation)
186         {
187             String aUIString = sRepresentation;
188             bSuccess = ParseUIString( aUIString );
189         }
190     }
191     else if ( aNameStr.EqualsAscii( SC_UNONAME_PERSREPR ) || aNameStr.EqualsAscii( SC_UNONAME_XLA1REPR ) )
192     {
193         ::formula::FormulaGrammar::AddressConvention eConv = aNameStr.EqualsAscii( SC_UNONAME_XLA1REPR ) ?
194             ::formula::FormulaGrammar::CONV_XL_A1 : ::formula::FormulaGrammar::CONV_OOO;
195 
196         //  parse the file format string
197         rtl::OUString sRepresentation;
198         if (aValue >>= sRepresentation)
199         {
200             String aUIString(sRepresentation);
201 
202             //  cell or range: strip a single "." at the start
203             if ( aUIString.GetChar(0) == (sal_Unicode) '.' )
204                 aUIString.Erase( 0, 1 );
205 
206             if ( bIsRange )
207             {
208                 //  range: also strip a "." after the last colon
209                 sal_Int32 nColon = rtl::OUString(aUIString).lastIndexOf( (sal_Unicode) ':' );
210                 if ( nColon >= 0 && nColon < aUIString.Len() - 1 &&
211                      aUIString.GetChar((xub_StrLen)nColon+1) == (sal_Unicode) '.' )
212                     aUIString.Erase( (xub_StrLen)nColon+1, 1 );
213             }
214 
215             //  parse the rest like a UI string
216             bSuccess = ParseUIString( aUIString, eConv );
217         }
218     }
219     else
220         throw beans::UnknownPropertyException();
221 
222     if ( !bSuccess )
223         throw lang::IllegalArgumentException();
224 }
225 
getPropertyValue(const rtl::OUString & aPropertyName)226 uno::Any SAL_CALL ScAddressConversionObj::getPropertyValue( const rtl::OUString& aPropertyName )
227                 throw(beans::UnknownPropertyException, lang::WrappedTargetException,
228                         uno::RuntimeException)
229 {
230     if ( !pDocShell )
231         throw uno::RuntimeException();
232 
233     ScDocument* pDoc = pDocShell->GetDocument();
234     uno::Any aRet;
235 
236     String aNameStr(aPropertyName);
237     if ( aNameStr.EqualsAscii( SC_UNONAME_ADDRESS ) )
238     {
239         if ( bIsRange )
240         {
241             table::CellRangeAddress aRangeAddress;
242             ScUnoConversion::FillApiRange( aRangeAddress, aRange );
243             aRet <<= aRangeAddress;
244         }
245         else
246         {
247             table::CellAddress aCellAddress;
248             ScUnoConversion::FillApiAddress( aCellAddress, aRange.aStart );
249             aRet <<= aCellAddress;
250         }
251     }
252     else if ( aNameStr.EqualsAscii( SC_UNONAME_REFSHEET ) )
253     {
254         aRet <<= nRefSheet;
255     }
256     else if ( aNameStr.EqualsAscii( SC_UNONAME_UIREPR ) )
257     {
258         //  generate UI representation string - include sheet only if different from ref sheet
259         String aFormatStr;
260         sal_uInt16 nFlags = SCA_VALID;
261         if ( aRange.aStart.Tab() != nRefSheet )
262             nFlags |= SCA_TAB_3D;
263         if ( bIsRange )
264             aRange.Format( aFormatStr, nFlags, pDoc );
265         else
266             aRange.aStart.Format( aFormatStr, nFlags, pDoc );
267         aRet <<= rtl::OUString( aFormatStr );
268     }
269     else if ( aNameStr.EqualsAscii( SC_UNONAME_PERSREPR ) || aNameStr.EqualsAscii( SC_UNONAME_XLA1REPR ) )
270     {
271         ::formula::FormulaGrammar::AddressConvention eConv = aNameStr.EqualsAscii( SC_UNONAME_XLA1REPR ) ?
272             ::formula::FormulaGrammar::CONV_XL_A1 : ::formula::FormulaGrammar::CONV_OOO;
273 
274         //  generate file format string - always include sheet
275         String aFormatStr;
276         aRange.aStart.Format( aFormatStr, SCA_VALID | SCA_TAB_3D, pDoc, eConv );
277         if ( bIsRange )
278         {
279             //  manually concatenate range so both parts always have the sheet name
280             aFormatStr.Append( (sal_Unicode) ':' );
281             String aSecond;
282             sal_uInt16 nFlags = SCA_VALID;
283             if( eConv != ::formula::FormulaGrammar::CONV_XL_A1 )
284                 nFlags |= SCA_TAB_3D;
285             aRange.aEnd.Format( aSecond, nFlags, pDoc, eConv );
286             aFormatStr.Append( aSecond );
287         }
288         aRet <<= rtl::OUString( aFormatStr );
289     }
290     else
291         throw beans::UnknownPropertyException();
292 
293     return aRet;
294 }
295 
SC_IMPL_DUMMY_PROPERTY_LISTENER(ScAddressConversionObj)296 SC_IMPL_DUMMY_PROPERTY_LISTENER( ScAddressConversionObj )
297 
298 // lang::XServiceInfo
299 
300 rtl::OUString SAL_CALL ScAddressConversionObj::getImplementationName() throw(uno::RuntimeException)
301 {
302     return rtl::OUString::createFromAscii( "ScAddressConversionObj" );
303 }
304 
supportsService(const rtl::OUString & rServiceName)305 sal_Bool SAL_CALL ScAddressConversionObj::supportsService( const rtl::OUString& rServiceName )
306                                                     throw(uno::RuntimeException)
307 {
308     String aServiceStr( rServiceName );
309     return aServiceStr.EqualsAscii( bIsRange ? SC_SERVICENAME_RANGEADDRESS
310                                              : SC_SERVICENAME_CELLADDRESS );
311 }
312 
getSupportedServiceNames()313 uno::Sequence<rtl::OUString> SAL_CALL ScAddressConversionObj::getSupportedServiceNames()
314                                                     throw(uno::RuntimeException)
315 {
316     uno::Sequence<rtl::OUString> aRet(1);
317     rtl::OUString* pArray = aRet.getArray();
318     pArray[0] = rtl::OUString::createFromAscii( bIsRange ? SC_SERVICENAME_RANGEADDRESS
319                                                          : SC_SERVICENAME_CELLADDRESS );
320     return aRet;
321 }
322 
323