Line data Source code
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 <cppuhelper/supportsservice.hxx>
21 : #include <sfx2/app.hxx>
22 : #include <svl/itemprop.hxx>
23 : #include <svl/sharedstringpool.hxx>
24 :
25 : #include "scitems.hxx"
26 : #include "funcuno.hxx"
27 : #include "miscuno.hxx"
28 : #include "cellsuno.hxx"
29 : #include "scdll.hxx"
30 : #include "document.hxx"
31 : #include "compiler.hxx"
32 : #include <formula/errorcodes.hxx>
33 : #include "callform.hxx"
34 : #include "addincol.hxx"
35 : #include "rangeseq.hxx"
36 : #include "formulacell.hxx"
37 : #include "docoptio.hxx"
38 : #include "optuno.hxx"
39 : #include <docuno.hxx>
40 : #include "markdata.hxx"
41 : #include "patattr.hxx"
42 : #include "docpool.hxx"
43 : #include "attrib.hxx"
44 : #include "clipparam.hxx"
45 : #include "dociter.hxx"
46 : #include "stringutil.hxx"
47 : #include "tokenarray.hxx"
48 :
49 : using namespace com::sun::star;
50 :
51 : // registered as implementation for service FunctionAccess,
52 : // also supports service SpreadsheetDocumentSettings (to set null date etc.)
53 :
54 : #define SCFUNCTIONACCESS_SERVICE "com.sun.star.sheet.FunctionAccess"
55 : #define SCDOCSETTINGS_SERVICE "com.sun.star.sheet.SpreadsheetDocumentSettings"
56 :
57 : // helper to use cached document if not in use, temporary document otherwise
58 :
59 : class ScTempDocSource
60 : {
61 : private:
62 : ScTempDocCache& rCache;
63 : ScDocument* pTempDoc;
64 :
65 : static ScDocument* CreateDocument(); // create and initialize doc
66 :
67 : public:
68 : ScTempDocSource( ScTempDocCache& rDocCache );
69 : ~ScTempDocSource();
70 :
71 : ScDocument* GetDocument();
72 : };
73 :
74 0 : ScDocument* ScTempDocSource::CreateDocument()
75 : {
76 0 : ScDocument* pDoc = new ScDocument; // SCDOCMODE_DOCUMENT
77 0 : pDoc->MakeTable( 0 );
78 0 : return pDoc;
79 : }
80 :
81 0 : ScTempDocSource::ScTempDocSource( ScTempDocCache& rDocCache ) :
82 : rCache( rDocCache ),
83 0 : pTempDoc( NULL )
84 : {
85 0 : if ( rCache.IsInUse() )
86 0 : pTempDoc = CreateDocument();
87 : else
88 : {
89 0 : rCache.SetInUse( true );
90 0 : if ( !rCache.GetDocument() )
91 0 : rCache.SetDocument( CreateDocument() );
92 : }
93 0 : }
94 :
95 0 : ScTempDocSource::~ScTempDocSource()
96 : {
97 0 : if ( pTempDoc )
98 0 : delete pTempDoc;
99 : else
100 0 : rCache.SetInUse( false );
101 0 : }
102 :
103 0 : ScDocument* ScTempDocSource::GetDocument()
104 : {
105 0 : if ( pTempDoc )
106 0 : return pTempDoc;
107 : else
108 0 : return rCache.GetDocument();
109 : }
110 :
111 1 : ScTempDocCache::ScTempDocCache() :
112 : pDoc( NULL ),
113 1 : bInUse( false )
114 : {
115 1 : }
116 :
117 1 : ScTempDocCache::~ScTempDocCache()
118 : {
119 : OSL_ENSURE( !bInUse, "ScTempDocCache dtor: bInUse" );
120 1 : delete pDoc;
121 1 : }
122 :
123 0 : void ScTempDocCache::SetDocument( ScDocument* pNew )
124 : {
125 : OSL_ENSURE( !pDoc, "ScTempDocCache::SetDocument: already set" );
126 0 : pDoc = pNew;
127 0 : }
128 :
129 0 : void ScTempDocCache::Clear()
130 : {
131 : OSL_ENSURE( !bInUse, "ScTempDocCache::Clear: bInUse" );
132 0 : delete pDoc;
133 0 : pDoc = NULL;
134 0 : }
135 :
136 : // copy results from one document into another
137 : //! merge this with ScAreaLink::Refresh
138 : //! copy directly without a clipboard document?
139 :
140 0 : static bool lcl_CopyData( ScDocument* pSrcDoc, const ScRange& rSrcRange,
141 : ScDocument* pDestDoc, const ScAddress& rDestPos )
142 : {
143 0 : SCTAB nSrcTab = rSrcRange.aStart.Tab();
144 0 : SCTAB nDestTab = rDestPos.Tab();
145 :
146 : ScRange aNewRange( rDestPos, ScAddress(
147 0 : rSrcRange.aEnd.Col() - rSrcRange.aStart.Col() + rDestPos.Col(),
148 0 : rSrcRange.aEnd.Row() - rSrcRange.aStart.Row() + rDestPos.Row(),
149 0 : nDestTab ) );
150 :
151 0 : ScDocument* pClipDoc = new ScDocument( SCDOCMODE_CLIP );
152 0 : ScMarkData aSourceMark;
153 0 : aSourceMark.SelectOneTable( nSrcTab ); // for CopyToClip
154 0 : aSourceMark.SetMarkArea( rSrcRange );
155 0 : ScClipParam aClipParam(rSrcRange, false);
156 0 : pSrcDoc->CopyToClip(aClipParam, pClipDoc, &aSourceMark, false);
157 :
158 0 : if ( pClipDoc->HasAttrib( 0,0,nSrcTab, MAXCOL,MAXROW,nSrcTab,
159 0 : HASATTR_MERGED | HASATTR_OVERLAPPED ) )
160 : {
161 0 : ScPatternAttr aPattern( pSrcDoc->GetPool() );
162 0 : aPattern.GetItemSet().Put( ScMergeAttr() ); // Defaults
163 0 : aPattern.GetItemSet().Put( ScMergeFlagAttr() );
164 0 : pClipDoc->ApplyPatternAreaTab( 0,0, MAXCOL,MAXROW, nSrcTab, aPattern );
165 : }
166 :
167 0 : ScMarkData aDestMark;
168 0 : aDestMark.SelectOneTable( nDestTab );
169 0 : aDestMark.SetMarkArea( aNewRange );
170 0 : pDestDoc->CopyFromClip( aNewRange, aDestMark, IDF_ALL & ~IDF_FORMULA, NULL, pClipDoc, false );
171 :
172 0 : delete pClipDoc;
173 0 : return true;
174 : }
175 :
176 1 : ScFunctionAccess::ScFunctionAccess() :
177 : pOptions( NULL ),
178 : aPropertyMap( ScDocOptionsHelper::GetPropertyMap() ),
179 : mbArray( true ), // default according to behaviour of older Office versions
180 1 : mbValid( true )
181 : {
182 1 : StartListening( *SfxGetpApp() ); // for SFX_HINT_DEINITIALIZING
183 1 : }
184 :
185 3 : ScFunctionAccess::~ScFunctionAccess()
186 : {
187 1 : delete pOptions;
188 : {
189 : // SfxBroadcaster::RemoveListener checks DBG_TESTSOLARMUTEX():
190 1 : SolarMutexGuard g;
191 1 : EndListeningAll();
192 : }
193 2 : }
194 :
195 0 : void ScFunctionAccess::Notify( SfxBroadcaster&, const SfxHint& rHint )
196 : {
197 0 : const SfxSimpleHint* pSimpleHint = dynamic_cast<const SfxSimpleHint*>(&rHint);
198 0 : if ( pSimpleHint && pSimpleHint->GetId() == SFX_HINT_DEINITIALIZING )
199 : {
200 : // document must not be used anymore
201 0 : aDocCache.Clear();
202 0 : mbValid = false;
203 : }
204 0 : }
205 :
206 : extern "C" SAL_DLLPUBLIC_EXPORT css::uno::XInterface* SAL_CALL
207 1 : ScFunctionAcceess_get_implementation(css::uno::XComponentContext*, css::uno::Sequence<css::uno::Any> const &)
208 : {
209 1 : SolarMutexGuard aGuard;
210 1 : ScDLL::Init();
211 1 : return cppu::acquire(new ScFunctionAccess);
212 : }
213 :
214 : // XServiceInfo
215 1 : OUString SAL_CALL ScFunctionAccess::getImplementationName() throw(uno::RuntimeException, std::exception)
216 : {
217 1 : return OUString("stardiv.StarCalc.ScFunctionAccess");
218 : }
219 :
220 0 : sal_Bool SAL_CALL ScFunctionAccess::supportsService( const OUString& rServiceName )
221 : throw(uno::RuntimeException, std::exception)
222 : {
223 0 : return cppu::supportsService(this, rServiceName);
224 : }
225 :
226 1 : uno::Sequence<OUString> SAL_CALL ScFunctionAccess::getSupportedServiceNames()
227 : throw(uno::RuntimeException, std::exception)
228 : {
229 1 : uno::Sequence<OUString> aRet(2);
230 1 : OUString* pArray = aRet.getArray();
231 1 : pArray[0] = SCFUNCTIONACCESS_SERVICE;
232 1 : pArray[1] = SCDOCSETTINGS_SERVICE;
233 1 : return aRet;
234 : }
235 :
236 : // XPropertySet (document settings)
237 :
238 0 : uno::Reference<beans::XPropertySetInfo> SAL_CALL ScFunctionAccess::getPropertySetInfo()
239 : throw(uno::RuntimeException, std::exception)
240 : {
241 0 : SolarMutexGuard aGuard;
242 : static uno::Reference<beans::XPropertySetInfo> aRef(
243 0 : new SfxItemPropertySetInfo( aPropertyMap ));
244 0 : return aRef;
245 : }
246 :
247 0 : void SAL_CALL ScFunctionAccess::setPropertyValue(
248 : const OUString& aPropertyName, const uno::Any& aValue )
249 : throw(beans::UnknownPropertyException, beans::PropertyVetoException,
250 : lang::IllegalArgumentException, lang::WrappedTargetException,
251 : uno::RuntimeException, std::exception)
252 : {
253 0 : SolarMutexGuard aGuard;
254 :
255 0 : if ( aPropertyName == "IsArrayFunction" )
256 : {
257 0 : if( !(aValue >>= mbArray) )
258 0 : throw lang::IllegalArgumentException();
259 : }
260 : else
261 : {
262 0 : if ( !pOptions )
263 0 : pOptions = new ScDocOptions();
264 :
265 : // options aren't initialized from configuration - always get the same default behaviour
266 :
267 0 : bool bDone = ScDocOptionsHelper::setPropertyValue( *pOptions, aPropertyMap, aPropertyName, aValue );
268 0 : if (!bDone)
269 0 : throw beans::UnknownPropertyException();
270 0 : }
271 0 : }
272 :
273 0 : uno::Any SAL_CALL ScFunctionAccess::getPropertyValue( const OUString& aPropertyName )
274 : throw(beans::UnknownPropertyException, lang::WrappedTargetException,
275 : uno::RuntimeException, std::exception)
276 : {
277 0 : SolarMutexGuard aGuard;
278 :
279 0 : if ( aPropertyName == "IsArrayFunction" )
280 0 : return uno::Any( mbArray );
281 :
282 0 : if ( !pOptions )
283 0 : pOptions = new ScDocOptions();
284 :
285 : // options aren't initialized from configuration - always get the same default behaviour
286 :
287 0 : return ScDocOptionsHelper::getPropertyValue( *pOptions, aPropertyMap, aPropertyName );
288 : }
289 :
290 0 : SC_IMPL_DUMMY_PROPERTY_LISTENER( ScFunctionAccess )
291 :
292 : // XFunctionAccess
293 :
294 0 : static bool lcl_AddFunctionToken( ScTokenArray& rArray, const OUString& rName,const ScCompiler& rCompiler )
295 : {
296 : // function names are always case-insensitive
297 0 : OUString aUpper = ScGlobal::pCharClass->uppercase(rName);
298 :
299 : // same options as in ScCompiler::IsOpCode:
300 : // 1. built-in function name
301 :
302 0 : OpCode eOp = rCompiler.GetEnglishOpCode( aUpper );
303 0 : if ( eOp != ocNone )
304 : {
305 0 : rArray.AddOpCode( eOp );
306 0 : return true;
307 : }
308 :
309 : // 2. old add in functions
310 :
311 0 : if (ScGlobal::GetFuncCollection()->findByName(aUpper))
312 : {
313 0 : rArray.AddExternal(aUpper.getStr());
314 0 : return true;
315 : }
316 :
317 : // 3. new (uno) add in functions
318 :
319 : OUString aIntName =
320 0 : ScGlobal::GetAddInCollection()->FindFunction(aUpper, false);
321 0 : if (!aIntName.isEmpty())
322 : {
323 0 : rArray.AddExternal(aIntName.getStr()); // international name
324 0 : return true;
325 : }
326 :
327 0 : return false; // no valid function name
328 : }
329 :
330 0 : static void lcl_AddRef( ScTokenArray& rArray, long nStartRow, long nColCount, long nRowCount )
331 : {
332 : ScComplexRefData aRef;
333 0 : aRef.InitRange(ScRange(0,nStartRow,0,nColCount-1,nStartRow+nRowCount-1,0));
334 0 : rArray.AddDoubleReference(aRef);
335 0 : }
336 :
337 : class SimpleVisitor
338 : {
339 : protected:
340 : bool mbArgError;
341 : ScDocument* mpDoc;
342 : public:
343 0 : SimpleVisitor( ScDocument* pDoc ) : mbArgError( false ), mpDoc( pDoc ) {}
344 : // could possibly just get away with JUST the following overload
345 : // 1) virtual void visitElem( long& nCol, long& nRow, const double& elem )
346 : // 2) virtual void visitElem( long& nCol, long& nRow, const OUString& elem )
347 : // 3) virtual void visitElem( long& nCol, long& nRow, const uno::Any& elem )
348 : // the other types methods are here just to reflect the orig code and for
349 : // completeness.
350 :
351 0 : void visitElem( long nCol, long nRow, const sal_Int16& elem )
352 : {
353 0 : mpDoc->SetValue( (SCCOL) nCol, (SCROW) nRow, 0, elem );
354 0 : }
355 0 : void visitElem( long nCol, long nRow, const sal_Int32& elem )
356 : {
357 0 : mpDoc->SetValue( (SCCOL) nCol, (SCROW) nRow, 0, elem );
358 0 : }
359 0 : void visitElem( long nCol, long nRow, const double& elem )
360 : {
361 0 : mpDoc->SetValue( (SCCOL) nCol, (SCROW) nRow, 0, elem );
362 0 : }
363 0 : void visitElem( long nCol, long nRow, const OUString& elem )
364 : {
365 0 : if (!elem.isEmpty())
366 : {
367 0 : ScSetStringParam aParam;
368 0 : aParam.setTextInput();
369 0 : mpDoc->SetString(ScAddress(nCol,nRow,0), elem, &aParam);
370 : }
371 0 : }
372 0 : void visitElem( long nCol, long nRow, const uno::Any& rElement )
373 : {
374 0 : uno::TypeClass eElemClass = rElement.getValueTypeClass();
375 0 : if ( eElemClass == uno::TypeClass_VOID )
376 : {
377 : // leave empty
378 : }
379 0 : else if ( eElemClass == uno::TypeClass_BYTE ||
380 0 : eElemClass == uno::TypeClass_SHORT ||
381 0 : eElemClass == uno::TypeClass_UNSIGNED_SHORT ||
382 0 : eElemClass == uno::TypeClass_LONG ||
383 0 : eElemClass == uno::TypeClass_UNSIGNED_LONG ||
384 0 : eElemClass == uno::TypeClass_FLOAT ||
385 : eElemClass == uno::TypeClass_DOUBLE )
386 : {
387 : // accept integer types because Basic passes a floating point
388 : // variable as byte, short or long if it's an integer number.
389 0 : double fVal(0.0);
390 0 : rElement >>= fVal;
391 0 : visitElem( nCol, nRow, fVal );
392 : }
393 0 : else if ( eElemClass == uno::TypeClass_STRING )
394 : {
395 0 : OUString aUStr;
396 0 : rElement >>= aUStr;
397 0 : visitElem( nCol, nRow, aUStr );
398 : }
399 : else
400 0 : mbArgError = true;
401 0 : }
402 0 : bool hasArgError() const { return mbArgError; }
403 : };
404 :
405 : template< class seq >
406 0 : class SequencesContainer
407 : {
408 : uno::Sequence< uno::Sequence< seq > > maSeq;
409 :
410 : long& mrDocRow;
411 : bool mbOverflow;
412 : bool mbArgError;
413 : ScDocument* mpDoc;
414 : ScTokenArray& mrTokenArr;
415 :
416 : public:
417 0 : SequencesContainer( const uno::Any& rArg, ScTokenArray& rTokenArr, long& rDocRow, ScDocument* pDoc ) :
418 0 : mrDocRow( rDocRow ), mbOverflow(false), mbArgError(false), mpDoc( pDoc ), mrTokenArr( rTokenArr )
419 : {
420 0 : rArg >>= maSeq;
421 0 : }
422 :
423 0 : void process()
424 : {
425 0 : SimpleVisitor aVisitor(mpDoc);
426 0 : long nStartRow = mrDocRow;
427 0 : long nRowCount = maSeq.getLength();
428 0 : long nMaxColCount = 0;
429 0 : const uno::Sequence< seq >* pRowArr = maSeq.getConstArray();
430 0 : for ( long nRow=0; nRow<nRowCount; nRow++ )
431 : {
432 0 : long nColCount = pRowArr[nRow].getLength();
433 0 : if ( nColCount > nMaxColCount )
434 0 : nMaxColCount = nColCount;
435 0 : const seq* pColArr = pRowArr[nRow].getConstArray();
436 0 : for (long nCol=0; nCol<nColCount; nCol++)
437 0 : if ( nCol <= MAXCOL && mrDocRow <= MAXROW )
438 0 : aVisitor.visitElem( nCol, mrDocRow, pColArr[ nCol ] );
439 : else
440 0 : mbOverflow=true;
441 0 : mrDocRow++;
442 : }
443 0 : mbArgError = aVisitor.hasArgError();
444 0 : if ( nRowCount && nMaxColCount && !mbOverflow )
445 0 : lcl_AddRef( mrTokenArr, nStartRow, nMaxColCount, nRowCount );
446 0 : }
447 0 : bool getOverflow() const { return mbOverflow; }
448 0 : bool getArgError() const { return mbArgError; }
449 : };
450 :
451 : template <class T>
452 : class ArrayOfArrayProc
453 : {
454 : public:
455 0 : static void processSequences( ScDocument* pDoc, const uno::Any& rArg, ScTokenArray& rTokenArr,
456 : long& rDocRow, bool& rArgErr, bool& rOverflow )
457 : {
458 0 : SequencesContainer< T > aContainer( rArg, rTokenArr, rDocRow, pDoc );
459 0 : aContainer.process();
460 0 : rArgErr = aContainer.getArgError();
461 0 : rOverflow = aContainer.getOverflow();
462 0 : }
463 : };
464 :
465 0 : uno::Any SAL_CALL ScFunctionAccess::callFunction( const OUString& aName,
466 : const uno::Sequence<uno::Any>& aArguments )
467 : throw (container::NoSuchElementException, lang::IllegalArgumentException,
468 : uno::RuntimeException, std::exception)
469 : {
470 0 : SolarMutexGuard aGuard;
471 :
472 0 : if (!mbValid)
473 0 : throw uno::RuntimeException();
474 :
475 : // use cached document if not in use, temporary document otherwise
476 : // (deleted in ScTempDocSource dtor)
477 0 : ScTempDocSource aSource( aDocCache );
478 0 : ScDocument* pDoc = aSource.GetDocument();
479 : const static SCTAB nTempSheet = 1;
480 : // Create an extra tab to contain the Function Cell
481 : // this will allow full rows to be used.
482 0 : if ( !pDoc->HasTable( nTempSheet ) )
483 0 : pDoc->MakeTable( nTempSheet );
484 :
485 : /// TODO: check
486 0 : ScAddress aAdr;
487 0 : ScCompiler aCompiler(pDoc,aAdr);
488 0 : aCompiler.SetGrammar(pDoc->GetGrammar());
489 :
490 : // find function
491 :
492 0 : ScTokenArray aTokenArr;
493 0 : if ( !lcl_AddFunctionToken( aTokenArr, aName,aCompiler ) )
494 : {
495 : // function not found
496 0 : throw container::NoSuchElementException();
497 : }
498 :
499 : // set options (null date, etc.)
500 :
501 0 : if ( pOptions )
502 0 : pDoc->SetDocOptions( *pOptions );
503 :
504 : // add arguments to token array
505 :
506 0 : bool bArgErr = false;
507 0 : bool bOverflow = false;
508 0 : long nDocRow = 0;
509 0 : long nArgCount = aArguments.getLength();
510 0 : const uno::Any* pArgArr = aArguments.getConstArray();
511 :
512 0 : svl::SharedStringPool& rSPool = pDoc->GetSharedStringPool();
513 0 : aTokenArr.AddOpCode(ocOpen);
514 0 : for (long nPos=0; nPos<nArgCount; nPos++)
515 : {
516 0 : if ( nPos > 0 )
517 0 : aTokenArr.AddOpCode(ocSep);
518 :
519 0 : const uno::Any& rArg = pArgArr[nPos];
520 :
521 0 : uno::TypeClass eClass = rArg.getValueTypeClass();
522 0 : uno::Type aType = rArg.getValueType();
523 0 : if ( eClass == uno::TypeClass_BYTE ||
524 0 : eClass == uno::TypeClass_BOOLEAN ||
525 0 : eClass == uno::TypeClass_SHORT ||
526 0 : eClass == uno::TypeClass_UNSIGNED_SHORT ||
527 0 : eClass == uno::TypeClass_LONG ||
528 0 : eClass == uno::TypeClass_UNSIGNED_LONG ||
529 0 : eClass == uno::TypeClass_FLOAT ||
530 : eClass == uno::TypeClass_DOUBLE )
531 : {
532 : // accept integer types because Basic passes a floating point
533 : // variable as byte, short or long if it's an integer number.
534 0 : double fVal = 0;
535 0 : rArg >>= fVal;
536 0 : aTokenArr.AddDouble( fVal );
537 : }
538 0 : else if ( eClass == uno::TypeClass_STRING )
539 : {
540 0 : OUString aUStr;
541 0 : rArg >>= aUStr;
542 0 : aTokenArr.AddString(rSPool.intern(aUStr));
543 : }
544 0 : else if ( aType.equals( cppu::UnoType<uno::Sequence< uno::Sequence<sal_Int16> >>::get() ) )
545 : {
546 0 : ArrayOfArrayProc<sal_Int16>::processSequences( pDoc, rArg, aTokenArr, nDocRow, bArgErr, bOverflow );
547 : }
548 0 : else if ( aType.equals( cppu::UnoType<uno::Sequence< uno::Sequence<sal_Int32> >>::get() ) )
549 : {
550 0 : ArrayOfArrayProc<sal_Int32>::processSequences( pDoc, rArg, aTokenArr, nDocRow, bArgErr, bOverflow );
551 : }
552 0 : else if ( aType.equals( cppu::UnoType<uno::Sequence< uno::Sequence<double> >>::get() ) )
553 : {
554 0 : ArrayOfArrayProc<double>::processSequences( pDoc, rArg, aTokenArr, nDocRow, bArgErr, bOverflow );
555 : }
556 0 : else if ( aType.equals( cppu::UnoType<uno::Sequence< uno::Sequence<OUString> >>::get() ) )
557 : {
558 0 : ArrayOfArrayProc<OUString>::processSequences( pDoc, rArg, aTokenArr, nDocRow, bArgErr, bOverflow );
559 : }
560 0 : else if ( aType.equals( cppu::UnoType<uno::Sequence< uno::Sequence<uno::Any> >>::get() ) )
561 : {
562 0 : ArrayOfArrayProc<uno::Any>::processSequences( pDoc, rArg, aTokenArr, nDocRow, bArgErr, bOverflow );
563 : }
564 0 : else if ( aType.equals( cppu::UnoType<table::XCellRange>::get()) )
565 : {
566 : // currently, only our own cell ranges are supported
567 :
568 0 : uno::Reference<table::XCellRange> xRange(rArg, uno::UNO_QUERY);
569 0 : ScCellRangesBase* pImpl = ScCellRangesBase::getImplementation( xRange );
570 0 : if ( pImpl )
571 : {
572 0 : ScDocument* pSrcDoc = pImpl->GetDocument();
573 0 : const ScRangeList& rRanges = pImpl->GetRangeList();
574 0 : if ( pSrcDoc && rRanges.size() == 1 )
575 : {
576 0 : ScRange aSrcRange = *rRanges[ 0 ];
577 :
578 0 : long nStartRow = nDocRow;
579 0 : long nColCount = aSrcRange.aEnd.Col() - aSrcRange.aStart.Col() + 1;
580 0 : long nRowCount = aSrcRange.aEnd.Row() - aSrcRange.aStart.Row() + 1;
581 :
582 0 : if ( nStartRow + nRowCount > MAXROWCOUNT )
583 0 : bOverflow = true;
584 : else
585 : {
586 : // copy data
587 0 : if ( !lcl_CopyData( pSrcDoc, aSrcRange, pDoc, ScAddress( 0, (SCROW)nDocRow, 0 ) ) )
588 0 : bOverflow = true;
589 : }
590 :
591 0 : nDocRow += nRowCount;
592 0 : if ( !bOverflow )
593 0 : lcl_AddRef( aTokenArr, nStartRow, nColCount, nRowCount );
594 : }
595 : else
596 0 : bArgErr = true;
597 : }
598 : else
599 0 : bArgErr = true;
600 : }
601 : else
602 0 : bArgErr = true; // invalid type
603 0 : }
604 0 : aTokenArr.AddOpCode(ocClose);
605 0 : aTokenArr.AddOpCode(ocStop);
606 :
607 : // execute formula
608 :
609 0 : uno::Any aRet;
610 0 : if ( !bArgErr && !bOverflow && nDocRow <= MAXROWCOUNT )
611 : {
612 0 : ScAddress aFormulaPos( 0, 0, nTempSheet );
613 : // GRAM_PODF_A1 doesn't really matter for the token array but fits with
614 : // other API compatibility grammars.
615 : ScFormulaCell* pFormula = new ScFormulaCell(
616 : pDoc, aFormulaPos, aTokenArr, formula::FormulaGrammar::GRAM_PODF_A1,
617 0 : (sal_uInt8)(mbArray ? MM_FORMULA : MM_NONE) );
618 0 : pFormula = pDoc->SetFormulaCell(aFormulaPos, pFormula);
619 :
620 : // call GetMatrix before GetErrCode because GetMatrix always recalculates
621 : // if there is no matrix result
622 :
623 0 : const ScMatrix* pMat = (mbArray && pFormula) ? pFormula->GetMatrix() : 0;
624 0 : sal_uInt16 nErrCode = pFormula ? pFormula->GetErrCode() : errIllegalArgument;
625 0 : if ( nErrCode == 0 )
626 : {
627 0 : if ( pMat )
628 : {
629 : // array result
630 0 : ScRangeToSequence::FillMixedArray( aRet, pMat );
631 : }
632 0 : else if ( pFormula->IsValue() )
633 : {
634 : // numeric value
635 0 : aRet <<= (double) pFormula->GetValue();
636 : }
637 : else
638 : {
639 : // string result
640 0 : OUString aStrVal = pFormula->GetString().getString();
641 0 : aRet <<= aStrVal;
642 : }
643 : }
644 0 : else if ( nErrCode == NOTAVAILABLE )
645 : {
646 : // #N/A: leave result empty, no exception
647 : }
648 : else
649 : {
650 : // any other error: IllegalArgumentException
651 0 : bArgErr = true;
652 : }
653 :
654 0 : pDoc->DeleteAreaTab( 0, 0, MAXCOL, MAXROW, 0, IDF_ALL );
655 0 : pDoc->DeleteAreaTab( 0, 0, 0, 0, nTempSheet, IDF_ALL );
656 : }
657 :
658 0 : if (bOverflow)
659 0 : throw uno::RuntimeException();
660 :
661 0 : if (bArgErr)
662 0 : throw lang::IllegalArgumentException();
663 :
664 0 : return aRet;
665 156 : }
666 :
667 : /* vim:set shiftwidth=4 softtabstop=4 expandtab: */
|
