1*e1f63238SAndrew Rist /************************************************************** 2cdf0e10cSrcweir * 3*e1f63238SAndrew Rist * Licensed to the Apache Software Foundation (ASF) under one 4*e1f63238SAndrew Rist * or more contributor license agreements. See the NOTICE file 5*e1f63238SAndrew Rist * distributed with this work for additional information 6*e1f63238SAndrew Rist * regarding copyright ownership. The ASF licenses this file 7*e1f63238SAndrew Rist * to you under the Apache License, Version 2.0 (the 8*e1f63238SAndrew Rist * "License"); you may not use this file except in compliance 9*e1f63238SAndrew Rist * with the License. You may obtain a copy of the License at 10*e1f63238SAndrew Rist * 11*e1f63238SAndrew Rist * http://www.apache.org/licenses/LICENSE-2.0 12*e1f63238SAndrew Rist * 13*e1f63238SAndrew Rist * Unless required by applicable law or agreed to in writing, 14*e1f63238SAndrew Rist * software distributed under the License is distributed on an 15*e1f63238SAndrew Rist * "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY 16*e1f63238SAndrew Rist * KIND, either express or implied. See the License for the 17*e1f63238SAndrew Rist * specific language governing permissions and limitations 18*e1f63238SAndrew Rist * under the License. 19*e1f63238SAndrew Rist * 20*e1f63238SAndrew Rist *************************************************************/ 21*e1f63238SAndrew Rist 22*e1f63238SAndrew Rist 23cdf0e10cSrcweir 24cdf0e10cSrcweir // MARKER(update_precomp.py): autogen include statement, do not remove 25cdf0e10cSrcweir #include "precompiled_basic.hxx" 26cdf0e10cSrcweir 27cdf0e10cSrcweir #include "sbcomp.hxx" 28cdf0e10cSrcweir #include "expr.hxx" 29cdf0e10cSrcweir 30cdf0e10cSrcweir // Umsetztabelle fuer Token-Operatoren und Opcodes 31cdf0e10cSrcweir 32cdf0e10cSrcweir typedef struct { 33cdf0e10cSrcweir SbiToken eTok; // Token 34cdf0e10cSrcweir SbiOpcode eOp; // Opcode 35cdf0e10cSrcweir } OpTable; 36cdf0e10cSrcweir 37cdf0e10cSrcweir static OpTable aOpTable [] = { 38cdf0e10cSrcweir { EXPON,_EXP }, 39cdf0e10cSrcweir { MUL, _MUL }, 40cdf0e10cSrcweir { DIV, _DIV }, 41cdf0e10cSrcweir { IDIV, _IDIV }, 42cdf0e10cSrcweir { MOD, _MOD }, 43cdf0e10cSrcweir { PLUS, _PLUS }, 44cdf0e10cSrcweir { MINUS,_MINUS }, 45cdf0e10cSrcweir { EQ, _EQ }, 46cdf0e10cSrcweir { NE, _NE }, 47cdf0e10cSrcweir { LE, _LE }, 48cdf0e10cSrcweir { GE, _GE }, 49cdf0e10cSrcweir { LT, _LT }, 50cdf0e10cSrcweir { GT, _GT }, 51cdf0e10cSrcweir { AND, _AND }, 52cdf0e10cSrcweir { OR, _OR }, 53cdf0e10cSrcweir { XOR, _XOR }, 54cdf0e10cSrcweir { EQV, _EQV }, 55cdf0e10cSrcweir { IMP, _IMP }, 56cdf0e10cSrcweir { NOT, _NOT }, 57cdf0e10cSrcweir { NEG, _NEG }, 58cdf0e10cSrcweir { CAT, _CAT }, 59cdf0e10cSrcweir { LIKE, _LIKE }, 60cdf0e10cSrcweir { IS, _IS }, 61cdf0e10cSrcweir { NIL, _NOP }}; 62cdf0e10cSrcweir 63cdf0e10cSrcweir // Ausgabe eines Elements 64cdf0e10cSrcweir void SbiExprNode::Gen( RecursiveMode eRecMode ) 65cdf0e10cSrcweir { 66cdf0e10cSrcweir if( IsConstant() ) 67cdf0e10cSrcweir { 68cdf0e10cSrcweir switch( GetType() ) 69cdf0e10cSrcweir { 70cdf0e10cSrcweir case SbxEMPTY: pGen->Gen( _EMPTY ); break; 71cdf0e10cSrcweir case SbxINTEGER: pGen->Gen( _CONST, (short) nVal ); break; 72cdf0e10cSrcweir case SbxSTRING: 73cdf0e10cSrcweir { 74cdf0e10cSrcweir sal_uInt16 nStringId = pGen->GetParser()->aGblStrings.Add( aStrVal, sal_True ); 75cdf0e10cSrcweir pGen->Gen( _SCONST, nStringId ); break; 76cdf0e10cSrcweir } 77cdf0e10cSrcweir default: 78cdf0e10cSrcweir { 79cdf0e10cSrcweir sal_uInt16 nStringId = pGen->GetParser()->aGblStrings.Add( nVal, eType ); 80cdf0e10cSrcweir pGen->Gen( _NUMBER, nStringId ); 81cdf0e10cSrcweir } 82cdf0e10cSrcweir } 83cdf0e10cSrcweir } 84cdf0e10cSrcweir else if( IsOperand() ) 85cdf0e10cSrcweir { 86cdf0e10cSrcweir SbiExprNode* pWithParent_ = NULL; 87cdf0e10cSrcweir SbiOpcode eOp; 88cdf0e10cSrcweir if( aVar.pDef->GetScope() == SbPARAM ) 89cdf0e10cSrcweir { 90cdf0e10cSrcweir eOp = _PARAM; 91cdf0e10cSrcweir if( 0 == aVar.pDef->GetPos() ) 92cdf0e10cSrcweir { 93cdf0e10cSrcweir bool bTreatFunctionAsParam = true; 94cdf0e10cSrcweir if( eRecMode == FORCE_CALL ) 95cdf0e10cSrcweir { 96cdf0e10cSrcweir bTreatFunctionAsParam = false; 97cdf0e10cSrcweir } 98cdf0e10cSrcweir else if( eRecMode == UNDEFINED ) 99cdf0e10cSrcweir { 100cdf0e10cSrcweir if( aVar.pPar && aVar.pPar->IsBracket() ) 101cdf0e10cSrcweir bTreatFunctionAsParam = false; 102cdf0e10cSrcweir } 103cdf0e10cSrcweir if( !bTreatFunctionAsParam ) 104cdf0e10cSrcweir eOp = aVar.pDef->IsGlobal() ? _FIND_G : _FIND; 105cdf0e10cSrcweir } 106cdf0e10cSrcweir } 107cdf0e10cSrcweir // AB: 17.12.1995, Spezialbehandlung fuer WITH 108cdf0e10cSrcweir else if( (pWithParent_ = GetWithParent()) != NULL ) 109cdf0e10cSrcweir { 110cdf0e10cSrcweir eOp = _ELEM; // .-Ausdruck in WITH 111cdf0e10cSrcweir } 112cdf0e10cSrcweir else 113cdf0e10cSrcweir { 114cdf0e10cSrcweir eOp = ( aVar.pDef->GetScope() == SbRTL ) ? _RTL : 115cdf0e10cSrcweir (aVar.pDef->IsGlobal() ? _FIND_G : _FIND); 116cdf0e10cSrcweir } 117cdf0e10cSrcweir 118cdf0e10cSrcweir if( eOp == _FIND ) 119cdf0e10cSrcweir { 120cdf0e10cSrcweir 121cdf0e10cSrcweir SbiProcDef* pProc = aVar.pDef->GetProcDef(); 122cdf0e10cSrcweir if ( pGen->GetParser()->bClassModule ) 123cdf0e10cSrcweir eOp = _FIND_CM; 124cdf0e10cSrcweir else if ( aVar.pDef->IsStatic() || (pProc && pProc->IsStatic()) ) 125cdf0e10cSrcweir { 126cdf0e10cSrcweir eOp = _FIND_STATIC; 127cdf0e10cSrcweir } 128cdf0e10cSrcweir } 129cdf0e10cSrcweir for( SbiExprNode* p = this; p; p = p->aVar.pNext ) 130cdf0e10cSrcweir { 131cdf0e10cSrcweir if( p == this && pWithParent_ != NULL ) 132cdf0e10cSrcweir pWithParent_->Gen(); 133cdf0e10cSrcweir p->GenElement( eOp ); 134cdf0e10cSrcweir eOp = _ELEM; 135cdf0e10cSrcweir } 136cdf0e10cSrcweir } 137cdf0e10cSrcweir else if( IsTypeOf() ) 138cdf0e10cSrcweir { 139cdf0e10cSrcweir pLeft->Gen(); 140cdf0e10cSrcweir pGen->Gen( _TESTCLASS, nTypeStrId ); 141cdf0e10cSrcweir } 142cdf0e10cSrcweir else if( IsNew() ) 143cdf0e10cSrcweir { 144cdf0e10cSrcweir pGen->Gen( _CREATE, 0, nTypeStrId ); 145cdf0e10cSrcweir } 146cdf0e10cSrcweir else 147cdf0e10cSrcweir { 148cdf0e10cSrcweir pLeft->Gen(); 149cdf0e10cSrcweir if( pRight ) 150cdf0e10cSrcweir pRight->Gen(); 151cdf0e10cSrcweir for( OpTable* p = aOpTable; p->eTok != NIL; p++ ) 152cdf0e10cSrcweir { 153cdf0e10cSrcweir if( p->eTok == eTok ) 154cdf0e10cSrcweir { 155cdf0e10cSrcweir pGen->Gen( p->eOp ); break; 156cdf0e10cSrcweir } 157cdf0e10cSrcweir } 158cdf0e10cSrcweir } 159cdf0e10cSrcweir } 160cdf0e10cSrcweir 161cdf0e10cSrcweir // Ausgabe eines Operanden-Elements 162cdf0e10cSrcweir 163cdf0e10cSrcweir void SbiExprNode::GenElement( SbiOpcode eOp ) 164cdf0e10cSrcweir { 165cdf0e10cSrcweir #ifdef DBG_UTIL 166cdf0e10cSrcweir if( (eOp < _RTL || eOp > _CALLC) && eOp != _FIND_G && eOp != _FIND_CM ) 167cdf0e10cSrcweir pGen->GetParser()->Error( SbERR_INTERNAL_ERROR, "Opcode" ); 168cdf0e10cSrcweir #endif 169cdf0e10cSrcweir SbiSymDef* pDef = aVar.pDef; 170cdf0e10cSrcweir // Das ID ist entweder die Position oder das String-ID 171cdf0e10cSrcweir // Falls das Bit 0x8000 gesetzt ist, hat die Variable 172cdf0e10cSrcweir // eine Parameterliste. 173cdf0e10cSrcweir sal_uInt16 nId = ( eOp == _PARAM ) ? pDef->GetPos() : pDef->GetId(); 174cdf0e10cSrcweir // Parameterliste aufbauen 175cdf0e10cSrcweir if( aVar.pPar && aVar.pPar->GetSize() ) 176cdf0e10cSrcweir { 177cdf0e10cSrcweir nId |= 0x8000; 178cdf0e10cSrcweir aVar.pPar->Gen(); 179cdf0e10cSrcweir } 180cdf0e10cSrcweir 181cdf0e10cSrcweir pGen->Gen( eOp, nId, sal::static_int_cast< sal_uInt16 >( GetType() ) ); 182cdf0e10cSrcweir 183cdf0e10cSrcweir if( aVar.pvMorePar ) 184cdf0e10cSrcweir { 185cdf0e10cSrcweir SbiExprListVector* pvMorePar = aVar.pvMorePar; 186cdf0e10cSrcweir SbiExprListVector::iterator it; 187cdf0e10cSrcweir for( it = pvMorePar->begin() ; it != pvMorePar->end() ; ++it ) 188cdf0e10cSrcweir { 189cdf0e10cSrcweir SbiExprList* pExprList = *it; 190cdf0e10cSrcweir pExprList->Gen(); 191cdf0e10cSrcweir pGen->Gen( _ARRAYACCESS ); 192cdf0e10cSrcweir } 193cdf0e10cSrcweir } 194cdf0e10cSrcweir } 195cdf0e10cSrcweir 196cdf0e10cSrcweir // Erzeugen einer Argv-Tabelle 197cdf0e10cSrcweir // Das erste Element bleibt immer frei fuer Returnwerte etc. 198cdf0e10cSrcweir // Siehe auch SbiProcDef::SbiProcDef() in symtbl.cxx 199cdf0e10cSrcweir 200cdf0e10cSrcweir void SbiExprList::Gen() 201cdf0e10cSrcweir { 202cdf0e10cSrcweir if( pFirst ) 203cdf0e10cSrcweir { 204cdf0e10cSrcweir pParser->aGen.Gen( _ARGC ); 205cdf0e10cSrcweir // AB 10.1.96: Typ-Anpassung bei DECLARE 206cdf0e10cSrcweir sal_uInt16 nCount = 1 /*, nParAnz = 0*/; 207cdf0e10cSrcweir // SbiSymPool* pPool = NULL; 208cdf0e10cSrcweir for( SbiExpression* pExpr = pFirst; pExpr; pExpr = pExpr->pNext,nCount++ ) 209cdf0e10cSrcweir { 210cdf0e10cSrcweir pExpr->Gen(); 211cdf0e10cSrcweir if( pExpr->GetName().Len() ) 212cdf0e10cSrcweir { 213cdf0e10cSrcweir // named arg 214cdf0e10cSrcweir sal_uInt16 nSid = pParser->aGblStrings.Add( pExpr->GetName() ); 215cdf0e10cSrcweir pParser->aGen.Gen( _ARGN, nSid ); 216cdf0e10cSrcweir 217cdf0e10cSrcweir /* TODO: Check after Declare concept change 218cdf0e10cSrcweir // AB 10.1.96: Typanpassung bei named -> passenden Parameter suchen 219cdf0e10cSrcweir if( pProc ) 220cdf0e10cSrcweir { 221cdf0e10cSrcweir // Vorerst: Error ausloesen 222cdf0e10cSrcweir pParser->Error( SbERR_NO_NAMED_ARGS ); 223cdf0e10cSrcweir 224cdf0e10cSrcweir // Spaeter, wenn Named Args bei DECLARE moeglich 225cdf0e10cSrcweir //for( sal_uInt16 i = 1 ; i < nParAnz ; i++ ) 226cdf0e10cSrcweir //{ 227cdf0e10cSrcweir // SbiSymDef* pDef = pPool->Get( i ); 228cdf0e10cSrcweir // const String& rName = pDef->GetName(); 229cdf0e10cSrcweir // if( rName.Len() ) 230cdf0e10cSrcweir // { 231cdf0e10cSrcweir // if( pExpr->GetName().ICompare( rName ) 232cdf0e10cSrcweir // == COMPARE_EQUAL ) 233cdf0e10cSrcweir // { 234cdf0e10cSrcweir // pParser->aGen.Gen( _ARGTYP, pDef->GetType() ); 235cdf0e10cSrcweir // break; 236cdf0e10cSrcweir // } 237cdf0e10cSrcweir // } 238cdf0e10cSrcweir //} 239cdf0e10cSrcweir } 240cdf0e10cSrcweir */ 241cdf0e10cSrcweir } 242cdf0e10cSrcweir else 243cdf0e10cSrcweir { 244cdf0e10cSrcweir pParser->aGen.Gen( _ARGV ); 245cdf0e10cSrcweir } 246cdf0e10cSrcweir } 247cdf0e10cSrcweir } 248cdf0e10cSrcweir } 249cdf0e10cSrcweir 250cdf0e10cSrcweir void SbiExpression::Gen( RecursiveMode eRecMode ) 251cdf0e10cSrcweir { 252cdf0e10cSrcweir // AB: 17.12.1995, Spezialbehandlung fuer WITH 253cdf0e10cSrcweir // Wenn pExpr == .-Ausdruck in With, zunaechst Gen fuer Basis-Objekt 254cdf0e10cSrcweir pExpr->Gen( eRecMode ); 255cdf0e10cSrcweir if( bByVal ) 256cdf0e10cSrcweir pParser->aGen.Gen( _BYVAL ); 257cdf0e10cSrcweir if( bBased ) 258cdf0e10cSrcweir { 259cdf0e10cSrcweir sal_uInt16 uBase = pParser->nBase; 260cdf0e10cSrcweir if( pParser->IsCompatible() ) 261cdf0e10cSrcweir uBase |= 0x8000; // #109275 Flag compatiblity 262cdf0e10cSrcweir pParser->aGen.Gen( _BASED, uBase ); 263cdf0e10cSrcweir pParser->aGen.Gen( _ARGV ); 264cdf0e10cSrcweir } 265cdf0e10cSrcweir } 266cdf0e10cSrcweir 267