Line data Source code
1 : /* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
2 : /*
3 : * This file is part of the LibreOffice project.
4 : *
5 : * This Source Code Form is subject to the terms of the Mozilla Public
6 : * License, v. 2.0. If a copy of the MPL was not distributed with this
7 : * file, You can obtain one at http://mozilla.org/MPL/2.0/.
8 : *
9 : * This file incorporates work covered by the following license notice:
10 : *
11 : * Licensed to the Apache Software Foundation (ASF) under one or more
12 : * contributor license agreements. See the NOTICE file distributed
13 : * with this work for additional information regarding copyright
14 : * ownership. The ASF licenses this file to you under the Apache
15 : * License, Version 2.0 (the "License"); you may not use this file
16 : * except in compliance with the License. You may obtain a copy of
17 : * the License at http://www.apache.org/licenses/LICENSE-2.0 .
18 : */
19 :
20 : #include "doubleref.hxx"
21 : #include "formulacell.hxx"
22 : #include "global.hxx"
23 : #include "document.hxx"
24 : #include "queryparam.hxx"
25 : #include "queryentry.hxx"
26 : #include "globstr.hrc"
27 : #include "scmatrix.hxx"
28 :
29 : #include <svl/sharedstringpool.hxx>
30 : #include <osl/diagnose.h>
31 :
32 : #include <memory>
33 : #include <vector>
34 :
35 : using ::std::unique_ptr;
36 : using ::std::vector;
37 :
38 : namespace {
39 :
40 72 : void lcl_uppercase(OUString& rStr)
41 : {
42 72 : rStr = ScGlobal::pCharClass->uppercase(rStr.trim());
43 72 : }
44 :
45 8 : bool lcl_createStarQuery(
46 : svl::SharedStringPool& rPool, ScQueryParamBase* pParam, const ScDBRangeBase* pDBRef, const ScDBRangeBase* pQueryRef)
47 : {
48 : // A valid StarQuery must be at least 4 columns wide. To be precise it
49 : // should be exactly 4 columns ...
50 : // Additionally, if this wasn't checked, a formula pointing to a valid 1-3
51 : // column Excel style query range immediately left to itself would result
52 : // in a circular reference when the field name or operator or value (first
53 : // to third query range column) is obtained (#i58354#). Furthermore, if the
54 : // range wasn't sufficiently specified data changes wouldn't flag formula
55 : // cells for recalculation.
56 :
57 8 : if (pQueryRef->getColSize() < 4)
58 8 : return false;
59 :
60 : bool bValid;
61 0 : OUString aCellStr;
62 0 : SCSIZE nIndex = 0;
63 0 : SCROW nRow = 0;
64 0 : SCROW nRows = pDBRef->getRowSize();
65 0 : SCSIZE nNewEntries = static_cast<SCSIZE>(nRows);
66 0 : pParam->Resize(nNewEntries);
67 :
68 0 : do
69 : {
70 0 : ScQueryEntry& rEntry = pParam->GetEntry(nIndex);
71 :
72 0 : bValid = false;
73 :
74 0 : if (nIndex > 0)
75 : {
76 : // For all entries after the first one, check the and/or connector in the first column.
77 0 : aCellStr = pQueryRef->getString(0, nRow);
78 0 : lcl_uppercase(aCellStr);
79 0 : if ( aCellStr.equals(ScGlobal::GetRscString(STR_TABLE_UND)) )
80 : {
81 0 : rEntry.eConnect = SC_AND;
82 0 : bValid = true;
83 : }
84 0 : else if ( aCellStr.equals(ScGlobal::GetRscString(STR_TABLE_ODER)) )
85 : {
86 0 : rEntry.eConnect = SC_OR;
87 0 : bValid = true;
88 : }
89 : }
90 :
91 0 : if ((nIndex < 1) || bValid)
92 : {
93 : // field name in the 2nd column.
94 0 : aCellStr = pQueryRef->getString(1, nRow);
95 0 : SCCOL nField = pDBRef->findFieldColumn(aCellStr); // TODO: must be case insensitive comparison.
96 0 : if (ValidCol(nField))
97 : {
98 0 : rEntry.nField = nField;
99 0 : bValid = true;
100 : }
101 : else
102 0 : bValid = false;
103 : }
104 :
105 0 : if (bValid)
106 : {
107 : // equality, non-equality operator in the 3rd column.
108 0 : aCellStr = pQueryRef->getString(2, nRow);
109 0 : lcl_uppercase(aCellStr);
110 0 : const sal_Unicode* p = aCellStr.getStr();
111 0 : if (p[0] == '<')
112 : {
113 0 : if (p[1] == '>')
114 0 : rEntry.eOp = SC_NOT_EQUAL;
115 0 : else if (p[1] == '=')
116 0 : rEntry.eOp = SC_LESS_EQUAL;
117 : else
118 0 : rEntry.eOp = SC_LESS;
119 : }
120 0 : else if (p[0] == '>')
121 : {
122 0 : if (p[1] == '=')
123 0 : rEntry.eOp = SC_GREATER_EQUAL;
124 : else
125 0 : rEntry.eOp = SC_GREATER;
126 : }
127 0 : else if (p[0] == '=')
128 0 : rEntry.eOp = SC_EQUAL;
129 :
130 : }
131 :
132 0 : if (bValid)
133 : {
134 : // Finally, the right-hand-side value in the 4th column.
135 0 : rEntry.GetQueryItem().maString =
136 0 : rPool.intern(pQueryRef->getString(3, nRow));
137 0 : rEntry.bDoQuery = true;
138 : }
139 0 : nIndex++;
140 0 : nRow++;
141 : }
142 0 : while (bValid && (nRow < nRows) /* && (nIndex < MAXQUERY) */ );
143 0 : return bValid;
144 : }
145 :
146 8 : bool lcl_createExcelQuery(
147 : svl::SharedStringPool& rPool, ScQueryParamBase* pParam, const ScDBRangeBase* pDBRef, const ScDBRangeBase* pQueryRef)
148 : {
149 8 : bool bValid = true;
150 8 : SCCOL nCols = pQueryRef->getColSize();
151 8 : SCROW nRows = pQueryRef->getRowSize();
152 8 : vector<SCCOL> aFields(nCols);
153 8 : SCCOL nCol = 0;
154 40 : while (bValid && (nCol < nCols))
155 : {
156 24 : OUString aQueryStr = pQueryRef->getString(nCol, 0);
157 24 : SCCOL nField = pDBRef->findFieldColumn(aQueryStr);
158 24 : if (ValidCol(nField))
159 24 : aFields[nCol] = nField;
160 : else
161 0 : bValid = false;
162 24 : ++nCol;
163 24 : }
164 :
165 8 : if (bValid)
166 : {
167 : // Count the number of visible cells (excluding the header row). Each
168 : // visible cell corresponds with a single query.
169 8 : SCSIZE nVisible = pQueryRef->getVisibleDataCellCount();
170 8 : if ( nVisible > SCSIZE_MAX / sizeof(void*) )
171 : {
172 : OSL_FAIL("too many filter criteria");
173 0 : nVisible = 0;
174 : }
175 :
176 8 : SCSIZE nNewEntries = nVisible;
177 8 : pParam->Resize( nNewEntries );
178 :
179 8 : SCSIZE nIndex = 0;
180 8 : SCROW nRow = 1;
181 8 : OUString aCellStr;
182 24 : while (nRow < nRows)
183 : {
184 8 : nCol = 0;
185 40 : while (nCol < nCols)
186 : {
187 24 : aCellStr = pQueryRef->getString(nCol, nRow);
188 24 : aCellStr = ScGlobal::pCharClass->uppercase( aCellStr );
189 24 : if (!aCellStr.isEmpty())
190 : {
191 12 : if (nIndex < nNewEntries)
192 : {
193 12 : pParam->GetEntry(nIndex).nField = aFields[nCol];
194 12 : pParam->FillInExcelSyntax(rPool, aCellStr, nIndex, NULL);
195 12 : nIndex++;
196 12 : if (nIndex < nNewEntries)
197 12 : pParam->GetEntry(nIndex).eConnect = SC_AND;
198 : }
199 : else
200 0 : bValid = false;
201 : }
202 24 : nCol++;
203 : }
204 8 : nRow++;
205 8 : if (nIndex < nNewEntries)
206 8 : pParam->GetEntry(nIndex).eConnect = SC_OR;
207 8 : }
208 : }
209 8 : return bValid;
210 : }
211 :
212 8 : bool lcl_fillQueryEntries(
213 : svl::SharedStringPool& rPool, ScQueryParamBase* pParam, const ScDBRangeBase* pDBRef, const ScDBRangeBase* pQueryRef)
214 : {
215 8 : SCSIZE nCount = pParam->GetEntryCount();
216 72 : for (SCSIZE i = 0; i < nCount; ++i)
217 64 : pParam->GetEntry(i).Clear();
218 :
219 : // Standard QueryTabelle
220 8 : bool bValid = lcl_createStarQuery(rPool, pParam, pDBRef, pQueryRef);
221 : // Excel QueryTabelle
222 8 : if (!bValid)
223 8 : bValid = lcl_createExcelQuery(rPool, pParam, pDBRef, pQueryRef);
224 :
225 8 : nCount = pParam->GetEntryCount();
226 8 : if (bValid)
227 : {
228 : // bQueryByString muss gesetzt sein
229 72 : for (SCSIZE i = 0; i < nCount; ++i)
230 64 : pParam->GetEntry(i).GetQueryItem().meType = ScQueryEntry::ByString;
231 : }
232 : else
233 : {
234 : // nix
235 0 : for (SCSIZE i = 0; i < nCount; ++i)
236 0 : pParam->GetEntry(i).Clear();
237 : }
238 8 : return bValid;
239 : }
240 :
241 : }
242 :
243 16 : ScDBRangeBase::ScDBRangeBase(ScDocument* pDoc, RefType eType) :
244 16 : mpDoc(pDoc), meType(eType)
245 : {
246 16 : }
247 :
248 16 : ScDBRangeBase::~ScDBRangeBase()
249 : {
250 16 : }
251 :
252 8 : bool ScDBRangeBase::fillQueryEntries(ScQueryParamBase* pParam, const ScDBRangeBase* pDBRef) const
253 : {
254 8 : if (!pDBRef)
255 0 : return false;
256 :
257 8 : return lcl_fillQueryEntries(getDoc()->GetSharedStringPool(), pParam, pDBRef, this);
258 : }
259 :
260 8 : void ScDBRangeBase::fillQueryOptions(ScQueryParamBase* pParam)
261 : {
262 8 : pParam->bHasHeader = true;
263 8 : pParam->bByRow = true;
264 8 : pParam->bInplace = true;
265 8 : pParam->bCaseSens = false;
266 8 : pParam->bRegExp = false;
267 8 : pParam->bDuplicate = true;
268 8 : }
269 :
270 16 : ScDBInternalRange::ScDBInternalRange(ScDocument* pDoc, const ScRange& rRange) :
271 16 : ScDBRangeBase(pDoc, INTERNAL), maRange(rRange)
272 : {
273 16 : }
274 :
275 32 : ScDBInternalRange::~ScDBInternalRange()
276 : {
277 32 : }
278 :
279 24 : SCCOL ScDBInternalRange::getColSize() const
280 : {
281 24 : return maRange.aEnd.Col() - maRange.aStart.Col() + 1;
282 : }
283 :
284 16 : SCROW ScDBInternalRange::getRowSize() const
285 : {
286 16 : return maRange.aEnd.Row() - maRange.aStart.Row() + 1;
287 : }
288 :
289 8 : SCSIZE ScDBInternalRange::getVisibleDataCellCount() const
290 : {
291 8 : SCCOL nCols = getColSize();
292 8 : SCROW nRows = getRowSize();
293 8 : if (nRows <= 1)
294 0 : return 0;
295 :
296 8 : return (nRows-1)*nCols;
297 : }
298 :
299 48 : OUString ScDBInternalRange::getString(SCCOL nCol, SCROW nRow) const
300 : {
301 48 : OUString aStr;
302 48 : const ScAddress& s = maRange.aStart;
303 : // #i109200# this is used in formula calculation, use GetInputString, not GetString
304 : // (consistent with ScDBInternalRange::getCellString)
305 : // GetStringForFormula is not used here, to allow querying for date values.
306 48 : getDoc()->GetInputString(s.Col() + nCol, s.Row() + nRow, maRange.aStart.Tab(), aStr);
307 48 : return aStr;
308 : }
309 :
310 8 : SCCOL ScDBInternalRange::getFirstFieldColumn() const
311 : {
312 8 : return getRange().aStart.Col();
313 : }
314 :
315 4 : SCCOL ScDBInternalRange::findFieldColumn(SCCOL nIndex) const
316 : {
317 4 : const ScRange& rRange = getRange();
318 4 : const ScAddress& s = rRange.aStart;
319 :
320 4 : SCCOL nDBCol1 = s.Col();
321 :
322 : // Don't handle out-of-bound condition here. We'll do that later.
323 4 : return nIndex + nDBCol1 - 1;
324 : }
325 :
326 24 : SCCOL ScDBInternalRange::findFieldColumn(const OUString& rStr, sal_uInt16* pErr) const
327 : {
328 24 : const ScAddress& s = maRange.aStart;
329 24 : const ScAddress& e = maRange.aEnd;
330 24 : OUString aUpper = rStr;
331 24 : lcl_uppercase(aUpper);
332 :
333 24 : SCCOL nDBCol1 = s.Col();
334 24 : SCROW nDBRow1 = s.Row();
335 24 : SCTAB nDBTab1 = s.Tab();
336 24 : SCCOL nDBCol2 = e.Col();
337 :
338 24 : SCCOL nField = nDBCol1;
339 24 : bool bFound = false;
340 :
341 48 : OUString aCellStr;
342 24 : ScAddress aLook( nDBCol1, nDBRow1, nDBTab1 );
343 96 : while (!bFound && (aLook.Col() <= nDBCol2))
344 : {
345 48 : sal_uInt16 nErr = getDoc()->GetStringForFormula( aLook, aCellStr );
346 48 : if (pErr)
347 0 : *pErr = nErr;
348 48 : lcl_uppercase(aCellStr);
349 48 : bFound = ScGlobal::GetpTransliteration()->isEqual(aCellStr, aUpper);
350 48 : if (!bFound)
351 24 : aLook.IncCol();
352 : }
353 24 : nField = aLook.Col();
354 :
355 48 : return bFound ? nField : -1;
356 : }
357 :
358 8 : ScDBQueryParamBase* ScDBInternalRange::createQueryParam(const ScDBRangeBase* pQueryRef) const
359 : {
360 8 : unique_ptr<ScDBQueryParamInternal> pParam(new ScDBQueryParamInternal);
361 :
362 : // Set the database range first.
363 8 : const ScAddress& s = maRange.aStart;
364 8 : const ScAddress& e = maRange.aEnd;
365 8 : pParam->nCol1 = s.Col();
366 8 : pParam->nRow1 = s.Row();
367 8 : pParam->nCol2 = e.Col();
368 8 : pParam->nRow2 = e.Row();
369 8 : pParam->nTab = s.Tab();
370 :
371 8 : fillQueryOptions(pParam.get());
372 :
373 : // Now construct the query entries from the query range.
374 8 : if (!pQueryRef->fillQueryEntries(pParam.get(), this))
375 0 : return NULL;
376 :
377 8 : return pParam.release();
378 : }
379 :
380 0 : bool ScDBInternalRange::isRangeEqual(const ScRange& rRange) const
381 : {
382 0 : return maRange == rRange;
383 : }
384 :
385 0 : ScDBExternalRange::ScDBExternalRange(ScDocument* pDoc, const ScMatrixRef& pMat) :
386 0 : ScDBRangeBase(pDoc, EXTERNAL), mpMatrix(pMat)
387 : {
388 : SCSIZE nC, nR;
389 0 : mpMatrix->GetDimensions(nC, nR);
390 0 : mnCols = static_cast<SCCOL>(nC);
391 0 : mnRows = static_cast<SCROW>(nR);
392 0 : }
393 :
394 0 : ScDBExternalRange::~ScDBExternalRange()
395 : {
396 0 : }
397 :
398 0 : SCCOL ScDBExternalRange::getColSize() const
399 : {
400 0 : return mnCols;
401 : }
402 :
403 0 : SCROW ScDBExternalRange::getRowSize() const
404 : {
405 0 : return mnRows;
406 : }
407 :
408 0 : SCSIZE ScDBExternalRange::getVisibleDataCellCount() const
409 : {
410 0 : SCCOL nCols = getColSize();
411 0 : SCROW nRows = getRowSize();
412 0 : if (nRows <= 1)
413 0 : return 0;
414 :
415 0 : return (nRows-1)*nCols;
416 : }
417 :
418 0 : OUString ScDBExternalRange::getString(SCCOL nCol, SCROW nRow) const
419 : {
420 0 : if (nCol >= mnCols || nRow >= mnRows)
421 0 : return OUString();
422 :
423 0 : return mpMatrix->GetString(nCol, nRow).getString();
424 : }
425 :
426 0 : SCCOL ScDBExternalRange::getFirstFieldColumn() const
427 : {
428 0 : return 0;
429 : }
430 :
431 0 : SCCOL ScDBExternalRange::findFieldColumn(SCCOL nIndex) const
432 : {
433 0 : return nIndex - 1;
434 : }
435 :
436 0 : SCCOL ScDBExternalRange::findFieldColumn(const OUString& rStr, sal_uInt16* pErr) const
437 : {
438 0 : if (pErr)
439 0 : pErr = 0;
440 :
441 0 : OUString aUpper = rStr;
442 0 : lcl_uppercase(aUpper);
443 0 : for (SCCOL i = 0; i < mnCols; ++i)
444 : {
445 0 : OUString aUpperVal = mpMatrix->GetString(i, 0).getString();
446 0 : lcl_uppercase(aUpperVal);
447 0 : if (aUpper.equals(aUpperVal))
448 0 : return i;
449 0 : }
450 0 : return -1;
451 : }
452 :
453 0 : ScDBQueryParamBase* ScDBExternalRange::createQueryParam(const ScDBRangeBase* pQueryRef) const
454 : {
455 0 : unique_ptr<ScDBQueryParamMatrix> pParam(new ScDBQueryParamMatrix);
456 0 : pParam->mpMatrix = mpMatrix;
457 0 : fillQueryOptions(pParam.get());
458 :
459 : // Now construct the query entries from the query range.
460 0 : if (!pQueryRef->fillQueryEntries(pParam.get(), this))
461 0 : return NULL;
462 :
463 0 : return pParam.release();
464 : }
465 :
466 0 : bool ScDBExternalRange::isRangeEqual(const ScRange& /*rRange*/) const
467 : {
468 0 : return false;
469 156 : }
470 :
471 : /* vim:set shiftwidth=4 softtabstop=4 expandtab: */
|
