File: | home/maarten/src/libreoffice/core/sc/source/core/tool/interpr4.cxx |
Warning: | line 699, column 9 Potential memory leak |
Press '?' to see keyboard shortcuts
Keyboard shortcuts:
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 <config_features.h> | ||||
21 | |||||
22 | #include <interpre.hxx> | ||||
23 | |||||
24 | #include <rangelst.hxx> | ||||
25 | #include <o3tl/safeint.hxx> | ||||
26 | #include <rtl/math.hxx> | ||||
27 | #include <sfx2/app.hxx> | ||||
28 | #include <sfx2/docfile.hxx> | ||||
29 | #include <sfx2/objsh.hxx> | ||||
30 | #include <sfx2/docfilt.hxx> | ||||
31 | #include <basic/sbmeth.hxx> | ||||
32 | #include <basic/sbmod.hxx> | ||||
33 | #include <basic/sbstar.hxx> | ||||
34 | #include <basic/sbx.hxx> | ||||
35 | #include <basic/sbxobj.hxx> | ||||
36 | #include <basic/sbuno.hxx> | ||||
37 | #include <svl/zforlist.hxx> | ||||
38 | #include <svl/sharedstringpool.hxx> | ||||
39 | #include <unotools/charclass.hxx> | ||||
40 | #include <stdlib.h> | ||||
41 | #include <string.h> | ||||
42 | #include <signal.h> | ||||
43 | |||||
44 | #include <com/sun/star/table/XCellRange.hpp> | ||||
45 | #include <com/sun/star/script/XInvocation.hpp> | ||||
46 | #include <com/sun/star/sheet/XSheetCellRange.hpp> | ||||
47 | |||||
48 | #include <global.hxx> | ||||
49 | #include <dbdata.hxx> | ||||
50 | #include <formulacell.hxx> | ||||
51 | #include <callform.hxx> | ||||
52 | #include <addincol.hxx> | ||||
53 | #include <document.hxx> | ||||
54 | #include <dociter.hxx> | ||||
55 | #include <docoptio.hxx> | ||||
56 | #include <scmatrix.hxx> | ||||
57 | #include <adiasync.hxx> | ||||
58 | #include <sc.hrc> | ||||
59 | #include <cellsuno.hxx> | ||||
60 | #include <optuno.hxx> | ||||
61 | #include <rangeseq.hxx> | ||||
62 | #include <addinlis.hxx> | ||||
63 | #include <jumpmatrix.hxx> | ||||
64 | #include <parclass.hxx> | ||||
65 | #include <externalrefmgr.hxx> | ||||
66 | #include <formula/FormulaCompiler.hxx> | ||||
67 | #include <macromgr.hxx> | ||||
68 | #include <doubleref.hxx> | ||||
69 | #include <queryparam.hxx> | ||||
70 | #include <tokenarray.hxx> | ||||
71 | #include <compiler.hxx> | ||||
72 | |||||
73 | #include <math.h> | ||||
74 | #include <float.h> | ||||
75 | #include <map> | ||||
76 | #include <algorithm> | ||||
77 | #include <basic/basmgr.hxx> | ||||
78 | #include <vbahelper/vbaaccesshelper.hxx> | ||||
79 | #include <memory> | ||||
80 | #include <stack> | ||||
81 | |||||
82 | using namespace com::sun::star; | ||||
83 | using namespace formula; | ||||
84 | using ::std::unique_ptr; | ||||
85 | |||||
86 | #define ADDIN_MAXSTRLEN256 256 | ||||
87 | |||||
88 | thread_local std::unique_ptr<ScTokenStack> ScInterpreter::pGlobalStack; | ||||
89 | thread_local bool ScInterpreter::bGlobalStackInUse = false; | ||||
90 | |||||
91 | // document access functions | ||||
92 | |||||
93 | void ScInterpreter::ReplaceCell( ScAddress& rPos ) | ||||
94 | { | ||||
95 | size_t ListSize = mrDoc.m_TableOpList.size(); | ||||
96 | for ( size_t i = 0; i < ListSize; ++i ) | ||||
97 | { | ||||
98 | ScInterpreterTableOpParams *const pTOp = mrDoc.m_TableOpList[ i ]; | ||||
99 | if ( rPos == pTOp->aOld1 ) | ||||
100 | { | ||||
101 | rPos = pTOp->aNew1; | ||||
102 | return ; | ||||
103 | } | ||||
104 | else if ( rPos == pTOp->aOld2 ) | ||||
105 | { | ||||
106 | rPos = pTOp->aNew2; | ||||
107 | return ; | ||||
108 | } | ||||
109 | } | ||||
110 | } | ||||
111 | |||||
112 | bool ScInterpreter::IsTableOpInRange( const ScRange& rRange ) | ||||
113 | { | ||||
114 | if ( rRange.aStart == rRange.aEnd ) | ||||
115 | return false; // not considered to be a range in TableOp sense | ||||
116 | |||||
117 | // we can't replace a single cell in a range | ||||
118 | size_t ListSize = mrDoc.m_TableOpList.size(); | ||||
119 | for ( size_t i = 0; i < ListSize; ++i ) | ||||
120 | { | ||||
121 | ScInterpreterTableOpParams *const pTOp = mrDoc.m_TableOpList[ i ]; | ||||
122 | if ( rRange.In( pTOp->aOld1 ) ) | ||||
123 | return true; | ||||
124 | if ( rRange.In( pTOp->aOld2 ) ) | ||||
125 | return true; | ||||
126 | } | ||||
127 | return false; | ||||
128 | } | ||||
129 | |||||
130 | sal_uInt32 ScInterpreter::GetCellNumberFormat( const ScAddress& rPos, ScRefCellValue& rCell ) | ||||
131 | { | ||||
132 | sal_uInt32 nFormat; | ||||
133 | FormulaError nErr; | ||||
134 | if (rCell.isEmpty()) | ||||
135 | { | ||||
136 | nFormat = mrDoc.GetNumberFormat( mrContext, rPos ); | ||||
137 | nErr = FormulaError::NONE; | ||||
138 | } | ||||
139 | else | ||||
140 | { | ||||
141 | if (rCell.meType == CELLTYPE_FORMULA) | ||||
142 | nErr = rCell.mpFormula->GetErrCode(); | ||||
143 | else | ||||
144 | nErr = FormulaError::NONE; | ||||
145 | nFormat = mrDoc.GetNumberFormat( mrContext, rPos ); | ||||
146 | } | ||||
147 | |||||
148 | SetError(nErr); | ||||
149 | return nFormat; | ||||
150 | } | ||||
151 | |||||
152 | /// Only ValueCell, formula cells already store the result rounded. | ||||
153 | double ScInterpreter::GetValueCellValue( const ScAddress& rPos, double fOrig ) | ||||
154 | { | ||||
155 | if ( bCalcAsShown && fOrig != 0.0 ) | ||||
156 | { | ||||
157 | sal_uInt32 nFormat = mrDoc.GetNumberFormat( mrContext, rPos ); | ||||
158 | fOrig = mrDoc.RoundValueAsShown( fOrig, nFormat, &mrContext ); | ||||
159 | } | ||||
160 | return fOrig; | ||||
161 | } | ||||
162 | |||||
163 | FormulaError ScInterpreter::GetCellErrCode( const ScRefCellValue& rCell ) | ||||
164 | { | ||||
165 | return rCell.meType == CELLTYPE_FORMULA ? rCell.mpFormula->GetErrCode() : FormulaError::NONE; | ||||
166 | } | ||||
167 | |||||
168 | double ScInterpreter::ConvertStringToValue( const OUString& rStr ) | ||||
169 | { | ||||
170 | FormulaError nError = FormulaError::NONE; | ||||
171 | double fValue = ScGlobal::ConvertStringToValue( rStr, maCalcConfig, nError, mnStringNoValueError, | ||||
172 | pFormatter, nCurFmtType); | ||||
173 | if (nError != FormulaError::NONE) | ||||
174 | SetError(nError); | ||||
175 | return fValue; | ||||
176 | } | ||||
177 | |||||
178 | double ScInterpreter::ConvertStringToValue( const OUString& rStr, FormulaError& rError, SvNumFormatType& rCurFmtType ) | ||||
179 | { | ||||
180 | return ScGlobal::ConvertStringToValue( rStr, maCalcConfig, rError, mnStringNoValueError, pFormatter, rCurFmtType); | ||||
181 | } | ||||
182 | |||||
183 | double ScInterpreter::GetCellValue( const ScAddress& rPos, ScRefCellValue& rCell ) | ||||
184 | { | ||||
185 | FormulaError nErr = nGlobalError; | ||||
186 | nGlobalError = FormulaError::NONE; | ||||
187 | double nVal = GetCellValueOrZero(rPos, rCell); | ||||
188 | if ( nGlobalError == FormulaError::NONE || nGlobalError == FormulaError::CellNoValue ) | ||||
189 | nGlobalError = nErr; | ||||
190 | return nVal; | ||||
191 | } | ||||
192 | |||||
193 | double ScInterpreter::GetCellValueOrZero( const ScAddress& rPos, ScRefCellValue& rCell ) | ||||
194 | { | ||||
195 | double fValue = 0.0; | ||||
196 | |||||
197 | CellType eType = rCell.meType; | ||||
198 | switch (eType) | ||||
199 | { | ||||
200 | case CELLTYPE_FORMULA: | ||||
201 | { | ||||
202 | ScFormulaCell* pFCell = rCell.mpFormula; | ||||
203 | FormulaError nErr = pFCell->GetErrCode(); | ||||
204 | if( nErr == FormulaError::NONE ) | ||||
205 | { | ||||
206 | if (pFCell->IsValue()) | ||||
207 | { | ||||
208 | fValue = pFCell->GetValue(); | ||||
209 | mrDoc.GetNumberFormatInfo( mrContext, nCurFmtType, nCurFmtIndex, | ||||
210 | rPos ); | ||||
211 | } | ||||
212 | else | ||||
213 | { | ||||
214 | fValue = ConvertStringToValue(pFCell->GetString().getString()); | ||||
215 | } | ||||
216 | } | ||||
217 | else | ||||
218 | { | ||||
219 | fValue = 0.0; | ||||
220 | SetError(nErr); | ||||
221 | } | ||||
222 | } | ||||
223 | break; | ||||
224 | case CELLTYPE_VALUE: | ||||
225 | { | ||||
226 | fValue = rCell.mfValue; | ||||
227 | nCurFmtIndex = mrDoc.GetNumberFormat( mrContext, rPos ); | ||||
228 | nCurFmtType = mrContext.GetNumberFormatType( nCurFmtIndex ); | ||||
229 | if ( bCalcAsShown && fValue != 0.0 ) | ||||
230 | fValue = mrDoc.RoundValueAsShown( fValue, nCurFmtIndex, &mrContext ); | ||||
231 | } | ||||
232 | break; | ||||
233 | case CELLTYPE_STRING: | ||||
234 | case CELLTYPE_EDIT: | ||||
235 | { | ||||
236 | // SUM(A1:A2) differs from A1+A2. No good. But people insist on | ||||
237 | // it ... #i5658# | ||||
238 | OUString aStr = rCell.getString(&mrDoc); | ||||
239 | fValue = ConvertStringToValue( aStr ); | ||||
240 | } | ||||
241 | break; | ||||
242 | case CELLTYPE_NONE: | ||||
243 | fValue = 0.0; // empty or broadcaster cell | ||||
244 | break; | ||||
245 | } | ||||
246 | |||||
247 | return fValue; | ||||
248 | } | ||||
249 | |||||
250 | void ScInterpreter::GetCellString( svl::SharedString& rStr, ScRefCellValue& rCell ) | ||||
251 | { | ||||
252 | FormulaError nErr = FormulaError::NONE; | ||||
253 | |||||
254 | switch (rCell.meType) | ||||
255 | { | ||||
256 | case CELLTYPE_STRING: | ||||
257 | case CELLTYPE_EDIT: | ||||
258 | rStr = mrStrPool.intern(rCell.getString(&mrDoc)); | ||||
259 | break; | ||||
260 | case CELLTYPE_FORMULA: | ||||
261 | { | ||||
262 | ScFormulaCell* pFCell = rCell.mpFormula; | ||||
263 | nErr = pFCell->GetErrCode(); | ||||
264 | if (pFCell->IsValue()) | ||||
265 | { | ||||
266 | rStr = GetStringFromDouble( pFCell->GetValue() ); | ||||
267 | } | ||||
268 | else | ||||
269 | rStr = pFCell->GetString(); | ||||
270 | } | ||||
271 | break; | ||||
272 | case CELLTYPE_VALUE: | ||||
273 | { | ||||
274 | rStr = GetStringFromDouble( rCell.mfValue ); | ||||
275 | } | ||||
276 | break; | ||||
277 | default: | ||||
278 | rStr = svl::SharedString::getEmptyString(); | ||||
279 | break; | ||||
280 | } | ||||
281 | |||||
282 | SetError(nErr); | ||||
283 | } | ||||
284 | |||||
285 | bool ScInterpreter::CreateDoubleArr(SCCOL nCol1, SCROW nRow1, SCTAB nTab1, | ||||
286 | SCCOL nCol2, SCROW nRow2, SCTAB nTab2, sal_uInt8* pCellArr) | ||||
287 | { | ||||
288 | |||||
289 | // Old Add-Ins are hard limited to sal_uInt16 values. | ||||
290 | static_assert(MAXCOLCOUNT <= SAL_MAX_UINT16((sal_uInt16) 0xFFFF), "Add check for columns > SAL_MAX_UINT16!"); | ||||
291 | if (nRow1 > SAL_MAX_UINT16((sal_uInt16) 0xFFFF) || nRow2 > SAL_MAX_UINT16((sal_uInt16) 0xFFFF)) | ||||
292 | return false; | ||||
293 | |||||
294 | sal_uInt16 nCount = 0; | ||||
295 | sal_uInt16* p = reinterpret_cast<sal_uInt16*>(pCellArr); | ||||
296 | *p++ = static_cast<sal_uInt16>(nCol1); | ||||
297 | *p++ = static_cast<sal_uInt16>(nRow1); | ||||
298 | *p++ = static_cast<sal_uInt16>(nTab1); | ||||
299 | *p++ = static_cast<sal_uInt16>(nCol2); | ||||
300 | *p++ = static_cast<sal_uInt16>(nRow2); | ||||
301 | *p++ = static_cast<sal_uInt16>(nTab2); | ||||
302 | sal_uInt16* pCount = p; | ||||
303 | *p++ = 0; | ||||
304 | sal_uInt16 nPos = 14; | ||||
305 | SCTAB nTab = nTab1; | ||||
306 | ScAddress aAdr; | ||||
307 | while (nTab <= nTab2) | ||||
308 | { | ||||
309 | aAdr.SetTab( nTab ); | ||||
310 | SCROW nRow = nRow1; | ||||
311 | while (nRow <= nRow2) | ||||
312 | { | ||||
313 | aAdr.SetRow( nRow ); | ||||
314 | SCCOL nCol = nCol1; | ||||
315 | while (nCol <= nCol2) | ||||
316 | { | ||||
317 | aAdr.SetCol( nCol ); | ||||
318 | |||||
319 | ScRefCellValue aCell(mrDoc, aAdr); | ||||
320 | if (!aCell.isEmpty()) | ||||
321 | { | ||||
322 | FormulaError nErr = FormulaError::NONE; | ||||
323 | double nVal = 0.0; | ||||
324 | bool bOk = true; | ||||
325 | switch (aCell.meType) | ||||
326 | { | ||||
327 | case CELLTYPE_VALUE : | ||||
328 | nVal = GetValueCellValue(aAdr, aCell.mfValue); | ||||
329 | break; | ||||
330 | case CELLTYPE_FORMULA : | ||||
331 | if (aCell.mpFormula->IsValue()) | ||||
332 | { | ||||
333 | nErr = aCell.mpFormula->GetErrCode(); | ||||
334 | nVal = aCell.mpFormula->GetValue(); | ||||
335 | } | ||||
336 | else | ||||
337 | bOk = false; | ||||
338 | break; | ||||
339 | default : | ||||
340 | bOk = false; | ||||
341 | break; | ||||
342 | } | ||||
343 | if (bOk) | ||||
344 | { | ||||
345 | if ((nPos + (4 * sizeof(sal_uInt16)) + sizeof(double)) > MAXARRSIZE0xfffe) | ||||
346 | return false; | ||||
347 | *p++ = static_cast<sal_uInt16>(nCol); | ||||
348 | *p++ = static_cast<sal_uInt16>(nRow); | ||||
349 | *p++ = static_cast<sal_uInt16>(nTab); | ||||
350 | *p++ = static_cast<sal_uInt16>(nErr); | ||||
351 | memcpy( p, &nVal, sizeof(double)); | ||||
352 | nPos += 8 + sizeof(double); | ||||
353 | p = reinterpret_cast<sal_uInt16*>( pCellArr + nPos ); | ||||
354 | nCount++; | ||||
355 | } | ||||
356 | } | ||||
357 | nCol++; | ||||
358 | } | ||||
359 | nRow++; | ||||
360 | } | ||||
361 | nTab++; | ||||
362 | } | ||||
363 | *pCount = nCount; | ||||
364 | return true; | ||||
365 | } | ||||
366 | |||||
367 | bool ScInterpreter::CreateStringArr(SCCOL nCol1, SCROW nRow1, SCTAB nTab1, | ||||
368 | SCCOL nCol2, SCROW nRow2, SCTAB nTab2, | ||||
369 | sal_uInt8* pCellArr) | ||||
370 | { | ||||
371 | |||||
372 | // Old Add-Ins are hard limited to sal_uInt16 values. | ||||
373 | static_assert(MAXCOLCOUNT <= SAL_MAX_UINT16((sal_uInt16) 0xFFFF), "Add check for columns > SAL_MAX_UINT16!"); | ||||
374 | if (nRow1 > SAL_MAX_UINT16((sal_uInt16) 0xFFFF) || nRow2 > SAL_MAX_UINT16((sal_uInt16) 0xFFFF)) | ||||
375 | return false; | ||||
376 | |||||
377 | sal_uInt16 nCount = 0; | ||||
378 | sal_uInt16* p = reinterpret_cast<sal_uInt16*>(pCellArr); | ||||
379 | *p++ = static_cast<sal_uInt16>(nCol1); | ||||
380 | *p++ = static_cast<sal_uInt16>(nRow1); | ||||
381 | *p++ = static_cast<sal_uInt16>(nTab1); | ||||
382 | *p++ = static_cast<sal_uInt16>(nCol2); | ||||
383 | *p++ = static_cast<sal_uInt16>(nRow2); | ||||
384 | *p++ = static_cast<sal_uInt16>(nTab2); | ||||
385 | sal_uInt16* pCount = p; | ||||
386 | *p++ = 0; | ||||
387 | sal_uInt16 nPos = 14; | ||||
388 | SCTAB nTab = nTab1; | ||||
389 | while (nTab <= nTab2) | ||||
390 | { | ||||
391 | SCROW nRow = nRow1; | ||||
392 | while (nRow <= nRow2) | ||||
393 | { | ||||
394 | SCCOL nCol = nCol1; | ||||
395 | while (nCol <= nCol2) | ||||
396 | { | ||||
397 | ScRefCellValue aCell(mrDoc, ScAddress(nCol, nRow, nTab)); | ||||
398 | if (!aCell.isEmpty()) | ||||
399 | { | ||||
400 | OUString aStr; | ||||
401 | FormulaError nErr = FormulaError::NONE; | ||||
402 | bool bOk = true; | ||||
403 | switch (aCell.meType) | ||||
404 | { | ||||
405 | case CELLTYPE_STRING: | ||||
406 | case CELLTYPE_EDIT: | ||||
407 | aStr = aCell.getString(&mrDoc); | ||||
408 | break; | ||||
409 | case CELLTYPE_FORMULA: | ||||
410 | if (!aCell.mpFormula->IsValue()) | ||||
411 | { | ||||
412 | nErr = aCell.mpFormula->GetErrCode(); | ||||
413 | aStr = aCell.mpFormula->GetString().getString(); | ||||
414 | } | ||||
415 | else | ||||
416 | bOk = false; | ||||
417 | break; | ||||
418 | default : | ||||
419 | bOk = false; | ||||
420 | break; | ||||
421 | } | ||||
422 | if (bOk) | ||||
423 | { | ||||
424 | OString aTmp(OUStringToOString(aStr, | ||||
425 | osl_getThreadTextEncoding())); | ||||
426 | // Old Add-Ins are limited to sal_uInt16 string | ||||
427 | // lengths, and room for pad byte check. | ||||
428 | if ( aTmp.getLength() > SAL_MAX_UINT16((sal_uInt16) 0xFFFF) - 2 ) | ||||
429 | return false; | ||||
430 | // Append a 0-pad-byte if string length is odd | ||||
431 | // MUST be sal_uInt16 | ||||
432 | sal_uInt16 nStrLen = static_cast<sal_uInt16>(aTmp.getLength()); | ||||
433 | sal_uInt16 nLen = ( nStrLen + 2 ) & ~1; | ||||
434 | |||||
435 | if ((static_cast<sal_uLong>(nPos) + (5 * sizeof(sal_uInt16)) + nLen) > MAXARRSIZE0xfffe) | ||||
436 | return false; | ||||
437 | *p++ = static_cast<sal_uInt16>(nCol); | ||||
438 | *p++ = static_cast<sal_uInt16>(nRow); | ||||
439 | *p++ = static_cast<sal_uInt16>(nTab); | ||||
440 | *p++ = static_cast<sal_uInt16>(nErr); | ||||
441 | *p++ = nLen; | ||||
442 | memcpy( p, aTmp.getStr(), nStrLen + 1); | ||||
443 | nPos += 10 + nStrLen + 1; | ||||
444 | sal_uInt8* q = pCellArr + nPos; | ||||
445 | if( (nStrLen & 1) == 0 ) | ||||
446 | { | ||||
447 | *q++ = 0; | ||||
448 | nPos++; | ||||
449 | } | ||||
450 | p = reinterpret_cast<sal_uInt16*>( pCellArr + nPos ); | ||||
451 | nCount++; | ||||
452 | } | ||||
453 | } | ||||
454 | nCol++; | ||||
455 | } | ||||
456 | nRow++; | ||||
457 | } | ||||
458 | nTab++; | ||||
459 | } | ||||
460 | *pCount = nCount; | ||||
461 | return true; | ||||
462 | } | ||||
463 | |||||
464 | bool ScInterpreter::CreateCellArr(SCCOL nCol1, SCROW nRow1, SCTAB nTab1, | ||||
465 | SCCOL nCol2, SCROW nRow2, SCTAB nTab2, | ||||
466 | sal_uInt8* pCellArr) | ||||
467 | { | ||||
468 | |||||
469 | // Old Add-Ins are hard limited to sal_uInt16 values. | ||||
470 | static_assert(MAXCOLCOUNT <= SAL_MAX_UINT16((sal_uInt16) 0xFFFF), "Add check for columns > SAL_MAX_UINT16!"); | ||||
471 | if (nRow1 > SAL_MAX_UINT16((sal_uInt16) 0xFFFF) || nRow2 > SAL_MAX_UINT16((sal_uInt16) 0xFFFF)) | ||||
472 | return false; | ||||
473 | |||||
474 | sal_uInt16 nCount = 0; | ||||
475 | sal_uInt16* p = reinterpret_cast<sal_uInt16*>(pCellArr); | ||||
476 | *p++ = static_cast<sal_uInt16>(nCol1); | ||||
477 | *p++ = static_cast<sal_uInt16>(nRow1); | ||||
478 | *p++ = static_cast<sal_uInt16>(nTab1); | ||||
479 | *p++ = static_cast<sal_uInt16>(nCol2); | ||||
480 | *p++ = static_cast<sal_uInt16>(nRow2); | ||||
481 | *p++ = static_cast<sal_uInt16>(nTab2); | ||||
482 | sal_uInt16* pCount = p; | ||||
483 | *p++ = 0; | ||||
484 | sal_uInt16 nPos = 14; | ||||
485 | SCTAB nTab = nTab1; | ||||
486 | ScAddress aAdr; | ||||
487 | while (nTab <= nTab2) | ||||
488 | { | ||||
489 | aAdr.SetTab( nTab ); | ||||
490 | SCROW nRow = nRow1; | ||||
491 | while (nRow <= nRow2) | ||||
492 | { | ||||
493 | aAdr.SetRow( nRow ); | ||||
494 | SCCOL nCol = nCol1; | ||||
495 | while (nCol <= nCol2) | ||||
496 | { | ||||
497 | aAdr.SetCol( nCol ); | ||||
498 | ScRefCellValue aCell(mrDoc, aAdr); | ||||
499 | if (!aCell.isEmpty()) | ||||
500 | { | ||||
501 | FormulaError nErr = FormulaError::NONE; | ||||
502 | sal_uInt16 nType = 0; // 0 = number; 1 = string | ||||
503 | double nVal = 0.0; | ||||
504 | OUString aStr; | ||||
505 | bool bOk = true; | ||||
506 | switch (aCell.meType) | ||||
507 | { | ||||
508 | case CELLTYPE_STRING : | ||||
509 | case CELLTYPE_EDIT : | ||||
510 | aStr = aCell.getString(&mrDoc); | ||||
511 | nType = 1; | ||||
512 | break; | ||||
513 | case CELLTYPE_VALUE : | ||||
514 | nVal = GetValueCellValue(aAdr, aCell.mfValue); | ||||
515 | break; | ||||
516 | case CELLTYPE_FORMULA : | ||||
517 | nErr = aCell.mpFormula->GetErrCode(); | ||||
518 | if (aCell.mpFormula->IsValue()) | ||||
519 | nVal = aCell.mpFormula->GetValue(); | ||||
520 | else | ||||
521 | aStr = aCell.mpFormula->GetString().getString(); | ||||
522 | break; | ||||
523 | default : | ||||
524 | bOk = false; | ||||
525 | break; | ||||
526 | } | ||||
527 | if (bOk) | ||||
528 | { | ||||
529 | if ((nPos + (5 * sizeof(sal_uInt16))) > MAXARRSIZE0xfffe) | ||||
530 | return false; | ||||
531 | *p++ = static_cast<sal_uInt16>(nCol); | ||||
532 | *p++ = static_cast<sal_uInt16>(nRow); | ||||
533 | *p++ = static_cast<sal_uInt16>(nTab); | ||||
534 | *p++ = static_cast<sal_uInt16>(nErr); | ||||
535 | *p++ = nType; | ||||
536 | nPos += 10; | ||||
537 | if (nType == 0) | ||||
538 | { | ||||
539 | if ((nPos + sizeof(double)) > MAXARRSIZE0xfffe) | ||||
540 | return false; | ||||
541 | memcpy( p, &nVal, sizeof(double)); | ||||
542 | nPos += sizeof(double); | ||||
543 | } | ||||
544 | else | ||||
545 | { | ||||
546 | OString aTmp(OUStringToOString(aStr, | ||||
547 | osl_getThreadTextEncoding())); | ||||
548 | // Old Add-Ins are limited to sal_uInt16 string | ||||
549 | // lengths, and room for pad byte check. | ||||
550 | if ( aTmp.getLength() > SAL_MAX_UINT16((sal_uInt16) 0xFFFF) - 2 ) | ||||
551 | return false; | ||||
552 | // Append a 0-pad-byte if string length is odd | ||||
553 | // MUST be sal_uInt16 | ||||
554 | sal_uInt16 nStrLen = static_cast<sal_uInt16>(aTmp.getLength()); | ||||
555 | sal_uInt16 nLen = ( nStrLen + 2 ) & ~1; | ||||
556 | if ( (static_cast<sal_uLong>(nPos) + 2 + nLen) > MAXARRSIZE0xfffe) | ||||
557 | return false; | ||||
558 | *p++ = nLen; | ||||
559 | memcpy( p, aTmp.getStr(), nStrLen + 1); | ||||
560 | nPos += 2 + nStrLen + 1; | ||||
561 | sal_uInt8* q = pCellArr + nPos; | ||||
562 | if( (nStrLen & 1) == 0 ) | ||||
563 | { | ||||
564 | *q++ = 0; | ||||
565 | nPos++; | ||||
566 | } | ||||
567 | } | ||||
568 | nCount++; | ||||
569 | p = reinterpret_cast<sal_uInt16*>( pCellArr + nPos ); | ||||
570 | } | ||||
571 | } | ||||
572 | nCol++; | ||||
573 | } | ||||
574 | nRow++; | ||||
575 | } | ||||
576 | nTab++; | ||||
577 | } | ||||
578 | *pCount = nCount; | ||||
579 | return true; | ||||
580 | } | ||||
581 | |||||
582 | // Stack operations | ||||
583 | |||||
584 | // Also releases a TempToken if appropriate. | ||||
585 | |||||
586 | void ScInterpreter::PushWithoutError( const FormulaToken& r ) | ||||
587 | { | ||||
588 | if ( sp >= MAXSTACK(4096 / sizeof(formula::FormulaToken*)) ) | ||||
589 | SetError( FormulaError::StackOverflow ); | ||||
590 | else | ||||
591 | { | ||||
592 | r.IncRef(); | ||||
593 | if( sp >= maxsp ) | ||||
594 | maxsp = sp + 1; | ||||
595 | else | ||||
596 | pStack[ sp ]->DecRef(); | ||||
597 | pStack[ sp ] = &r; | ||||
598 | ++sp; | ||||
599 | } | ||||
600 | } | ||||
601 | |||||
602 | void ScInterpreter::Push( const FormulaToken& r ) | ||||
603 | { | ||||
604 | if ( sp >= MAXSTACK(4096 / sizeof(formula::FormulaToken*)) ) | ||||
605 | SetError( FormulaError::StackOverflow ); | ||||
606 | else | ||||
607 | { | ||||
608 | if (nGlobalError != FormulaError::NONE) | ||||
609 | { | ||||
610 | if (r.GetType() == svError) | ||||
611 | PushWithoutError( r); | ||||
612 | else | ||||
613 | PushTempTokenWithoutError( new FormulaErrorToken( nGlobalError)); | ||||
614 | } | ||||
615 | else | ||||
616 | PushWithoutError( r); | ||||
617 | } | ||||
618 | } | ||||
619 | |||||
620 | void ScInterpreter::PushTempToken( FormulaToken* p ) | ||||
621 | { | ||||
622 | if ( sp >= MAXSTACK(4096 / sizeof(formula::FormulaToken*)) ) | ||||
623 | { | ||||
624 | SetError( FormulaError::StackOverflow ); | ||||
625 | // p may be a dangling pointer hereafter! | ||||
626 | p->DeleteIfZeroRef(); | ||||
627 | } | ||||
628 | else | ||||
629 | { | ||||
630 | if (nGlobalError != FormulaError::NONE) | ||||
631 | { | ||||
632 | if (p->GetType() == svError) | ||||
633 | { | ||||
634 | p->SetError( nGlobalError); | ||||
635 | PushTempTokenWithoutError( p); | ||||
636 | } | ||||
637 | else | ||||
638 | { | ||||
639 | // p may be a dangling pointer hereafter! | ||||
640 | p->DeleteIfZeroRef(); | ||||
641 | PushTempTokenWithoutError( new FormulaErrorToken( nGlobalError)); | ||||
642 | } | ||||
643 | } | ||||
644 | else | ||||
645 | PushTempTokenWithoutError( p); | ||||
646 | } | ||||
647 | } | ||||
648 | |||||
649 | void ScInterpreter::PushTempTokenWithoutError( const FormulaToken* p ) | ||||
650 | { | ||||
651 | p->IncRef(); | ||||
652 | if ( sp >= MAXSTACK(4096 / sizeof(formula::FormulaToken*)) ) | ||||
653 | { | ||||
654 | SetError( FormulaError::StackOverflow ); | ||||
655 | // p may be a dangling pointer hereafter! | ||||
656 | p->DecRef(); | ||||
657 | } | ||||
658 | else | ||||
659 | { | ||||
660 | if( sp >= maxsp ) | ||||
661 | maxsp = sp + 1; | ||||
662 | else | ||||
663 | pStack[ sp ]->DecRef(); | ||||
664 | pStack[ sp ] = p; | ||||
665 | ++sp; | ||||
666 | } | ||||
667 | } | ||||
668 | |||||
669 | void ScInterpreter::PushTokenRef( const formula::FormulaConstTokenRef& x ) | ||||
670 | { | ||||
671 | if ( sp >= MAXSTACK(4096 / sizeof(formula::FormulaToken*)) ) | ||||
672 | { | ||||
673 | SetError( FormulaError::StackOverflow ); | ||||
674 | } | ||||
675 | else | ||||
676 | { | ||||
677 | if (nGlobalError != FormulaError::NONE) | ||||
678 | { | ||||
679 | if (x->GetType() == svError && x->GetError() == nGlobalError) | ||||
680 | PushTempTokenWithoutError( x.get()); | ||||
681 | else | ||||
682 | PushTempTokenWithoutError( new FormulaErrorToken( nGlobalError)); | ||||
683 | } | ||||
684 | else | ||||
685 | PushTempTokenWithoutError( x.get()); | ||||
686 | } | ||||
687 | } | ||||
688 | |||||
689 | void ScInterpreter::PushCellResultToken( bool bDisplayEmptyAsString, | ||||
690 | const ScAddress & rAddress, SvNumFormatType * pRetTypeExpr, sal_uInt32 * pRetIndexExpr, bool bFinalResult ) | ||||
691 | { | ||||
692 | ScRefCellValue aCell(mrDoc, rAddress); | ||||
693 | if (aCell.hasEmptyValue()) | ||||
694 | { | ||||
695 | bool bInherited = (aCell.meType == CELLTYPE_FORMULA); | ||||
696 | if (pRetTypeExpr
| ||||
697 | mrDoc.GetNumberFormatInfo(mrContext, *pRetTypeExpr, *pRetIndexExpr, rAddress); | ||||
698 | PushTempToken( new ScEmptyCellToken( bInherited, bDisplayEmptyAsString)); | ||||
699 | return; | ||||
| |||||
700 | } | ||||
701 | |||||
702 | FormulaError nErr = FormulaError::NONE; | ||||
703 | if (aCell.meType == CELLTYPE_FORMULA) | ||||
704 | nErr = aCell.mpFormula->GetErrCode(); | ||||
705 | |||||
706 | if (nErr != FormulaError::NONE) | ||||
707 | { | ||||
708 | PushError( nErr); | ||||
709 | if (pRetTypeExpr) | ||||
710 | *pRetTypeExpr = SvNumFormatType::UNDEFINED; | ||||
711 | if (pRetIndexExpr) | ||||
712 | *pRetIndexExpr = 0; | ||||
713 | } | ||||
714 | else if (aCell.hasString()) | ||||
715 | { | ||||
716 | svl::SharedString aRes; | ||||
717 | GetCellString( aRes, aCell); | ||||
718 | PushString( aRes); | ||||
719 | if (pRetTypeExpr) | ||||
720 | *pRetTypeExpr = SvNumFormatType::TEXT; | ||||
721 | if (pRetIndexExpr) | ||||
722 | *pRetIndexExpr = 0; | ||||
723 | } | ||||
724 | else | ||||
725 | { | ||||
726 | double fVal = GetCellValue(rAddress, aCell); | ||||
727 | if (bFinalResult) | ||||
728 | { | ||||
729 | TreatDoubleError( fVal); | ||||
730 | if (!IfErrorPushError()) | ||||
731 | PushTempTokenWithoutError( CreateFormulaDoubleToken( fVal)); | ||||
732 | } | ||||
733 | else | ||||
734 | { | ||||
735 | PushDouble( fVal); | ||||
736 | } | ||||
737 | if (pRetTypeExpr) | ||||
738 | *pRetTypeExpr = nCurFmtType; | ||||
739 | if (pRetIndexExpr) | ||||
740 | *pRetIndexExpr = nCurFmtIndex; | ||||
741 | } | ||||
742 | } | ||||
743 | |||||
744 | // Simply throw away TOS. | ||||
745 | |||||
746 | void ScInterpreter::Pop() | ||||
747 | { | ||||
748 | if( sp ) | ||||
749 | sp--; | ||||
750 | else | ||||
751 | SetError(FormulaError::UnknownStackVariable); | ||||
752 | } | ||||
753 | |||||
754 | // Simply throw away TOS and set error code, used with ocIsError et al. | ||||
755 | |||||
756 | void ScInterpreter::PopError() | ||||
757 | { | ||||
758 | if( sp ) | ||||
759 | { | ||||
760 | sp--; | ||||
761 | if (pStack[sp]->GetType() == svError) | ||||
762 | nGlobalError = pStack[sp]->GetError(); | ||||
763 | } | ||||
764 | else | ||||
765 | SetError(FormulaError::UnknownStackVariable); | ||||
766 | } | ||||
767 | |||||
768 | FormulaConstTokenRef ScInterpreter::PopToken() | ||||
769 | { | ||||
770 | if (sp) | ||||
771 | { | ||||
772 | sp--; | ||||
773 | const FormulaToken* p = pStack[ sp ]; | ||||
774 | if (p->GetType() == svError) | ||||
775 | nGlobalError = p->GetError(); | ||||
776 | return p; | ||||
777 | } | ||||
778 | else | ||||
779 | SetError(FormulaError::UnknownStackVariable); | ||||
780 | return nullptr; | ||||
781 | } | ||||
782 | |||||
783 | double ScInterpreter::PopDouble() | ||||
784 | { | ||||
785 | nCurFmtType = SvNumFormatType::NUMBER; | ||||
786 | nCurFmtIndex = 0; | ||||
787 | if( sp ) | ||||
788 | { | ||||
789 | --sp; | ||||
790 | const FormulaToken* p = pStack[ sp ]; | ||||
791 | switch (p->GetType()) | ||||
792 | { | ||||
793 | case svError: | ||||
794 | nGlobalError = p->GetError(); | ||||
795 | break; | ||||
796 | case svDouble: | ||||
797 | { | ||||
798 | SvNumFormatType nType = static_cast<SvNumFormatType>(p->GetDoubleType()); | ||||
799 | if (nType != SvNumFormatType::ALL && nType != SvNumFormatType::UNDEFINED) | ||||
800 | nCurFmtType = nType; | ||||
801 | return p->GetDouble(); | ||||
802 | } | ||||
803 | case svEmptyCell: | ||||
804 | case svMissing: | ||||
805 | return 0.0; | ||||
806 | default: | ||||
807 | SetError( FormulaError::IllegalArgument); | ||||
808 | } | ||||
809 | } | ||||
810 | else | ||||
811 | SetError( FormulaError::UnknownStackVariable); | ||||
812 | return 0.0; | ||||
813 | } | ||||
814 | |||||
815 | svl::SharedString ScInterpreter::PopString() | ||||
816 | { | ||||
817 | nCurFmtType = SvNumFormatType::TEXT; | ||||
818 | nCurFmtIndex = 0; | ||||
819 | if( sp ) | ||||
820 | { | ||||
821 | --sp; | ||||
822 | const FormulaToken* p = pStack[ sp ]; | ||||
823 | switch (p->GetType()) | ||||
824 | { | ||||
825 | case svError: | ||||
826 | nGlobalError = p->GetError(); | ||||
827 | break; | ||||
828 | case svString: | ||||
829 | return p->GetString(); | ||||
830 | case svEmptyCell: | ||||
831 | case svMissing: | ||||
832 | return svl::SharedString::getEmptyString(); | ||||
833 | default: | ||||
834 | SetError( FormulaError::IllegalArgument); | ||||
835 | } | ||||
836 | } | ||||
837 | else | ||||
838 | SetError( FormulaError::UnknownStackVariable); | ||||
839 | |||||
840 | return svl::SharedString::getEmptyString(); | ||||
841 | } | ||||
842 | |||||
843 | void ScInterpreter::ValidateRef( const ScSingleRefData & rRef ) | ||||
844 | { | ||||
845 | SCCOL nCol; | ||||
846 | SCROW nRow; | ||||
847 | SCTAB nTab; | ||||
848 | SingleRefToVars( rRef, nCol, nRow, nTab); | ||||
849 | } | ||||
850 | |||||
851 | void ScInterpreter::ValidateRef( const ScComplexRefData & rRef ) | ||||
852 | { | ||||
853 | ValidateRef( rRef.Ref1); | ||||
854 | ValidateRef( rRef.Ref2); | ||||
855 | } | ||||
856 | |||||
857 | void ScInterpreter::ValidateRef( const ScRefList & rRefList ) | ||||
858 | { | ||||
859 | for (const auto& rRef : rRefList) | ||||
860 | { | ||||
861 | ValidateRef( rRef); | ||||
862 | } | ||||
863 | } | ||||
864 | |||||
865 | void ScInterpreter::SingleRefToVars( const ScSingleRefData & rRef, | ||||
866 | SCCOL & rCol, SCROW & rRow, SCTAB & rTab ) | ||||
867 | { | ||||
868 | if ( rRef.IsColRel() ) | ||||
869 | rCol = aPos.Col() + rRef.Col(); | ||||
870 | else | ||||
871 | rCol = rRef.Col(); | ||||
872 | |||||
873 | if ( rRef.IsRowRel() ) | ||||
874 | rRow = aPos.Row() + rRef.Row(); | ||||
875 | else | ||||
876 | rRow = rRef.Row(); | ||||
877 | |||||
878 | if ( rRef.IsTabRel() ) | ||||
879 | rTab = aPos.Tab() + rRef.Tab(); | ||||
880 | else | ||||
881 | rTab = rRef.Tab(); | ||||
882 | |||||
883 | if( !mrDoc.ValidCol( rCol) || rRef.IsColDeleted() ) | ||||
884 | { | ||||
885 | SetError( FormulaError::NoRef ); | ||||
886 | rCol = 0; | ||||
887 | } | ||||
888 | if( !mrDoc.ValidRow( rRow) || rRef.IsRowDeleted() ) | ||||
889 | { | ||||
890 | SetError( FormulaError::NoRef ); | ||||
891 | rRow = 0; | ||||
892 | } | ||||
893 | if( !ValidTab( rTab, mrDoc.GetTableCount() - 1) || rRef.IsTabDeleted() ) | ||||
894 | { | ||||
895 | SetError( FormulaError::NoRef ); | ||||
896 | rTab = 0; | ||||
897 | } | ||||
898 | } | ||||
899 | |||||
900 | void ScInterpreter::PopSingleRef(SCCOL& rCol, SCROW &rRow, SCTAB& rTab) | ||||
901 | { | ||||
902 | ScAddress aAddr(rCol, rRow, rTab); | ||||
903 | PopSingleRef(aAddr); | ||||
904 | rCol = aAddr.Col(); | ||||
905 | rRow = aAddr.Row(); | ||||
906 | rTab = aAddr.Tab(); | ||||
907 | } | ||||
908 | |||||
909 | void ScInterpreter::PopSingleRef( ScAddress& rAdr ) | ||||
910 | { | ||||
911 | if( sp ) | ||||
912 | { | ||||
913 | --sp; | ||||
914 | const FormulaToken* p = pStack[ sp ]; | ||||
915 | switch (p->GetType()) | ||||
916 | { | ||||
917 | case svError: | ||||
918 | nGlobalError = p->GetError(); | ||||
919 | break; | ||||
920 | case svSingleRef: | ||||
921 | { | ||||
922 | const ScSingleRefData* pRefData = p->GetSingleRef(); | ||||
923 | if (pRefData->IsDeleted()) | ||||
924 | { | ||||
925 | SetError( FormulaError::NoRef); | ||||
926 | break; | ||||
927 | } | ||||
928 | |||||
929 | SCCOL nCol; | ||||
930 | SCROW nRow; | ||||
931 | SCTAB nTab; | ||||
932 | SingleRefToVars( *pRefData, nCol, nRow, nTab); | ||||
933 | rAdr.Set( nCol, nRow, nTab ); | ||||
934 | if (!mrDoc.m_TableOpList.empty()) | ||||
935 | ReplaceCell( rAdr ); | ||||
936 | } | ||||
937 | break; | ||||
938 | default: | ||||
939 | SetError( FormulaError::IllegalParameter); | ||||
940 | } | ||||
941 | } | ||||
942 | else | ||||
943 | SetError( FormulaError::UnknownStackVariable); | ||||
944 | } | ||||
945 | |||||
946 | void ScInterpreter::DoubleRefToVars( const formula::FormulaToken* p, | ||||
947 | SCCOL& rCol1, SCROW &rRow1, SCTAB& rTab1, | ||||
948 | SCCOL& rCol2, SCROW &rRow2, SCTAB& rTab2 ) | ||||
949 | { | ||||
950 | const ScComplexRefData& rCRef = *p->GetDoubleRef(); | ||||
951 | SingleRefToVars( rCRef.Ref1, rCol1, rRow1, rTab1); | ||||
952 | SingleRefToVars( rCRef.Ref2, rCol2, rRow2, rTab2); | ||||
953 | if (rCol2 < rCol1) | ||||
954 | std::swap( rCol2, rCol1); | ||||
955 | if (rRow2 < rRow1) | ||||
956 | std::swap( rRow2, rRow1); | ||||
957 | if (rTab2 < rTab1) | ||||
958 | std::swap( rTab2, rTab1); | ||||
959 | if (!mrDoc.m_TableOpList.empty()) | ||||
960 | { | ||||
961 | ScRange aRange( rCol1, rRow1, rTab1, rCol2, rRow2, rTab2 ); | ||||
962 | if ( IsTableOpInRange( aRange ) ) | ||||
963 | SetError( FormulaError::IllegalParameter ); | ||||
964 | } | ||||
965 | } | ||||
966 | |||||
967 | ScDBRangeBase* ScInterpreter::PopDBDoubleRef() | ||||
968 | { | ||||
969 | StackVar eType = GetStackType(); | ||||
970 | switch (eType) | ||||
971 | { | ||||
972 | case svUnknown: | ||||
973 | SetError(FormulaError::UnknownStackVariable); | ||||
974 | break; | ||||
975 | case svError: | ||||
976 | PopError(); | ||||
977 | break; | ||||
978 | case svDoubleRef: | ||||
979 | { | ||||
980 | SCCOL nCol1, nCol2; | ||||
981 | SCROW nRow1, nRow2; | ||||
982 | SCTAB nTab1, nTab2; | ||||
983 | PopDoubleRef(nCol1, nRow1, nTab1, nCol2, nRow2, nTab2); | ||||
984 | if (nGlobalError != FormulaError::NONE) | ||||
985 | break; | ||||
986 | return new ScDBInternalRange(&mrDoc, | ||||
987 | ScRange(nCol1, nRow1, nTab1, nCol2, nRow2, nTab2)); | ||||
988 | } | ||||
989 | case svMatrix: | ||||
990 | case svExternalDoubleRef: | ||||
991 | { | ||||
992 | ScMatrixRef pMat; | ||||
993 | if (eType == svMatrix) | ||||
994 | pMat = PopMatrix(); | ||||
995 | else | ||||
996 | PopExternalDoubleRef(pMat); | ||||
997 | if (nGlobalError != FormulaError::NONE) | ||||
998 | break; | ||||
999 | return new ScDBExternalRange(&mrDoc, pMat); | ||||
1000 | } | ||||
1001 | default: | ||||
1002 | SetError( FormulaError::IllegalParameter); | ||||
1003 | } | ||||
1004 | |||||
1005 | return nullptr; | ||||
1006 | } | ||||
1007 | |||||
1008 | void ScInterpreter::PopDoubleRef(SCCOL& rCol1, SCROW &rRow1, SCTAB& rTab1, | ||||
1009 | SCCOL& rCol2, SCROW &rRow2, SCTAB& rTab2) | ||||
1010 | { | ||||
1011 | if( sp ) | ||||
1012 | { | ||||
1013 | --sp; | ||||
1014 | const FormulaToken* p = pStack[ sp ]; | ||||
1015 | switch (p->GetType()) | ||||
1016 | { | ||||
1017 | case svError: | ||||
1018 | nGlobalError = p->GetError(); | ||||
1019 | break; | ||||
1020 | case svDoubleRef: | ||||
1021 | DoubleRefToVars( p, rCol1, rRow1, rTab1, rCol2, rRow2, rTab2); | ||||
1022 | break; | ||||
1023 | default: | ||||
1024 | SetError( FormulaError::IllegalParameter); | ||||
1025 | } | ||||
1026 | } | ||||
1027 | else | ||||
1028 | SetError( FormulaError::UnknownStackVariable); | ||||
1029 | } | ||||
1030 | |||||
1031 | void ScInterpreter::DoubleRefToRange( const ScComplexRefData & rCRef, | ||||
1032 | ScRange & rRange, bool bDontCheckForTableOp ) | ||||
1033 | { | ||||
1034 | SCCOL nCol; | ||||
1035 | SCROW nRow; | ||||
1036 | SCTAB nTab; | ||||
1037 | SingleRefToVars( rCRef.Ref1, nCol, nRow, nTab); | ||||
1038 | rRange.aStart.Set( nCol, nRow, nTab ); | ||||
1039 | SingleRefToVars( rCRef.Ref2, nCol, nRow, nTab); | ||||
1040 | rRange.aEnd.Set( nCol, nRow, nTab ); | ||||
1041 | rRange.PutInOrder(); | ||||
1042 | if (!mrDoc.m_TableOpList.empty() && !bDontCheckForTableOp) | ||||
1043 | { | ||||
1044 | if ( IsTableOpInRange( rRange ) ) | ||||
1045 | SetError( FormulaError::IllegalParameter ); | ||||
1046 | } | ||||
1047 | } | ||||
1048 | |||||
1049 | void ScInterpreter::PopDoubleRef( ScRange & rRange, short & rParam, size_t & rRefInList ) | ||||
1050 | { | ||||
1051 | if (sp) | ||||
1052 | { | ||||
1053 | const formula::FormulaToken* pToken = pStack[ sp-1 ]; | ||||
1054 | switch (pToken->GetType()) | ||||
1055 | { | ||||
1056 | case svError: | ||||
1057 | nGlobalError = pToken->GetError(); | ||||
1058 | break; | ||||
1059 | case svDoubleRef: | ||||
1060 | { | ||||
1061 | --sp; | ||||
1062 | const ScComplexRefData* pRefData = pToken->GetDoubleRef(); | ||||
1063 | if (pRefData->IsDeleted()) | ||||
1064 | { | ||||
1065 | SetError( FormulaError::NoRef); | ||||
1066 | break; | ||||
1067 | } | ||||
1068 | DoubleRefToRange( *pRefData, rRange); | ||||
1069 | break; | ||||
1070 | } | ||||
1071 | case svRefList: | ||||
1072 | { | ||||
1073 | const ScRefList* pList = pToken->GetRefList(); | ||||
1074 | if (rRefInList < pList->size()) | ||||
1075 | { | ||||
1076 | DoubleRefToRange( (*pList)[rRefInList], rRange); | ||||
1077 | if (++rRefInList < pList->size()) | ||||
1078 | ++rParam; | ||||
1079 | else | ||||
1080 | { | ||||
1081 | --sp; | ||||
1082 | rRefInList = 0; | ||||
1083 | } | ||||
1084 | } | ||||
1085 | else | ||||
1086 | { | ||||
1087 | --sp; | ||||
1088 | rRefInList = 0; | ||||
1089 | SetError( FormulaError::IllegalParameter); | ||||
1090 | } | ||||
1091 | } | ||||
1092 | break; | ||||
1093 | default: | ||||
1094 | SetError( FormulaError::IllegalParameter); | ||||
1095 | } | ||||
1096 | } | ||||
1097 | else | ||||
1098 | SetError( FormulaError::UnknownStackVariable); | ||||
1099 | } | ||||
1100 | |||||
1101 | void ScInterpreter::PopDoubleRef( ScRange& rRange, bool bDontCheckForTableOp ) | ||||
1102 | { | ||||
1103 | if( sp ) | ||||
1104 | { | ||||
1105 | --sp; | ||||
1106 | const FormulaToken* p = pStack[ sp ]; | ||||
1107 | switch (p->GetType()) | ||||
1108 | { | ||||
1109 | case svError: | ||||
1110 | nGlobalError = p->GetError(); | ||||
1111 | break; | ||||
1112 | case svDoubleRef: | ||||
1113 | DoubleRefToRange( *p->GetDoubleRef(), rRange, bDontCheckForTableOp); | ||||
1114 | break; | ||||
1115 | default: | ||||
1116 | SetError( FormulaError::IllegalParameter); | ||||
1117 | } | ||||
1118 | } | ||||
1119 | else | ||||
1120 | SetError( FormulaError::UnknownStackVariable); | ||||
1121 | } | ||||
1122 | |||||
1123 | void ScInterpreter::PopExternalSingleRef(sal_uInt16& rFileId, OUString& rTabName, ScSingleRefData& rRef) | ||||
1124 | { | ||||
1125 | if (!sp) | ||||
1126 | { | ||||
1127 | SetError(FormulaError::UnknownStackVariable); | ||||
1128 | return; | ||||
1129 | } | ||||
1130 | |||||
1131 | --sp; | ||||
1132 | const FormulaToken* p = pStack[sp]; | ||||
1133 | StackVar eType = p->GetType(); | ||||
1134 | |||||
1135 | if (eType == svError) | ||||
1136 | { | ||||
1137 | nGlobalError = p->GetError(); | ||||
1138 | return; | ||||
1139 | } | ||||
1140 | |||||
1141 | if (eType != svExternalSingleRef) | ||||
1142 | { | ||||
1143 | SetError( FormulaError::IllegalParameter); | ||||
1144 | return; | ||||
1145 | } | ||||
1146 | |||||
1147 | rFileId = p->GetIndex(); | ||||
1148 | rTabName = p->GetString().getString(); | ||||
1149 | rRef = *p->GetSingleRef(); | ||||
1150 | } | ||||
1151 | |||||
1152 | void ScInterpreter::PopExternalSingleRef(ScExternalRefCache::TokenRef& rToken, ScExternalRefCache::CellFormat* pFmt) | ||||
1153 | { | ||||
1154 | sal_uInt16 nFileId; | ||||
1155 | OUString aTabName; | ||||
1156 | ScSingleRefData aData; | ||||
1157 | PopExternalSingleRef(nFileId, aTabName, aData, rToken, pFmt); | ||||
1158 | } | ||||
1159 | |||||
1160 | void ScInterpreter::PopExternalSingleRef( | ||||
1161 | sal_uInt16& rFileId, OUString& rTabName, ScSingleRefData& rRef, | ||||
1162 | ScExternalRefCache::TokenRef& rToken, ScExternalRefCache::CellFormat* pFmt) | ||||
1163 | { | ||||
1164 | PopExternalSingleRef(rFileId, rTabName, rRef); | ||||
1165 | if (nGlobalError != FormulaError::NONE) | ||||
1166 | return; | ||||
1167 | |||||
1168 | ScExternalRefManager* pRefMgr = mrDoc.GetExternalRefManager(); | ||||
1169 | const OUString* pFile = pRefMgr->getExternalFileName(rFileId); | ||||
1170 | if (!pFile) | ||||
1171 | { | ||||
1172 | SetError(FormulaError::NoName); | ||||
1173 | return; | ||||
1174 | } | ||||
1175 | |||||
1176 | if (rRef.IsTabRel()) | ||||
1177 | { | ||||
1178 | OSL_FAIL("ScCompiler::GetToken: external single reference must have an absolute table reference!")do { if (true && (((sal_Bool)1))) { sal_detail_logFormat ((SAL_DETAIL_LOG_LEVEL_WARN), ("legacy.osl"), ("/home/maarten/src/libreoffice/core/sc/source/core/tool/interpr4.cxx" ":" "1178" ": "), "%s", "ScCompiler::GetToken: external single reference must have an absolute table reference!" ); } } while (false); | ||||
1179 | SetError(FormulaError::NoRef); | ||||
1180 | return; | ||||
1181 | } | ||||
1182 | |||||
1183 | ScAddress aAddr = rRef.toAbs(mrDoc, aPos); | ||||
1184 | ScExternalRefCache::CellFormat aFmt; | ||||
1185 | ScExternalRefCache::TokenRef xNew = pRefMgr->getSingleRefToken( | ||||
1186 | rFileId, rTabName, aAddr, &aPos, nullptr, &aFmt); | ||||
1187 | |||||
1188 | if (!xNew) | ||||
1189 | { | ||||
1190 | SetError(FormulaError::NoRef); | ||||
1191 | return; | ||||
1192 | } | ||||
1193 | |||||
1194 | if (xNew->GetType() == svError) | ||||
1195 | SetError( xNew->GetError()); | ||||
1196 | |||||
1197 | rToken = xNew; | ||||
1198 | if (pFmt) | ||||
1199 | *pFmt = aFmt; | ||||
1200 | } | ||||
1201 | |||||
1202 | void ScInterpreter::PopExternalDoubleRef(sal_uInt16& rFileId, OUString& rTabName, ScComplexRefData& rRef) | ||||
1203 | { | ||||
1204 | if (!sp) | ||||
1205 | { | ||||
1206 | SetError(FormulaError::UnknownStackVariable); | ||||
1207 | return; | ||||
1208 | } | ||||
1209 | |||||
1210 | --sp; | ||||
1211 | const FormulaToken* p = pStack[sp]; | ||||
1212 | StackVar eType = p->GetType(); | ||||
1213 | |||||
1214 | if (eType == svError) | ||||
1215 | { | ||||
1216 | nGlobalError = p->GetError(); | ||||
1217 | return; | ||||
1218 | } | ||||
1219 | |||||
1220 | if (eType != svExternalDoubleRef) | ||||
1221 | { | ||||
1222 | SetError( FormulaError::IllegalParameter); | ||||
1223 | return; | ||||
1224 | } | ||||
1225 | |||||
1226 | rFileId = p->GetIndex(); | ||||
1227 | rTabName = p->GetString().getString(); | ||||
1228 | rRef = *p->GetDoubleRef(); | ||||
1229 | } | ||||
1230 | |||||
1231 | void ScInterpreter::PopExternalDoubleRef(ScExternalRefCache::TokenArrayRef& rArray) | ||||
1232 | { | ||||
1233 | sal_uInt16 nFileId; | ||||
1234 | OUString aTabName; | ||||
1235 | ScComplexRefData aData; | ||||
1236 | PopExternalDoubleRef(nFileId, aTabName, aData); | ||||
1237 | if (nGlobalError != FormulaError::NONE) | ||||
1238 | return; | ||||
1239 | |||||
1240 | GetExternalDoubleRef(nFileId, aTabName, aData, rArray); | ||||
1241 | if (nGlobalError != FormulaError::NONE) | ||||
1242 | return; | ||||
1243 | } | ||||
1244 | |||||
1245 | void ScInterpreter::PopExternalDoubleRef(ScMatrixRef& rMat) | ||||
1246 | { | ||||
1247 | ScExternalRefCache::TokenArrayRef pArray; | ||||
1248 | PopExternalDoubleRef(pArray); | ||||
1249 | if (nGlobalError != FormulaError::NONE) | ||||
1250 | return; | ||||
1251 | |||||
1252 | // For now, we only support single range data for external | ||||
1253 | // references, which means the array should only contain a | ||||
1254 | // single matrix token. | ||||
1255 | formula::FormulaToken* p = pArray->FirstToken(); | ||||
1256 | if (!p || p->GetType() != svMatrix) | ||||
1257 | SetError( FormulaError::IllegalParameter); | ||||
1258 | else | ||||
1259 | { | ||||
1260 | rMat = p->GetMatrix(); | ||||
1261 | if (!rMat) | ||||
1262 | SetError( FormulaError::UnknownVariable); | ||||
1263 | } | ||||
1264 | } | ||||
1265 | |||||
1266 | void ScInterpreter::GetExternalDoubleRef( | ||||
1267 | sal_uInt16 nFileId, const OUString& rTabName, const ScComplexRefData& rData, ScExternalRefCache::TokenArrayRef& rArray) | ||||
1268 | { | ||||
1269 | ScExternalRefManager* pRefMgr = mrDoc.GetExternalRefManager(); | ||||
1270 | const OUString* pFile = pRefMgr->getExternalFileName(nFileId); | ||||
1271 | if (!pFile) | ||||
1272 | { | ||||
1273 | SetError(FormulaError::NoName); | ||||
1274 | return; | ||||
1275 | } | ||||
1276 | if (rData.Ref1.IsTabRel() || rData.Ref2.IsTabRel()) | ||||
1277 | { | ||||
1278 | OSL_FAIL("ScCompiler::GetToken: external double reference must have an absolute table reference!")do { if (true && (((sal_Bool)1))) { sal_detail_logFormat ((SAL_DETAIL_LOG_LEVEL_WARN), ("legacy.osl"), ("/home/maarten/src/libreoffice/core/sc/source/core/tool/interpr4.cxx" ":" "1278" ": "), "%s", "ScCompiler::GetToken: external double reference must have an absolute table reference!" ); } } while (false); | ||||
1279 | SetError(FormulaError::NoRef); | ||||
1280 | return; | ||||
1281 | } | ||||
1282 | |||||
1283 | ScComplexRefData aData(rData); | ||||
1284 | ScRange aRange = aData.toAbs(mrDoc, aPos); | ||||
1285 | if (!mrDoc.ValidColRow(aRange.aStart.Col(), aRange.aStart.Row()) || !mrDoc.ValidColRow(aRange.aEnd.Col(), aRange.aEnd.Row())) | ||||
1286 | { | ||||
1287 | SetError(FormulaError::NoRef); | ||||
1288 | return; | ||||
1289 | } | ||||
1290 | |||||
1291 | ScExternalRefCache::TokenArrayRef pArray = pRefMgr->getDoubleRefTokens( | ||||
1292 | nFileId, rTabName, aRange, &aPos); | ||||
1293 | |||||
1294 | if (!pArray) | ||||
1295 | { | ||||
1296 | SetError(FormulaError::IllegalArgument); | ||||
1297 | return; | ||||
1298 | } | ||||
1299 | |||||
1300 | formula::FormulaTokenArrayPlainIterator aIter(*pArray); | ||||
1301 | formula::FormulaToken* pToken = aIter.First(); | ||||
1302 | assert(pToken)(static_cast <bool> (pToken) ? void (0) : __assert_fail ("pToken", "/home/maarten/src/libreoffice/core/sc/source/core/tool/interpr4.cxx" , 1302, __extension__ __PRETTY_FUNCTION__)); | ||||
1303 | if (pToken->GetType() == svError) | ||||
1304 | { | ||||
1305 | SetError( pToken->GetError()); | ||||
1306 | return; | ||||
1307 | } | ||||
1308 | if (pToken->GetType() != svMatrix) | ||||
1309 | { | ||||
1310 | SetError(FormulaError::IllegalArgument); | ||||
1311 | return; | ||||
1312 | } | ||||
1313 | |||||
1314 | if (aIter.Next()) | ||||
1315 | { | ||||
1316 | // Can't handle more than one matrix per parameter. | ||||
1317 | SetError( FormulaError::IllegalArgument); | ||||
1318 | return; | ||||
1319 | } | ||||
1320 | |||||
1321 | rArray = pArray; | ||||
1322 | } | ||||
1323 | |||||
1324 | bool ScInterpreter::PopDoubleRefOrSingleRef( ScAddress& rAdr ) | ||||
1325 | { | ||||
1326 | switch ( GetStackType() ) | ||||
1327 | { | ||||
1328 | case svDoubleRef : | ||||
1329 | { | ||||
1330 | ScRange aRange; | ||||
1331 | PopDoubleRef( aRange, true ); | ||||
1332 | return DoubleRefToPosSingleRef( aRange, rAdr ); | ||||
1333 | } | ||||
1334 | case svSingleRef : | ||||
1335 | { | ||||
1336 | PopSingleRef( rAdr ); | ||||
1337 | return true; | ||||
1338 | } | ||||
1339 | default: | ||||
1340 | PopError(); | ||||
1341 | SetError( FormulaError::NoRef ); | ||||
1342 | } | ||||
1343 | return false; | ||||
1344 | } | ||||
1345 | |||||
1346 | void ScInterpreter::PopDoubleRefPushMatrix() | ||||
1347 | { | ||||
1348 | if ( GetStackType() == svDoubleRef ) | ||||
1349 | { | ||||
1350 | ScMatrixRef pMat = GetMatrix(); | ||||
1351 | if ( pMat ) | ||||
1352 | PushMatrix( pMat ); | ||||
1353 | else | ||||
1354 | PushIllegalParameter(); | ||||
1355 | } | ||||
1356 | else | ||||
1357 | SetError( FormulaError::NoRef ); | ||||
1358 | } | ||||
1359 | |||||
1360 | void ScInterpreter::PopRefListPushMatrixOrRef() | ||||
1361 | { | ||||
1362 | if ( GetStackType() == svRefList ) | ||||
1363 | { | ||||
1364 | FormulaConstTokenRef xTok = pStack[sp-1]; | ||||
1365 | const std::vector<ScComplexRefData>* pv = xTok->GetRefList(); | ||||
1366 | if (pv) | ||||
1367 | { | ||||
1368 | const size_t nEntries = pv->size(); | ||||
1369 | if (nEntries == 1) | ||||
1370 | { | ||||
1371 | --sp; | ||||
1372 | PushTempTokenWithoutError( new ScDoubleRefToken( mrDoc.GetSheetLimits(), (*pv)[0] )); | ||||
1373 | } | ||||
1374 | else if (bMatrixFormula) | ||||
1375 | { | ||||
1376 | // Only single cells can be stuffed into a column vector. | ||||
1377 | // XXX NOTE: Excel doesn't do this but returns #VALUE! instead. | ||||
1378 | // Though there's no compelling reason not to... | ||||
1379 | for (const auto & rRef : *pv) | ||||
1380 | { | ||||
1381 | if (rRef.Ref1 != rRef.Ref2) | ||||
1382 | return; | ||||
1383 | } | ||||
1384 | ScMatrixRef xMat = GetNewMat( 1, nEntries, true); // init empty | ||||
1385 | if (!xMat) | ||||
1386 | return; | ||||
1387 | for (size_t i=0; i < nEntries; ++i) | ||||
1388 | { | ||||
1389 | SCCOL nCol; SCROW nRow; SCTAB nTab; | ||||
1390 | SingleRefToVars( (*pv)[i].Ref1, nCol, nRow, nTab); | ||||
1391 | if (nGlobalError == FormulaError::NONE) | ||||
1392 | { | ||||
1393 | ScAddress aAdr( nCol, nRow, nTab); | ||||
1394 | ScRefCellValue aCell(mrDoc, aAdr); | ||||
1395 | if (aCell.hasError()) | ||||
1396 | xMat->PutError( aCell.mpFormula->GetErrCode(), 0, i); | ||||
1397 | else if (aCell.hasEmptyValue()) | ||||
1398 | xMat->PutEmpty( 0, i); | ||||
1399 | else if (aCell.hasString()) | ||||
1400 | xMat->PutString( mrStrPool.intern( aCell.getString(&mrDoc)), 0, i); | ||||
1401 | else | ||||
1402 | xMat->PutDouble( aCell.getValue(), 0, i); | ||||
1403 | } | ||||
1404 | else | ||||
1405 | { | ||||
1406 | xMat->PutError( nGlobalError, 0, i); | ||||
1407 | nGlobalError = FormulaError::NONE; | ||||
1408 | } | ||||
1409 | } | ||||
1410 | --sp; | ||||
1411 | PushMatrix( xMat); | ||||
1412 | } | ||||
1413 | } | ||||
1414 | // else: keep token on stack, something will handle the error | ||||
1415 | } | ||||
1416 | else | ||||
1417 | SetError( FormulaError::NoRef ); | ||||
1418 | } | ||||
1419 | |||||
1420 | void ScInterpreter::ConvertMatrixJumpConditionToMatrix() | ||||
1421 | { | ||||
1422 | StackVar eStackType = GetStackType(); | ||||
1423 | if (eStackType == svUnknown) | ||||
1424 | return; // can't do anything, some caller will catch that | ||||
1425 | if (eStackType == svMatrix) | ||||
1426 | return; // already matrix, nothing to do | ||||
1427 | |||||
1428 | if (eStackType != svDoubleRef && GetStackType(2) != svJumpMatrix) | ||||
1429 | return; // always convert svDoubleRef, others only in JumpMatrix context | ||||
1430 | |||||
1431 | GetTokenMatrixMap(); // make sure it exists, create if not. | ||||
1432 | ScMatrixRef pMat = GetMatrix(); | ||||
1433 | if ( pMat ) | ||||
1434 | PushMatrix( pMat ); | ||||
1435 | else | ||||
1436 | PushIllegalParameter(); | ||||
1437 | } | ||||
1438 | |||||
1439 | std::unique_ptr<ScTokenMatrixMap> ScInterpreter::CreateTokenMatrixMap() | ||||
1440 | { | ||||
1441 | return std::make_unique<ScTokenMatrixMap>(); | ||||
1442 | } | ||||
1443 | |||||
1444 | bool ScInterpreter::ConvertMatrixParameters() | ||||
1445 | { | ||||
1446 | sal_uInt16 nParams = pCur->GetParamCount(); | ||||
1447 | OSL_ENSURE( nParams <= sp, "ConvertMatrixParameters: stack/param count mismatch")do { if (true && (!(nParams <= sp))) { sal_detail_logFormat ((SAL_DETAIL_LOG_LEVEL_WARN), ("legacy.osl"), ("/home/maarten/src/libreoffice/core/sc/source/core/tool/interpr4.cxx" ":" "1447" ": "), "%s", "ConvertMatrixParameters: stack/param count mismatch" ); } } while (false); | ||||
1448 | SCSIZE nJumpCols = 0, nJumpRows = 0; | ||||
1449 | for ( sal_uInt16 i=1; i <= nParams && i <= sp; ++i ) | ||||
1450 | { | ||||
1451 | const FormulaToken* p = pStack[ sp - i ]; | ||||
1452 | if ( p->GetOpCode() != ocPush && p->GetOpCode() != ocMissing) | ||||
1453 | { | ||||
1454 | OSL_FAIL( "ConvertMatrixParameters: not a push")do { if (true && (((sal_Bool)1))) { sal_detail_logFormat ((SAL_DETAIL_LOG_LEVEL_WARN), ("legacy.osl"), ("/home/maarten/src/libreoffice/core/sc/source/core/tool/interpr4.cxx" ":" "1454" ": "), "%s", "ConvertMatrixParameters: not a push" ); } } while (false); | ||||
1455 | } | ||||
1456 | else | ||||
1457 | { | ||||
1458 | switch ( p->GetType() ) | ||||
1459 | { | ||||
1460 | case svDouble: | ||||
1461 | case svString: | ||||
1462 | case svSingleRef: | ||||
1463 | case svExternalSingleRef: | ||||
1464 | case svMissing: | ||||
1465 | case svError: | ||||
1466 | case svEmptyCell: | ||||
1467 | // nothing to do | ||||
1468 | break; | ||||
1469 | case svMatrix: | ||||
1470 | { | ||||
1471 | if ( ScParameterClassification::GetParameterType( pCur, nParams - i) | ||||
1472 | == formula::ParamClass::Value ) | ||||
1473 | { // only if single value expected | ||||
1474 | ScConstMatrixRef pMat = p->GetMatrix(); | ||||
1475 | if ( !pMat ) | ||||
1476 | SetError( FormulaError::UnknownVariable); | ||||
1477 | else | ||||
1478 | { | ||||
1479 | SCSIZE nCols, nRows; | ||||
1480 | pMat->GetDimensions( nCols, nRows); | ||||
1481 | if ( nJumpCols < nCols ) | ||||
1482 | nJumpCols = nCols; | ||||
1483 | if ( nJumpRows < nRows ) | ||||
1484 | nJumpRows = nRows; | ||||
1485 | } | ||||
1486 | } | ||||
1487 | } | ||||
1488 | break; | ||||
1489 | case svDoubleRef: | ||||
1490 | { | ||||
1491 | formula::ParamClass eType = ScParameterClassification::GetParameterType( pCur, nParams - i); | ||||
1492 | if ( eType != formula::ParamClass::Reference && | ||||
1493 | eType != formula::ParamClass::ReferenceOrRefArray && | ||||
1494 | eType != formula::ParamClass::ReferenceOrForceArray && | ||||
1495 | // For scalar Value: convert to Array/JumpMatrix | ||||
1496 | // only if in array formula context, else (function | ||||
1497 | // has ForceArray or ReferenceOrForceArray | ||||
1498 | // parameter *somewhere else*) pick a normal | ||||
1499 | // position dependent implicit intersection later. | ||||
1500 | (eType != formula::ParamClass::Value || IsInArrayContext())) | ||||
1501 | { | ||||
1502 | SCCOL nCol1, nCol2; | ||||
1503 | SCROW nRow1, nRow2; | ||||
1504 | SCTAB nTab1, nTab2; | ||||
1505 | DoubleRefToVars( p, nCol1, nRow1, nTab1, nCol2, nRow2, nTab2); | ||||
1506 | // Make sure the map exists, created if not. | ||||
1507 | GetTokenMatrixMap(); | ||||
1508 | ScMatrixRef pMat = CreateMatrixFromDoubleRef( p, | ||||
1509 | nCol1, nRow1, nTab1, nCol2, nRow2, nTab2); | ||||
1510 | if (pMat) | ||||
1511 | { | ||||
1512 | if ( eType == formula::ParamClass::Value ) | ||||
1513 | { // only if single value expected | ||||
1514 | if ( nJumpCols < o3tl::make_unsigned(nCol2 - nCol1 + 1) ) | ||||
1515 | nJumpCols = static_cast<SCSIZE>(nCol2 - nCol1 + 1); | ||||
1516 | if ( nJumpRows < o3tl::make_unsigned(nRow2 - nRow1 + 1) ) | ||||
1517 | nJumpRows = static_cast<SCSIZE>(nRow2 - nRow1 + 1); | ||||
1518 | } | ||||
1519 | formula::FormulaToken* pNew = new ScMatrixToken( pMat); | ||||
1520 | pNew->IncRef(); | ||||
1521 | pStack[ sp - i ] = pNew; | ||||
1522 | p->DecRef(); // p may be dead now! | ||||
1523 | } | ||||
1524 | } | ||||
1525 | } | ||||
1526 | break; | ||||
1527 | case svExternalDoubleRef: | ||||
1528 | { | ||||
1529 | formula::ParamClass eType = ScParameterClassification::GetParameterType( pCur, nParams - i); | ||||
1530 | if (eType == formula::ParamClass::Value || eType == formula::ParamClass::Array) | ||||
1531 | { | ||||
1532 | sal_uInt16 nFileId = p->GetIndex(); | ||||
1533 | OUString aTabName = p->GetString().getString(); | ||||
1534 | const ScComplexRefData& rRef = *p->GetDoubleRef(); | ||||
1535 | ScExternalRefCache::TokenArrayRef pArray; | ||||
1536 | GetExternalDoubleRef(nFileId, aTabName, rRef, pArray); | ||||
1537 | if (nGlobalError != FormulaError::NONE || !pArray) | ||||
1538 | break; | ||||
1539 | formula::FormulaToken* pTemp = pArray->FirstToken(); | ||||
1540 | if (!pTemp) | ||||
1541 | break; | ||||
1542 | |||||
1543 | ScMatrixRef pMat = pTemp->GetMatrix(); | ||||
1544 | if (pMat) | ||||
1545 | { | ||||
1546 | if (eType == formula::ParamClass::Value) | ||||
1547 | { // only if single value expected | ||||
1548 | SCSIZE nC, nR; | ||||
1549 | pMat->GetDimensions( nC, nR); | ||||
1550 | if (nJumpCols < nC) | ||||
1551 | nJumpCols = nC; | ||||
1552 | if (nJumpRows < nR) | ||||
1553 | nJumpRows = nR; | ||||
1554 | } | ||||
1555 | formula::FormulaToken* pNew = new ScMatrixToken( pMat); | ||||
1556 | pNew->IncRef(); | ||||
1557 | pStack[ sp - i ] = pNew; | ||||
1558 | p->DecRef(); // p may be dead now! | ||||
1559 | } | ||||
1560 | } | ||||
1561 | } | ||||
1562 | break; | ||||
1563 | case svRefList: | ||||
1564 | { | ||||
1565 | formula::ParamClass eType = ScParameterClassification::GetParameterType( pCur, nParams - i); | ||||
1566 | if ( eType != formula::ParamClass::Reference && | ||||
1567 | eType != formula::ParamClass::ReferenceOrRefArray && | ||||
1568 | eType != formula::ParamClass::ReferenceOrForceArray && | ||||
1569 | eType != formula::ParamClass::ForceArray) | ||||
1570 | { | ||||
1571 | // can't convert to matrix | ||||
1572 | SetError( FormulaError::NoValue); | ||||
1573 | } | ||||
1574 | // else: the consuming function has to decide if and how to | ||||
1575 | // handle a reference list argument in array context. | ||||
1576 | } | ||||
1577 | break; | ||||
1578 | default: | ||||
1579 | OSL_FAIL( "ConvertMatrixParameters: unknown parameter type")do { if (true && (((sal_Bool)1))) { sal_detail_logFormat ((SAL_DETAIL_LOG_LEVEL_WARN), ("legacy.osl"), ("/home/maarten/src/libreoffice/core/sc/source/core/tool/interpr4.cxx" ":" "1579" ": "), "%s", "ConvertMatrixParameters: unknown parameter type" ); } } while (false); | ||||
1580 | } | ||||
1581 | } | ||||
1582 | } | ||||
1583 | if( nJumpCols && nJumpRows ) | ||||
1584 | { | ||||
1585 | short nPC = aCode.GetPC(); | ||||
1586 | short nStart = nPC - 1; // restart on current code (-1) | ||||
1587 | short nNext = nPC; // next instruction after subroutine | ||||
1588 | short nStop = nPC + 1; // stop subroutine before reaching that | ||||
1589 | FormulaConstTokenRef xNew; | ||||
1590 | ScTokenMatrixMap::const_iterator aMapIter; | ||||
1591 | if (pTokenMatrixMap && ((aMapIter = pTokenMatrixMap->find( pCur)) != pTokenMatrixMap->end())) | ||||
1592 | xNew = (*aMapIter).second; | ||||
1593 | else | ||||
1594 | { | ||||
1595 | auto pJumpMat = std::make_shared<ScJumpMatrix>( pCur->GetOpCode(), nJumpCols, nJumpRows); | ||||
1596 | pJumpMat->SetAllJumps( 1.0, nStart, nNext, nStop); | ||||
1597 | // pop parameters and store in ScJumpMatrix, push in JumpMatrix() | ||||
1598 | ScTokenVec aParams(nParams); | ||||
1599 | for ( sal_uInt16 i=1; i <= nParams && sp > 0; ++i ) | ||||
1600 | { | ||||
1601 | const FormulaToken* p = pStack[ --sp ]; | ||||
1602 | p->IncRef(); | ||||
1603 | // store in reverse order such that a push may simply iterate | ||||
1604 | aParams[ nParams - i ] = p; | ||||
1605 | } | ||||
1606 | pJumpMat->SetJumpParameters( std::move(aParams) ); | ||||
1607 | xNew = new ScJumpMatrixToken( std::move(pJumpMat) ); | ||||
1608 | GetTokenMatrixMap().emplace(pCur, xNew); | ||||
1609 | } | ||||
1610 | PushTempTokenWithoutError( xNew.get()); | ||||
1611 | // set continuation point of path for main code line | ||||
1612 | aCode.Jump( nNext, nNext); | ||||
1613 | return true; | ||||
1614 | } | ||||
1615 | return false; | ||||
1616 | } | ||||
1617 | |||||
1618 | ScMatrixRef ScInterpreter::PopMatrix() | ||||
1619 | { | ||||
1620 | if( sp ) | ||||
1621 | { | ||||
1622 | --sp; | ||||
1623 | const FormulaToken* p = pStack[ sp ]; | ||||
1624 | switch (p->GetType()) | ||||
1625 | { | ||||
1626 | case svError: | ||||
1627 | nGlobalError = p->GetError(); | ||||
1628 | break; | ||||
1629 | case svMatrix: | ||||
1630 | { | ||||
1631 | // ScMatrix itself maintains an im/mutable flag that should | ||||
1632 | // be obeyed where necessary... so we can return ScMatrixRef | ||||
1633 | // here instead of ScConstMatrixRef. | ||||
1634 | ScMatrix* pMat = const_cast<FormulaToken*>(p)->GetMatrix(); | ||||
1635 | if ( pMat ) | ||||
1636 | pMat->SetErrorInterpreter( this); | ||||
1637 | else | ||||
1638 | SetError( FormulaError::UnknownVariable); | ||||
1639 | return pMat; | ||||
1640 | } | ||||
1641 | default: | ||||
1642 | SetError( FormulaError::IllegalParameter); | ||||
1643 | } | ||||
1644 | } | ||||
1645 | else | ||||
1646 | SetError( FormulaError::UnknownStackVariable); | ||||
1647 | return nullptr; | ||||
1648 | } | ||||
1649 | |||||
1650 | sc::RangeMatrix ScInterpreter::PopRangeMatrix() | ||||
1651 | { | ||||
1652 | sc::RangeMatrix aRet; | ||||
1653 | if (sp) | ||||
1654 | { | ||||
1655 | switch (pStack[sp-1]->GetType()) | ||||
1656 | { | ||||
1657 | case svMatrix: | ||||
1658 | { | ||||
1659 | --sp; | ||||
1660 | const FormulaToken* p = pStack[sp]; | ||||
1661 | aRet.mpMat = const_cast<FormulaToken*>(p)->GetMatrix(); | ||||
1662 | if (aRet.mpMat) | ||||
1663 | { | ||||
1664 | aRet.mpMat->SetErrorInterpreter(this); | ||||
1665 | if (p->GetByte() == MATRIX_TOKEN_HAS_RANGE1) | ||||
1666 | { | ||||
1667 | const ScComplexRefData& rRef = *p->GetDoubleRef(); | ||||
1668 | if (!rRef.Ref1.IsColRel() && !rRef.Ref1.IsRowRel() && !rRef.Ref2.IsColRel() && !rRef.Ref2.IsRowRel()) | ||||
1669 | { | ||||
1670 | aRet.mnCol1 = rRef.Ref1.Col(); | ||||
1671 | aRet.mnRow1 = rRef.Ref1.Row(); | ||||
1672 | aRet.mnTab1 = rRef.Ref1.Tab(); | ||||
1673 | aRet.mnCol2 = rRef.Ref2.Col(); | ||||
1674 | aRet.mnRow2 = rRef.Ref2.Row(); | ||||
1675 | aRet.mnTab2 = rRef.Ref2.Tab(); | ||||
1676 | } | ||||
1677 | } | ||||
1678 | } | ||||
1679 | else | ||||
1680 | SetError( FormulaError::UnknownVariable); | ||||
1681 | } | ||||
1682 | break; | ||||
1683 | default: | ||||
1684 | aRet.mpMat = PopMatrix(); | ||||
1685 | } | ||||
1686 | } | ||||
1687 | return aRet; | ||||
1688 | } | ||||
1689 | |||||
1690 | void ScInterpreter::QueryMatrixType(const ScMatrixRef& xMat, SvNumFormatType& rRetTypeExpr, sal_uInt32& rRetIndexExpr) | ||||
1691 | { | ||||
1692 | if (xMat) | ||||
1693 | { | ||||
1694 | SCSIZE nCols, nRows; | ||||
1695 | xMat->GetDimensions(nCols, nRows); | ||||
1696 | ScMatrixValue nMatVal = xMat->Get(0, 0); | ||||
1697 | ScMatValType nMatValType = nMatVal.nType; | ||||
1698 | if (ScMatrix::IsNonValueType( nMatValType)) | ||||
1699 | { | ||||
1700 | if ( xMat->IsEmptyPath( 0, 0)) | ||||
1701 | { // result of empty FALSE jump path | ||||
1702 | FormulaTokenRef xRes = CreateFormulaDoubleToken( 0.0); | ||||
1703 | PushTempToken( new ScMatrixFormulaCellToken(nCols, nRows, xMat, xRes.get())); | ||||
1704 | rRetTypeExpr = SvNumFormatType::LOGICAL; | ||||
1705 | } | ||||
1706 | else if ( xMat->IsEmptyResult( 0, 0)) | ||||
1707 | { // empty formula result | ||||
1708 | FormulaTokenRef xRes = new ScEmptyCellToken( true, true); // inherited, display empty | ||||
1709 | PushTempToken( new ScMatrixFormulaCellToken(nCols, nRows, xMat, xRes.get())); | ||||
1710 | } | ||||
1711 | else if ( xMat->IsEmpty( 0, 0)) | ||||
1712 | { // empty or empty cell | ||||
1713 | FormulaTokenRef xRes = new ScEmptyCellToken( false, true); // not inherited, display empty | ||||
1714 | PushTempToken( new ScMatrixFormulaCellToken(nCols, nRows, xMat, xRes.get())); | ||||
1715 | } | ||||
1716 | else | ||||
1717 | { | ||||
1718 | FormulaTokenRef xRes = new FormulaStringToken( nMatVal.GetString() ); | ||||
1719 | PushTempToken( new ScMatrixFormulaCellToken(nCols, nRows, xMat, xRes.get())); | ||||
1720 | rRetTypeExpr = SvNumFormatType::TEXT; | ||||
1721 | } | ||||
1722 | } | ||||
1723 | else | ||||
1724 | { | ||||
1725 | FormulaError nErr = GetDoubleErrorValue( nMatVal.fVal); | ||||
1726 | FormulaTokenRef xRes; | ||||
1727 | if (nErr != FormulaError::NONE) | ||||
1728 | xRes = new FormulaErrorToken( nErr); | ||||
1729 | else | ||||
1730 | xRes = CreateFormulaDoubleToken( nMatVal.fVal); | ||||
1731 | PushTempToken( new ScMatrixFormulaCellToken(nCols, nRows, xMat, xRes.get())); | ||||
1732 | if ( rRetTypeExpr != SvNumFormatType::LOGICAL ) | ||||
1733 | rRetTypeExpr = SvNumFormatType::NUMBER; | ||||
1734 | } | ||||
1735 | rRetIndexExpr = 0; | ||||
1736 | xMat->SetErrorInterpreter( nullptr); | ||||
1737 | } | ||||
1738 | else | ||||
1739 | SetError( FormulaError::UnknownStackVariable); | ||||
1740 | } | ||||
1741 | |||||
1742 | formula::FormulaToken* ScInterpreter::CreateFormulaDoubleToken( double fVal, SvNumFormatType nFmt ) | ||||
1743 | { | ||||
1744 | assert( mrContext.maTokens.size() == TOKEN_CACHE_SIZE )(static_cast <bool> (mrContext.maTokens.size() == 8) ? void (0) : __assert_fail ("mrContext.maTokens.size() == TOKEN_CACHE_SIZE" , "/home/maarten/src/libreoffice/core/sc/source/core/tool/interpr4.cxx" , 1744, __extension__ __PRETTY_FUNCTION__)); | ||||
1745 | |||||
1746 | // Find a spare token | ||||
1747 | for ( auto p : mrContext.maTokens ) | ||||
1748 | { | ||||
1749 | if (p && p->GetRef() == 1) | ||||
1750 | { | ||||
1751 | p->GetDoubleAsReference() = fVal; | ||||
1752 | p->SetDoubleType( static_cast<sal_Int16>(nFmt) ); | ||||
1753 | return p; | ||||
1754 | } | ||||
1755 | } | ||||
1756 | |||||
1757 | // Allocate a new token | ||||
1758 | auto p = new FormulaTypedDoubleToken( fVal, static_cast<sal_Int16>(nFmt) ); | ||||
1759 | if ( mrContext.maTokens[mrContext.mnTokenCachePos] ) | ||||
1760 | mrContext.maTokens[mrContext.mnTokenCachePos]->DecRef(); | ||||
1761 | mrContext.maTokens[mrContext.mnTokenCachePos] = p; | ||||
1762 | p->IncRef(); | ||||
1763 | mrContext.mnTokenCachePos = (mrContext.mnTokenCachePos + 1) % TOKEN_CACHE_SIZE8; | ||||
1764 | return p; | ||||
1765 | } | ||||
1766 | |||||
1767 | formula::FormulaToken* ScInterpreter::CreateDoubleOrTypedToken( double fVal ) | ||||
1768 | { | ||||
1769 | // NumberFormat::NUMBER is the default untyped double. | ||||
1770 | if (nFuncFmtType != SvNumFormatType::ALL && nFuncFmtType != SvNumFormatType::NUMBER && | ||||
1771 | nFuncFmtType != SvNumFormatType::UNDEFINED) | ||||
1772 | return CreateFormulaDoubleToken( fVal, nFuncFmtType); | ||||
1773 | else | ||||
1774 | return CreateFormulaDoubleToken( fVal); | ||||
1775 | } | ||||
1776 | |||||
1777 | void ScInterpreter::PushDouble(double nVal) | ||||
1778 | { | ||||
1779 | TreatDoubleError( nVal ); | ||||
1780 | if (!IfErrorPushError()) | ||||
1781 | PushTempTokenWithoutError( CreateDoubleOrTypedToken( nVal)); | ||||
1782 | } | ||||
1783 | |||||
1784 | void ScInterpreter::PushInt(int nVal) | ||||
1785 | { | ||||
1786 | if (!IfErrorPushError()) | ||||
1787 | PushTempTokenWithoutError( CreateDoubleOrTypedToken( nVal)); | ||||
1788 | } | ||||
1789 | |||||
1790 | void ScInterpreter::PushStringBuffer( const sal_Unicode* pString ) | ||||
1791 | { | ||||
1792 | if ( pString ) | ||||
1793 | { | ||||
1794 | svl::SharedString aSS = mrDoc.GetSharedStringPool().intern(OUString(pString)); | ||||
1795 | PushString(aSS); | ||||
1796 | } | ||||
1797 | else | ||||
1798 | PushString(svl::SharedString::getEmptyString()); | ||||
1799 | } | ||||
1800 | |||||
1801 | void ScInterpreter::PushString( const OUString& rStr ) | ||||
1802 | { | ||||
1803 | PushString(mrDoc.GetSharedStringPool().intern(rStr)); | ||||
1804 | } | ||||
1805 | |||||
1806 | void ScInterpreter::PushString( const svl::SharedString& rString ) | ||||
1807 | { | ||||
1808 | if (!IfErrorPushError()) | ||||
1809 | PushTempTokenWithoutError( new FormulaStringToken( rString ) ); | ||||
1810 | } | ||||
1811 | |||||
1812 | void ScInterpreter::PushSingleRef(SCCOL nCol, SCROW nRow, SCTAB nTab) | ||||
1813 | { | ||||
1814 | if (!IfErrorPushError()) | ||||
1815 | { | ||||
1816 | ScSingleRefData aRef; | ||||
1817 | aRef.InitAddress(ScAddress(nCol,nRow,nTab)); | ||||
1818 | PushTempTokenWithoutError( new ScSingleRefToken( mrDoc.GetSheetLimits(), aRef ) ); | ||||
1819 | } | ||||
1820 | } | ||||
1821 | |||||
1822 | void ScInterpreter::PushDoubleRef(SCCOL nCol1, SCROW nRow1, SCTAB nTab1, | ||||
1823 | SCCOL nCol2, SCROW nRow2, SCTAB nTab2) | ||||
1824 | { | ||||
1825 | if (!IfErrorPushError()) | ||||
1826 | { | ||||
1827 | ScComplexRefData aRef; | ||||
1828 | aRef.InitRange(ScRange(nCol1,nRow1,nTab1,nCol2,nRow2,nTab2)); | ||||
1829 | PushTempTokenWithoutError( new ScDoubleRefToken( mrDoc.GetSheetLimits(), aRef ) ); | ||||
1830 | } | ||||
1831 | } | ||||
1832 | |||||
1833 | void ScInterpreter::PushExternalSingleRef( | ||||
1834 | sal_uInt16 nFileId, const OUString& rTabName, SCCOL nCol, SCROW nRow, SCTAB nTab) | ||||
1835 | { | ||||
1836 | if (!IfErrorPushError()) | ||||
1837 | { | ||||
1838 | ScSingleRefData aRef; | ||||
1839 | aRef.InitAddress(ScAddress(nCol,nRow,nTab)); | ||||
1840 | PushTempTokenWithoutError( new ScExternalSingleRefToken(nFileId, | ||||
1841 | mrDoc.GetSharedStringPool().intern( rTabName), aRef)) ; | ||||
1842 | } | ||||
1843 | } | ||||
1844 | |||||
1845 | void ScInterpreter::PushExternalDoubleRef( | ||||
1846 | sal_uInt16 nFileId, const OUString& rTabName, | ||||
1847 | SCCOL nCol1, SCROW nRow1, SCTAB nTab1, SCCOL nCol2, SCROW nRow2, SCTAB nTab2) | ||||
1848 | { | ||||
1849 | if (!IfErrorPushError()) | ||||
1850 | { | ||||
1851 | ScComplexRefData aRef; | ||||
1852 | aRef.InitRange(ScRange(nCol1,nRow1,nTab1,nCol2,nRow2,nTab2)); | ||||
1853 | PushTempTokenWithoutError( new ScExternalDoubleRefToken(nFileId, | ||||
1854 | mrDoc.GetSharedStringPool().intern( rTabName), aRef) ); | ||||
1855 | } | ||||
1856 | } | ||||
1857 | |||||
1858 | void ScInterpreter::PushSingleRef( const ScRefAddress& rRef ) | ||||
1859 | { | ||||
1860 | if (!IfErrorPushError()) | ||||
1861 | { | ||||
1862 | ScSingleRefData aRef; | ||||
1863 | aRef.InitFromRefAddress( mrDoc, rRef, aPos); | ||||
1864 | PushTempTokenWithoutError( new ScSingleRefToken( mrDoc.GetSheetLimits(), aRef ) ); | ||||
1865 | } | ||||
1866 | } | ||||
1867 | |||||
1868 | void ScInterpreter::PushDoubleRef( const ScRefAddress& rRef1, const ScRefAddress& rRef2 ) | ||||
1869 | { | ||||
1870 | if (!IfErrorPushError()) | ||||
1871 | { | ||||
1872 | ScComplexRefData aRef; | ||||
1873 | aRef.InitFromRefAddresses( mrDoc, rRef1, rRef2, aPos); | ||||
1874 | PushTempTokenWithoutError( new ScDoubleRefToken( mrDoc.GetSheetLimits(), aRef ) ); | ||||
1875 | } | ||||
1876 | } | ||||
1877 | |||||
1878 | void ScInterpreter::PushMatrix( const sc::RangeMatrix& rMat ) | ||||
1879 | { | ||||
1880 | if (!rMat.isRangeValid()) | ||||
1881 | { | ||||
1882 | // Just push the matrix part only. | ||||
1883 | PushMatrix(rMat.mpMat); | ||||
1884 | return; | ||||
1885 | } | ||||
1886 | |||||
1887 | rMat.mpMat->SetErrorInterpreter(nullptr); | ||||
1888 | nGlobalError = FormulaError::NONE; | ||||
1889 | PushTempTokenWithoutError(new ScMatrixRangeToken(rMat)); | ||||
1890 | } | ||||
1891 | |||||
1892 | void ScInterpreter::PushMatrix(const ScMatrixRef& pMat) | ||||
1893 | { | ||||
1894 | pMat->SetErrorInterpreter( nullptr); | ||||
1895 | // No if (!IfErrorPushError()) because ScMatrix stores errors itself, | ||||
1896 | // but with notifying ScInterpreter via nGlobalError, substituting it would | ||||
1897 | // mean to inherit the error on all array elements in all following | ||||
1898 | // operations. | ||||
1899 | nGlobalError = FormulaError::NONE; | ||||
1900 | PushTempTokenWithoutError( new ScMatrixToken( pMat ) ); | ||||
1901 | } | ||||
1902 | |||||
1903 | void ScInterpreter::PushError( FormulaError nError ) | ||||
1904 | { | ||||
1905 | SetError( nError ); // only sets error if not already set | ||||
1906 | PushTempTokenWithoutError( new FormulaErrorToken( nGlobalError)); | ||||
1907 | } | ||||
1908 | |||||
1909 | void ScInterpreter::PushParameterExpected() | ||||
1910 | { | ||||
1911 | PushError( FormulaError::ParameterExpected); | ||||
1912 | } | ||||
1913 | |||||
1914 | void ScInterpreter::PushIllegalParameter() | ||||
1915 | { | ||||
1916 | PushError( FormulaError::IllegalParameter); | ||||
1917 | } | ||||
1918 | |||||
1919 | void ScInterpreter::PushIllegalArgument() | ||||
1920 | { | ||||
1921 | PushError( FormulaError::IllegalArgument); | ||||
1922 | } | ||||
1923 | |||||
1924 | void ScInterpreter::PushNA() | ||||
1925 | { | ||||
1926 | PushError( FormulaError::NotAvailable); | ||||
1927 | } | ||||
1928 | |||||
1929 | void ScInterpreter::PushNoValue() | ||||
1930 | { | ||||
1931 | PushError( FormulaError::NoValue); | ||||
1932 | } | ||||
1933 | |||||
1934 | bool ScInterpreter::IsMissing() const | ||||
1935 | { | ||||
1936 | return sp && pStack[sp - 1]->GetType() == svMissing; | ||||
1937 | } | ||||
1938 | |||||
1939 | StackVar ScInterpreter::GetRawStackType() | ||||
1940 | { | ||||
1941 | StackVar eRes; | ||||
1942 | if( sp ) | ||||
1943 | { | ||||
1944 | eRes = pStack[sp - 1]->GetType(); | ||||
1945 | } | ||||
1946 | else | ||||
1947 | { | ||||
1948 | SetError(FormulaError::UnknownStackVariable); | ||||
1949 | eRes = svUnknown; | ||||
1950 | } | ||||
1951 | return eRes; | ||||
1952 | } | ||||
1953 | |||||
1954 | StackVar ScInterpreter::GetStackType() | ||||
1955 | { | ||||
1956 | StackVar eRes; | ||||
1957 | if( sp ) | ||||
1958 | { | ||||
1959 | eRes = pStack[sp - 1]->GetType(); | ||||
1960 | if( eRes == svMissing || eRes == svEmptyCell ) | ||||
1961 | eRes = svDouble; // default! | ||||
1962 | } | ||||
1963 | else | ||||
1964 | { | ||||
1965 | SetError(FormulaError::UnknownStackVariable); | ||||
1966 | eRes = svUnknown; | ||||
1967 | } | ||||
1968 | return eRes; | ||||
1969 | } | ||||
1970 | |||||
1971 | StackVar ScInterpreter::GetStackType( sal_uInt8 nParam ) | ||||
1972 | { | ||||
1973 | StackVar eRes; | ||||
1974 | if( sp > nParam-1 ) | ||||
1975 | { | ||||
1976 | eRes = pStack[sp - nParam]->GetType(); | ||||
1977 | if( eRes == svMissing || eRes == svEmptyCell ) | ||||
1978 | eRes = svDouble; // default! | ||||
1979 | } | ||||
1980 | else | ||||
1981 | eRes = svUnknown; | ||||
1982 | return eRes; | ||||
1983 | } | ||||
1984 | |||||
1985 | void ScInterpreter::ReverseStack( sal_uInt8 nParamCount ) | ||||
1986 | { | ||||
1987 | //reverse order of parameter stack | ||||
1988 | assert( sp >= nParamCount && " less stack elements than parameters")(static_cast <bool> (sp >= nParamCount && " less stack elements than parameters" ) ? void (0) : __assert_fail ("sp >= nParamCount && \" less stack elements than parameters\"" , "/home/maarten/src/libreoffice/core/sc/source/core/tool/interpr4.cxx" , 1988, __extension__ __PRETTY_FUNCTION__)); | ||||
1989 | sal_uInt16 nStackParams = std::min<sal_uInt16>( sp, nParamCount); | ||||
1990 | std::reverse( pStack+(sp-nStackParams), pStack+sp ); | ||||
1991 | } | ||||
1992 | |||||
1993 | bool ScInterpreter::DoubleRefToPosSingleRef( const ScRange& rRange, ScAddress& rAdr ) | ||||
1994 | { | ||||
1995 | // Check for a singleton first - no implicit intersection for them. | ||||
1996 | if( rRange.aStart == rRange.aEnd ) | ||||
1997 | { | ||||
1998 | rAdr = rRange.aStart; | ||||
1999 | return true; | ||||
2000 | } | ||||
2001 | |||||
2002 | bool bOk = false; | ||||
2003 | |||||
2004 | if ( pJumpMatrix ) | ||||
2005 | { | ||||
2006 | bOk = rRange.aStart.Tab() == rRange.aEnd.Tab(); | ||||
2007 | if ( !bOk ) | ||||
2008 | SetError( FormulaError::IllegalArgument); | ||||
2009 | else | ||||
2010 | { | ||||
2011 | SCSIZE nC, nR; | ||||
2012 | pJumpMatrix->GetPos( nC, nR); | ||||
2013 | rAdr.SetCol( sal::static_int_cast<SCCOL>( rRange.aStart.Col() + nC ) ); | ||||
2014 | rAdr.SetRow( sal::static_int_cast<SCROW>( rRange.aStart.Row() + nR ) ); | ||||
2015 | rAdr.SetTab( rRange.aStart.Tab()); | ||||
2016 | bOk = rRange.aStart.Col() <= rAdr.Col() && rAdr.Col() <= | ||||
2017 | rRange.aEnd.Col() && rRange.aStart.Row() <= rAdr.Row() && | ||||
2018 | rAdr.Row() <= rRange.aEnd.Row(); | ||||
2019 | if ( !bOk ) | ||||
2020 | SetError( FormulaError::NoValue); | ||||
2021 | } | ||||
2022 | return bOk; | ||||
2023 | } | ||||
2024 | |||||
2025 | bOk = ScCompiler::DoubleRefToPosSingleRefScalarCase(rRange, rAdr, aPos); | ||||
2026 | |||||
2027 | if ( !bOk ) | ||||
2028 | SetError( FormulaError::NoValue ); | ||||
2029 | return bOk; | ||||
2030 | } | ||||
2031 | |||||
2032 | double ScInterpreter::GetDoubleFromMatrix(const ScMatrixRef& pMat) | ||||
2033 | { | ||||
2034 | if (!pMat) | ||||
2035 | return 0.0; | ||||
2036 | |||||
2037 | if ( !pJumpMatrix ) | ||||
2038 | { | ||||
2039 | double fVal = pMat->GetDoubleWithStringConversion( 0, 0); | ||||
2040 | FormulaError nErr = GetDoubleErrorValue( fVal); | ||||
2041 | if (nErr != FormulaError::NONE) | ||||
2042 | { | ||||
2043 | // Do not propagate the coded double error, but set nGlobalError in | ||||
2044 | // case the matrix did not have an error interpreter set. | ||||
2045 | SetError( nErr); | ||||
2046 | fVal = 0.0; | ||||
2047 | } | ||||
2048 | return fVal; | ||||
2049 | } | ||||
2050 | |||||
2051 | SCSIZE nCols, nRows, nC, nR; | ||||
2052 | pMat->GetDimensions( nCols, nRows); | ||||
2053 | pJumpMatrix->GetPos( nC, nR); | ||||
2054 | // Use vector replication for single row/column arrays. | ||||
2055 | if ( (nC < nCols || nCols == 1) && (nR < nRows || nRows == 1) ) | ||||
2056 | { | ||||
2057 | double fVal = pMat->GetDoubleWithStringConversion( nC, nR); | ||||
2058 | FormulaError nErr = GetDoubleErrorValue( fVal); | ||||
2059 | if (nErr != FormulaError::NONE) | ||||
2060 | { | ||||
2061 | // Do not propagate the coded double error, but set nGlobalError in | ||||
2062 | // case the matrix did not have an error interpreter set. | ||||
2063 | SetError( nErr); | ||||
2064 | fVal = 0.0; | ||||
2065 | } | ||||
2066 | return fVal; | ||||
2067 | } | ||||
2068 | |||||
2069 | SetError( FormulaError::NoValue); | ||||
2070 | return 0.0; | ||||
2071 | } | ||||
2072 | |||||
2073 | double ScInterpreter::GetDouble() | ||||
2074 | { | ||||
2075 | double nVal(0.0); | ||||
2076 | switch( GetRawStackType() ) | ||||
2077 | { | ||||
2078 | case svDouble: | ||||
2079 | nVal = PopDouble(); | ||||
2080 | break; | ||||
2081 | case svString: | ||||
2082 | nVal = ConvertStringToValue( PopString().getString()); | ||||
2083 | break; | ||||
2084 | case svSingleRef: | ||||
2085 | { | ||||
2086 | ScAddress aAdr; | ||||
2087 | PopSingleRef( aAdr ); | ||||
2088 | ScRefCellValue aCell(mrDoc, aAdr); | ||||
2089 | nVal = GetCellValue(aAdr, aCell); | ||||
2090 | } | ||||
2091 | break; | ||||
2092 | case svDoubleRef: | ||||
2093 | { // generate position dependent SingleRef | ||||
2094 | ScRange aRange; | ||||
2095 | PopDoubleRef( aRange ); | ||||
2096 | ScAddress aAdr; | ||||
2097 | if ( nGlobalError == FormulaError::NONE && DoubleRefToPosSingleRef( aRange, aAdr ) ) | ||||
2098 | { | ||||
2099 | ScRefCellValue aCell(mrDoc, aAdr); | ||||
2100 | nVal = GetCellValue(aAdr, aCell); | ||||
2101 | } | ||||
2102 | else | ||||
2103 | nVal = 0.0; | ||||
2104 | } | ||||
2105 | break; | ||||
2106 | case svExternalSingleRef: | ||||
2107 | { | ||||
2108 | ScExternalRefCache::TokenRef pToken; | ||||
2109 | PopExternalSingleRef(pToken); | ||||
2110 | if (nGlobalError == FormulaError::NONE) | ||||
2111 | { | ||||
2112 | if (pToken->GetType() == svDouble || pToken->GetType() == svEmptyCell) | ||||
2113 | nVal = pToken->GetDouble(); | ||||
2114 | else | ||||
2115 | nVal = ConvertStringToValue( pToken->GetString().getString()); | ||||
2116 | } | ||||
2117 | } | ||||
2118 | break; | ||||
2119 | case svExternalDoubleRef: | ||||
2120 | { | ||||
2121 | ScMatrixRef pMat; | ||||
2122 | PopExternalDoubleRef(pMat); | ||||
2123 | if (nGlobalError != FormulaError::NONE) | ||||
2124 | break; | ||||
2125 | |||||
2126 | nVal = GetDoubleFromMatrix(pMat); | ||||
2127 | } | ||||
2128 | break; | ||||
2129 | case svMatrix: | ||||
2130 | { | ||||
2131 | ScMatrixRef pMat = PopMatrix(); | ||||
2132 | nVal = GetDoubleFromMatrix(pMat); | ||||
2133 | } | ||||
2134 | break; | ||||
2135 | case svError: | ||||
2136 | PopError(); | ||||
2137 | nVal = 0.0; | ||||
2138 | break; | ||||
2139 | case svEmptyCell: | ||||
2140 | case svMissing: | ||||
2141 | Pop(); | ||||
2142 | nVal = 0.0; | ||||
2143 | break; | ||||
2144 | default: | ||||
2145 | PopError(); | ||||
2146 | SetError( FormulaError::IllegalParameter); | ||||
2147 | nVal = 0.0; | ||||
2148 | } | ||||
2149 | if ( nFuncFmtType == nCurFmtType ) | ||||
2150 | nFuncFmtIndex = nCurFmtIndex; | ||||
2151 | return nVal; | ||||
2152 | } | ||||
2153 | |||||
2154 | double ScInterpreter::GetDoubleWithDefault(double nDefault) | ||||
2155 | { | ||||
2156 | bool bMissing = IsMissing(); | ||||
2157 | double nResultVal = GetDouble(); | ||||
2158 | if ( bMissing ) | ||||
2159 | nResultVal = nDefault; | ||||
2160 | return nResultVal; | ||||
2161 | } | ||||
2162 | |||||
2163 | sal_Int32 ScInterpreter::double_to_int32(double fVal) | ||||
2164 | { | ||||
2165 | if (!std::isfinite(fVal)) | ||||
2166 | { | ||||
2167 | SetError( GetDoubleErrorValue( fVal)); | ||||
2168 | return SAL_MAX_INT32((sal_Int32) 0x7FFFFFFF); | ||||
2169 | } | ||||
2170 | if (fVal > 0.0) | ||||
2171 | { | ||||
2172 | fVal = rtl::math::approxFloor( fVal); | ||||
2173 | if (fVal > SAL_MAX_INT32((sal_Int32) 0x7FFFFFFF)) | ||||
2174 | { | ||||
2175 | SetError( FormulaError::IllegalArgument); | ||||
2176 | return SAL_MAX_INT32((sal_Int32) 0x7FFFFFFF); | ||||
2177 | } | ||||
2178 | } | ||||
2179 | else if (fVal < 0.0) | ||||
2180 | { | ||||
2181 | fVal = rtl::math::approxCeil( fVal); | ||||
2182 | if (fVal < SAL_MIN_INT32((sal_Int32) (-0x7FFFFFFF - 1))) | ||||
2183 | { | ||||
2184 | SetError( FormulaError::IllegalArgument); | ||||
2185 | return SAL_MAX_INT32((sal_Int32) 0x7FFFFFFF); | ||||
2186 | } | ||||
2187 | } | ||||
2188 | return static_cast<sal_Int32>(fVal); | ||||
2189 | } | ||||
2190 | |||||
2191 | sal_Int32 ScInterpreter::GetInt32() | ||||
2192 | { | ||||
2193 | return double_to_int32(GetDouble()); | ||||
2194 | } | ||||
2195 | |||||
2196 | sal_Int32 ScInterpreter::GetInt32WithDefault( sal_Int32 nDefault ) | ||||
2197 | { | ||||
2198 | bool bMissing = IsMissing(); | ||||
2199 | double fVal = GetDouble(); | ||||
2200 | if ( bMissing ) | ||||
2201 | return nDefault; | ||||
2202 | return double_to_int32(fVal); | ||||
2203 | } | ||||
2204 | |||||
2205 | sal_Int16 ScInterpreter::GetInt16() | ||||
2206 | { | ||||
2207 | double fVal = GetDouble(); | ||||
2208 | if (!std::isfinite(fVal)) | ||||
2209 | { | ||||
2210 | SetError( GetDoubleErrorValue( fVal)); | ||||
2211 | return SAL_MAX_INT16((sal_Int16) 0x7FFF); | ||||
2212 | } | ||||
2213 | if (fVal > 0.0) | ||||
2214 | { | ||||
2215 | fVal = rtl::math::approxFloor( fVal); | ||||
2216 | if (fVal > SAL_MAX_INT16((sal_Int16) 0x7FFF)) | ||||
2217 | { | ||||
2218 | SetError( FormulaError::IllegalArgument); | ||||
2219 | return SAL_MAX_INT16((sal_Int16) 0x7FFF); | ||||
2220 | } | ||||
2221 | } | ||||
2222 | else if (fVal < 0.0) | ||||
2223 | { | ||||
2224 | fVal = rtl::math::approxCeil( fVal); | ||||
2225 | if (fVal < SAL_MIN_INT16((sal_Int16) (-0x7FFF - 1))) | ||||
2226 | { | ||||
2227 | SetError( FormulaError::IllegalArgument); | ||||
2228 | return SAL_MAX_INT16((sal_Int16) 0x7FFF); | ||||
2229 | } | ||||
2230 | } | ||||
2231 | return static_cast<sal_Int16>(fVal); | ||||
2232 | } | ||||
2233 | |||||
2234 | sal_uInt32 ScInterpreter::GetUInt32() | ||||
2235 | { | ||||
2236 | double fVal = rtl::math::approxFloor( GetDouble()); | ||||
2237 | if (!std::isfinite(fVal)) | ||||
2238 | { | ||||
2239 | SetError( GetDoubleErrorValue( fVal)); | ||||
2240 | return SAL_MAX_UINT32((sal_uInt32) 0xFFFFFFFF); | ||||
2241 | } | ||||
2242 | if (fVal < 0.0 || fVal > SAL_MAX_UINT32((sal_uInt32) 0xFFFFFFFF)) | ||||
2243 | { | ||||
2244 | SetError( FormulaError::IllegalArgument); | ||||
2245 | return SAL_MAX_UINT32((sal_uInt32) 0xFFFFFFFF); | ||||
2246 | } | ||||
2247 | return static_cast<sal_uInt32>(fVal); | ||||
2248 | } | ||||
2249 | |||||
2250 | bool ScInterpreter::GetDoubleOrString( double& rDouble, svl::SharedString& rString ) | ||||
2251 | { | ||||
2252 | bool bDouble = true; | ||||
2253 | switch( GetRawStackType() ) | ||||
2254 | { | ||||
2255 | case svDouble: | ||||
2256 | rDouble = PopDouble(); | ||||
2257 | break; | ||||
2258 | case svString: | ||||
2259 | rString = PopString(); | ||||
2260 | bDouble = false; | ||||
2261 | break; | ||||
2262 | case svDoubleRef : | ||||
2263 | case svSingleRef : | ||||
2264 | { | ||||
2265 | ScAddress aAdr; | ||||
2266 | if (!PopDoubleRefOrSingleRef( aAdr)) | ||||
2267 | { | ||||
2268 | rDouble = 0.0; | ||||
2269 | return true; // caller needs to check nGlobalError | ||||
2270 | } | ||||
2271 | ScRefCellValue aCell( mrDoc, aAdr); | ||||
2272 | if (aCell.hasNumeric()) | ||||
2273 | { | ||||
2274 | rDouble = GetCellValue( aAdr, aCell); | ||||
2275 | } | ||||
2276 | else | ||||
2277 | { | ||||
2278 | GetCellString( rString, aCell); | ||||
2279 | bDouble = false; | ||||
2280 | } | ||||
2281 | } | ||||
2282 | break; | ||||
2283 | case svExternalSingleRef: | ||||
2284 | case svExternalDoubleRef: | ||||
2285 | case svMatrix: | ||||
2286 | { | ||||
2287 | ScMatValType nType = GetDoubleOrStringFromMatrix( rDouble, rString); | ||||
2288 | bDouble = ScMatrix::IsValueType( nType); | ||||
2289 | } | ||||
2290 | break; | ||||
2291 | case svError: | ||||
2292 | PopError(); | ||||
2293 | rDouble = 0.0; | ||||
2294 | break; | ||||
2295 | case svEmptyCell: | ||||
2296 | case svMissing: | ||||
2297 | Pop(); | ||||
2298 | rDouble = 0.0; | ||||
2299 | break; | ||||
2300 | default: | ||||
2301 | PopError(); | ||||
2302 | SetError( FormulaError::IllegalParameter); | ||||
2303 | rDouble = 0.0; | ||||
2304 | } | ||||
2305 | if ( nFuncFmtType == nCurFmtType ) | ||||
2306 | nFuncFmtIndex = nCurFmtIndex; | ||||
2307 | return bDouble; | ||||
2308 | } | ||||
2309 | |||||
2310 | svl::SharedString ScInterpreter::GetString() | ||||
2311 | { | ||||
2312 | switch (GetRawStackType()) | ||||
2313 | { | ||||
2314 | case svError: | ||||
2315 | PopError(); | ||||
2316 | return svl::SharedString::getEmptyString(); | ||||
2317 | case svMissing: | ||||
2318 | case svEmptyCell: | ||||
2319 | Pop(); | ||||
2320 | return svl::SharedString::getEmptyString(); | ||||
2321 | case svDouble: | ||||
2322 | { | ||||
2323 | return GetStringFromDouble( PopDouble() ); | ||||
2324 | } | ||||
2325 | case svString: | ||||
2326 | return PopString(); | ||||
2327 | case svSingleRef: | ||||
2328 | { | ||||
2329 | ScAddress aAdr; | ||||
2330 | PopSingleRef( aAdr ); | ||||
2331 | if (nGlobalError == FormulaError::NONE) | ||||
2332 | { | ||||
2333 | ScRefCellValue aCell(mrDoc, aAdr); | ||||
2334 | svl::SharedString aSS; | ||||
2335 | GetCellString(aSS, aCell); | ||||
2336 | return aSS; | ||||
2337 | } | ||||
2338 | else | ||||
2339 | return svl::SharedString::getEmptyString(); | ||||
2340 | } | ||||
2341 | case svDoubleRef: | ||||
2342 | { // generate position dependent SingleRef | ||||
2343 | ScRange aRange; | ||||
2344 | PopDoubleRef( aRange ); | ||||
2345 | ScAddress aAdr; | ||||
2346 | if ( nGlobalError == FormulaError::NONE && DoubleRefToPosSingleRef( aRange, aAdr ) ) | ||||
2347 | { | ||||
2348 | ScRefCellValue aCell(mrDoc, aAdr); | ||||
2349 | svl::SharedString aSS; | ||||
2350 | GetCellString(aSS, aCell); | ||||
2351 | return aSS; | ||||
2352 | } | ||||
2353 | else | ||||
2354 | return svl::SharedString::getEmptyString(); | ||||
2355 | } | ||||
2356 | case svExternalSingleRef: | ||||
2357 | { | ||||
2358 | ScExternalRefCache::TokenRef pToken; | ||||
2359 | PopExternalSingleRef(pToken); | ||||
2360 | if (nGlobalError != FormulaError::NONE) | ||||
2361 | return svl::SharedString::getEmptyString(); | ||||
2362 | |||||
2363 | if (pToken->GetType() == svDouble) | ||||
2364 | { | ||||
2365 | return GetStringFromDouble( pToken->GetDouble() ); | ||||
2366 | } | ||||
2367 | else // svString or svEmpty | ||||
2368 | return pToken->GetString(); | ||||
2369 | } | ||||
2370 | case svExternalDoubleRef: | ||||
2371 | { | ||||
2372 | ScMatrixRef pMat; | ||||
2373 | PopExternalDoubleRef(pMat); | ||||
2374 | return GetStringFromMatrix(pMat); | ||||
2375 | } | ||||
2376 | case svMatrix: | ||||
2377 | { | ||||
2378 | ScMatrixRef pMat = PopMatrix(); | ||||
2379 | return GetStringFromMatrix(pMat); | ||||
2380 | } | ||||
2381 | break; | ||||
2382 | default: | ||||
2383 | PopError(); | ||||
2384 | SetError( FormulaError::IllegalArgument); | ||||
2385 | } | ||||
2386 | return svl::SharedString::getEmptyString(); | ||||
2387 | } | ||||
2388 | |||||
2389 | svl::SharedString ScInterpreter::GetStringFromMatrix(const ScMatrixRef& pMat) | ||||
2390 | { | ||||
2391 | if ( !pMat ) | ||||
2392 | ; // nothing | ||||
2393 | else if ( !pJumpMatrix ) | ||||
2394 | { | ||||
2395 | return pMat->GetString( *pFormatter, 0, 0); | ||||
2396 | } | ||||
2397 | else | ||||
2398 | { | ||||
2399 | SCSIZE nCols, nRows, nC, nR; | ||||
2400 | pMat->GetDimensions( nCols, nRows); | ||||
2401 | pJumpMatrix->GetPos( nC, nR); | ||||
2402 | // Use vector replication for single row/column arrays. | ||||
2403 | if ( (nC < nCols || nCols == 1) && (nR < nRows || nRows == 1) ) | ||||
2404 | return pMat->GetString( *pFormatter, nC, nR); | ||||
2405 | |||||
2406 | SetError( FormulaError::NoValue); | ||||
2407 | } | ||||
2408 | return svl::SharedString::getEmptyString(); | ||||
2409 | } | ||||
2410 | |||||
2411 | ScMatValType ScInterpreter::GetDoubleOrStringFromMatrix( | ||||
2412 | double& rDouble, svl::SharedString& rString ) | ||||
2413 | { | ||||
2414 | |||||
2415 | rDouble = 0.0; | ||||
2416 | rString = svl::SharedString::getEmptyString(); | ||||
2417 | ScMatValType nMatValType = ScMatValType::Empty; | ||||
2418 | |||||
2419 | ScMatrixRef pMat; | ||||
2420 | StackVar eType = GetStackType(); | ||||
2421 | if (eType == svExternalDoubleRef || eType == svExternalSingleRef || eType == svMatrix) | ||||
2422 | { | ||||
2423 | pMat = GetMatrix(); | ||||
2424 | } | ||||
2425 | else | ||||
2426 | { | ||||
2427 | PopError(); | ||||
2428 | SetError( FormulaError::IllegalParameter); | ||||
2429 | return nMatValType; | ||||
2430 | } | ||||
2431 | |||||
2432 | ScMatrixValue nMatVal; | ||||
2433 | if (!pMat) | ||||
2434 | { | ||||
2435 | // nothing | ||||
2436 | } | ||||
2437 | else if (!pJumpMatrix) | ||||
2438 | { | ||||
2439 | nMatVal = pMat->Get(0, 0); | ||||
2440 | nMatValType = nMatVal.nType; | ||||
2441 | } | ||||
2442 | else | ||||
2443 | { | ||||
2444 | SCSIZE nCols, nRows, nC, nR; | ||||
2445 | pMat->GetDimensions( nCols, nRows); | ||||
2446 | pJumpMatrix->GetPos( nC, nR); | ||||
2447 | // Use vector replication for single row/column arrays. | ||||
2448 | if ( (nC < nCols || nCols == 1) && (nR < nRows || nRows == 1) ) | ||||
2449 | { | ||||
2450 | nMatVal = pMat->Get( nC, nR); | ||||
2451 | nMatValType = nMatVal.nType; | ||||
2452 | } | ||||
2453 | else | ||||
2454 | SetError( FormulaError::NoValue); | ||||
2455 | } | ||||
2456 | |||||
2457 | if (ScMatrix::IsValueType( nMatValType)) | ||||
2458 | { | ||||
2459 | rDouble = nMatVal.fVal; | ||||
2460 | FormulaError nError = nMatVal.GetError(); | ||||
2461 | if (nError != FormulaError::NONE) | ||||
2462 | SetError( nError); | ||||
2463 | } | ||||
2464 | else | ||||
2465 | { | ||||
2466 | rString = nMatVal.GetString(); | ||||
2467 | } | ||||
2468 | |||||
2469 | return nMatValType; | ||||
2470 | } | ||||
2471 | |||||
2472 | svl::SharedString ScInterpreter::GetStringFromDouble( double fVal ) | ||||
2473 | { | ||||
2474 | sal_uLong nIndex = pFormatter->GetStandardFormat( | ||||
2475 | SvNumFormatType::NUMBER, | ||||
2476 | ScGlobal::eLnge); | ||||
2477 | OUString aStr; | ||||
2478 | pFormatter->GetInputLineString(fVal, nIndex, aStr); | ||||
2479 | return mrStrPool.intern(aStr); | ||||
2480 | } | ||||
2481 | |||||
2482 | void ScInterpreter::ScDBGet() | ||||
2483 | { | ||||
2484 | bool bMissingField = false; | ||||
2485 | unique_ptr<ScDBQueryParamBase> pQueryParam( GetDBParams(bMissingField) ); | ||||
2486 | if (!pQueryParam) | ||||
2487 | { | ||||
2488 | // Failed to create query param. | ||||
2489 | PushIllegalParameter(); | ||||
2490 | return; | ||||
2491 | } | ||||
2492 | |||||
2493 | pQueryParam->mbSkipString = false; | ||||
2494 | ScDBQueryDataIterator aValIter(mrDoc, mrContext, std::move(pQueryParam)); | ||||
2495 | ScDBQueryDataIterator::Value aValue; | ||||
2496 | if (!aValIter.GetFirst(aValue) || aValue.mnError != FormulaError::NONE) | ||||
2497 | { | ||||
2498 | // No match found. | ||||
2499 | PushNoValue(); | ||||
2500 | return; | ||||
2501 | } | ||||
2502 | |||||
2503 | ScDBQueryDataIterator::Value aValNext; | ||||
2504 | if (aValIter.GetNext(aValNext) && aValNext.mnError == FormulaError::NONE) | ||||
2505 | { | ||||
2506 | // There should be only one unique match. | ||||
2507 | PushIllegalArgument(); | ||||
2508 | return; | ||||
2509 | } | ||||
2510 | |||||
2511 | if (aValue.mbIsNumber) | ||||
2512 | PushDouble(aValue.mfValue); | ||||
2513 | else | ||||
2514 | PushString(aValue.maString); | ||||
2515 | } | ||||
2516 | |||||
2517 | void ScInterpreter::ScExternal() | ||||
2518 | { | ||||
2519 | sal_uInt8 nParamCount = GetByte(); | ||||
2520 | OUString aUnoName; | ||||
2521 | OUString aFuncName( ScGlobal::getCharClassPtr()->uppercase( pCur->GetExternal() ) ); | ||||
2522 | LegacyFuncData* pLegacyFuncData = ScGlobal::GetLegacyFuncCollection()->findByName(aFuncName); | ||||
2523 | if (pLegacyFuncData) | ||||
2524 | { | ||||
2525 | // Old binary non-UNO add-in function. | ||||
2526 | // NOTE: parameter count is 1-based with the 0th "parameter" being the | ||||
2527 | // return value, included in pLegacyFuncDatat->GetParamCount() | ||||
2528 | if (nParamCount < MAXFUNCPARAM16 && nParamCount == pLegacyFuncData->GetParamCount() - 1) | ||||
2529 | { | ||||
2530 | ParamType eParamType[MAXFUNCPARAM16]; | ||||
2531 | void* ppParam[MAXFUNCPARAM16]; | ||||
2532 | double nVal[MAXFUNCPARAM16]; | ||||
2533 | char* pStr[MAXFUNCPARAM16]; | ||||
2534 | sal_uInt8* pCellArr[MAXFUNCPARAM16]; | ||||
2535 | short i; | ||||
2536 | |||||
2537 | for (i = 0; i < MAXFUNCPARAM16; i++) | ||||
2538 | { | ||||
2539 | eParamType[i] = pLegacyFuncData->GetParamType(i); | ||||
2540 | ppParam[i] = nullptr; | ||||
2541 | nVal[i] = 0.0; | ||||
2542 | pStr[i] = nullptr; | ||||
2543 | pCellArr[i] = nullptr; | ||||
2544 | } | ||||
2545 | |||||
2546 | for (i = nParamCount; (i > 0) && (nGlobalError == FormulaError::NONE); i--) | ||||
2547 | { | ||||
2548 | if (IsMissing()) | ||||
2549 | { | ||||
2550 | // Old binary Add-In can't distinguish between missing | ||||
2551 | // omitted argument and 0 (or any other value). Force | ||||
2552 | // error. | ||||
2553 | SetError( FormulaError::ParameterExpected); | ||||
2554 | break; // for | ||||
2555 | } | ||||
2556 | switch (eParamType[i]) | ||||
2557 | { | ||||
2558 | case ParamType::PTR_DOUBLE : | ||||
2559 | { | ||||
2560 | nVal[i-1] = GetDouble(); | ||||
2561 | ppParam[i] = &nVal[i-1]; | ||||
2562 | } | ||||
2563 | break; | ||||
2564 | case ParamType::PTR_STRING : | ||||
2565 | { | ||||
2566 | OString aStr(OUStringToOString(GetString().getString(), | ||||
2567 | osl_getThreadTextEncoding())); | ||||
2568 | if ( aStr.getLength() >= ADDIN_MAXSTRLEN256 ) | ||||
2569 | SetError( FormulaError::StringOverflow ); | ||||
2570 | else | ||||
2571 | { | ||||
2572 | pStr[i-1] = new char[ADDIN_MAXSTRLEN256]; | ||||
2573 | strncpy( pStr[i-1], aStr.getStr(), ADDIN_MAXSTRLEN256 ); | ||||
2574 | pStr[i-1][ADDIN_MAXSTRLEN256-1] = 0; | ||||
2575 | ppParam[i] = pStr[i-1]; | ||||
2576 | } | ||||
2577 | } | ||||
2578 | break; | ||||
2579 | case ParamType::PTR_DOUBLE_ARR : | ||||
2580 | { | ||||
2581 | SCCOL nCol1; | ||||
2582 | SCROW nRow1; | ||||
2583 | SCTAB nTab1; | ||||
2584 | SCCOL nCol2; | ||||
2585 | SCROW nRow2; | ||||
2586 | SCTAB nTab2; | ||||
2587 | PopDoubleRef(nCol1, nRow1, nTab1, nCol2, nRow2, nTab2); | ||||
2588 | pCellArr[i-1] = new sal_uInt8[MAXARRSIZE0xfffe]; | ||||
2589 | if (!CreateDoubleArr(nCol1, nRow1, nTab1, nCol2, nRow2, nTab2, pCellArr[i-1])) | ||||
2590 | SetError(FormulaError::CodeOverflow); | ||||
2591 | else | ||||
2592 | ppParam[i] = pCellArr[i-1]; | ||||
2593 | } | ||||
2594 | break; | ||||
2595 | case ParamType::PTR_STRING_ARR : | ||||
2596 | { | ||||
2597 | SCCOL nCol1; | ||||
2598 | SCROW nRow1; | ||||
2599 | SCTAB nTab1; | ||||
2600 | SCCOL nCol2; | ||||
2601 | SCROW nRow2; | ||||
2602 | SCTAB nTab2; | ||||
2603 | PopDoubleRef(nCol1, nRow1, nTab1, nCol2, nRow2, nTab2); | ||||
2604 | pCellArr[i-1] = new sal_uInt8[MAXARRSIZE0xfffe]; | ||||
2605 | if (!CreateStringArr(nCol1, nRow1, nTab1, nCol2, nRow2, nTab2, pCellArr[i-1])) | ||||
2606 | SetError(FormulaError::CodeOverflow); | ||||
2607 | else | ||||
2608 | ppParam[i] = pCellArr[i-1]; | ||||
2609 | } | ||||
2610 | break; | ||||
2611 | case ParamType::PTR_CELL_ARR : | ||||
2612 | { | ||||
2613 | SCCOL nCol1; | ||||
2614 | SCROW nRow1; | ||||
2615 | SCTAB nTab1; | ||||
2616 | SCCOL nCol2; | ||||
2617 | SCROW nRow2; | ||||
2618 | SCTAB nTab2; | ||||
2619 | PopDoubleRef(nCol1, nRow1, nTab1, nCol2, nRow2, nTab2); | ||||
2620 | pCellArr[i-1] = new sal_uInt8[MAXARRSIZE0xfffe]; | ||||
2621 | if (!CreateCellArr(nCol1, nRow1, nTab1, nCol2, nRow2, nTab2, pCellArr[i-1])) | ||||
2622 | SetError(FormulaError::CodeOverflow); | ||||
2623 | else | ||||
2624 | ppParam[i] = pCellArr[i-1]; | ||||
2625 | } | ||||
2626 | break; | ||||
2627 | default : | ||||
2628 | SetError(FormulaError::IllegalParameter); | ||||
2629 | break; | ||||
2630 | } | ||||
2631 | } | ||||
2632 | while ( i-- ) | ||||
2633 | Pop(); // In case of error (otherwise i==0) pop all parameters | ||||
2634 | |||||
2635 | if (nGlobalError == FormulaError::NONE) | ||||
2636 | { | ||||
2637 | if ( pLegacyFuncData->GetAsyncType() == ParamType::NONE ) | ||||
2638 | { | ||||
2639 | switch ( eParamType[0] ) | ||||
2640 | { | ||||
2641 | case ParamType::PTR_DOUBLE : | ||||
2642 | { | ||||
2643 | double nErg = 0.0; | ||||
2644 | ppParam[0] = &nErg; | ||||
2645 | pLegacyFuncData->Call(ppParam); | ||||
2646 | PushDouble(nErg); | ||||
2647 | } | ||||
2648 | break; | ||||
2649 | case ParamType::PTR_STRING : | ||||
2650 | { | ||||
2651 | std::unique_ptr<char[]> pcErg(new char[ADDIN_MAXSTRLEN256]); | ||||
2652 | ppParam[0] = pcErg.get(); | ||||
2653 | pLegacyFuncData->Call(ppParam); | ||||
2654 | OUString aUni( pcErg.get(), strlen(pcErg.get()), osl_getThreadTextEncoding() ); | ||||
2655 | PushString( aUni ); | ||||
2656 | } | ||||
2657 | break; | ||||
2658 | default: | ||||
2659 | PushError( FormulaError::UnknownState ); | ||||
2660 | } | ||||
2661 | } | ||||
2662 | else | ||||
2663 | { | ||||
2664 | // enable asyncs after loading | ||||
2665 | pArr->AddRecalcMode( ScRecalcMode::ONLOAD_LENIENT ); | ||||
2666 | // assure identical handler with identical call? | ||||
2667 | double nErg = 0.0; | ||||
2668 | ppParam[0] = &nErg; | ||||
2669 | pLegacyFuncData->Call(ppParam); | ||||
2670 | sal_uLong nHandle = sal_uLong( nErg ); | ||||
2671 | if ( nHandle >= 65536 ) | ||||
2672 | { | ||||
2673 | ScAddInAsync* pAs = ScAddInAsync::Get( nHandle ); | ||||
2674 | if ( !pAs ) | ||||
2675 | { | ||||
2676 | pAs = new ScAddInAsync(nHandle, pLegacyFuncData, &mrDoc); | ||||
2677 | pMyFormulaCell->StartListening( *pAs ); | ||||
2678 | } | ||||
2679 | else | ||||
2680 | { | ||||
2681 | pMyFormulaCell->StartListening( *pAs ); | ||||
2682 | if ( !pAs->HasDocument( &mrDoc ) ) | ||||
2683 | pAs->AddDocument( &mrDoc ); | ||||
2684 | } | ||||
2685 | if ( pAs->IsValid() ) | ||||
2686 | { | ||||
2687 | switch ( pAs->GetType() ) | ||||
2688 | { | ||||
2689 | case ParamType::PTR_DOUBLE : | ||||
2690 | PushDouble( pAs->GetValue() ); | ||||
2691 | break; | ||||
2692 | case ParamType::PTR_STRING : | ||||
2693 | PushString( pAs->GetString() ); | ||||
2694 | break; | ||||
2695 | default: | ||||
2696 | PushError( FormulaError::UnknownState ); | ||||
2697 | } | ||||
2698 | } | ||||
2699 | else | ||||
2700 | PushNA(); | ||||
2701 | } | ||||
2702 | else | ||||
2703 | PushNoValue(); | ||||
2704 | } | ||||
2705 | } | ||||
2706 | |||||
2707 | for (i = 0; i < MAXFUNCPARAM16; i++) | ||||
2708 | { | ||||
2709 | delete[] pStr[i]; | ||||
2710 | delete[] pCellArr[i]; | ||||
2711 | } | ||||
2712 | } | ||||
2713 | else | ||||
2714 | { | ||||
2715 | while( nParamCount-- > 0) | ||||
2716 | Pop(); | ||||
2717 | PushIllegalParameter(); | ||||
2718 | } | ||||
2719 | } | ||||
2720 | else if ( !( aUnoName = ScGlobal::GetAddInCollection()->FindFunction(aFuncName, false) ).isEmpty() ) | ||||
2721 | { | ||||
2722 | // bLocalFirst=false in FindFunction, cFunc should be the stored | ||||
2723 | // internal name | ||||
2724 | |||||
2725 | ScUnoAddInCall aCall( *ScGlobal::GetAddInCollection(), aUnoName, nParamCount ); | ||||
2726 | |||||
2727 | if ( !aCall.ValidParamCount() ) | ||||
2728 | SetError( FormulaError::IllegalParameter ); | ||||
2729 | |||||
2730 | if ( aCall.NeedsCaller() && GetError() == FormulaError::NONE ) | ||||
2731 | { | ||||
2732 | SfxObjectShell* pShell = mrDoc.GetDocumentShell(); | ||||
2733 | if (pShell) | ||||
2734 | aCall.SetCallerFromObjectShell( pShell ); | ||||
2735 | else | ||||
2736 | { | ||||
2737 | // use temporary model object (without document) to supply options | ||||
2738 | aCall.SetCaller( static_cast<beans::XPropertySet*>( | ||||
2739 | new ScDocOptionsObj( mrDoc.GetDocOptions() ) ) ); | ||||
2740 | } | ||||
2741 | } | ||||
2742 | |||||
2743 | short nPar = nParamCount; | ||||
2744 | while ( nPar > 0 && GetError() == FormulaError::NONE ) | ||||
2745 | { | ||||
2746 | --nPar; // 0 .. (nParamCount-1) | ||||
2747 | |||||
2748 | uno::Any aParam; | ||||
2749 | if (IsMissing()) | ||||
2750 | { | ||||
2751 | // Add-In has to explicitly handle an omitted empty missing | ||||
2752 | // argument, do not default to anything like GetDouble() would | ||||
2753 | // do (e.g. 0). | ||||
2754 | Pop(); | ||||
2755 | aCall.SetParam( nPar, aParam ); | ||||
2756 | continue; // while | ||||
2757 | } | ||||
2758 | |||||
2759 | StackVar nStackType = GetStackType(); | ||||
2760 | ScAddInArgumentType eType = aCall.GetArgType( nPar ); | ||||
2761 | switch (eType) | ||||
2762 | { | ||||
2763 | case SC_ADDINARG_INTEGER: | ||||
2764 | { | ||||
2765 | sal_Int32 nVal = GetInt32(); | ||||
2766 | if (nGlobalError == FormulaError::NONE) | ||||
2767 | aParam <<= nVal; | ||||
2768 | } | ||||
2769 | break; | ||||
2770 | |||||
2771 | case SC_ADDINARG_DOUBLE: | ||||
2772 | aParam <<= GetDouble(); | ||||
2773 | break; | ||||
2774 | |||||
2775 | case SC_ADDINARG_STRING: | ||||
2776 | aParam <<= GetString().getString(); | ||||
2777 | break; | ||||
2778 | |||||
2779 | case SC_ADDINARG_INTEGER_ARRAY: | ||||
2780 | switch( nStackType ) | ||||
2781 | { | ||||
2782 | case svDouble: | ||||
2783 | case svString: | ||||
2784 | case svSingleRef: | ||||
2785 | { | ||||
2786 | sal_Int32 nVal = GetInt32(); | ||||
2787 | if (nGlobalError == FormulaError::NONE) | ||||
2788 | { | ||||
2789 | uno::Sequence<sal_Int32> aInner( &nVal, 1 ); | ||||
2790 | uno::Sequence< uno::Sequence<sal_Int32> > aOuter( &aInner, 1 ); | ||||
2791 | aParam <<= aOuter; | ||||
2792 | } | ||||
2793 | } | ||||
2794 | break; | ||||
2795 | case svDoubleRef: | ||||
2796 | { | ||||
2797 | ScRange aRange; | ||||
2798 | PopDoubleRef( aRange ); | ||||
2799 | if (!ScRangeToSequence::FillLongArray( aParam, mrDoc, aRange )) | ||||
2800 | SetError(FormulaError::IllegalParameter); | ||||
2801 | } | ||||
2802 | break; | ||||
2803 | case svMatrix: | ||||
2804 | if (!ScRangeToSequence::FillLongArray( aParam, PopMatrix().get() )) | ||||
2805 | SetError(FormulaError::IllegalParameter); | ||||
2806 | break; | ||||
2807 | default: | ||||
2808 | PopError(); | ||||
2809 | SetError(FormulaError::IllegalParameter); | ||||
2810 | } | ||||
2811 | break; | ||||
2812 | |||||
2813 | case SC_ADDINARG_DOUBLE_ARRAY: | ||||
2814 | switch( nStackType ) | ||||
2815 | { | ||||
2816 | case svDouble: | ||||
2817 | case svString: | ||||
2818 | case svSingleRef: | ||||
2819 | { | ||||
2820 | double fVal = GetDouble(); | ||||
2821 | uno::Sequence<double> aInner( &fVal, 1 ); | ||||
2822 | uno::Sequence< uno::Sequence<double> > aOuter( &aInner, 1 ); | ||||
2823 | aParam <<= aOuter; | ||||
2824 | } | ||||
2825 | break; | ||||
2826 | case svDoubleRef: | ||||
2827 | { | ||||
2828 | ScRange aRange; | ||||
2829 | PopDoubleRef( aRange ); | ||||
2830 | if (!ScRangeToSequence::FillDoubleArray( aParam, mrDoc, aRange )) | ||||
2831 | SetError(FormulaError::IllegalParameter); | ||||
2832 | } | ||||
2833 | break; | ||||
2834 | case svMatrix: | ||||
2835 | if (!ScRangeToSequence::FillDoubleArray( aParam, PopMatrix().get() )) | ||||
2836 | SetError(FormulaError::IllegalParameter); | ||||
2837 | break; | ||||
2838 | default: | ||||
2839 | PopError(); | ||||
2840 | SetError(FormulaError::IllegalParameter); | ||||
2841 | } | ||||
2842 | break; | ||||
2843 | |||||
2844 | case SC_ADDINARG_STRING_ARRAY: | ||||
2845 | switch( nStackType ) | ||||
2846 | { | ||||
2847 | case svDouble: | ||||
2848 | case svString: | ||||
2849 | case svSingleRef: | ||||
2850 | { | ||||
2851 | OUString aString = GetString().getString(); | ||||
2852 | uno::Sequence<OUString> aInner( &aString, 1 ); | ||||
2853 | uno::Sequence< uno::Sequence<OUString> > aOuter( &aInner, 1 ); | ||||
2854 | aParam <<= aOuter; | ||||
2855 | } | ||||
2856 | break; | ||||
2857 | case svDoubleRef: | ||||
2858 | { | ||||
2859 | ScRange aRange; | ||||
2860 | PopDoubleRef( aRange ); | ||||
2861 | if (!ScRangeToSequence::FillStringArray( aParam, mrDoc, aRange )) | ||||
2862 | SetError(FormulaError::IllegalParameter); | ||||
2863 | } | ||||
2864 | break; | ||||
2865 | case svMatrix: | ||||
2866 | if (!ScRangeToSequence::FillStringArray( aParam, PopMatrix().get(), pFormatter )) | ||||
2867 | SetError(FormulaError::IllegalParameter); | ||||
2868 | break; | ||||
2869 | default: | ||||
2870 | PopError(); | ||||
2871 | SetError(FormulaError::IllegalParameter); | ||||
2872 | } | ||||
2873 | break; | ||||
2874 | |||||
2875 | case SC_ADDINARG_MIXED_ARRAY: | ||||
2876 | switch( nStackType ) | ||||
2877 | { | ||||
2878 | case svDouble: | ||||
2879 | case svString: | ||||
2880 | case svSingleRef: | ||||
2881 | { | ||||
2882 | uno::Any aElem; | ||||
2883 | if ( nStackType == svDouble ) | ||||
2884 | aElem <<= GetDouble(); | ||||
2885 | else if ( nStackType == svString ) | ||||
2886 | aElem <<= GetString().getString(); | ||||
2887 | else | ||||
2888 | { | ||||
2889 | ScAddress aAdr; | ||||
2890 | if ( PopDoubleRefOrSingleRef( aAdr ) ) | ||||
2891 | { | ||||
2892 | ScRefCellValue aCell(mrDoc, aAdr); | ||||
2893 | if (aCell.hasString()) | ||||
2894 | { | ||||
2895 | svl::SharedString aStr; | ||||
2896 | GetCellString(aStr, aCell); | ||||
2897 | aElem <<= aStr.getString(); | ||||
2898 | } | ||||
2899 | else | ||||
2900 | aElem <<= GetCellValue(aAdr, aCell); | ||||
2901 | } | ||||
2902 | } | ||||
2903 | uno::Sequence<uno::Any> aInner( &aElem, 1 ); | ||||
2904 | uno::Sequence< uno::Sequence<uno::Any> > aOuter( &aInner, 1 ); | ||||
2905 | aParam <<= aOuter; | ||||
2906 | } | ||||
2907 | break; | ||||
2908 | case svDoubleRef: | ||||
2909 | { | ||||
2910 | ScRange aRange; | ||||
2911 | PopDoubleRef( aRange ); | ||||
2912 | if (!ScRangeToSequence::FillMixedArray( aParam, mrDoc, aRange )) | ||||
2913 | SetError(FormulaError::IllegalParameter); | ||||
2914 | } | ||||
2915 | break; | ||||
2916 | case svMatrix: | ||||
2917 | if (!ScRangeToSequence::FillMixedArray( aParam, PopMatrix().get() )) | ||||
2918 | SetError(FormulaError::IllegalParameter); | ||||
2919 | break; | ||||
2920 | default: | ||||
2921 | PopError(); | ||||
2922 | SetError(FormulaError::IllegalParameter); | ||||
2923 | } | ||||
2924 | break; | ||||
2925 | |||||
2926 | case SC_ADDINARG_VALUE_OR_ARRAY: | ||||
2927 | switch( nStackType ) | ||||
2928 | { | ||||
2929 | case svDouble: | ||||
2930 | aParam <<= GetDouble(); | ||||
2931 | break; | ||||
2932 | case svString: | ||||
2933 | aParam <<= GetString().getString(); | ||||
2934 | break; | ||||
2935 | case svSingleRef: | ||||
2936 | { | ||||
2937 | ScAddress aAdr; | ||||
2938 | if ( PopDoubleRefOrSingleRef( aAdr ) ) | ||||
2939 | { | ||||
2940 | ScRefCellValue aCell(mrDoc, aAdr); | ||||
2941 | if (aCell.hasString()) | ||||
2942 | { | ||||
2943 | svl::SharedString aStr; | ||||
2944 | GetCellString(aStr, aCell); | ||||
2945 | aParam <<= aStr.getString(); | ||||
2946 | } | ||||
2947 | else | ||||
2948 | aParam <<= GetCellValue(aAdr, aCell); | ||||
2949 | } | ||||
2950 | } | ||||
2951 | break; | ||||
2952 | case svDoubleRef: | ||||
2953 | { | ||||
2954 | ScRange aRange; | ||||
2955 | PopDoubleRef( aRange ); | ||||
2956 | if (!ScRangeToSequence::FillMixedArray( aParam, mrDoc, aRange )) | ||||
2957 | SetError(FormulaError::IllegalParameter); | ||||
2958 | } | ||||
2959 | break; | ||||
2960 | case svMatrix: | ||||
2961 | if (!ScRangeToSequence::FillMixedArray( aParam, PopMatrix().get() )) | ||||
2962 | SetError(FormulaError::IllegalParameter); | ||||
2963 | break; | ||||
2964 | default: | ||||
2965 | PopError(); | ||||
2966 | SetError(FormulaError::IllegalParameter); | ||||
2967 | } | ||||
2968 | break; | ||||
2969 | |||||
2970 | case SC_ADDINARG_CELLRANGE: | ||||
2971 | switch( nStackType ) | ||||
2972 | { | ||||
2973 | case svSingleRef: | ||||
2974 | { | ||||
2975 | ScAddress aAdr; | ||||
2976 | PopSingleRef( aAdr ); | ||||
2977 | ScRange aRange( aAdr ); | ||||
2978 | uno::Reference<table::XCellRange> xObj = | ||||
2979 | ScCellRangeObj::CreateRangeFromDoc( mrDoc, aRange ); | ||||
2980 | if (xObj.is()) | ||||
2981 | aParam <<= xObj; | ||||
2982 | else | ||||
2983 | SetError(FormulaError::IllegalParameter); | ||||
2984 | } | ||||
2985 | break; | ||||
2986 | case svDoubleRef: | ||||
2987 | { | ||||
2988 | ScRange aRange; | ||||
2989 | PopDoubleRef( aRange ); | ||||
2990 | uno::Reference<table::XCellRange> xObj = | ||||
2991 | ScCellRangeObj::CreateRangeFromDoc( mrDoc, aRange ); | ||||
2992 | if (xObj.is()) | ||||
2993 | { | ||||
2994 | aParam <<= xObj; | ||||
2995 | } | ||||
2996 | else | ||||
2997 | { | ||||
2998 | SetError(FormulaError::IllegalParameter); | ||||
2999 | } | ||||
3000 | } | ||||
3001 | break; | ||||
3002 | default: | ||||
3003 | PopError(); | ||||
3004 | SetError(FormulaError::IllegalParameter); | ||||
3005 | } | ||||
3006 | break; | ||||
3007 | |||||
3008 | default: | ||||
3009 | PopError(); | ||||
3010 | SetError(FormulaError::IllegalParameter); | ||||
3011 | } | ||||
3012 | aCall.SetParam( nPar, aParam ); | ||||
3013 | } | ||||
3014 | |||||
3015 | while (nPar-- > 0) | ||||
3016 | { | ||||
3017 | Pop(); // in case of error, remove remaining args | ||||
3018 | } | ||||
3019 | if ( GetError() == FormulaError::NONE ) | ||||
3020 | { | ||||
3021 | aCall.ExecuteCall(); | ||||
3022 | |||||
3023 | if ( aCall.HasVarRes() ) // handle async functions | ||||
3024 | { | ||||
3025 | pArr->AddRecalcMode( ScRecalcMode::ONLOAD_LENIENT ); | ||||
3026 | uno::Reference<sheet::XVolatileResult> xRes = aCall.GetVarRes(); | ||||
3027 | ScAddInListener* pLis = ScAddInListener::Get( xRes ); | ||||
3028 | // In case there is no pMyFormulaCell, i.e. while interpreting | ||||
3029 | // temporarily from within the Function Wizard, try to obtain a | ||||
3030 | // valid result from an existing listener for that volatile, or | ||||
3031 | // create a new and hope for an immediate result. If none | ||||
3032 | // available that should lead to a void result and thus #N/A. | ||||
3033 | bool bTemporaryListener = false; | ||||
3034 | if ( !pLis ) | ||||
3035 | { | ||||
3036 | pLis = ScAddInListener::CreateListener( xRes, &mrDoc ); | ||||
3037 | if (pMyFormulaCell) | ||||
3038 | pMyFormulaCell->StartListening( *pLis ); | ||||
3039 | else | ||||
3040 | bTemporaryListener = true; | ||||
3041 | } | ||||
3042 | else if (pMyFormulaCell) | ||||
3043 | { | ||||
3044 | pMyFormulaCell->StartListening( *pLis ); | ||||
3045 | if ( !pLis->HasDocument( &mrDoc ) ) | ||||
3046 | { | ||||
3047 | pLis->AddDocument( &mrDoc ); | ||||
3048 | } | ||||
3049 | } | ||||
3050 | |||||
3051 | aCall.SetResult( pLis->GetResult() ); // use result from async | ||||
3052 | |||||
3053 | if (bTemporaryListener) | ||||
3054 | { | ||||
3055 | try | ||||
3056 | { | ||||
3057 | // EventObject can be any, not evaluated by | ||||
3058 | // ScAddInListener::disposing() | ||||
3059 | css::lang::EventObject aEvent; | ||||
3060 | pLis->disposing(aEvent); // pLis is dead hereafter | ||||
3061 | } | ||||
3062 | catch (const uno::Exception&) | ||||
3063 | { | ||||
3064 | } | ||||
3065 | } | ||||
3066 | } | ||||
3067 | |||||
3068 | if ( aCall.GetErrCode() != FormulaError::NONE ) | ||||
3069 | { | ||||
3070 | PushError( aCall.GetErrCode() ); | ||||
3071 | } | ||||
3072 | else if ( aCall.HasMatrix() ) | ||||
3073 | { | ||||
3074 | PushMatrix( aCall.GetMatrix() ); | ||||
3075 | } | ||||
3076 | else if ( aCall.HasString() ) | ||||
3077 | { | ||||
3078 | PushString( aCall.GetString() ); | ||||
3079 | } | ||||
3080 | else | ||||
3081 | { | ||||
3082 | PushDouble( aCall.GetValue() ); | ||||
3083 | } | ||||
3084 | } | ||||
3085 | else // error... | ||||
3086 | PushError( GetError()); | ||||
3087 | } | ||||
3088 | else | ||||
3089 | { | ||||
3090 | while( nParamCount-- > 0) | ||||
3091 | { | ||||
3092 | Pop(); | ||||
3093 | } | ||||
3094 | PushError( FormulaError::NoAddin ); | ||||
3095 | } | ||||
3096 | } | ||||
3097 | |||||
3098 | void ScInterpreter::ScMissing() | ||||
3099 | { | ||||
3100 | if ( aCode.IsEndOfPath() ) | ||||
3101 | PushTempToken( new ScEmptyCellToken( false, false ) ); | ||||
3102 | else | ||||
3103 | PushTempToken( new FormulaMissingToken ); | ||||
3104 | } | ||||
3105 | |||||
3106 | #if HAVE_FEATURE_SCRIPTING1 | ||||
3107 | |||||
3108 | static uno::Any lcl_getSheetModule( const uno::Reference<table::XCellRange>& xCellRange, const ScDocument* pDok ) | ||||
3109 | { | ||||
3110 | uno::Reference< sheet::XSheetCellRange > xSheetRange( xCellRange, uno::UNO_QUERY_THROW ); | ||||
3111 | uno::Reference< beans::XPropertySet > xProps( xSheetRange->getSpreadsheet(), uno::UNO_QUERY_THROW ); | ||||
3112 | OUString sCodeName; | ||||
3113 | xProps->getPropertyValue("CodeName") >>= sCodeName; | ||||
3114 | // #TODO #FIXME ideally we should 'throw' here if we don't get a valid parent, but... it is possible | ||||
3115 | // to create a module ( and use 'Option VBASupport 1' ) for a calc document, in this scenario there | ||||
3116 | // are *NO* special document module objects ( of course being able to switch between vba/non vba mode at | ||||
3117 | // the document in the future could fix this, especially IF the switching of the vba mode takes care to | ||||
3118 | // create the special document module objects if they don't exist. | ||||
3119 | BasicManager* pBasMgr = pDok->GetDocumentShell()->GetBasicManager(); | ||||
3120 | |||||
3121 | uno::Reference< uno::XInterface > xIf; | ||||
3122 | if ( pBasMgr && !pBasMgr->GetName().isEmpty() ) | ||||
3123 | { | ||||
3124 | OUString sProj( "Standard" ); | ||||
3125 | if ( !pDok->GetDocumentShell()->GetBasicManager()->GetName().isEmpty() ) | ||||
3126 | { | ||||
3127 | sProj = pDok->GetDocumentShell()->GetBasicManager()->GetName(); | ||||
3128 | } | ||||
3129 | StarBASIC* pBasic = pDok->GetDocumentShell()->GetBasicManager()->GetLib( sProj ); | ||||
3130 | if ( pBasic ) | ||||
3131 | { | ||||
3132 | SbModule* pMod = pBasic->FindModule( sCodeName ); | ||||
3133 | if ( pMod ) | ||||
3134 | { | ||||
3135 | xIf = pMod->GetUnoModule(); | ||||
3136 | } | ||||
3137 | } | ||||
3138 | } | ||||
3139 | return uno::makeAny( xIf ); | ||||
3140 | } | ||||
3141 | |||||
3142 | static bool lcl_setVBARange( const ScRange& aRange, const ScDocument& rDok, SbxVariable* pPar ) | ||||
3143 | { | ||||
3144 | bool bOk = false; | ||||
3145 | try | ||||
3146 | { | ||||
3147 | uno::Reference< uno::XInterface > xVBARange; | ||||
3148 | uno::Reference<table::XCellRange> xCellRange = ScCellRangeObj::CreateRangeFromDoc( rDok, aRange ); | ||||
3149 | uno::Sequence< uno::Any > aArgs(2); | ||||
3150 | aArgs[0] = lcl_getSheetModule( xCellRange, &rDok ); | ||||
3151 | aArgs[1] <<= xCellRange; | ||||
3152 | xVBARange = ooo::vba::createVBAUnoAPIServiceWithArgs( rDok.GetDocumentShell(), "ooo.vba.excel.Range", aArgs ); | ||||
3153 | if ( xVBARange.is() ) | ||||
3154 | { | ||||
3155 | SbxObjectRef aObj = GetSbUnoObject( "A-Range", uno::Any( xVBARange ) ); | ||||
3156 | SetSbUnoObjectDfltPropName( aObj.get() ); | ||||
3157 | bOk = pPar->PutObject( aObj.get() ); | ||||
3158 | } | ||||
3159 | } | ||||
3160 | catch( uno::Exception& ) | ||||
3161 | { | ||||
3162 | } | ||||
3163 | return bOk; | ||||
3164 | } | ||||
3165 | |||||
3166 | static bool lcl_isNumericResult( double& fVal, const SbxVariable* pVar ) | ||||
3167 | { | ||||
3168 | switch (pVar->GetType()) | ||||
3169 | { | ||||
3170 | case SbxINTEGER: | ||||
3171 | case SbxLONG: | ||||
3172 | case SbxSINGLE: | ||||
3173 | case SbxDOUBLE: | ||||
3174 | case SbxCURRENCY: | ||||
3175 | case SbxDATE: | ||||
3176 | case SbxUSHORT: | ||||
3177 | case SbxULONG: | ||||
3178 | case SbxINT: | ||||
3179 | case SbxUINT: | ||||
3180 | case SbxSALINT64: | ||||
3181 | case SbxSALUINT64: | ||||
3182 | case SbxDECIMAL: | ||||
3183 | fVal = pVar->GetDouble(); | ||||
3184 | return true; | ||||
3185 | case SbxBOOL: | ||||
3186 | fVal = (pVar->GetBool() ? 1.0 : 0.0); | ||||
3187 | return true; | ||||
3188 | default: | ||||
3189 | ; // nothing | ||||
3190 | } | ||||
3191 | return false; | ||||
3192 | } | ||||
3193 | |||||
3194 | #endif | ||||
3195 | |||||
3196 | void ScInterpreter::ScMacro() | ||||
3197 | { | ||||
3198 | |||||
3199 | #if !HAVE_FEATURE_SCRIPTING1 | ||||
3200 | PushNoValue(); // without DocShell no CallBasic | ||||
3201 | return; | ||||
3202 | #else | ||||
3203 | SbxBase::ResetError(); | ||||
3204 | |||||
3205 | sal_uInt8 nParamCount = GetByte(); | ||||
3206 | OUString aMacro( pCur->GetExternal() ); | ||||
3207 | |||||
3208 | SfxObjectShell* pDocSh = mrDoc.GetDocumentShell(); | ||||
3209 | if ( !pDocSh ) | ||||
3210 | { | ||||
3211 | PushNoValue(); // without DocShell no CallBasic | ||||
3212 | return; | ||||
3213 | } | ||||
3214 | |||||
3215 | // no security queue beforehand (just CheckMacroWarn), moved to CallBasic | ||||
3216 | |||||
3217 | // If the Dok was loaded during a Basic-Calls, | ||||
3218 | // is the Sbx-object created(?) | ||||
3219 | // pDocSh->GetSbxObject(); | ||||
3220 | |||||
3221 | // search function with the name, | ||||
3222 | // then assemble SfxObjectShell::CallBasic from aBasicStr, aMacroStr | ||||
3223 | |||||
3224 | StarBASIC* pRoot; | ||||
3225 | |||||
3226 | try | ||||
3227 | { | ||||
3228 | pRoot = pDocSh->GetBasic(); | ||||
3229 | } | ||||
3230 | catch (...) | ||||
3231 | { | ||||
3232 | pRoot = nullptr; | ||||
3233 | } | ||||
3234 | |||||
3235 | SbxVariable* pVar = pRoot ? pRoot->Find(aMacro, SbxClassType::Method) : nullptr; | ||||
3236 | if( !pVar || pVar->GetType() == SbxVOID || dynamic_cast<const SbMethod*>( pVar) == nullptr ) | ||||
3237 | { | ||||
3238 | PushError( FormulaError::NoMacro ); | ||||
3239 | return; | ||||
3240 | } | ||||
3241 | |||||
3242 | bool bVolatileMacro = false; | ||||
3243 | SbMethod* pMethod = static_cast<SbMethod*>(pVar); | ||||
3244 | |||||
3245 | SbModule* pModule = pMethod->GetModule(); | ||||
3246 | bool bUseVBAObjects = pModule->IsVBACompat(); | ||||
3247 | SbxObject* pObject = pModule->GetParent(); | ||||
3248 | OSL_ENSURE(dynamic_cast<const StarBASIC *>(pObject) != nullptr, "No Basic found!")do { if (true && (!(dynamic_cast<const StarBASIC * >(pObject) != nullptr))) { sal_detail_logFormat((SAL_DETAIL_LOG_LEVEL_WARN ), ("legacy.osl"), ("/home/maarten/src/libreoffice/core/sc/source/core/tool/interpr4.cxx" ":" "3248" ": "), "%s", "No Basic found!"); } } while (false ); | ||||
3249 | OUString aMacroStr = pObject->GetName() + "." + pModule->GetName() + "." + pMethod->GetName(); | ||||
3250 | OUString aBasicStr; | ||||
3251 | if (pRoot && bUseVBAObjects) | ||||
3252 | { | ||||
3253 | // just here to make sure the VBA objects when we run the macro during ODF import | ||||
3254 | pRoot->getVBAGlobals(); | ||||
3255 | } | ||||
3256 | if (pObject->GetParent()) | ||||
3257 | { | ||||
3258 | aBasicStr = pObject->GetParent()->GetName(); // document BASIC | ||||
3259 | } | ||||
3260 | else | ||||
3261 | { | ||||
3262 | aBasicStr = SfxGetpApp()->GetName(); // application BASIC | ||||
3263 | } | ||||
3264 | // assemble a parameter array | ||||
3265 | |||||
3266 | SbxArrayRef refPar = new SbxArray; | ||||
3267 | bool bOk = true; | ||||
3268 | for( sal_uInt32 i = nParamCount; i && bOk ; i-- ) | ||||
3269 | { | ||||
3270 | SbxVariable* pPar = refPar->Get32(i); | ||||
3271 | switch( GetStackType() ) | ||||
3272 | { | ||||
3273 | case svDouble: | ||||
3274 | pPar->PutDouble( GetDouble() ); | ||||
3275 | break; | ||||
3276 | case svString: | ||||
3277 | pPar->PutString( GetString().getString() ); | ||||
3278 | break; | ||||
3279 | case svExternalSingleRef: | ||||
3280 | { | ||||
3281 | ScExternalRefCache::TokenRef pToken; | ||||
3282 | PopExternalSingleRef(pToken); | ||||
3283 | if (nGlobalError != FormulaError::NONE) | ||||
3284 | bOk = false; | ||||
3285 | else | ||||
3286 | { | ||||
3287 | if ( pToken->GetType() == svString ) | ||||
3288 | pPar->PutString( pToken->GetString().getString() ); | ||||
3289 | else if ( pToken->GetType() == svDouble ) | ||||
3290 | pPar->PutDouble( pToken->GetDouble() ); | ||||
3291 | else | ||||
3292 | { | ||||
3293 | SetError( FormulaError::IllegalArgument ); | ||||
3294 | bOk = false; | ||||
3295 | } | ||||
3296 | } | ||||
3297 | } | ||||
3298 | break; | ||||
3299 | case svSingleRef: | ||||
3300 | { | ||||
3301 | ScAddress aAdr; | ||||
3302 | PopSingleRef( aAdr ); | ||||
3303 | if ( bUseVBAObjects ) | ||||
3304 | { | ||||
3305 | ScRange aRange( aAdr ); | ||||
3306 | bOk = lcl_setVBARange( aRange, mrDoc, pPar ); | ||||
3307 | } | ||||
3308 | else | ||||
3309 | { | ||||
3310 | bOk = SetSbxVariable( pPar, aAdr ); | ||||
3311 | } | ||||
3312 | } | ||||
3313 | break; | ||||
3314 | case svDoubleRef: | ||||
3315 | { | ||||
3316 | SCCOL nCol1; | ||||
3317 | SCROW nRow1; | ||||
3318 | SCTAB nTab1; | ||||
3319 | SCCOL nCol2; | ||||
3320 | SCROW nRow2; | ||||
3321 | SCTAB nTab2; | ||||
3322 | PopDoubleRef( nCol1, nRow1, nTab1, nCol2, nRow2, nTab2 ); | ||||
3323 | if( nTab1 != nTab2 ) | ||||
3324 | { | ||||
3325 | SetError( FormulaError::IllegalParameter ); | ||||
3326 | bOk = false; | ||||
3327 | } | ||||
3328 | else | ||||
3329 | { | ||||
3330 | if ( bUseVBAObjects ) | ||||
3331 | { | ||||
3332 | ScRange aRange( nCol1, nRow1, nTab1, nCol2, nRow2, nTab2 ); | ||||
3333 | bOk = lcl_setVBARange( aRange, mrDoc, pPar ); | ||||
3334 | } | ||||
3335 | else | ||||
3336 | { | ||||
3337 | SbxDimArrayRef refArray = new SbxDimArray; | ||||
3338 | refArray->AddDim32( 1, nRow2 - nRow1 + 1 ); | ||||
3339 | refArray->AddDim32( 1, nCol2 - nCol1 + 1 ); | ||||
3340 | ScAddress aAdr( nCol1, nRow1, nTab1 ); | ||||
3341 | for( SCROW nRow = nRow1; bOk && nRow <= nRow2; nRow++ ) | ||||
3342 | { | ||||
3343 | aAdr.SetRow( nRow ); | ||||
3344 | sal_Int32 nIdx[ 2 ]; | ||||
3345 | nIdx[ 0 ] = nRow-nRow1+1; | ||||
3346 | for( SCCOL nCol = nCol1; bOk && nCol <= nCol2; nCol++ ) | ||||
3347 | { | ||||
3348 | aAdr.SetCol( nCol ); | ||||
3349 | nIdx[ 1 ] = nCol-nCol1+1; | ||||
3350 | SbxVariable* p = refArray->Get32( nIdx ); | ||||
3351 | bOk = SetSbxVariable( p, aAdr ); | ||||
3352 | } | ||||
3353 | } | ||||
3354 | pPar->PutObject( refArray.get() ); | ||||
3355 | } | ||||
3356 | } | ||||
3357 | } | ||||
3358 | break; | ||||
3359 | case svExternalDoubleRef: | ||||
3360 | case svMatrix: | ||||
3361 | { | ||||
3362 | ScMatrixRef pMat = GetMatrix(); | ||||
3363 | SCSIZE nC, nR; | ||||
3364 | if (pMat && nGlobalError == FormulaError::NONE) | ||||
3365 | { | ||||
3366 | pMat->GetDimensions(nC, nR); | ||||
3367 | SbxDimArrayRef refArray = new SbxDimArray; | ||||
3368 | refArray->AddDim32( 1, static_cast<sal_Int32>(nR) ); | ||||
3369 | refArray->AddDim32( 1, static_cast<sal_Int32>(nC) ); | ||||
3370 | for( SCSIZE nMatRow = 0; nMatRow < nR; nMatRow++ ) | ||||
3371 | { | ||||
3372 | sal_Int32 nIdx[ 2 ]; | ||||
3373 | nIdx[ 0 ] = static_cast<sal_Int32>(nMatRow+1); | ||||
3374 | for( SCSIZE nMatCol = 0; nMatCol < nC; nMatCol++ ) | ||||
3375 | { | ||||
3376 | nIdx[ 1 ] = static_cast<sal_Int32>(nMatCol+1); | ||||
3377 | SbxVariable* p = refArray->Get32( nIdx ); | ||||
3378 | if (pMat->IsStringOrEmpty(nMatCol, nMatRow)) | ||||
3379 | { | ||||
3380 | p->PutString( pMat->GetString(nMatCol, nMatRow).getString() ); | ||||
3381 | } | ||||
3382 | else | ||||
3383 | { | ||||
3384 | p->PutDouble( pMat->GetDouble(nMatCol, nMatRow)); | ||||
3385 | } | ||||
3386 | } | ||||
3387 | } | ||||
3388 | pPar->PutObject( refArray.get() ); | ||||
3389 | } | ||||
3390 | else | ||||
3391 | { | ||||
3392 | SetError( FormulaError::IllegalParameter ); | ||||
3393 | } | ||||
3394 | } | ||||
3395 | break; | ||||
3396 | default: | ||||
3397 | SetError( FormulaError::IllegalParameter ); | ||||
3398 | bOk = false; | ||||
3399 | } | ||||
3400 | } | ||||
3401 | if( bOk ) | ||||
3402 | { | ||||
3403 | mrDoc.LockTable( aPos.Tab() ); | ||||
3404 | SbxVariableRef refRes = new SbxVariable; | ||||
3405 | mrDoc.IncMacroInterpretLevel(); | ||||
3406 | ErrCode eRet = pDocSh->CallBasic( aMacroStr, aBasicStr, refPar.get(), refRes.get() ); | ||||
3407 | mrDoc.DecMacroInterpretLevel(); | ||||
3408 | mrDoc.UnlockTable( aPos.Tab() ); | ||||
3409 | |||||
3410 | ScMacroManager* pMacroMgr = mrDoc.GetMacroManager(); | ||||
3411 | if (pMacroMgr) | ||||
3412 | { | ||||
3413 | bVolatileMacro = pMacroMgr->GetUserFuncVolatile( pMethod->GetName() ); | ||||
3414 | pMacroMgr->AddDependentCell(pModule->GetName(), pMyFormulaCell); | ||||
3415 | } | ||||
3416 | |||||
3417 | double fVal; | ||||
3418 | SbxDataType eResType = refRes->GetType(); | ||||
3419 | if( SbxBase::GetError() ) | ||||
3420 | { | ||||
3421 | SetError( FormulaError::NoValue); | ||||
3422 | } | ||||
3423 | if ( eRet != ERRCODE_NONEErrCode(0) ) | ||||
3424 | { | ||||
3425 | PushNoValue(); | ||||
3426 | } | ||||
3427 | else if (lcl_isNumericResult( fVal, refRes.get())) | ||||
3428 | { | ||||
3429 | switch (eResType) | ||||
3430 | { | ||||
3431 | case SbxDATE: | ||||
3432 | nFuncFmtType = SvNumFormatType::DATE; | ||||
3433 | break; | ||||
3434 | case SbxBOOL: | ||||
3435 | nFuncFmtType = SvNumFormatType::LOGICAL; | ||||
3436 | break; | ||||
3437 | // Do not add SbxCURRENCY, we don't know which currency. | ||||
3438 | default: | ||||
3439 | ; // nothing | ||||
3440 | } | ||||
3441 | PushDouble( fVal ); | ||||
3442 | } | ||||
3443 | else if ( eResType & SbxARRAY ) | ||||
3444 | { | ||||
3445 | SbxBase* pElemObj = refRes->GetObject(); | ||||
3446 | SbxDimArray* pDimArray = dynamic_cast<SbxDimArray*>(pElemObj); | ||||
3447 | sal_Int32 nDim = pDimArray ? pDimArray->GetDims32() : 0; | ||||
3448 | if ( 1 <= nDim && nDim <= 2 ) | ||||
3449 | { | ||||
3450 | sal_Int32 nCs, nCe, nRs; | ||||
3451 | SCSIZE nC, nR; | ||||
3452 | SCCOL nColIdx; | ||||
3453 | SCROW nRowIdx; | ||||
3454 | if ( nDim == 1 ) | ||||
3455 | { // array( cols ) one line, several columns | ||||
3456 | pDimArray->GetDim32( 1, nCs, nCe ); | ||||
3457 | nC = static_cast<SCSIZE>(nCe - nCs + 1); | ||||
3458 | nRs = 0; | ||||
3459 | nR = 1; | ||||
3460 | nColIdx = 0; | ||||
3461 | nRowIdx = 1; | ||||
3462 | } | ||||
3463 | else | ||||
3464 | { // array( rows, cols ) | ||||
3465 | sal_Int32 nRe; | ||||
3466 | pDimArray->GetDim32( 1, nRs, nRe ); | ||||
3467 | nR = static_cast<SCSIZE>(nRe - nRs + 1); | ||||
3468 | pDimArray->GetDim32( 2, nCs, nCe ); | ||||
3469 | nC = static_cast<SCSIZE>(nCe - nCs + 1); | ||||
3470 | nColIdx = 1; | ||||
3471 | nRowIdx = 0; | ||||
3472 | } | ||||
3473 | ScMatrixRef pMat = GetNewMat( nC, nR); | ||||
3474 | if ( pMat ) | ||||
3475 | { | ||||
3476 | SbxVariable* pV; | ||||
3477 | for ( SCSIZE j=0; j < nR; j++ ) | ||||
3478 | { | ||||
3479 | sal_Int32 nIdx[ 2 ]; | ||||
3480 | // in one-dimensional array( cols ) nIdx[1] | ||||
3481 | // from SbxDimArray::Get is ignored | ||||
3482 | nIdx[ nRowIdx ] = nRs + static_cast<sal_Int32>(j); | ||||
3483 | for ( SCSIZE i=0; i < nC; i++ ) | ||||
3484 | { | ||||
3485 | nIdx[ nColIdx ] = nCs + static_cast<sal_Int32>(i); | ||||
3486 | pV = pDimArray->Get32( nIdx ); | ||||
3487 | if ( lcl_isNumericResult( fVal, pV) ) | ||||
3488 | { | ||||
3489 | pMat->PutDouble( fVal, i, j ); | ||||
3490 | } | ||||
3491 | else | ||||
3492 | { | ||||
3493 | pMat->PutString(mrStrPool.intern(pV->GetOUString()), i, j); | ||||
3494 | } | ||||
3495 | } | ||||
3496 | } | ||||
3497 | PushMatrix( pMat ); | ||||
3498 | } | ||||
3499 | else | ||||
3500 | { | ||||
3501 | PushIllegalArgument(); | ||||
3502 | } | ||||
3503 | } | ||||
3504 | else | ||||
3505 | { | ||||
3506 | PushNoValue(); | ||||
3507 | } | ||||
3508 | } | ||||
3509 | else | ||||
3510 | { | ||||
3511 | PushString( refRes->GetOUString() ); | ||||
3512 | } | ||||
3513 | } | ||||
3514 | |||||
3515 | if (bVolatileMacro && meVolatileType == NOT_VOLATILE) | ||||
3516 | meVolatileType = VOLATILE_MACRO; | ||||
3517 | #endif | ||||
3518 | } | ||||
3519 | |||||
3520 | #if HAVE_FEATURE_SCRIPTING1 | ||||
3521 | |||||
3522 | bool ScInterpreter::SetSbxVariable( SbxVariable* pVar, const ScAddress& rPos ) | ||||
3523 | { | ||||
3524 | bool bOk = true; | ||||
3525 | ScRefCellValue aCell(mrDoc, rPos); | ||||
3526 | if (!aCell.isEmpty()) | ||||
3527 | { | ||||
3528 | FormulaError nErr; | ||||
3529 | double nVal; | ||||
3530 | switch (aCell.meType) | ||||
3531 | { | ||||
3532 | case CELLTYPE_VALUE : | ||||
3533 | nVal = GetValueCellValue(rPos, aCell.mfValue); | ||||
3534 | pVar->PutDouble( nVal ); | ||||
3535 | break; | ||||
3536 | case CELLTYPE_STRING : | ||||
3537 | case CELLTYPE_EDIT : | ||||
3538 | pVar->PutString(aCell.getString(&mrDoc)); | ||||
3539 | break; | ||||
3540 | case CELLTYPE_FORMULA : | ||||
3541 | nErr = aCell.mpFormula->GetErrCode(); | ||||
3542 | if( nErr == FormulaError::NONE ) | ||||
3543 | { | ||||
3544 | if (aCell.mpFormula->IsValue()) | ||||
3545 | { | ||||
3546 | nVal = aCell.mpFormula->GetValue(); | ||||
3547 | pVar->PutDouble( nVal ); | ||||
3548 | } | ||||
3549 | else | ||||
3550 | pVar->PutString(aCell.mpFormula->GetString().getString()); | ||||
3551 | } | ||||
3552 | else | ||||
3553 | { | ||||
3554 | SetError( nErr ); | ||||
3555 | bOk = false; | ||||
3556 | } | ||||
3557 | break; | ||||
3558 | default : | ||||
3559 | pVar->PutEmpty(); | ||||
3560 | } | ||||
3561 | } | ||||
3562 | else | ||||
3563 | pVar->PutEmpty(); | ||||
3564 | |||||
3565 | return bOk; | ||||
3566 | } | ||||
3567 | |||||
3568 | #endif | ||||
3569 | |||||
3570 | void ScInterpreter::ScTableOp() | ||||
3571 | { | ||||
3572 | sal_uInt8 nParamCount = GetByte(); | ||||
3573 | if (nParamCount != 3 && nParamCount != 5) | ||||
3574 | { | ||||
3575 | PushIllegalParameter(); | ||||
3576 | return; | ||||
3577 | } | ||||
3578 | std::unique_ptr<ScInterpreterTableOpParams> pTableOp(new ScInterpreterTableOpParams); | ||||
3579 | if (nParamCount == 5) | ||||
3580 | { | ||||
3581 | PopSingleRef( pTableOp->aNew2 ); | ||||
3582 | PopSingleRef( pTableOp->aOld2 ); | ||||
3583 | } | ||||
3584 | PopSingleRef( pTableOp->aNew1 ); | ||||
3585 | PopSingleRef( pTableOp->aOld1 ); | ||||
3586 | PopSingleRef( pTableOp->aFormulaPos ); | ||||
3587 | |||||
3588 | pTableOp->bValid = true; | ||||
3589 | mrDoc.m_TableOpList.push_back(pTableOp.get()); | ||||
3590 | mrDoc.IncInterpreterTableOpLevel(); | ||||
3591 | |||||
3592 | bool bReuseLastParams = (mrDoc.aLastTableOpParams == *pTableOp); | ||||
3593 | if ( bReuseLastParams ) | ||||
3594 | { | ||||
3595 | pTableOp->aNotifiedFormulaPos = mrDoc.aLastTableOpParams.aNotifiedFormulaPos; | ||||
3596 | pTableOp->bRefresh = true; | ||||
3597 | for ( const auto& rPos : pTableOp->aNotifiedFormulaPos ) | ||||
3598 | { // emulate broadcast and indirectly collect cell pointers | ||||
3599 | ScRefCellValue aCell(mrDoc, rPos); | ||||
3600 | if (aCell.meType == CELLTYPE_FORMULA) | ||||
3601 | aCell.mpFormula->SetTableOpDirty(); | ||||
3602 | } | ||||
3603 | } | ||||
3604 | else | ||||
3605 | { // broadcast and indirectly collect cell pointers and positions | ||||
3606 | mrDoc.SetTableOpDirty( pTableOp->aOld1 ); | ||||
3607 | if ( nParamCount == 5 ) | ||||
3608 | mrDoc.SetTableOpDirty( pTableOp->aOld2 ); | ||||
3609 | } | ||||
3610 | pTableOp->bCollectNotifications = false; | ||||
3611 | |||||
3612 | ScRefCellValue aCell(mrDoc, pTableOp->aFormulaPos); | ||||
3613 | if (aCell.meType == CELLTYPE_FORMULA) | ||||
3614 | aCell.mpFormula->SetDirtyVar(); | ||||
3615 | if (aCell.hasNumeric()) | ||||
3616 | { | ||||
3617 | PushDouble(GetCellValue(pTableOp->aFormulaPos, aCell)); | ||||
3618 | } | ||||
3619 | else | ||||
3620 | { | ||||
3621 | svl::SharedString aCellString; | ||||
3622 | GetCellString(aCellString, aCell); | ||||
3623 | PushString( aCellString ); | ||||
3624 | } | ||||
3625 | |||||
3626 | auto const itr = | ||||
3627 | ::std::find(mrDoc.m_TableOpList.begin(), mrDoc.m_TableOpList.end(), pTableOp.get()); | ||||
3628 | if (itr != mrDoc.m_TableOpList.end()) | ||||
3629 | { | ||||
3630 | mrDoc.m_TableOpList.erase(itr); | ||||
3631 | } | ||||
3632 | |||||
3633 | // set dirty again once more to be able to recalculate original | ||||
3634 | for ( const auto& pCell : pTableOp->aNotifiedFormulaCells ) | ||||
3635 | { | ||||
3636 | pCell->SetTableOpDirty(); | ||||
3637 | } | ||||
3638 | |||||
3639 | // save these params for next incarnation | ||||
3640 | if ( !bReuseLastParams ) | ||||
3641 | mrDoc.aLastTableOpParams = *pTableOp; | ||||
3642 | |||||
3643 | if (aCell.meType == CELLTYPE_FORMULA) | ||||
3644 | { | ||||
3645 | aCell.mpFormula->SetDirtyVar(); | ||||
3646 | aCell.mpFormula->GetErrCode(); // recalculate original | ||||
3647 | } | ||||
3648 | |||||
3649 | // Reset all dirty flags so next incarnation does really collect all cell | ||||
3650 | // pointers during notifications and not just non-dirty ones, which may | ||||
3651 | // happen if a formula cell is used by more than one TableOp block. | ||||
3652 | for ( const auto& pCell : pTableOp->aNotifiedFormulaCells ) | ||||
3653 | { | ||||
3654 | pCell->ResetTableOpDirtyVar(); | ||||
3655 | } | ||||
3656 | pTableOp.reset(); | ||||
3657 | |||||
3658 | mrDoc.DecInterpreterTableOpLevel(); | ||||
3659 | } | ||||
3660 | |||||
3661 | void ScInterpreter::ScDBArea() | ||||
3662 | { | ||||
3663 | ScDBData* pDBData = mrDoc.GetDBCollection()->getNamedDBs().findByIndex(pCur->GetIndex()); | ||||
3664 | if (pDBData) | ||||
3665 | { | ||||
3666 | ScComplexRefData aRefData; | ||||
3667 | aRefData.InitFlags(); | ||||
3668 | ScRange aRange; | ||||
3669 | pDBData->GetArea(aRange); | ||||
3670 | aRange.aEnd.SetTab(aRange.aStart.Tab()); | ||||
3671 | aRefData.SetRange(mrDoc.GetSheetLimits(), aRange, aPos); | ||||
3672 | PushTempToken( new ScDoubleRefToken( mrDoc.GetSheetLimits(), aRefData ) ); | ||||
3673 | } | ||||
3674 | else | ||||
3675 | PushError( FormulaError::NoName); | ||||
3676 | } | ||||
3677 | |||||
3678 | void ScInterpreter::ScColRowNameAuto() | ||||
3679 | { | ||||
3680 | ScComplexRefData aRefData( *pCur->GetDoubleRef() ); | ||||
3681 | ScRange aAbs = aRefData.toAbs(mrDoc, aPos); | ||||
3682 | if (!mrDoc.ValidRange(aAbs)) | ||||
3683 | { | ||||
3684 | PushError( FormulaError::NoRef ); | ||||
3685 | return; | ||||
3686 | } | ||||
3687 | |||||
3688 | SCCOL nStartCol; | ||||
3689 | SCROW nStartRow; | ||||
3690 | |||||
3691 | // maybe remember limit by using defined ColRowNameRange | ||||
3692 | SCCOL nCol2 = aAbs.aEnd.Col(); | ||||
3693 | SCROW nRow2 = aAbs.aEnd.Row(); | ||||
3694 | // DataArea of the first cell | ||||
3695 | nStartCol = aAbs.aStart.Col(); | ||||
3696 | nStartRow = aAbs.aStart.Row(); | ||||
3697 | aAbs.aEnd = aAbs.aStart; // Shrink to the top-left cell. | ||||
3698 | |||||
3699 | { | ||||
3700 | // Expand to the data area. Only modify the end position. | ||||
3701 | SCCOL nDACol1 = aAbs.aStart.Col(), nDACol2 = aAbs.aEnd.Col(); | ||||
3702 | SCROW nDARow1 = aAbs.aStart.Row(), nDARow2 = aAbs.aEnd.Row(); | ||||
3703 | mrDoc.GetDataArea(aAbs.aStart.Tab(), nDACol1, nDARow1, nDACol2, nDARow2, true, false); | ||||
3704 | aAbs.aEnd.SetCol(nDACol2); | ||||
3705 | aAbs.aEnd.SetRow(nDARow2); | ||||
3706 | } | ||||
3707 | |||||
3708 | // corresponds with ScCompiler::GetToken | ||||
3709 | if ( aRefData.Ref1.IsColRel() ) | ||||
3710 | { // ColName | ||||
3711 | aAbs.aEnd.SetCol(nStartCol); | ||||
3712 | // maybe get previous limit by using defined ColRowNameRange | ||||
3713 | if (aAbs.aEnd.Row() > nRow2) | ||||
3714 | aAbs.aEnd.SetRow(nRow2); | ||||
3715 | if ( aPos.Col() == nStartCol ) | ||||
3716 | { | ||||
3717 | SCROW nMyRow = aPos.Row(); | ||||
3718 | if ( nStartRow <= nMyRow && nMyRow <= aAbs.aEnd.Row()) | ||||
3719 | { //Formula in the same column and within the range | ||||
3720 | if ( nMyRow == nStartRow ) | ||||
3721 | { // take the rest under the name | ||||
3722 | nStartRow++; | ||||
3723 | if ( nStartRow > mrDoc.MaxRow() ) | ||||
3724 | nStartRow = mrDoc.MaxRow(); | ||||
3725 | aAbs.aStart.SetRow(nStartRow); | ||||
3726 | } | ||||
3727 | else | ||||
3728 | { // below the name to the formula cell | ||||
3729 | aAbs.aEnd.SetRow(nMyRow - 1); | ||||
3730 | } | ||||
3731 | } | ||||
3732 | } | ||||
3733 | } | ||||
3734 | else | ||||
3735 | { // RowName | ||||
3736 | aAbs.aEnd.SetRow(nStartRow); | ||||
3737 | // maybe get previous limit by using defined ColRowNameRange | ||||
3738 | if (aAbs.aEnd.Col() > nCol2) | ||||
3739 | aAbs.aEnd.SetCol(nCol2); | ||||
3740 | if ( aPos.Row() == nStartRow ) | ||||
3741 | { | ||||
3742 | SCCOL nMyCol = aPos.Col(); | ||||
3743 | if (nStartCol <= nMyCol && nMyCol <= aAbs.aEnd.Col()) | ||||
3744 | { //Formula in the same column and within the range | ||||
3745 | if ( nMyCol == nStartCol ) | ||||
3746 | { // take the rest under the name | ||||
3747 | nStartCol++; | ||||
3748 | if ( nStartCol > mrDoc.MaxCol() ) | ||||
3749 | nStartCol = mrDoc.MaxCol(); | ||||
3750 | aAbs.aStart.SetCol(nStartCol); | ||||
3751 | } | ||||
3752 | else | ||||
3753 | { // below the name to the formula cell | ||||
3754 | aAbs.aEnd.SetCol(nMyCol - 1); | ||||
3755 | } | ||||
3756 | } | ||||
3757 | } | ||||
3758 | } | ||||
3759 | aRefData.SetRange(mrDoc.GetSheetLimits(), aAbs, aPos); | ||||
3760 | PushTempToken( new ScDoubleRefToken( mrDoc.GetSheetLimits(), aRefData ) ); | ||||
3761 | } | ||||
3762 | |||||
3763 | // --- internals ------------------------------------------------------------ | ||||
3764 | |||||
3765 | void ScInterpreter::ScTTT() | ||||
3766 | { // temporary test, testing functions etc. | ||||
3767 | sal_uInt8 nParamCount = GetByte(); | ||||
3768 | // do something, count down nParamCount with Pops! | ||||
3769 | |||||
3770 | // clean up Stack | ||||
3771 | while ( nParamCount-- > 0) | ||||
3772 | Pop(); | ||||
3773 | PushError(FormulaError::NoValue); | ||||
3774 | } | ||||
3775 | |||||
3776 | ScInterpreter::ScInterpreter( ScFormulaCell* pCell, ScDocument& rDoc, ScInterpreterContext& rContext, | ||||
3777 | const ScAddress& rPos, ScTokenArray& r, bool bForGroupThreading ) | ||||
3778 | : aCode(r) | ||||
3779 | , aPos(rPos) | ||||
3780 | , pArr(&r) | ||||
3781 | , mrContext(rContext) | ||||
3782 | , mrDoc(rDoc) | ||||
3783 | , mpLinkManager(rDoc.GetLinkManager()) | ||||
3784 | , mrStrPool(rDoc.GetSharedStringPool()) | ||||
3785 | , pJumpMatrix(nullptr) | ||||
3786 | , pMyFormulaCell(pCell) | ||||
3787 | , pFormatter(rContext.GetFormatTable()) | ||||
3788 | , pCur(nullptr) | ||||
3789 | , nGlobalError(FormulaError::NONE) | ||||
3790 | , sp(0) | ||||
3791 | , maxsp(0) | ||||
3792 | , nFuncFmtIndex(0) | ||||
3793 | , nCurFmtIndex(0) | ||||
3794 | , nRetFmtIndex(0) | ||||
3795 | , nFuncFmtType(SvNumFormatType::ALL) | ||||
3796 | , nCurFmtType(SvNumFormatType::ALL) | ||||
3797 | , nRetFmtType(SvNumFormatType::ALL) | ||||
3798 | , mnStringNoValueError(FormulaError::NoValue) | ||||
3799 | , mnSubTotalFlags(SubtotalFlags::NONE) | ||||
3800 | , cPar(0) | ||||
3801 | , bCalcAsShown(rDoc.GetDocOptions().IsCalcAsShown()) | ||||
3802 | , meVolatileType(r.IsRecalcModeAlways() ? VOLATILE : NOT_VOLATILE) | ||||
3803 | { | ||||
3804 | MergeCalcConfig(); | ||||
3805 | |||||
3806 | if(pMyFormulaCell) | ||||
3807 | { | ||||
3808 | ScMatrixMode cMatFlag = pMyFormulaCell->GetMatrixFlag(); | ||||
3809 | bMatrixFormula = ( cMatFlag == ScMatrixMode::Formula ); | ||||
3810 | } | ||||
3811 | else | ||||
3812 | bMatrixFormula = false; | ||||
3813 | |||||
3814 | // Lets not use the global stack while formula-group-threading. | ||||
3815 | // as it complicates its life-cycle mgmt since for threading formula-groups, | ||||
3816 | // ScInterpreter is preallocated (in main thread) for each worker thread. | ||||
3817 | if (!bGlobalStackInUse && !bForGroupThreading) | ||||
3818 | { | ||||
3819 | bGlobalStackInUse = true; | ||||
3820 | if (!pGlobalStack) | ||||
3821 | pGlobalStack.reset(new ScTokenStack); | ||||
3822 | pStackObj = pGlobalStack.get(); | ||||
3823 | } | ||||
3824 | else | ||||
3825 | { | ||||
3826 | pStackObj = new ScTokenStack; | ||||
3827 | } | ||||
3828 | pStack = pStackObj->pPointer; | ||||
3829 | } | ||||
3830 | |||||
3831 | ScInterpreter::~ScInterpreter() | ||||
3832 | { | ||||
3833 | if ( pStackObj == pGlobalStack.get() ) | ||||
3834 | bGlobalStackInUse = false; | ||||
3835 | else | ||||
3836 | delete pStackObj; | ||||
3837 | } | ||||
3838 | |||||
3839 | void ScInterpreter::Init( ScFormulaCell* pCell, const ScAddress& rPos, ScTokenArray& rTokArray ) | ||||
3840 | { | ||||
3841 | aCode.ReInit(rTokArray); | ||||
3842 | aPos = rPos; | ||||
3843 | pArr = &rTokArray; | ||||
3844 | xResult = nullptr; | ||||
3845 | pJumpMatrix = nullptr; | ||||
3846 | pTokenMatrixMap.reset(); | ||||
3847 | pMyFormulaCell = pCell; | ||||
3848 | pCur = nullptr; | ||||
3849 | nGlobalError = FormulaError::NONE; | ||||
3850 | sp = 0; | ||||
3851 | maxsp = 0; | ||||
3852 | nFuncFmtIndex = 0; | ||||
3853 | nCurFmtIndex = 0; | ||||
3854 | nRetFmtIndex = 0; | ||||
3855 | nFuncFmtType = SvNumFormatType::ALL; | ||||
3856 | nCurFmtType = SvNumFormatType::ALL; | ||||
3857 | nRetFmtType = SvNumFormatType::ALL; | ||||
3858 | mnStringNoValueError = FormulaError::NoValue; | ||||
3859 | mnSubTotalFlags = SubtotalFlags::NONE; | ||||
3860 | cPar = 0; | ||||
3861 | } | ||||
3862 | |||||
3863 | ScCalcConfig& ScInterpreter::GetOrCreateGlobalConfig() | ||||
3864 | { | ||||
3865 | if (!mpGlobalConfig) | ||||
3866 | mpGlobalConfig = new ScCalcConfig(); | ||||
3867 | return *mpGlobalConfig; | ||||
3868 | } | ||||
3869 | |||||
3870 | void ScInterpreter::SetGlobalConfig(const ScCalcConfig& rConfig) | ||||
3871 | { | ||||
3872 | GetOrCreateGlobalConfig() = rConfig; | ||||
3873 | } | ||||
3874 | |||||
3875 | const ScCalcConfig& ScInterpreter::GetGlobalConfig() | ||||
3876 | { | ||||
3877 | return GetOrCreateGlobalConfig(); | ||||
3878 | } | ||||
3879 | |||||
3880 | void ScInterpreter::MergeCalcConfig() | ||||
3881 | { | ||||
3882 | maCalcConfig = GetOrCreateGlobalConfig(); | ||||
3883 | maCalcConfig.MergeDocumentSpecific( mrDoc.GetCalcConfig()); | ||||
3884 | } | ||||
3885 | |||||
3886 | void ScInterpreter::GlobalExit() | ||||
3887 | { | ||||
3888 | OSL_ENSURE(!bGlobalStackInUse, "who is still using the TokenStack?")do { if (true && (!(!bGlobalStackInUse))) { sal_detail_logFormat ((SAL_DETAIL_LOG_LEVEL_WARN), ("legacy.osl"), ("/home/maarten/src/libreoffice/core/sc/source/core/tool/interpr4.cxx" ":" "3888" ": "), "%s", "who is still using the TokenStack?" ); } } while (false); | ||||
3889 | pGlobalStack.reset(); | ||||
3890 | } | ||||
3891 | |||||
3892 | namespace { | ||||
3893 | |||||
3894 | double applyImplicitIntersection(const sc::RangeMatrix& rMat, const ScAddress& rPos) | ||||
3895 | { | ||||
3896 | if (rMat.mnRow1 <= rPos.Row() && rPos.Row() <= rMat.mnRow2 && rMat.mnCol1 == rMat.mnCol2) | ||||
3897 | { | ||||
3898 | SCROW nOffset = rPos.Row() - rMat.mnRow1; | ||||
3899 | return rMat.mpMat->GetDouble(0, nOffset); | ||||
3900 | } | ||||
3901 | |||||
3902 | if (rMat.mnCol1 <= rPos.Col() && rPos.Col() <= rMat.mnCol2 && rMat.mnRow1 == rMat.mnRow2) | ||||
3903 | { | ||||
3904 | SCROW nOffset = rPos.Col() - rMat.mnCol1; | ||||
3905 | return rMat.mpMat->GetDouble(nOffset, 0); | ||||
3906 | } | ||||
3907 | |||||
3908 | double fVal; | ||||
3909 | rtl::math::setNan(&fVal); | ||||
3910 | return fVal; | ||||
3911 | } | ||||
3912 | |||||
3913 | // Test for Functions that evaluate an error code and directly set nGlobalError to 0 | ||||
3914 | bool IsErrFunc(OpCode oc) | ||||
3915 | { | ||||
3916 | switch (oc) | ||||
3917 | { | ||||
3918 | case ocCount : | ||||
3919 | case ocCount2 : | ||||
3920 | case ocErrorType : | ||||
3921 | case ocIsEmpty : | ||||
3922 | case ocIsErr : | ||||
3923 | case ocIsError : | ||||
3924 | case ocIsFormula : | ||||
3925 | case ocIsLogical : | ||||
3926 | case ocIsNA : | ||||
3927 | case ocIsNonString : | ||||
3928 | case ocIsRef : | ||||
3929 | case ocIsString : | ||||
3930 | case ocIsValue : | ||||
3931 | case ocN : | ||||
3932 | case ocType : | ||||
3933 | case ocIfError : | ||||
3934 | case ocIfNA : | ||||
3935 | case ocErrorType_ODF : | ||||
3936 | case ocAggregate: // may ignore errors depending on option | ||||
3937 | case ocIfs_MS: | ||||
3938 | case ocSwitch_MS: | ||||
3939 | return true; | ||||
3940 | default: | ||||
3941 | return false; | ||||
3942 | } | ||||
3943 | } | ||||
3944 | |||||
3945 | } //namespace | ||||
3946 | |||||
3947 | StackVar ScInterpreter::Interpret() | ||||
3948 | { | ||||
3949 | SvNumFormatType nRetTypeExpr = SvNumFormatType::UNDEFINED; | ||||
3950 | sal_uInt32 nRetIndexExpr = 0; | ||||
3951 | sal_uInt16 nErrorFunction = 0; | ||||
3952 | sal_uInt16 nErrorFunctionCount = 0; | ||||
3953 | std::vector<sal_uInt16> aErrorFunctionStack; | ||||
3954 | sal_uInt16 nStackBase; | ||||
3955 | |||||
3956 | nGlobalError = FormulaError::NONE; | ||||
3957 | nStackBase = sp = maxsp = 0; | ||||
3958 | nRetFmtType = SvNumFormatType::UNDEFINED; | ||||
3959 | nFuncFmtType = SvNumFormatType::UNDEFINED; | ||||
3960 | nFuncFmtIndex = nCurFmtIndex = nRetFmtIndex = 0; | ||||
3961 | xResult = nullptr; | ||||
3962 | pJumpMatrix = nullptr; | ||||
3963 | mnSubTotalFlags = SubtotalFlags::NONE; | ||||
3964 | ScTokenMatrixMap::const_iterator aTokenMatrixMapIter; | ||||
3965 | |||||
3966 | // Once upon a time we used to have FP exceptions on, and there was a | ||||
3967 | // Windows printer driver that kept switching off exceptions, so we had to | ||||
3968 | // switch them back on again every time. Who knows if there isn't a driver | ||||
3969 | // that keeps switching exceptions on, now that we run with exceptions off, | ||||
3970 | // so reassure exceptions are really off. | ||||
3971 | SAL_MATH_FPEXCEPTIONS_OFF(); | ||||
3972 | |||||
3973 | OpCode eOp = ocNone; | ||||
3974 | aCode.Reset(); | ||||
3975 | for (;;) | ||||
| |||||
3976 | { | ||||
3977 | pCur = aCode.Next(); | ||||
3978 | if (!pCur || (nGlobalError != FormulaError::NONE && nErrorFunction > nErrorFunctionCount) ) | ||||
3979 | break; | ||||
3980 | eOp = pCur->GetOpCode(); | ||||
3981 | cPar = pCur->GetByte(); | ||||
3982 | if ( eOp == ocPush ) | ||||
3983 | { | ||||
3984 | // RPN code push without error | ||||
3985 | PushWithoutError( *pCur ); | ||||
3986 | nCurFmtType = SvNumFormatType::UNDEFINED; | ||||
3987 | } | ||||
3988 | else if (pTokenMatrixMap && | ||||
3989 | !FormulaCompiler::IsOpCodeJumpCommand( eOp ) && | ||||
3990 | ((aTokenMatrixMapIter = pTokenMatrixMap->find( pCur)) != | ||||
3991 | pTokenMatrixMap->end()) && | ||||
3992 | (*aTokenMatrixMapIter).second->GetType() != svJumpMatrix) | ||||
3993 | { | ||||
3994 | // Path already calculated, reuse result. | ||||
3995 | nStackBase = sp - pCur->GetParamCount(); | ||||
3996 | if ( nStackBase > sp ) | ||||
3997 | nStackBase = sp; // underflow?!? | ||||
3998 | sp = nStackBase; | ||||
3999 | PushTokenRef( (*aTokenMatrixMapIter).second); | ||||
4000 | } | ||||
4001 | else | ||||
4002 | { | ||||
4003 | // previous expression determines the current number format | ||||
4004 | nCurFmtType = nRetTypeExpr; | ||||
4005 | nCurFmtIndex = nRetIndexExpr; | ||||
4006 | // default function's format, others are set if needed | ||||
4007 | nFuncFmtType = SvNumFormatType::NUMBER; | ||||
4008 | nFuncFmtIndex = 0; | ||||
4009 | |||||
4010 | if (FormulaCompiler::IsOpCodeJumpCommand( eOp )) | ||||
4011 | nStackBase = sp; // don't mess around with the jumps | ||||
4012 | else | ||||
4013 | { | ||||
4014 | // Convert parameters to matrix if in array/matrix formula and | ||||
4015 | // parameters of function indicate doing so. Create JumpMatrix | ||||
4016 | // if necessary. | ||||
4017 | if ( MatrixParameterConversion() ) | ||||
4018 | { | ||||
4019 | eOp = ocNone; // JumpMatrix created | ||||
4020 | nStackBase = sp; | ||||
4021 | } | ||||
4022 | else if (sp >= pCur->GetParamCount()) | ||||
4023 | nStackBase = sp - pCur->GetParamCount(); | ||||
4024 | else | ||||
4025 | nStackBase = sp; // underflow?!? | ||||
4026 | } | ||||
4027 | |||||
4028 | switch( eOp ) | ||||
4029 | { | ||||
4030 | case ocSep: | ||||
4031 | case ocClose: // pushed by the compiler | ||||
4032 | case ocMissing : ScMissing(); break; | ||||
4033 | case ocMacro : ScMacro(); break; | ||||
4034 | case ocDBArea : ScDBArea(); break; | ||||
4035 | case ocColRowNameAuto : ScColRowNameAuto(); break; | ||||
4036 | case ocIf : ScIfJump(); break; | ||||
4037 | case ocIfError : ScIfError( false ); break; | ||||
4038 | case ocIfNA : ScIfError( true ); break; | ||||
4039 | case ocChoose : ScChooseJump(); break; | ||||
4040 | case ocAdd : ScAdd(); break; | ||||
4041 | case ocSub : ScSub(); break; | ||||
4042 | case ocMul : ScMul(); break; | ||||
4043 | case ocDiv : ScDiv(); break; | ||||
4044 | case ocAmpersand : ScAmpersand(); break; | ||||
4045 | case ocPow : ScPow(); break; | ||||
4046 | case ocEqual : ScEqual(); break; | ||||
4047 | case ocNotEqual : ScNotEqual(); break; | ||||
4048 | case ocLess : ScLess(); break; | ||||
4049 | case ocGreater : ScGreater(); break; | ||||
4050 | case ocLessEqual : ScLessEqual(); break; | ||||
4051 | case ocGreaterEqual : ScGreaterEqual(); break; | ||||
4052 | case ocAnd : ScAnd(); break; | ||||
4053 | case ocOr : ScOr(); break; | ||||
4054 | case ocXor : ScXor(); break; | ||||
4055 | case ocIntersect : ScIntersect(); break; | ||||
4056 | case ocRange : ScRangeFunc(); break; | ||||
4057 | case ocUnion : ScUnionFunc(); break; | ||||
4058 | case ocNot : ScNot(); break; | ||||
4059 | case ocNegSub : | ||||
4060 | case ocNeg : ScNeg(); break; | ||||
4061 | case ocPercentSign : ScPercentSign(); break; | ||||
4062 | case ocPi : ScPi(); break; | ||||
4063 | case ocRandom : ScRandom(); break; | ||||
4064 | case ocRandomNV : ScRandom(); break; | ||||
4065 | case ocRandbetweenNV : ScRandbetween(); break; | ||||
4066 | case ocTrue : ScTrue(); break; | ||||
4067 | case ocFalse : ScFalse(); break; | ||||
4068 | case ocGetActDate : ScGetActDate(); break; | ||||
4069 | case ocGetActTime : ScGetActTime(); break; | ||||
4070 | case ocNotAvail : PushError( FormulaError::NotAvailable); break; | ||||
4071 | case ocDeg : ScDeg(); break; | ||||
4072 | case ocRad : ScRad(); break; | ||||
4073 | case ocSin : ScSin(); break; | ||||
4074 | case ocCos : ScCos(); break; | ||||
4075 | case ocTan : ScTan(); break; | ||||
4076 | case ocCot : ScCot(); break; | ||||
4077 | case ocArcSin : ScArcSin(); break; | ||||
4078 | case ocArcCos : ScArcCos(); break; | ||||
4079 | case ocArcTan : ScArcTan(); break; | ||||
4080 | case ocArcCot : ScArcCot(); break; | ||||
4081 | case ocSinHyp : ScSinHyp(); break; | ||||
4082 | case ocCosHyp : ScCosHyp(); break; | ||||
4083 | case ocTanHyp : ScTanHyp(); break; | ||||
4084 | case ocCotHyp : ScCotHyp(); break; | ||||
4085 | case ocArcSinHyp : ScArcSinHyp(); break; | ||||
4086 | case ocArcCosHyp : ScArcCosHyp(); break; | ||||
4087 | case ocArcTanHyp : ScArcTanHyp(); break; | ||||
4088 | case ocArcCotHyp : ScArcCotHyp(); break; | ||||
4089 | case ocCosecant : ScCosecant(); break; | ||||
4090 | case ocSecant : ScSecant(); break; | ||||
4091 | case ocCosecantHyp : ScCosecantHyp(); break; | ||||
4092 | case ocSecantHyp : ScSecantHyp(); break; | ||||
4093 | case ocExp : ScExp(); break; | ||||
4094 | case ocLn : ScLn(); break; | ||||
4095 | case ocLog10 : ScLog10(); break; | ||||
4096 | case ocSqrt : ScSqrt(); break; | ||||
4097 | case ocFact : ScFact(); break; | ||||
4098 | case ocGetYear : ScGetYear(); break; | ||||
4099 | case ocGetMonth : ScGetMonth(); break; | ||||
4100 | case ocGetDay : ScGetDay(); break; | ||||
4101 | case ocGetDayOfWeek : ScGetDayOfWeek(); break; | ||||
4102 | case ocWeek : ScGetWeekOfYear(); break; | ||||
4103 | case ocIsoWeeknum : ScGetIsoWeekOfYear(); break; | ||||
4104 | case ocWeeknumOOo : ScWeeknumOOo(); break; | ||||
4105 | case ocEasterSunday : ScEasterSunday(); break; | ||||
4106 | case ocNetWorkdays : ScNetWorkdays( false); break; | ||||
4107 | case ocNetWorkdays_MS : ScNetWorkdays( true ); break; | ||||
4108 | case ocWorkday_MS : ScWorkday_MS(); break; | ||||
4109 | case ocGetHour : ScGetHour(); break; | ||||
4110 | case ocGetMin : ScGetMin(); break; | ||||
4111 | case ocGetSec : ScGetSec(); break; | ||||
4112 | case ocPlusMinus : ScPlusMinus(); break; | ||||
4113 | case ocAbs : ScAbs(); break; | ||||
4114 | case ocInt : ScInt(); break; | ||||
4115 | case ocEven : ScEven(); break; | ||||
4116 | case ocOdd : ScOdd(); break; | ||||
4117 | case ocPhi : ScPhi(); break; | ||||
4118 | case ocGauss : ScGauss(); break; | ||||
4119 | case ocStdNormDist : ScStdNormDist(); break; | ||||
4120 | case ocStdNormDist_MS : ScStdNormDist_MS(); break; | ||||
4121 | case ocFisher : ScFisher(); break; | ||||
4122 | case ocFisherInv : ScFisherInv(); break; | ||||
4123 | case ocIsEmpty : ScIsEmpty(); break; | ||||
4124 | case ocIsString : ScIsString(); break; | ||||
4125 | case ocIsNonString : ScIsNonString(); break; | ||||
4126 | case ocIsLogical : ScIsLogical(); break; | ||||
4127 | case ocType : ScType(); break; | ||||
4128 | case ocCell : ScCell(); break; | ||||
4129 | case ocIsRef : ScIsRef(); break; | ||||
4130 | case ocIsValue : ScIsValue(); break; | ||||
4131 | case ocIsFormula : ScIsFormula(); break; | ||||
4132 | case ocFormula : ScFormula(); break; | ||||
4133 | case ocIsNA : ScIsNV(); break; | ||||
4134 | case ocIsErr : ScIsErr(); break; | ||||
4135 | case ocIsError : ScIsError(); break; | ||||
4136 | case ocIsEven : ScIsEven(); break; | ||||
4137 | case ocIsOdd : ScIsOdd(); break; | ||||
4138 | case ocN : ScN(); break; | ||||
4139 | case ocGetDateValue : ScGetDateValue(); break; | ||||
4140 | case ocGetTimeValue : ScGetTimeValue(); break; | ||||
4141 | case ocCode : ScCode(); break; | ||||
4142 | case ocTrim : ScTrim(); break; | ||||
4143 | case ocUpper : ScUpper(); break; | ||||
4144 | case ocProper : ScProper(); break; | ||||
4145 | case ocLower : ScLower(); break; | ||||
4146 | case ocLen : ScLen(); break; | ||||
4147 | case ocT : ScT(); break; | ||||
4148 | case ocClean : ScClean(); break; | ||||
4149 | case ocValue : ScValue(); break; | ||||
4150 | case ocNumberValue : ScNumberValue(); break; | ||||
4151 | case ocChar : ScChar(); break; | ||||
4152 | case ocArcTan2 : ScArcTan2(); break; | ||||
4153 | case ocMod : ScMod(); break; | ||||
4154 | case ocPower : ScPower(); break; | ||||
4155 | case ocRound : ScRound(); break; | ||||
4156 | case ocRoundSig : ScRoundSignificant(); break; | ||||
4157 | case ocRoundUp : ScRoundUp(); break; | ||||
4158 | case ocTrunc : | ||||
4159 | case ocRoundDown : ScRoundDown(); break; | ||||
4160 | case ocCeil : ScCeil( true ); break; | ||||
4161 | case ocCeil_MS : ScCeil_MS(); break; | ||||
4162 | case ocCeil_Precise : | ||||
4163 | case ocCeil_ISO : ScCeil_Precise(); break; | ||||
4164 | case ocCeil_Math : ScCeil( false ); break; | ||||
4165 | case ocFloor : ScFloor( true ); break; | ||||
4166 | case ocFloor_MS : ScFloor_MS(); break; | ||||
4167 | case ocFloor_Precise : ScFloor_Precise(); break; | ||||
4168 | case ocFloor_Math : ScFloor( false ); break; | ||||
4169 | case ocSumProduct : ScSumProduct(); break; | ||||
4170 | case ocSumSQ : ScSumSQ(); break; | ||||
4171 | case ocSumX2MY2 : ScSumX2MY2(); break; | ||||
4172 | case ocSumX2DY2 : ScSumX2DY2(); break; | ||||
4173 | case ocSumXMY2 : ScSumXMY2(); break; | ||||
4174 | case ocRawSubtract : ScRawSubtract(); break; | ||||
4175 | case ocLog : ScLog(); break; | ||||
4176 | case ocGCD : ScGCD(); break; | ||||
4177 | case ocLCM : ScLCM(); break; | ||||
4178 | case ocGetDate : ScGetDate(); break; | ||||
4179 | case ocGetTime : ScGetTime(); break; | ||||
4180 | case ocGetDiffDate : ScGetDiffDate(); break; | ||||
4181 | case ocGetDiffDate360 : ScGetDiffDate360(); break; | ||||
4182 | case ocGetDateDif : ScGetDateDif(); break; | ||||
4183 | case ocMin : ScMin() ; break; | ||||
4184 | case ocMinA : ScMin( true ); break; | ||||
4185 | case ocMax : ScMax(); break; | ||||
4186 | case ocMaxA : ScMax( true ); break; | ||||
4187 | case ocSum : ScSum(); break; | ||||
4188 | case ocProduct : ScProduct(); break; | ||||
4189 | case ocNPV : ScNPV(); break; | ||||
4190 | case ocIRR : ScIRR(); break; | ||||
4191 | case ocMIRR : ScMIRR(); break; | ||||
4192 | case ocISPMT : ScISPMT(); break; | ||||
4193 | case ocAverage : ScAverage() ; break; | ||||
4194 | case ocAverageA : ScAverage( true ); break; | ||||
4195 | case ocCount : ScCount(); break; | ||||
4196 | case ocCount2 : ScCount2(); break; | ||||
4197 | case ocVar : | ||||
4198 | case ocVarS : ScVar(); break; | ||||
4199 | case ocVarA : ScVar( true ); break; | ||||
4200 | case ocVarP : | ||||
4201 | case ocVarP_MS : ScVarP(); break; | ||||
4202 | case ocVarPA : ScVarP( true ); break; | ||||
4203 | case ocStDev : | ||||
4204 | case ocStDevS : ScStDev(); break; | ||||
4205 | case ocStDevA : ScStDev( true ); break; | ||||
4206 | case ocStDevP : | ||||
4207 | case ocStDevP_MS : ScStDevP(); break; | ||||
4208 | case ocStDevPA : ScStDevP( true ); break; | ||||
4209 | case ocPV : ScPV(); break; | ||||
4210 | case ocSYD : ScSYD(); break; | ||||
4211 | case ocDDB : ScDDB(); break; | ||||
4212 | case ocDB : ScDB(); break; | ||||
4213 | case ocVBD : ScVDB(); break; | ||||
4214 | case ocPDuration : ScPDuration(); break; | ||||
4215 | case ocSLN : ScSLN(); break; | ||||
4216 | case ocPMT : ScPMT(); break; | ||||
4217 | case ocColumns : ScColumns(); break; | ||||
4218 | case ocRows : ScRows(); break; | ||||
4219 | case ocSheets : ScSheets(); break; | ||||
4220 | case ocColumn : ScColumn(); break; | ||||
4221 | case ocRow : ScRow(); break; | ||||
4222 | case ocSheet : ScSheet(); break; | ||||
4223 | case ocRRI : ScRRI(); break; | ||||
4224 | case ocFV : ScFV(); break; | ||||
4225 | case ocNper : ScNper(); break; | ||||
4226 | case ocRate : ScRate(); break; | ||||
4227 | case ocFilterXML : ScFilterXML(); break; | ||||
4228 | case ocWebservice : ScWebservice(); break; | ||||
4229 | case ocEncodeURL : ScEncodeURL(); break; | ||||
4230 | case ocColor : ScColor(); break; | ||||
4231 | case ocErf_MS : ScErf(); break; | ||||
4232 | case ocErfc_MS : ScErfc(); break; | ||||
4233 | case ocIpmt : ScIpmt(); break; | ||||
4234 | case ocPpmt : ScPpmt(); break; | ||||
4235 | case ocCumIpmt : ScCumIpmt(); break; | ||||
4236 | case ocCumPrinc : ScCumPrinc(); break; | ||||
4237 | case ocEffect : ScEffect(); break; | ||||
4238 | case ocNominal : ScNominal(); break; | ||||
4239 | case ocSubTotal : ScSubTotal(); break; | ||||
4240 | case ocAggregate : ScAggregate(); break; | ||||
4241 | case ocDBSum : ScDBSum(); break; | ||||
4242 | case ocDBCount : ScDBCount(); break; | ||||
4243 | case ocDBCount2 : ScDBCount2(); break; | ||||
4244 | case ocDBAverage : ScDBAverage(); break; | ||||
4245 | case ocDBGet : ScDBGet(); break; | ||||
4246 | case ocDBMax : ScDBMax(); break; | ||||
4247 | case ocDBMin : ScDBMin(); break; | ||||
4248 | case ocDBProduct : ScDBProduct(); break; | ||||
4249 | case ocDBStdDev : ScDBStdDev(); break; | ||||
4250 | case ocDBStdDevP : ScDBStdDevP(); break; | ||||
4251 | case ocDBVar : ScDBVar(); break; | ||||
4252 | case ocDBVarP : ScDBVarP(); break; | ||||
4253 | case ocIndirect : ScIndirect(); break; | ||||
4254 | case ocAddress : ScAddressFunc(); break; | ||||
4255 | case ocMatch : ScMatch(); break; | ||||
4256 | case ocCountEmptyCells : ScCountEmptyCells(); break; | ||||
4257 | case ocCountIf : ScCountIf(); break; | ||||
4258 | case ocSumIf : ScSumIf(); break; | ||||
4259 | case ocAverageIf : ScAverageIf(); break; | ||||
4260 | case ocSumIfs : ScSumIfs(); break; | ||||
4261 | case ocAverageIfs : ScAverageIfs(); break; | ||||
4262 | case ocCountIfs : ScCountIfs(); break; | ||||
4263 | case ocLookup : ScLookup(); break; | ||||
4264 | case ocVLookup : ScVLookup(); break; | ||||
4265 | case ocHLookup : ScHLookup(); break; | ||||
4266 | case ocIndex : ScIndex(); break; | ||||
4267 | case ocMultiArea : ScMultiArea(); break; | ||||
4268 | case ocOffset : ScOffset(); break; | ||||
4269 | case ocAreas : ScAreas(); break; | ||||
4270 | case ocCurrency : ScCurrency(); break; | ||||
4271 | case ocReplace : ScReplace(); break; | ||||
4272 | case ocFixed : ScFixed(); break; | ||||
4273 | case ocFind : ScFind(); break; | ||||
4274 | case ocExact : ScExact(); break; | ||||
4275 | case ocLeft : ScLeft(); break; | ||||
4276 | case ocRight : ScRight(); break; | ||||
4277 | case ocSearch : ScSearch(); break; | ||||
4278 | case ocMid : ScMid(); break; | ||||
4279 | case ocText : ScText(); break; | ||||
4280 | case ocSubstitute : ScSubstitute(); break; | ||||
4281 | case ocRegex : ScRegex(); break; | ||||
4282 | case ocRept : ScRept(); break; | ||||
4283 | case ocConcat : ScConcat(); break; | ||||
4284 | case ocConcat_MS : ScConcat_MS(); break; | ||||
4285 | case ocTextJoin_MS : ScTextJoin_MS(); break; | ||||
4286 | case ocIfs_MS : ScIfs_MS(); break; | ||||
4287 | case ocSwitch_MS : ScSwitch_MS(); break; | ||||
4288 | case ocMinIfs_MS : ScMinIfs_MS(); break; | ||||
4289 | case ocMaxIfs_MS : ScMaxIfs_MS(); break; | ||||
4290 | case ocMatValue : ScMatValue(); break; | ||||
4291 | case ocMatrixUnit : ScEMat(); break; | ||||
4292 | case ocMatDet : ScMatDet(); break; | ||||
4293 | case ocMatInv : ScMatInv(); break; | ||||
4294 | case ocMatMult : ScMatMult(); break; | ||||
4295 | case ocMatTrans : ScMatTrans(); break; | ||||
4296 | case ocMatRef : ScMatRef(); break; | ||||
4297 | case ocB : ScB(); break; | ||||
4298 | case ocNormDist : ScNormDist( 3 ); break; | ||||
4299 | case ocNormDist_MS : ScNormDist( 4 ); break; | ||||
4300 | case ocExpDist : | ||||
4301 | case ocExpDist_MS : ScExpDist(); break; | ||||
4302 | case ocBinomDist : | ||||
4303 | case ocBinomDist_MS : ScBinomDist(); break; | ||||
4304 | case ocPoissonDist : ScPoissonDist( true ); break; | ||||
4305 | case ocPoissonDist_MS : ScPoissonDist( false ); break; | ||||
4306 | case ocCombin : ScCombin(); break; | ||||
4307 | case ocCombinA : ScCombinA(); break; | ||||
4308 | case ocPermut : ScPermut(); break; | ||||
4309 | case ocPermutationA : ScPermutationA(); break; | ||||
4310 | case ocHypGeomDist : ScHypGeomDist( 4 ); break; | ||||
4311 | case ocHypGeomDist_MS : ScHypGeomDist( 5 ); break; | ||||
4312 | case ocLogNormDist : ScLogNormDist( 1 ); break; | ||||
4313 | case ocLogNormDist_MS : ScLogNormDist( 4 ); break; | ||||
4314 | case ocTDist : ScTDist(); break; | ||||
4315 | case ocTDist_MS : ScTDist_MS(); break; | ||||
4316 | case ocTDist_RT : ScTDist_T( 1 ); break; | ||||
4317 | case ocTDist_2T : ScTDist_T( 2 ); break; | ||||
4318 | case ocFDist : | ||||
4319 | case ocFDist_RT : ScFDist(); break; | ||||
4320 | case ocFDist_LT : ScFDist_LT(); break; | ||||
4321 | case ocChiDist : ScChiDist( true ); break; | ||||
4322 | case ocChiDist_MS : ScChiDist( false ); break; | ||||
4323 | case ocChiSqDist : ScChiSqDist(); break; | ||||
4324 | case ocChiSqDist_MS : ScChiSqDist_MS(); break; | ||||
4325 | case ocStandard : ScStandard(); break; | ||||
4326 | case ocAveDev : ScAveDev(); break; | ||||
4327 | case ocDevSq : ScDevSq(); break; | ||||
4328 | case ocKurt : ScKurt(); break; | ||||
4329 | case ocSkew : ScSkew(); break; | ||||
4330 | case ocSkewp : ScSkewp(); break; | ||||
4331 | case ocModalValue : ScModalValue(); break; | ||||
4332 | case ocModalValue_MS : ScModalValue_MS( true ); break; | ||||
4333 | case ocModalValue_Multi : ScModalValue_MS( false ); break; | ||||
4334 | case ocMedian : ScMedian(); break; | ||||
4335 | case ocGeoMean : ScGeoMean(); break; | ||||
4336 | case ocHarMean : ScHarMean(); break; | ||||
4337 | case ocWeibull : | ||||
4338 | case ocWeibull_MS : ScWeibull(); break; | ||||
4339 | case ocBinomInv : | ||||
4340 | case ocCritBinom : ScCritBinom(); break; | ||||
4341 | case ocNegBinomVert : ScNegBinomDist(); break; | ||||
4342 | case ocNegBinomDist_MS : ScNegBinomDist_MS(); break; | ||||
4343 | case ocNoName : ScNoName(); break; | ||||
4344 | case ocBad : ScBadName(); break; | ||||
4345 | case ocZTest : | ||||
4346 | case ocZTest_MS : ScZTest(); break; | ||||
4347 | case ocTTest : | ||||
4348 | case ocTTest_MS : ScTTest(); break; | ||||
4349 | case ocFTest : | ||||
4350 | case ocFTest_MS : ScFTest(); break; | ||||
4351 | case ocRank : | ||||
4352 | case ocRank_Eq : ScRank( false ); break; | ||||
4353 | case ocRank_Avg : ScRank( true ); break; | ||||
4354 | case ocPercentile : | ||||
4355 | case ocPercentile_Inc : ScPercentile( true ); break; | ||||
4356 | case ocPercentile_Exc : ScPercentile( false ); break; | ||||
4357 | case ocPercentrank : | ||||
4358 | case ocPercentrank_Inc : ScPercentrank( true ); break; | ||||
4359 | case ocPercentrank_Exc : ScPercentrank( false ); break; | ||||
4360 | case ocLarge : ScLarge(); break; | ||||
4361 | case ocSmall : ScSmall(); break; | ||||
4362 | case ocFrequency : ScFrequency(); break; | ||||
4363 | case ocQuartile : | ||||
4364 | case ocQuartile_Inc : ScQuartile( true ); break; | ||||
4365 | case ocQuartile_Exc : ScQuartile( false ); break; | ||||
4366 | case ocNormInv : | ||||
4367 | case ocNormInv_MS : ScNormInv(); break; | ||||
4368 | case ocSNormInv : | ||||
4369 | case ocSNormInv_MS : ScSNormInv(); break; | ||||
4370 | case ocConfidence : | ||||
4371 | case ocConfidence_N : ScConfidence(); break; | ||||
4372 | case ocConfidence_T : ScConfidenceT(); break; | ||||
4373 | case ocTrimMean : ScTrimMean(); break; | ||||
4374 | case ocProb : ScProbability(); break; | ||||
4375 | case ocCorrel : ScCorrel(); break; | ||||
4376 | case ocCovar : | ||||
4377 | case ocCovarianceP : ScCovarianceP(); break; | ||||
4378 | case ocCovarianceS : ScCovarianceS(); break; | ||||
4379 | case ocPearson : ScPearson(); break; | ||||
4380 | case ocRSQ : ScRSQ(); break; | ||||
4381 | case ocSTEYX : ScSTEYX(); break; | ||||
4382 | case ocSlope : ScSlope(); break; | ||||
4383 | case ocIntercept : ScIntercept(); break; | ||||
4384 | case ocTrend : ScTrend(); break; | ||||
4385 | case ocGrowth : ScGrowth(); break; | ||||
4386 | case ocLinest : ScLinest(); break; | ||||
4387 | case ocLogest : ScLogest(); break; | ||||
4388 | case ocForecast_LIN : | ||||
4389 | case ocForecast : ScForecast(); break; | ||||
4390 | case ocForecast_ETS_ADD : ScForecast_Ets( etsAdd ); break; | ||||
4391 | case ocForecast_ETS_SEA : ScForecast_Ets( etsSeason ); break; | ||||
4392 | case ocForecast_ETS_MUL : ScForecast_Ets( etsMult ); break; | ||||
4393 | case ocForecast_ETS_PIA : ScForecast_Ets( etsPIAdd ); break; | ||||
4394 | case ocForecast_ETS_PIM : ScForecast_Ets( etsPIMult ); break; | ||||
4395 | case ocForecast_ETS_STA : ScForecast_Ets( etsStatAdd ); break; | ||||
4396 | case ocForecast_ETS_STM : ScForecast_Ets( etsStatMult ); break; | ||||
4397 | case ocGammaLn : | ||||
4398 | case ocGammaLn_MS : ScLogGamma(); break; | ||||
4399 | case ocGamma : ScGamma(); break; | ||||
4400 | case ocGammaDist : ScGammaDist( true ); break; | ||||
4401 | case ocGammaDist_MS : ScGammaDist( false ); break; | ||||
4402 | case ocGammaInv : | ||||
4403 | case ocGammaInv_MS : ScGammaInv(); break; | ||||
4404 | case ocChiTest : | ||||
4405 | case ocChiTest_MS : ScChiTest(); break; | ||||
4406 | case ocChiInv : | ||||
4407 | case ocChiInv_MS : ScChiInv(); break; | ||||
4408 | case ocChiSqInv : | ||||
4409 | case ocChiSqInv_MS : ScChiSqInv(); break; | ||||
4410 | case ocTInv : | ||||
4411 | case ocTInv_2T : ScTInv( 2 ); break; | ||||
4412 | case ocTInv_MS : ScTInv( 4 ); break; | ||||
4413 | case ocFInv : | ||||
4414 | case ocFInv_RT : ScFInv(); break; | ||||
4415 | case ocFInv_LT : ScFInv_LT(); break; | ||||
4416 | case ocLogInv : | ||||
4417 | case ocLogInv_MS : ScLogNormInv(); break; | ||||
4418 | case ocBetaDist : ScBetaDist(); break; | ||||
4419 | case ocBetaDist_MS : ScBetaDist_MS(); break; | ||||
4420 | case ocBetaInv : | ||||
4421 | case ocBetaInv_MS : ScBetaInv(); break; | ||||
4422 | case ocFourier : ScFourier(); break; | ||||
4423 | case ocExternal : ScExternal(); break; | ||||
4424 | case ocTableOp : ScTableOp(); break; | ||||
4425 | case ocStop : break; | ||||
4426 | case ocErrorType : ScErrorType(); break; | ||||
4427 | case ocErrorType_ODF : ScErrorType_ODF(); break; | ||||
4428 | case ocCurrent : ScCurrent(); break; | ||||
4429 | case ocStyle : ScStyle(); break; | ||||
4430 | case ocDde : ScDde(); break; | ||||
4431 | case ocBase : ScBase(); break; | ||||
4432 | case ocDecimal : ScDecimal(); break; | ||||
4433 | case ocConvertOOo : ScConvertOOo(); break; | ||||
4434 | case ocEuroConvert : ScEuroConvert(); break; | ||||
4435 | case ocRoman : ScRoman(); break; | ||||
4436 | case ocArabic : ScArabic(); break; | ||||
4437 | case ocInfo : ScInfo(); break; | ||||
4438 | case ocHyperLink : ScHyperLink(); break; | ||||
4439 | case ocBahtText : ScBahtText(); break; | ||||
4440 | case ocGetPivotData : ScGetPivotData(); break; | ||||
4441 | case ocJis : ScJis(); break; | ||||
4442 | case ocAsc : ScAsc(); break; | ||||
4443 | case ocLenB : ScLenB(); break; | ||||
4444 | case ocRightB : ScRightB(); break; | ||||
4445 | case ocLeftB : ScLeftB(); break; | ||||
4446 | case ocMidB : ScMidB(); break; | ||||
4447 | case ocReplaceB : ScReplaceB(); break; | ||||
4448 | case ocFindB : ScFindB(); break; | ||||
4449 | case ocSearchB : ScSearchB(); break; | ||||
4450 | case ocUnicode : ScUnicode(); break; | ||||
4451 | case ocUnichar : ScUnichar(); break; | ||||
4452 | case ocBitAnd : ScBitAnd(); break; | ||||
4453 | case ocBitOr : ScBitOr(); break; | ||||
4454 | case ocBitXor : ScBitXor(); break; | ||||
4455 | case ocBitRshift : ScBitRshift(); break; | ||||
4456 | case ocBitLshift : ScBitLshift(); break; | ||||
4457 | case ocTTT : ScTTT(); break; | ||||
4458 | case ocDebugVar : ScDebugVar(); break; | ||||
4459 | case ocNone : nFuncFmtType = SvNumFormatType::UNDEFINED; break; | ||||
4460 | default : PushError( FormulaError::UnknownOpCode); break; | ||||
4461 | } | ||||
4462 | |||||
4463 | // If the function pushed a subroutine as result, continue with | ||||
4464 | // execution of the subroutine. | ||||
4465 | if (sp > nStackBase && pStack[sp-1]->GetOpCode() == ocCall) | ||||
4466 | { | ||||
4467 | Pop(); continue; | ||||
4468 | } | ||||
4469 | |||||
4470 | if (FormulaCompiler::IsOpCodeVolatile(eOp)) | ||||
4471 | meVolatileType = VOLATILE; | ||||
4472 | |||||
4473 | // Remember result matrix in case it could be reused. | ||||
4474 | if (pTokenMatrixMap && sp && GetStackType() == svMatrix) | ||||
4475 | pTokenMatrixMap->emplace(pCur, pStack[sp-1]); | ||||
4476 | |||||
4477 | // outer function determines format of an expression | ||||
4478 | if ( nFuncFmtType != SvNumFormatType::UNDEFINED ) | ||||
4479 | { | ||||
4480 | nRetTypeExpr = nFuncFmtType; | ||||
4481 | // Inherit the format index for currency, date or time formats. | ||||
4482 | switch (nFuncFmtType) | ||||
4483 | { | ||||
4484 | case SvNumFormatType::CURRENCY: | ||||
4485 | case SvNumFormatType::DATE: | ||||
4486 | case SvNumFormatType::TIME: | ||||
4487 | case SvNumFormatType::DATETIME: | ||||
4488 | case SvNumFormatType::DURATION: | ||||
4489 | nRetIndexExpr = nFuncFmtIndex; | ||||
4490 | break; | ||||
4491 | default: | ||||
4492 | nRetIndexExpr = 0; | ||||
4493 | } | ||||
4494 | } | ||||
4495 | } | ||||
4496 | |||||
4497 | // Need a clean stack environment for the JumpMatrix to work. | ||||
4498 | if (nGlobalError != FormulaError::NONE && eOp != ocPush && sp > nStackBase + 1) | ||||
4499 | { | ||||
4500 | // Not all functions pop all parameters in case an error is | ||||
4501 | // generated. Clean up stack. Assumes that every function pushes a | ||||
4502 | // result, may be arbitrary in case of error. | ||||
4503 | FormulaConstTokenRef xLocalResult = pStack[ sp - 1 ]; | ||||
4504 | while (sp > nStackBase) | ||||
4505 | Pop(); | ||||
4506 | PushTokenRef( xLocalResult ); | ||||
4507 | } | ||||
4508 | |||||
4509 | bool bGotResult; | ||||
4510 | do | ||||
4511 | { | ||||
4512 | bGotResult = false; | ||||
4513 | sal_uInt8 nLevel = 0; | ||||
4514 | if ( GetStackType( ++nLevel ) == svJumpMatrix ) | ||||
4515 | ; // nothing | ||||
4516 | else if ( GetStackType( ++nLevel ) == svJumpMatrix ) | ||||
4517 | ; // nothing | ||||
4518 | else | ||||
4519 | nLevel = 0; | ||||
4520 | if ( nLevel == 1 || (nLevel == 2 && aCode.IsEndOfPath()) ) | ||||
4521 | { | ||||
4522 | if (nLevel == 1) | ||||
4523 | aErrorFunctionStack.push_back( nErrorFunction); | ||||
4524 | bGotResult = JumpMatrix( nLevel ); | ||||
4525 | if (aErrorFunctionStack.empty()) | ||||
4526 | assert(!"ScInterpreter::Interpret - aErrorFunctionStack empty in JumpMatrix context")(static_cast <bool> (!"ScInterpreter::Interpret - aErrorFunctionStack empty in JumpMatrix context" ) ? void (0) : __assert_fail ("!\"ScInterpreter::Interpret - aErrorFunctionStack empty in JumpMatrix context\"" , "/home/maarten/src/libreoffice/core/sc/source/core/tool/interpr4.cxx" , 4526, __extension__ __PRETTY_FUNCTION__)); | ||||
4527 | else | ||||
4528 | { | ||||
4529 | nErrorFunction = aErrorFunctionStack.back(); | ||||
4530 | if (bGotResult) | ||||
4531 | aErrorFunctionStack.pop_back(); | ||||
4532 | } | ||||
4533 | } | ||||
4534 | else | ||||
4535 | pJumpMatrix = nullptr; | ||||
4536 | } while ( bGotResult ); | ||||
4537 | |||||
4538 | if( IsErrFunc(eOp) ) | ||||
4539 | ++nErrorFunction; | ||||
4540 | |||||
4541 | if ( nGlobalError != FormulaError::NONE ) | ||||
4542 | { | ||||
4543 | if ( !nErrorFunctionCount ) | ||||
4544 | { // count of errorcode functions in formula | ||||
4545 | FormulaTokenArrayPlainIterator aIter(*pArr); | ||||
4546 | for ( FormulaToken* t = aIter.FirstRPN(); t; t = aIter.NextRPN() ) | ||||
4547 | { | ||||
4548 | if ( IsErrFunc(t->GetOpCode()) ) | ||||
4549 | ++nErrorFunctionCount; | ||||
4550 | } | ||||
4551 | } | ||||
4552 | if ( nErrorFunction >= nErrorFunctionCount ) | ||||
4553 | ++nErrorFunction; // that's it, error => terminate | ||||
4554 | } | ||||
4555 | } | ||||
4556 | |||||
4557 | // End: obtain result | ||||
4558 | |||||
4559 | bool bForcedResultType; | ||||
4560 | switch (eOp) | ||||
4561 | { | ||||
4562 | case ocGetDateValue: | ||||
4563 | case ocGetTimeValue: | ||||
4564 | // Force final result of DATEVALUE and TIMEVALUE to number type, | ||||
4565 | // which so far was date or time for calculations. | ||||
4566 | nRetTypeExpr = nFuncFmtType = SvNumFormatType::NUMBER; | ||||
4567 | nRetIndexExpr = nFuncFmtIndex = 0; | ||||
4568 | bForcedResultType = true; | ||||
4569 | break; | ||||
4570 | default: | ||||
4571 | bForcedResultType = false; | ||||
4572 | } | ||||
4573 | |||||
4574 | if (sp == 1) | ||||
4575 | { | ||||
4576 | pCur = pStack[ sp-1 ]; | ||||
4577 | if( pCur->GetOpCode() == ocPush ) | ||||
4578 | { | ||||
4579 | // An svRefList can be resolved if it a) contains just one | ||||
4580 | // reference, or b) in array context contains an array of single | ||||
4581 | // cell references. | ||||
4582 | if (pCur->GetType() == svRefList) | ||||
4583 | { | ||||
4584 | PopRefListPushMatrixOrRef(); | ||||
4585 | pCur = pStack[ sp-1 ]; | ||||
4586 | } | ||||
4587 | switch( pCur->GetType() ) | ||||
4588 | { | ||||
4589 | case svEmptyCell: | ||||
4590 | ; // nothing | ||||
4591 | break; | ||||
4592 | case svError: | ||||
4593 | nGlobalError = pCur->GetError(); | ||||
4594 | break; | ||||
4595 | case svDouble : | ||||
4596 | { | ||||
4597 | // If typed, pop token to obtain type information and | ||||
4598 | // push a plain untyped double so the result token to | ||||
4599 | // be transferred to the formula cell result does not | ||||
4600 | // unnecessarily duplicate the information. | ||||
4601 | if (pCur->GetDoubleType() != 0) | ||||
4602 | { | ||||
4603 | double fVal = PopDouble(); | ||||
4604 | if (!bForcedResultType) | ||||
4605 | { | ||||
4606 | if (nCurFmtType != nFuncFmtType) | ||||
4607 | nRetIndexExpr = 0; // carry format index only for matching type | ||||
4608 | nRetTypeExpr = nFuncFmtType = nCurFmtType; | ||||
4609 | } | ||||
4610 | if (nRetTypeExpr == SvNumFormatType::DURATION) | ||||
4611 | { | ||||
4612 | // Round the duration in case a wall clock time | ||||
4613 | // display format is used instead of a duration | ||||
4614 | // format. To micro seconds which then catches | ||||
4615 | // the converted hh:mm:ss.9999997 cases. | ||||
4616 | if (fVal != 0.0) | ||||
4617 | { | ||||
4618 | fVal *= 86400.0; | ||||
4619 | fVal = rtl::math::round( fVal, 6); | ||||
4620 | fVal /= 86400.0; | ||||
4621 | } | ||||
4622 | } | ||||
4623 | PushTempToken( CreateFormulaDoubleToken( fVal)); | ||||
4624 | } | ||||
4625 | if ( nFuncFmtType == SvNumFormatType::UNDEFINED ) | ||||
4626 | { | ||||
4627 | nRetTypeExpr = SvNumFormatType::NUMBER; | ||||
4628 | nRetIndexExpr = 0; | ||||
4629 | } | ||||
4630 | } | ||||
4631 | break; | ||||
4632 | case svString : | ||||
4633 | nRetTypeExpr = SvNumFormatType::TEXT; | ||||
4634 | nRetIndexExpr = 0; | ||||
4635 | break; | ||||
4636 | case svSingleRef : | ||||
4637 | { | ||||
4638 | ScAddress aAdr; | ||||
4639 | PopSingleRef( aAdr ); | ||||
4640 | if( nGlobalError == FormulaError::NONE) | ||||
4641 | PushCellResultToken( false, aAdr, &nRetTypeExpr, &nRetIndexExpr, true); | ||||
4642 | } | ||||
4643 | break; | ||||
4644 | case svRefList : | ||||
4645 | PopError(); // maybe #REF! takes precedence over #VALUE! | ||||
4646 | PushError( FormulaError::NoValue); | ||||
4647 | break; | ||||
4648 | case svDoubleRef : | ||||
4649 | { | ||||
4650 | if ( bMatrixFormula ) | ||||
4651 | { // create matrix for {=A1:A5} | ||||
4652 | PopDoubleRefPushMatrix(); | ||||
4653 | ScMatrixRef xMat = PopMatrix(); | ||||
4654 | QueryMatrixType(xMat, nRetTypeExpr, nRetIndexExpr); | ||||
4655 | } | ||||
4656 | else | ||||
4657 | { | ||||
4658 | ScRange aRange; | ||||
4659 | PopDoubleRef( aRange ); | ||||
4660 | ScAddress aAdr; | ||||
4661 | if ( nGlobalError == FormulaError::NONE && DoubleRefToPosSingleRef( aRange, aAdr)) | ||||
4662 | PushCellResultToken( false, aAdr, &nRetTypeExpr, &nRetIndexExpr, true); | ||||
4663 | } | ||||
4664 | } | ||||
4665 | break; | ||||
4666 | case svExternalDoubleRef: | ||||
4667 | { | ||||
4668 | ScMatrixRef xMat; | ||||
4669 | PopExternalDoubleRef(xMat); | ||||
4670 | QueryMatrixType(xMat, nRetTypeExpr, nRetIndexExpr); | ||||
4671 | } | ||||
4672 | break; | ||||
4673 | case svMatrix : | ||||
4674 | { | ||||
4675 | sc::RangeMatrix aMat = PopRangeMatrix(); | ||||
4676 | if (aMat.isRangeValid()) | ||||
4677 | { | ||||
4678 | // This matrix represents a range reference. Apply implicit intersection. | ||||
4679 | double fVal = applyImplicitIntersection(aMat, aPos); | ||||
4680 | if (std::isnan(fVal)) | ||||
4681 | PushNoValue(); | ||||
4682 | else | ||||
4683 | PushInt(fVal); | ||||
4684 | } | ||||
4685 | else | ||||
4686 | // This is a normal matrix. | ||||
4687 | QueryMatrixType(aMat.mpMat, nRetTypeExpr, nRetIndexExpr); | ||||
4688 | } | ||||
4689 | break; | ||||
4690 | case svExternalSingleRef: | ||||
4691 | { | ||||
4692 | FormulaTokenRef xToken; | ||||
4693 | ScExternalRefCache::CellFormat aFmt; | ||||
4694 | PopExternalSingleRef(xToken, &aFmt); | ||||
4695 | if (nGlobalError != FormulaError::NONE) | ||||
4696 | break; | ||||
4697 | |||||
4698 | PushTokenRef(xToken); | ||||
4699 | |||||
4700 | if (aFmt.mbIsSet) | ||||
4701 | { | ||||
4702 | nFuncFmtType = aFmt.mnType; | ||||
4703 | nFuncFmtIndex = aFmt.mnIndex; | ||||
4704 | } | ||||
4705 | } | ||||
4706 | break; | ||||
4707 | default : | ||||
4708 | SetError( FormulaError::UnknownStackVariable); | ||||
4709 | } | ||||
4710 | } | ||||
4711 | else | ||||
4712 | SetError( FormulaError::UnknownStackVariable); | ||||
4713 | } | ||||
4714 | else if (sp > 1) | ||||
4715 | SetError( FormulaError::OperatorExpected); | ||||
4716 | else | ||||
4717 | SetError( FormulaError::NoCode); | ||||
4718 | |||||
4719 | if (bForcedResultType || nRetTypeExpr != SvNumFormatType::UNDEFINED) | ||||
4720 | { | ||||
4721 | nRetFmtType = nRetTypeExpr; | ||||
4722 | nRetFmtIndex = nRetIndexExpr; | ||||
4723 | } | ||||
4724 | else if( nFuncFmtType != SvNumFormatType::UNDEFINED ) | ||||
4725 | { | ||||
4726 | nRetFmtType = nFuncFmtType; | ||||
4727 | nRetFmtIndex = nFuncFmtIndex; | ||||
4728 | } | ||||
4729 | else | ||||
4730 | nRetFmtType = SvNumFormatType::NUMBER; | ||||
4731 | |||||
4732 | if (nGlobalError != FormulaError::NONE && GetStackType() != svError ) | ||||
4733 | PushError( nGlobalError); | ||||
4734 | |||||
4735 | // THE final result. | ||||
4736 | xResult = PopToken(); | ||||
4737 | if (!xResult) | ||||
4738 | xResult = new FormulaErrorToken( FormulaError::UnknownStackVariable); | ||||
4739 | |||||
4740 | // release tokens in expression stack | ||||
4741 | const FormulaToken** p = pStack; | ||||
4742 | while( maxsp-- ) | ||||
4743 | (*p++)->DecRef(); | ||||
4744 | |||||
4745 | StackVar eType = xResult->GetType(); | ||||
4746 | if (eType == svMatrix) | ||||
4747 | // Results are immutable in case they would be reused as input for new | ||||
4748 | // interpreters. | ||||
4749 | xResult->GetMatrix()->SetImmutable(); | ||||
4750 | return eType; | ||||
4751 | } | ||||
4752 | |||||
4753 | void ScInterpreter::AssertFormulaMatrix() | ||||
4754 | { | ||||
4755 | bMatrixFormula = true; | ||||
4756 | } | ||||
4757 | |||||
4758 | svl::SharedString ScInterpreter::GetStringResult() const | ||||
4759 | { | ||||
4760 | return xResult->GetString(); | ||||
4761 | } | ||||
4762 | |||||
4763 | /* vim:set shiftwidth=4 softtabstop=4 expandtab: */ |