1*b1cdbd2cSJim Jagielski /**************************************************************
2*b1cdbd2cSJim Jagielski *
3*b1cdbd2cSJim Jagielski * Licensed to the Apache Software Foundation (ASF) under one
4*b1cdbd2cSJim Jagielski * or more contributor license agreements. See the NOTICE file
5*b1cdbd2cSJim Jagielski * distributed with this work for additional information
6*b1cdbd2cSJim Jagielski * regarding copyright ownership. The ASF licenses this file
7*b1cdbd2cSJim Jagielski * to you under the Apache License, Version 2.0 (the
8*b1cdbd2cSJim Jagielski * "License"); you may not use this file except in compliance
9*b1cdbd2cSJim Jagielski * with the License. You may obtain a copy of the License at
10*b1cdbd2cSJim Jagielski *
11*b1cdbd2cSJim Jagielski * http://www.apache.org/licenses/LICENSE-2.0
12*b1cdbd2cSJim Jagielski *
13*b1cdbd2cSJim Jagielski * Unless required by applicable law or agreed to in writing,
14*b1cdbd2cSJim Jagielski * software distributed under the License is distributed on an
15*b1cdbd2cSJim Jagielski * "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
16*b1cdbd2cSJim Jagielski * KIND, either express or implied. See the License for the
17*b1cdbd2cSJim Jagielski * specific language governing permissions and limitations
18*b1cdbd2cSJim Jagielski * under the License.
19*b1cdbd2cSJim Jagielski *
20*b1cdbd2cSJim Jagielski *************************************************************/
21*b1cdbd2cSJim Jagielski
22*b1cdbd2cSJim Jagielski
23*b1cdbd2cSJim Jagielski
24*b1cdbd2cSJim Jagielski // MARKER(update_precomp.py): autogen include statement, do not remove
25*b1cdbd2cSJim Jagielski #include "precompiled_sc.hxx"
26*b1cdbd2cSJim Jagielski
27*b1cdbd2cSJim Jagielski #include "tokenuno.hxx"
28*b1cdbd2cSJim Jagielski
29*b1cdbd2cSJim Jagielski #include <com/sun/star/sheet/ComplexReference.hpp>
30*b1cdbd2cSJim Jagielski #include <com/sun/star/sheet/ExternalReference.hpp>
31*b1cdbd2cSJim Jagielski #include <com/sun/star/sheet/ReferenceFlags.hpp>
32*b1cdbd2cSJim Jagielski #include <com/sun/star/sheet/AddressConvention.hpp>
33*b1cdbd2cSJim Jagielski #include <com/sun/star/table/CellAddress.hpp>
34*b1cdbd2cSJim Jagielski
35*b1cdbd2cSJim Jagielski #include <svl/itemprop.hxx>
36*b1cdbd2cSJim Jagielski
37*b1cdbd2cSJim Jagielski #include "miscuno.hxx"
38*b1cdbd2cSJim Jagielski #include "convuno.hxx"
39*b1cdbd2cSJim Jagielski #include "unonames.hxx"
40*b1cdbd2cSJim Jagielski #include "unoguard.hxx"
41*b1cdbd2cSJim Jagielski #include "token.hxx"
42*b1cdbd2cSJim Jagielski #include "compiler.hxx"
43*b1cdbd2cSJim Jagielski #include "tokenarray.hxx"
44*b1cdbd2cSJim Jagielski #include "docsh.hxx"
45*b1cdbd2cSJim Jagielski #include "rangeseq.hxx"
46*b1cdbd2cSJim Jagielski #include "externalrefmgr.hxx"
47*b1cdbd2cSJim Jagielski
48*b1cdbd2cSJim Jagielski using namespace ::formula;
49*b1cdbd2cSJim Jagielski using namespace ::com::sun::star;
50*b1cdbd2cSJim Jagielski
51*b1cdbd2cSJim Jagielski // ============================================================================
52*b1cdbd2cSJim Jagielski
lcl_GetFormulaParserMap()53*b1cdbd2cSJim Jagielski const SfxItemPropertyMapEntry* lcl_GetFormulaParserMap()
54*b1cdbd2cSJim Jagielski {
55*b1cdbd2cSJim Jagielski static SfxItemPropertyMapEntry aFormulaParserMap_Impl[] =
56*b1cdbd2cSJim Jagielski {
57*b1cdbd2cSJim Jagielski {MAP_CHAR_LEN(SC_UNO_COMPILEFAP), 0, &getBooleanCppuType(), 0, 0 },
58*b1cdbd2cSJim Jagielski {MAP_CHAR_LEN(SC_UNO_COMPILEENGLISH), 0, &getBooleanCppuType(), 0, 0 },
59*b1cdbd2cSJim Jagielski {MAP_CHAR_LEN(SC_UNO_IGNORELEADING), 0, &getBooleanCppuType(), 0, 0 },
60*b1cdbd2cSJim Jagielski {MAP_CHAR_LEN(SC_UNO_FORMULACONVENTION), 0, &getCppuType(&sheet::AddressConvention::UNSPECIFIED), 0, 0 },
61*b1cdbd2cSJim Jagielski {MAP_CHAR_LEN(SC_UNO_OPCODEMAP), 0, &getCppuType((uno::Sequence< sheet::FormulaOpCodeMapEntry >*)0), 0, 0 },
62*b1cdbd2cSJim Jagielski {0,0,0,0,0,0}
63*b1cdbd2cSJim Jagielski };
64*b1cdbd2cSJim Jagielski return aFormulaParserMap_Impl;
65*b1cdbd2cSJim Jagielski }
66*b1cdbd2cSJim Jagielski
67*b1cdbd2cSJim Jagielski SC_SIMPLE_SERVICE_INFO( ScFormulaParserObj, "ScFormulaParserObj", SC_SERVICENAME_FORMULAPARS )
68*b1cdbd2cSJim Jagielski
69*b1cdbd2cSJim Jagielski // ============================================================================
70*b1cdbd2cSJim Jagielski
ScFormulaParserObj(ScDocShell * pDocSh)71*b1cdbd2cSJim Jagielski ScFormulaParserObj::ScFormulaParserObj(ScDocShell* pDocSh) :
72*b1cdbd2cSJim Jagielski mpDocShell( pDocSh ),
73*b1cdbd2cSJim Jagielski mnConv( sheet::AddressConvention::UNSPECIFIED ),
74*b1cdbd2cSJim Jagielski mbEnglish( false ),
75*b1cdbd2cSJim Jagielski mbIgnoreSpaces( true ),
76*b1cdbd2cSJim Jagielski mbCompileFAP( false )
77*b1cdbd2cSJim Jagielski {
78*b1cdbd2cSJim Jagielski mpDocShell->GetDocument()->AddUnoObject(*this);
79*b1cdbd2cSJim Jagielski }
80*b1cdbd2cSJim Jagielski
~ScFormulaParserObj()81*b1cdbd2cSJim Jagielski ScFormulaParserObj::~ScFormulaParserObj()
82*b1cdbd2cSJim Jagielski {
83*b1cdbd2cSJim Jagielski if (mpDocShell)
84*b1cdbd2cSJim Jagielski mpDocShell->GetDocument()->RemoveUnoObject(*this);
85*b1cdbd2cSJim Jagielski }
86*b1cdbd2cSJim Jagielski
Notify(SfxBroadcaster &,const SfxHint & rHint)87*b1cdbd2cSJim Jagielski void ScFormulaParserObj::Notify( SfxBroadcaster&, const SfxHint& rHint )
88*b1cdbd2cSJim Jagielski {
89*b1cdbd2cSJim Jagielski if ( rHint.ISA( SfxSimpleHint ) && ((const SfxSimpleHint&)rHint).GetId() == SFX_HINT_DYING )
90*b1cdbd2cSJim Jagielski mpDocShell = NULL;
91*b1cdbd2cSJim Jagielski }
92*b1cdbd2cSJim Jagielski
93*b1cdbd2cSJim Jagielski // XFormulaParser
94*b1cdbd2cSJim Jagielski
SetCompilerFlags(ScCompiler & rCompiler) const95*b1cdbd2cSJim Jagielski void ScFormulaParserObj::SetCompilerFlags( ScCompiler& rCompiler ) const
96*b1cdbd2cSJim Jagielski {
97*b1cdbd2cSJim Jagielski static const formula::FormulaGrammar::AddressConvention aConvMap[] = {
98*b1cdbd2cSJim Jagielski formula::FormulaGrammar::CONV_OOO, // <- AddressConvention::OOO
99*b1cdbd2cSJim Jagielski formula::FormulaGrammar::CONV_XL_A1, // <- AddressConvention::XL_A1
100*b1cdbd2cSJim Jagielski formula::FormulaGrammar::CONV_XL_R1C1, // <- AddressConvention::XL_R1C1
101*b1cdbd2cSJim Jagielski formula::FormulaGrammar::CONV_XL_OOX, // <- AddressConvention::XL_OOX
102*b1cdbd2cSJim Jagielski formula::FormulaGrammar::CONV_LOTUS_A1 // <- AddressConvention::LOTUS_A1
103*b1cdbd2cSJim Jagielski };
104*b1cdbd2cSJim Jagielski static const sal_Int16 nConvMapCount = sizeof(aConvMap)/sizeof(aConvMap[0]);
105*b1cdbd2cSJim Jagielski
106*b1cdbd2cSJim Jagielski // If mxOpCodeMap is not empty it overrides mbEnglish, and vice versa. We
107*b1cdbd2cSJim Jagielski // don't need to initialize things twice.
108*b1cdbd2cSJim Jagielski if (mxOpCodeMap.get())
109*b1cdbd2cSJim Jagielski rCompiler.SetFormulaLanguage( mxOpCodeMap );
110*b1cdbd2cSJim Jagielski else
111*b1cdbd2cSJim Jagielski {
112*b1cdbd2cSJim Jagielski sal_Int32 nFormulaLanguage = mbEnglish ?
113*b1cdbd2cSJim Jagielski sheet::FormulaLanguage::ENGLISH :
114*b1cdbd2cSJim Jagielski sheet::FormulaLanguage::NATIVE;
115*b1cdbd2cSJim Jagielski ScCompiler::OpCodeMapPtr xMap = rCompiler.GetOpCodeMap( nFormulaLanguage);
116*b1cdbd2cSJim Jagielski rCompiler.SetFormulaLanguage( xMap);
117*b1cdbd2cSJim Jagielski }
118*b1cdbd2cSJim Jagielski
119*b1cdbd2cSJim Jagielski formula::FormulaGrammar::AddressConvention eConv = formula::FormulaGrammar::CONV_UNSPECIFIED;
120*b1cdbd2cSJim Jagielski if (mnConv >= 0 && mnConv < nConvMapCount)
121*b1cdbd2cSJim Jagielski eConv = aConvMap[mnConv];
122*b1cdbd2cSJim Jagielski
123*b1cdbd2cSJim Jagielski rCompiler.SetRefConvention( eConv );
124*b1cdbd2cSJim Jagielski
125*b1cdbd2cSJim Jagielski rCompiler.SetCompileForFAP(mbCompileFAP);
126*b1cdbd2cSJim Jagielski
127*b1cdbd2cSJim Jagielski rCompiler.SetExternalLinks( maExternalLinks);
128*b1cdbd2cSJim Jagielski }
129*b1cdbd2cSJim Jagielski
parseFormula(const rtl::OUString & aFormula,const table::CellAddress & rReferencePos)130*b1cdbd2cSJim Jagielski uno::Sequence<sheet::FormulaToken> SAL_CALL ScFormulaParserObj::parseFormula(
131*b1cdbd2cSJim Jagielski const rtl::OUString& aFormula, const table::CellAddress& rReferencePos )
132*b1cdbd2cSJim Jagielski throw (uno::RuntimeException)
133*b1cdbd2cSJim Jagielski {
134*b1cdbd2cSJim Jagielski ScUnoGuard aGuard;
135*b1cdbd2cSJim Jagielski uno::Sequence<sheet::FormulaToken> aRet;
136*b1cdbd2cSJim Jagielski
137*b1cdbd2cSJim Jagielski if (mpDocShell)
138*b1cdbd2cSJim Jagielski {
139*b1cdbd2cSJim Jagielski ScDocument* pDoc = mpDocShell->GetDocument();
140*b1cdbd2cSJim Jagielski ScExternalRefManager::ApiGuard aExtRefGuard(pDoc);
141*b1cdbd2cSJim Jagielski
142*b1cdbd2cSJim Jagielski ScAddress aRefPos( ScAddress::UNINITIALIZED );
143*b1cdbd2cSJim Jagielski ScUnoConversion::FillScAddress( aRefPos, rReferencePos );
144*b1cdbd2cSJim Jagielski ScCompiler aCompiler( pDoc, aRefPos);
145*b1cdbd2cSJim Jagielski aCompiler.SetGrammar(pDoc->GetGrammar());
146*b1cdbd2cSJim Jagielski SetCompilerFlags( aCompiler );
147*b1cdbd2cSJim Jagielski
148*b1cdbd2cSJim Jagielski ScTokenArray* pCode = aCompiler.CompileString( aFormula );
149*b1cdbd2cSJim Jagielski (void)ScTokenConversion::ConvertToTokenSequence( *pDoc, aRet, *pCode );
150*b1cdbd2cSJim Jagielski delete pCode;
151*b1cdbd2cSJim Jagielski }
152*b1cdbd2cSJim Jagielski
153*b1cdbd2cSJim Jagielski return aRet;
154*b1cdbd2cSJim Jagielski }
155*b1cdbd2cSJim Jagielski
printFormula(const uno::Sequence<sheet::FormulaToken> & aTokens,const table::CellAddress & rReferencePos)156*b1cdbd2cSJim Jagielski rtl::OUString SAL_CALL ScFormulaParserObj::printFormula(
157*b1cdbd2cSJim Jagielski const uno::Sequence<sheet::FormulaToken>& aTokens, const table::CellAddress& rReferencePos )
158*b1cdbd2cSJim Jagielski throw (uno::RuntimeException)
159*b1cdbd2cSJim Jagielski {
160*b1cdbd2cSJim Jagielski ScUnoGuard aGuard;
161*b1cdbd2cSJim Jagielski rtl::OUString aRet;
162*b1cdbd2cSJim Jagielski
163*b1cdbd2cSJim Jagielski if (mpDocShell)
164*b1cdbd2cSJim Jagielski {
165*b1cdbd2cSJim Jagielski ScDocument* pDoc = mpDocShell->GetDocument();
166*b1cdbd2cSJim Jagielski ScTokenArray aCode;
167*b1cdbd2cSJim Jagielski (void)ScTokenConversion::ConvertToTokenArray( *pDoc, aCode, aTokens );
168*b1cdbd2cSJim Jagielski ScAddress aRefPos( ScAddress::UNINITIALIZED );
169*b1cdbd2cSJim Jagielski ScUnoConversion::FillScAddress( aRefPos, rReferencePos );
170*b1cdbd2cSJim Jagielski ScCompiler aCompiler( pDoc, aRefPos, aCode);
171*b1cdbd2cSJim Jagielski aCompiler.SetGrammar(pDoc->GetGrammar());
172*b1cdbd2cSJim Jagielski SetCompilerFlags( aCompiler );
173*b1cdbd2cSJim Jagielski
174*b1cdbd2cSJim Jagielski rtl::OUStringBuffer aBuffer;
175*b1cdbd2cSJim Jagielski aCompiler.CreateStringFromTokenArray( aBuffer );
176*b1cdbd2cSJim Jagielski aRet = aBuffer.makeStringAndClear();
177*b1cdbd2cSJim Jagielski }
178*b1cdbd2cSJim Jagielski
179*b1cdbd2cSJim Jagielski return aRet;
180*b1cdbd2cSJim Jagielski }
181*b1cdbd2cSJim Jagielski
182*b1cdbd2cSJim Jagielski // XPropertySet
183*b1cdbd2cSJim Jagielski
getPropertySetInfo()184*b1cdbd2cSJim Jagielski uno::Reference<beans::XPropertySetInfo> SAL_CALL ScFormulaParserObj::getPropertySetInfo()
185*b1cdbd2cSJim Jagielski throw(uno::RuntimeException)
186*b1cdbd2cSJim Jagielski {
187*b1cdbd2cSJim Jagielski ScUnoGuard aGuard;
188*b1cdbd2cSJim Jagielski static uno::Reference< beans::XPropertySetInfo > aRef(new SfxItemPropertySetInfo( lcl_GetFormulaParserMap() ));
189*b1cdbd2cSJim Jagielski return aRef;
190*b1cdbd2cSJim Jagielski }
191*b1cdbd2cSJim Jagielski
setPropertyValue(const rtl::OUString & aPropertyName,const uno::Any & aValue)192*b1cdbd2cSJim Jagielski void SAL_CALL ScFormulaParserObj::setPropertyValue(
193*b1cdbd2cSJim Jagielski const rtl::OUString& aPropertyName, const uno::Any& aValue )
194*b1cdbd2cSJim Jagielski throw(beans::UnknownPropertyException, beans::PropertyVetoException,
195*b1cdbd2cSJim Jagielski lang::IllegalArgumentException, lang::WrappedTargetException,
196*b1cdbd2cSJim Jagielski uno::RuntimeException)
197*b1cdbd2cSJim Jagielski {
198*b1cdbd2cSJim Jagielski ScUnoGuard aGuard;
199*b1cdbd2cSJim Jagielski String aString(aPropertyName);
200*b1cdbd2cSJim Jagielski if ( aString.EqualsAscii( SC_UNO_COMPILEFAP ) )
201*b1cdbd2cSJim Jagielski {
202*b1cdbd2cSJim Jagielski aValue >>= mbCompileFAP;
203*b1cdbd2cSJim Jagielski }
204*b1cdbd2cSJim Jagielski else if ( aString.EqualsAscii( SC_UNO_COMPILEENGLISH ) )
205*b1cdbd2cSJim Jagielski {
206*b1cdbd2cSJim Jagielski bool bOldEnglish = mbEnglish;
207*b1cdbd2cSJim Jagielski if (aValue >>= mbEnglish)
208*b1cdbd2cSJim Jagielski {
209*b1cdbd2cSJim Jagielski // Need to recreate the symbol map to change English property
210*b1cdbd2cSJim Jagielski // because the map is const. So for performance reasons set
211*b1cdbd2cSJim Jagielski // CompileEnglish _before_ OpCodeMap!
212*b1cdbd2cSJim Jagielski if (mxOpCodeMap.get() && mbEnglish != bOldEnglish)
213*b1cdbd2cSJim Jagielski {
214*b1cdbd2cSJim Jagielski ScDocument* pDoc = mpDocShell->GetDocument();
215*b1cdbd2cSJim Jagielski ScCompiler aCompiler( pDoc, ScAddress());
216*b1cdbd2cSJim Jagielski aCompiler.SetGrammar(pDoc->GetGrammar());
217*b1cdbd2cSJim Jagielski mxOpCodeMap = aCompiler.CreateOpCodeMap( maOpCodeMapping, mbEnglish);
218*b1cdbd2cSJim Jagielski }
219*b1cdbd2cSJim Jagielski }
220*b1cdbd2cSJim Jagielski else
221*b1cdbd2cSJim Jagielski throw lang::IllegalArgumentException();
222*b1cdbd2cSJim Jagielski }
223*b1cdbd2cSJim Jagielski else if ( aString.EqualsAscii( SC_UNO_FORMULACONVENTION ) )
224*b1cdbd2cSJim Jagielski {
225*b1cdbd2cSJim Jagielski aValue >>= mnConv;
226*b1cdbd2cSJim Jagielski }
227*b1cdbd2cSJim Jagielski else if ( aString.EqualsAscii( SC_UNO_IGNORELEADING ) )
228*b1cdbd2cSJim Jagielski {
229*b1cdbd2cSJim Jagielski aValue >>= mbIgnoreSpaces;
230*b1cdbd2cSJim Jagielski }
231*b1cdbd2cSJim Jagielski else if ( aString.EqualsAscii( SC_UNO_OPCODEMAP ) )
232*b1cdbd2cSJim Jagielski {
233*b1cdbd2cSJim Jagielski if (aValue >>= maOpCodeMapping)
234*b1cdbd2cSJim Jagielski {
235*b1cdbd2cSJim Jagielski ScDocument* pDoc = mpDocShell->GetDocument();
236*b1cdbd2cSJim Jagielski ScCompiler aCompiler( pDoc, ScAddress());
237*b1cdbd2cSJim Jagielski aCompiler.SetGrammar(pDoc->GetGrammar());
238*b1cdbd2cSJim Jagielski mxOpCodeMap = aCompiler.CreateOpCodeMap( maOpCodeMapping, mbEnglish);
239*b1cdbd2cSJim Jagielski }
240*b1cdbd2cSJim Jagielski else
241*b1cdbd2cSJim Jagielski throw lang::IllegalArgumentException();
242*b1cdbd2cSJim Jagielski }
243*b1cdbd2cSJim Jagielski else if ( aString.EqualsAscii( SC_UNO_EXTERNALLINKS ) )
244*b1cdbd2cSJim Jagielski {
245*b1cdbd2cSJim Jagielski if (!(aValue >>= maExternalLinks))
246*b1cdbd2cSJim Jagielski throw lang::IllegalArgumentException();
247*b1cdbd2cSJim Jagielski }
248*b1cdbd2cSJim Jagielski else
249*b1cdbd2cSJim Jagielski throw beans::UnknownPropertyException();
250*b1cdbd2cSJim Jagielski }
251*b1cdbd2cSJim Jagielski
getPropertyValue(const rtl::OUString & aPropertyName)252*b1cdbd2cSJim Jagielski uno::Any SAL_CALL ScFormulaParserObj::getPropertyValue( const rtl::OUString& aPropertyName )
253*b1cdbd2cSJim Jagielski throw(beans::UnknownPropertyException, lang::WrappedTargetException,
254*b1cdbd2cSJim Jagielski uno::RuntimeException)
255*b1cdbd2cSJim Jagielski {
256*b1cdbd2cSJim Jagielski ScUnoGuard aGuard;
257*b1cdbd2cSJim Jagielski uno::Any aRet;
258*b1cdbd2cSJim Jagielski String aString(aPropertyName);
259*b1cdbd2cSJim Jagielski if ( aString.EqualsAscii( SC_UNO_COMPILEFAP ) )
260*b1cdbd2cSJim Jagielski {
261*b1cdbd2cSJim Jagielski aRet <<= mbCompileFAP;
262*b1cdbd2cSJim Jagielski }
263*b1cdbd2cSJim Jagielski else if ( aString.EqualsAscii( SC_UNO_COMPILEENGLISH ) )
264*b1cdbd2cSJim Jagielski {
265*b1cdbd2cSJim Jagielski aRet <<= mbEnglish;
266*b1cdbd2cSJim Jagielski }
267*b1cdbd2cSJim Jagielski else if ( aString.EqualsAscii( SC_UNO_FORMULACONVENTION ) )
268*b1cdbd2cSJim Jagielski {
269*b1cdbd2cSJim Jagielski aRet <<= mnConv;
270*b1cdbd2cSJim Jagielski }
271*b1cdbd2cSJim Jagielski else if ( aString.EqualsAscii( SC_UNO_IGNORELEADING ) )
272*b1cdbd2cSJim Jagielski {
273*b1cdbd2cSJim Jagielski aRet <<= mbIgnoreSpaces;
274*b1cdbd2cSJim Jagielski }
275*b1cdbd2cSJim Jagielski else if ( aString.EqualsAscii( SC_UNO_OPCODEMAP ) )
276*b1cdbd2cSJim Jagielski {
277*b1cdbd2cSJim Jagielski aRet <<= maOpCodeMapping;
278*b1cdbd2cSJim Jagielski }
279*b1cdbd2cSJim Jagielski else if ( aString.EqualsAscii( SC_UNO_EXTERNALLINKS ) )
280*b1cdbd2cSJim Jagielski {
281*b1cdbd2cSJim Jagielski aRet <<= maExternalLinks;
282*b1cdbd2cSJim Jagielski }
283*b1cdbd2cSJim Jagielski else
284*b1cdbd2cSJim Jagielski throw beans::UnknownPropertyException();
285*b1cdbd2cSJim Jagielski return aRet;
286*b1cdbd2cSJim Jagielski }
287*b1cdbd2cSJim Jagielski
SC_IMPL_DUMMY_PROPERTY_LISTENER(ScFormulaParserObj)288*b1cdbd2cSJim Jagielski SC_IMPL_DUMMY_PROPERTY_LISTENER( ScFormulaParserObj )
289*b1cdbd2cSJim Jagielski
290*b1cdbd2cSJim Jagielski // ============================================================================
291*b1cdbd2cSJim Jagielski
292*b1cdbd2cSJim Jagielski void lcl_ExternalRefToApi( sheet::SingleReference& rAPI, const ScSingleRefData& rRef )
293*b1cdbd2cSJim Jagielski {
294*b1cdbd2cSJim Jagielski rAPI.Column = rRef.nCol;
295*b1cdbd2cSJim Jagielski rAPI.Row = rRef.nRow;
296*b1cdbd2cSJim Jagielski rAPI.Sheet = 0;
297*b1cdbd2cSJim Jagielski rAPI.RelativeColumn = rRef.nRelCol;
298*b1cdbd2cSJim Jagielski rAPI.RelativeRow = rRef.nRelRow;
299*b1cdbd2cSJim Jagielski rAPI.RelativeSheet = 0;
300*b1cdbd2cSJim Jagielski
301*b1cdbd2cSJim Jagielski sal_Int32 nFlags = 0;
302*b1cdbd2cSJim Jagielski if ( rRef.IsColRel() ) nFlags |= sheet::ReferenceFlags::COLUMN_RELATIVE;
303*b1cdbd2cSJim Jagielski if ( rRef.IsRowRel() ) nFlags |= sheet::ReferenceFlags::ROW_RELATIVE;
304*b1cdbd2cSJim Jagielski if ( rRef.IsColDeleted() ) nFlags |= sheet::ReferenceFlags::COLUMN_DELETED;
305*b1cdbd2cSJim Jagielski if ( rRef.IsRowDeleted() ) nFlags |= sheet::ReferenceFlags::ROW_DELETED;
306*b1cdbd2cSJim Jagielski if ( rRef.IsFlag3D() ) nFlags |= sheet::ReferenceFlags::SHEET_3D;
307*b1cdbd2cSJim Jagielski if ( rRef.IsRelName() ) nFlags |= sheet::ReferenceFlags::RELATIVE_NAME;
308*b1cdbd2cSJim Jagielski rAPI.Flags = nFlags;
309*b1cdbd2cSJim Jagielski }
310*b1cdbd2cSJim Jagielski
lcl_SingleRefToApi(sheet::SingleReference & rAPI,const ScSingleRefData & rRef)311*b1cdbd2cSJim Jagielski void lcl_SingleRefToApi( sheet::SingleReference& rAPI, const ScSingleRefData& rRef )
312*b1cdbd2cSJim Jagielski {
313*b1cdbd2cSJim Jagielski rAPI.Column = rRef.nCol;
314*b1cdbd2cSJim Jagielski rAPI.Row = rRef.nRow;
315*b1cdbd2cSJim Jagielski rAPI.Sheet = rRef.nTab;
316*b1cdbd2cSJim Jagielski rAPI.RelativeColumn = rRef.nRelCol;
317*b1cdbd2cSJim Jagielski rAPI.RelativeRow = rRef.nRelRow;
318*b1cdbd2cSJim Jagielski rAPI.RelativeSheet = rRef.nRelTab;
319*b1cdbd2cSJim Jagielski
320*b1cdbd2cSJim Jagielski sal_Int32 nFlags = 0;
321*b1cdbd2cSJim Jagielski if ( rRef.IsColRel() ) nFlags |= sheet::ReferenceFlags::COLUMN_RELATIVE;
322*b1cdbd2cSJim Jagielski if ( rRef.IsRowRel() ) nFlags |= sheet::ReferenceFlags::ROW_RELATIVE;
323*b1cdbd2cSJim Jagielski if ( rRef.IsTabRel() ) nFlags |= sheet::ReferenceFlags::SHEET_RELATIVE;
324*b1cdbd2cSJim Jagielski if ( rRef.IsColDeleted() ) nFlags |= sheet::ReferenceFlags::COLUMN_DELETED;
325*b1cdbd2cSJim Jagielski if ( rRef.IsRowDeleted() ) nFlags |= sheet::ReferenceFlags::ROW_DELETED;
326*b1cdbd2cSJim Jagielski if ( rRef.IsTabDeleted() ) nFlags |= sheet::ReferenceFlags::SHEET_DELETED;
327*b1cdbd2cSJim Jagielski if ( rRef.IsFlag3D() ) nFlags |= sheet::ReferenceFlags::SHEET_3D;
328*b1cdbd2cSJim Jagielski if ( rRef.IsRelName() ) nFlags |= sheet::ReferenceFlags::RELATIVE_NAME;
329*b1cdbd2cSJim Jagielski rAPI.Flags = nFlags;
330*b1cdbd2cSJim Jagielski }
331*b1cdbd2cSJim Jagielski
332*b1cdbd2cSJim Jagielski // static
ConvertToTokenArray(ScDocument & rDoc,ScTokenArray & rTokenArray,const uno::Sequence<sheet::FormulaToken> & rSequence)333*b1cdbd2cSJim Jagielski bool ScTokenConversion::ConvertToTokenArray( ScDocument& rDoc,
334*b1cdbd2cSJim Jagielski ScTokenArray& rTokenArray, const uno::Sequence<sheet::FormulaToken>& rSequence )
335*b1cdbd2cSJim Jagielski {
336*b1cdbd2cSJim Jagielski return !rTokenArray.Fill(rSequence,rDoc.GetExternalRefManager());
337*b1cdbd2cSJim Jagielski }
338*b1cdbd2cSJim Jagielski
339*b1cdbd2cSJim Jagielski // static
ConvertToTokenSequence(ScDocument & rDoc,uno::Sequence<sheet::FormulaToken> & rSequence,const ScTokenArray & rTokenArray)340*b1cdbd2cSJim Jagielski bool ScTokenConversion::ConvertToTokenSequence( ScDocument& rDoc,
341*b1cdbd2cSJim Jagielski uno::Sequence<sheet::FormulaToken>& rSequence, const ScTokenArray& rTokenArray )
342*b1cdbd2cSJim Jagielski {
343*b1cdbd2cSJim Jagielski bool bError = false;
344*b1cdbd2cSJim Jagielski
345*b1cdbd2cSJim Jagielski sal_Int32 nLen = static_cast<sal_Int32>(rTokenArray.GetLen());
346*b1cdbd2cSJim Jagielski formula::FormulaToken** pTokens = rTokenArray.GetArray();
347*b1cdbd2cSJim Jagielski if ( pTokens )
348*b1cdbd2cSJim Jagielski {
349*b1cdbd2cSJim Jagielski rSequence.realloc(nLen);
350*b1cdbd2cSJim Jagielski for (sal_Int32 nPos=0; nPos<nLen; nPos++)
351*b1cdbd2cSJim Jagielski {
352*b1cdbd2cSJim Jagielski const formula::FormulaToken& rToken = *pTokens[nPos];
353*b1cdbd2cSJim Jagielski sheet::FormulaToken& rAPI = rSequence[nPos];
354*b1cdbd2cSJim Jagielski
355*b1cdbd2cSJim Jagielski OpCode eOpCode = rToken.GetOpCode();
356*b1cdbd2cSJim Jagielski // eOpCode may be changed in the following switch/case
357*b1cdbd2cSJim Jagielski switch ( rToken.GetType() )
358*b1cdbd2cSJim Jagielski {
359*b1cdbd2cSJim Jagielski case svByte:
360*b1cdbd2cSJim Jagielski // Only the count of spaces is stored as "long". Parameter count is ignored.
361*b1cdbd2cSJim Jagielski if ( eOpCode == ocSpaces )
362*b1cdbd2cSJim Jagielski rAPI.Data <<= (sal_Int32) rToken.GetByte();
363*b1cdbd2cSJim Jagielski else
364*b1cdbd2cSJim Jagielski rAPI.Data.clear(); // no data
365*b1cdbd2cSJim Jagielski break;
366*b1cdbd2cSJim Jagielski case formula::svDouble:
367*b1cdbd2cSJim Jagielski rAPI.Data <<= rToken.GetDouble();
368*b1cdbd2cSJim Jagielski break;
369*b1cdbd2cSJim Jagielski case formula::svString:
370*b1cdbd2cSJim Jagielski rAPI.Data <<= rtl::OUString( rToken.GetString() );
371*b1cdbd2cSJim Jagielski break;
372*b1cdbd2cSJim Jagielski case svExternal:
373*b1cdbd2cSJim Jagielski // Function name is stored as string.
374*b1cdbd2cSJim Jagielski // Byte (parameter count) is ignored.
375*b1cdbd2cSJim Jagielski rAPI.Data <<= rtl::OUString( rToken.GetExternal() );
376*b1cdbd2cSJim Jagielski break;
377*b1cdbd2cSJim Jagielski case svSingleRef:
378*b1cdbd2cSJim Jagielski {
379*b1cdbd2cSJim Jagielski sheet::SingleReference aSingleRef;
380*b1cdbd2cSJim Jagielski lcl_SingleRefToApi( aSingleRef, static_cast<const ScToken&>(rToken).GetSingleRef() );
381*b1cdbd2cSJim Jagielski rAPI.Data <<= aSingleRef;
382*b1cdbd2cSJim Jagielski }
383*b1cdbd2cSJim Jagielski break;
384*b1cdbd2cSJim Jagielski case formula::svDoubleRef:
385*b1cdbd2cSJim Jagielski {
386*b1cdbd2cSJim Jagielski sheet::ComplexReference aCompRef;
387*b1cdbd2cSJim Jagielski lcl_SingleRefToApi( aCompRef.Reference1, static_cast<const ScToken&>(rToken).GetSingleRef() );
388*b1cdbd2cSJim Jagielski lcl_SingleRefToApi( aCompRef.Reference2, static_cast<const ScToken&>(rToken).GetSingleRef2() );
389*b1cdbd2cSJim Jagielski rAPI.Data <<= aCompRef;
390*b1cdbd2cSJim Jagielski }
391*b1cdbd2cSJim Jagielski break;
392*b1cdbd2cSJim Jagielski case svIndex:
393*b1cdbd2cSJim Jagielski rAPI.Data <<= static_cast<sal_Int32>( rToken.GetIndex() );
394*b1cdbd2cSJim Jagielski break;
395*b1cdbd2cSJim Jagielski case svMatrix:
396*b1cdbd2cSJim Jagielski if (!ScRangeToSequence::FillMixedArray( rAPI.Data, static_cast<const ScToken&>(rToken).GetMatrix(), true))
397*b1cdbd2cSJim Jagielski rAPI.Data.clear();
398*b1cdbd2cSJim Jagielski break;
399*b1cdbd2cSJim Jagielski case svExternalSingleRef:
400*b1cdbd2cSJim Jagielski {
401*b1cdbd2cSJim Jagielski sheet::SingleReference aSingleRef;
402*b1cdbd2cSJim Jagielski lcl_ExternalRefToApi( aSingleRef, static_cast<const ScToken&>(rToken).GetSingleRef() );
403*b1cdbd2cSJim Jagielski size_t nCacheId;
404*b1cdbd2cSJim Jagielski rDoc.GetExternalRefManager()->getCacheTable( rToken.GetIndex(), rToken.GetString(), false, &nCacheId );
405*b1cdbd2cSJim Jagielski aSingleRef.Sheet = static_cast< sal_Int32 >( nCacheId );
406*b1cdbd2cSJim Jagielski sheet::ExternalReference aExtRef;
407*b1cdbd2cSJim Jagielski aExtRef.Index = rToken.GetIndex();
408*b1cdbd2cSJim Jagielski aExtRef.Reference <<= aSingleRef;
409*b1cdbd2cSJim Jagielski rAPI.Data <<= aExtRef;
410*b1cdbd2cSJim Jagielski eOpCode = ocPush;
411*b1cdbd2cSJim Jagielski }
412*b1cdbd2cSJim Jagielski break;
413*b1cdbd2cSJim Jagielski case svExternalDoubleRef:
414*b1cdbd2cSJim Jagielski {
415*b1cdbd2cSJim Jagielski sheet::ComplexReference aComplRef;
416*b1cdbd2cSJim Jagielski lcl_ExternalRefToApi( aComplRef.Reference1, static_cast<const ScToken&>(rToken).GetSingleRef() );
417*b1cdbd2cSJim Jagielski lcl_ExternalRefToApi( aComplRef.Reference2, static_cast<const ScToken&>(rToken).GetSingleRef2() );
418*b1cdbd2cSJim Jagielski size_t nCacheId;
419*b1cdbd2cSJim Jagielski rDoc.GetExternalRefManager()->getCacheTable( rToken.GetIndex(), rToken.GetString(), false, &nCacheId );
420*b1cdbd2cSJim Jagielski aComplRef.Reference1.Sheet = static_cast< sal_Int32 >( nCacheId );
421*b1cdbd2cSJim Jagielski // NOTE: This assumes that cached sheets are in consecutive order!
422*b1cdbd2cSJim Jagielski aComplRef.Reference2.Sheet = aComplRef.Reference1.Sheet + (static_cast<const ScToken&>(rToken).GetSingleRef2().nTab - static_cast<const ScToken&>(rToken).GetSingleRef().nTab);
423*b1cdbd2cSJim Jagielski sheet::ExternalReference aExtRef;
424*b1cdbd2cSJim Jagielski aExtRef.Index = rToken.GetIndex();
425*b1cdbd2cSJim Jagielski aExtRef.Reference <<= aComplRef;
426*b1cdbd2cSJim Jagielski rAPI.Data <<= aExtRef;
427*b1cdbd2cSJim Jagielski eOpCode = ocPush;
428*b1cdbd2cSJim Jagielski }
429*b1cdbd2cSJim Jagielski break;
430*b1cdbd2cSJim Jagielski case svExternalName:
431*b1cdbd2cSJim Jagielski {
432*b1cdbd2cSJim Jagielski sheet::ExternalReference aExtRef;
433*b1cdbd2cSJim Jagielski aExtRef.Index = rToken.GetIndex();
434*b1cdbd2cSJim Jagielski aExtRef.Reference <<= ::rtl::OUString( rToken.GetString() );
435*b1cdbd2cSJim Jagielski rAPI.Data <<= aExtRef;
436*b1cdbd2cSJim Jagielski eOpCode = ocPush;
437*b1cdbd2cSJim Jagielski }
438*b1cdbd2cSJim Jagielski break;
439*b1cdbd2cSJim Jagielski default:
440*b1cdbd2cSJim Jagielski DBG_ERROR1( "ScTokenConversion::ConvertToTokenSequence: unhandled token type SvStackVar %d", rToken.GetType());
441*b1cdbd2cSJim Jagielski case svSep: // occurs with ocSep, ocOpen, ocClose, ocArray*
442*b1cdbd2cSJim Jagielski case svJump: // occurs with ocIf, ocChose
443*b1cdbd2cSJim Jagielski case svMissing: // occurs with ocMissing
444*b1cdbd2cSJim Jagielski rAPI.Data.clear(); // no data
445*b1cdbd2cSJim Jagielski }
446*b1cdbd2cSJim Jagielski rAPI.OpCode = static_cast<sal_Int32>(eOpCode); //! assuming equal values for the moment
447*b1cdbd2cSJim Jagielski }
448*b1cdbd2cSJim Jagielski }
449*b1cdbd2cSJim Jagielski else
450*b1cdbd2cSJim Jagielski rSequence.realloc(0);
451*b1cdbd2cSJim Jagielski
452*b1cdbd2cSJim Jagielski return !bError;
453*b1cdbd2cSJim Jagielski }
454*b1cdbd2cSJim Jagielski
455*b1cdbd2cSJim Jagielski // ============================================================================
456*b1cdbd2cSJim Jagielski
ScFormulaOpCodeMapperObj(::std::auto_ptr<formula::FormulaCompiler> _pCompiler)457*b1cdbd2cSJim Jagielski ScFormulaOpCodeMapperObj::ScFormulaOpCodeMapperObj(::std::auto_ptr<formula::FormulaCompiler> _pCompiler)
458*b1cdbd2cSJim Jagielski : formula::FormulaOpCodeMapperObj(_pCompiler)
459*b1cdbd2cSJim Jagielski {
460*b1cdbd2cSJim Jagielski }
461*b1cdbd2cSJim Jagielski
462*b1cdbd2cSJim Jagielski // ============================================================================
463*b1cdbd2cSJim Jagielski
464