diff options
Diffstat (limited to 'basic/source/comp')
| -rw-r--r-- | basic/source/comp/exprtree.cxx | 186 | ||||
| -rw-r--r-- | basic/source/comp/io.cxx | 30 | ||||
| -rw-r--r-- | basic/source/comp/loops.cxx | 57 | ||||
| -rw-r--r-- | basic/source/comp/parser.cxx | 103 | ||||
| -rw-r--r-- | basic/source/comp/sbcomp.cxx | 12 | ||||
| -rw-r--r-- | basic/source/comp/scanner.cxx | 71 | ||||
| -rw-r--r-- | basic/source/comp/symtbl.cxx | 92 | ||||
| -rw-r--r-- | basic/source/comp/token.cxx | 69 |
8 files changed, 284 insertions, 336 deletions
diff --git a/basic/source/comp/exprtree.cxx b/basic/source/comp/exprtree.cxx index 31d285f89148..1c7ec1be4767 100644 --- a/basic/source/comp/exprtree.cxx +++ b/basic/source/comp/exprtree.cxx @@ -30,7 +30,7 @@ #include "precompiled_basic.hxx" #include "sbcomp.hxx" -#include <basic/sbx.hxx> // w.g. ...IMPL_REF(...sbxvariable) +#include <basic/sbx.hxx> // because of ...IMPL_REF(...sbxvariable) #include "expr.hxx" /*************************************************************************** @@ -99,20 +99,20 @@ SbiExpression::~SbiExpression() delete pExpr; } -// Einlesen eines kompletten Bezeichners -// Ein Bezeichner hat folgende Form: +// reading in a complete identifier +// an identifier has the following form: // name[(Parameter)][.Name[(parameter)]]... -// Strukturelemente werden ueber das Element pNext verkoppelt, -// damit sie nicht im Baum stehen. +// structure elements are coupled via the element pNext, +// so that they're not in the tree. -// Folgen Parameter ohne Klammer? Dies kann eine Zahl, ein String, -// ein Symbol oder auch ein Komma sein (wenn der 1. Parameter fehlt) +// Are there parameters without brackets following? This may be a number, +// a string, a symbol or also a comma (if the 1st parameter is missing) static sal_Bool DoParametersFollow( SbiParser* p, SbiExprType eCurExpr, SbiToken eTok ) { if( eTok == LPAREN ) return sal_True; - // Aber nur, wenn CALL-aehnlich! + // but only if similar to CALL! if( !p->WhiteSpace() || eCurExpr != SbSYMBOL ) return sal_False; if ( eTok == NUMBER || eTok == MINUS || eTok == FIXSTRING @@ -131,26 +131,26 @@ static sal_Bool DoParametersFollow( SbiParser* p, SbiExprType eCurExpr, SbiToken return sal_False; } -// Definition eines neuen Symbols +// definition of a new symbol static SbiSymDef* AddSym ( SbiToken eTok, SbiSymPool& rPool, SbiExprType eCurExpr, const String& rName, SbxDataType eType, SbiParameters* pPar ) { SbiSymDef* pDef; - // A= ist keine Prozedur + // A= is not a procedure sal_Bool bHasType = sal_Bool( eTok == EQ || eTok == DOT ); if( ( !bHasType && eCurExpr == SbSYMBOL ) || pPar ) { - // Dies ist also eine Prozedur - // da suche man doch den richtigen Pool raus, da Procs - // immer in einem Public-Pool landen muessen + // so this is a procedure + // the correct pool should be found out, as + // procs must always get into a public pool SbiSymPool* pPool = &rPool; if( pPool->GetScope() != SbPUBLIC ) pPool = &rPool.GetParser()->aPublics; SbiProcDef* pProc = pPool->AddProc( rName ); - // Sonderbehandlung fuer Colls wie Documents(1) + // special treatment for Colls like Documents(1) if( eCurExpr == SbSTDEXPR ) bHasType = sal_True; @@ -158,7 +158,7 @@ static SbiSymDef* AddSym pDef->SetType( bHasType ? eType : SbxEMPTY ); if( pPar ) { - // Dummy-Parameter generieren + // generate dummy parameters sal_uInt16 n = 1; for( short i = 0; i < pPar->GetSize(); i++ ) { @@ -170,22 +170,21 @@ static SbiSymDef* AddSym } else { - // oder ein normales Symbol + // or a normal symbol pDef = rPool.AddSym( rName ); pDef->SetType( eType ); } return pDef; } -// Zur Zeit sind sogar Keywords zugelassen (wg. gleichnamiger Dflt-Properties) +// currently even keywords are allowed (because of Dflt properties of the same name) SbiExprNode* SbiExpression::Term( const KeywordSymbolInfo* pKeywordSymbolInfo ) { if( pParser->Peek() == DOT ) { - // eine WITH-Variable SbiExprNode* pWithVar = pParser->GetWithVar(); - // #26608: Ans Ende der Node-Kette gehen, um richtiges Objekt zu uebergeben + // #26608: get to the node-chain's end to pass the correct object SbiSymDef* pDef = pWithVar ? pWithVar->GetRealVar() : NULL; SbiExprNode* pNd = NULL; if( !pDef ) @@ -207,23 +206,23 @@ SbiExprNode* SbiExpression::Term( const KeywordSymbolInfo* pKeywordSymbolInfo ) } SbiToken eTok = (pKeywordSymbolInfo == NULL) ? pParser->Next() : pKeywordSymbolInfo->m_eTok; - // Anfang des Parsings merken + // memorize the parsing's begin pParser->LockColumn(); String aSym( (pKeywordSymbolInfo == NULL) ? pParser->GetSym() : pKeywordSymbolInfo->m_aKeywordSymbol ); SbxDataType eType = (pKeywordSymbolInfo == NULL) ? pParser->GetType() : pKeywordSymbolInfo->m_eSbxDataType; SbiParameters* pPar = NULL; SbiExprListVector* pvMoreParLcl = NULL; - // Folgen Parameter? + // are there parameters following? SbiToken eNextTok = pParser->Peek(); - // Ist es ein benannter Parameter? - // Dann einfach eine Stringkonstante erzeugen. Diese wird - // im SbiParameters-ctor erkannt und weiterverarbeitet + // is it a known parameter? + // create a string constant then, which will be recognized + // in the SbiParameters-ctor and is continued to be handled if( eNextTok == ASSIGN ) { pParser->UnlockColumn(); return new SbiExprNode( pParser, aSym ); } - // ab hier sind keine Keywords zugelassen! + // no keywords allowed from here on! if( pParser->IsKwd( eTok ) ) { if( pParser->IsCompatible() && eTok == INPUT ) @@ -257,9 +256,9 @@ SbiExprNode* SbiExpression::Term( const KeywordSymbolInfo* pKeywordSymbolInfo ) eTok = pParser->Peek(); } } - // Es koennte ein Objektteil sein, wenn . oder ! folgt - // Bei . muss aber die Variable bereits definiert sein; wenn pDef - // nach der Suche NULL ist, isses ein Objekt! + // It might be an object part, if . or ! is following. + // In case of . the variable must already be defined; + // it's an object, if pDef is NULL after the search. sal_Bool bObj = sal_Bool( ( eTok == DOT || eTok == EXCLAM ) && !pParser->WhiteSpace() ); if( bObj ) @@ -269,18 +268,18 @@ SbiExprNode* SbiExpression::Term( const KeywordSymbolInfo* pKeywordSymbolInfo ) eType = SbxOBJECT; else { - // Name%. geht wirklich nicht! + // Name%. really does not work! pParser->Error( SbERR_BAD_DECLARATION, aSym ); bError = sal_True; } } - // Suche: + // Search: SbiSymDef* pDef = pParser->pPool->Find( aSym ); if( !pDef ) { - // Teil der Runtime-Library? - // AB 31.3.1996: In Parser-Methode ausgelagert - // (wird auch in SbiParser::DefVar() in DIM.CXX benoetigt) + // Part of the Runtime-Library? + // from 31.3.1996: swapped out to parser-method + // (is also needed in SbiParser::DefVar() in DIM.CXX) pDef = pParser->CheckRTLForSym( aSym, eType ); // #i109184: Check if symbol is or later will be defined inside module @@ -291,8 +290,6 @@ SbiExprNode* SbiExpression::Term( const KeywordSymbolInfo* pKeywordSymbolInfo ) } if( !pDef ) { - // Falls ein Punkt angegeben war, isses Teil eines Objekts, - // also muss der Returnwert ein Objekt sein if( bObj ) eType = SbxOBJECT; pDef = AddSym( eTok, *pParser->pPool, eCurExpr, aSym, eType, pPar ); @@ -305,8 +302,6 @@ SbiExprNode* SbiExpression::Term( const KeywordSymbolInfo* pKeywordSymbolInfo ) else { - // Symbol ist bereits definiert. - // Ist es eine Konstante? SbiConstDef* pConst = pDef->GetConstDef(); if( pConst ) { @@ -315,9 +310,8 @@ SbiExprNode* SbiExpression::Term( const KeywordSymbolInfo* pKeywordSymbolInfo ) else return new SbiExprNode( pParser, pConst->GetValue(), pConst->GetType() ); } - // Hat es Dimensionen, - // und sind auch Parameter angegeben? - // (Wobei 0 Parameter () entsprechen) + + // 0 parameters come up to () if( pDef->GetDims() ) { if( pPar && pPar->GetSize() && pPar->GetSize() != pDef->GetDims() ) @@ -329,26 +323,26 @@ SbiExprNode* SbiExpression::Term( const KeywordSymbolInfo* pKeywordSymbolInfo ) // #119187 Only error if types conflict if( eType >= SbxINTEGER && eType <= SbxSTRING && eType != eDefType ) { - // Wie? Erst mit AS definieren und dann einen Suffix nehmen? + // How? Define with AS first and take a Suffix then? pParser->Error( SbERR_BAD_DECLARATION, aSym ); bError = sal_True; } else if ( eType == SbxVARIANT ) - // Falls nix angegeben, den Typ des Eintrags nehmen - // aber nur, wenn die Var nicht mit AS XXX definiert ist - // damit erwischen wir n% = 5 : print n + // if there's nothing named, take the type of the entry, + // but only if the var hasn't been defined with AS XXX + // so that we catch n% = 5 : print n eType = eDefType; } - // Typcheck bei Variablen: - // ist explizit im Scanner etwas anderes angegeben? - // Bei Methoden ist dies OK! - if( eType != SbxVARIANT && // Variant nimmt alles + // checking type of variables: + // is there named anything different in the scanner? + // That's OK for methods! + if( eType != SbxVARIANT && // Variant takes everything eType != pDef->GetType() && !pDef->GetProcDef() ) { - // Es kann sein, dass pDef ein Objekt beschreibt, das bisher - // nur als SbxVARIANT erkannt wurde, dann Typ von pDef aendern - // AB, 16.12.95 (Vielleicht noch aehnliche Faelle moeglich ?!?) + // maybe pDef describes an object that so far has only been + // recognized as SbxVARIANT - then change type of pDef + // from 16.12.95 (similar cases possible perhaps?!?) if( eType == SbxOBJECT && pDef->GetType() == SbxVARIANT ) { pDef->SetType( SbxOBJECT ); @@ -367,11 +361,11 @@ SbiExprNode* SbiExpression::Term( const KeywordSymbolInfo* pKeywordSymbolInfo ) pNd->aVar.pvMorePar = pvMoreParLcl; if( bObj ) { - // AB, 8.1.95: Objekt kann auch vom Typ SbxVARIANT sein + // from 8.1.95: Object may also be of the type SbxVARIANT if( pDef->GetType() == SbxVARIANT ) pDef->SetType( SbxOBJECT ); - // Falls wir etwas mit Punkt einscannen, muss der - // Typ SbxOBJECT sein + // if we scan something with point, + // the type must be SbxOBJECT if( pDef->GetType() != SbxOBJECT && pDef->GetType() != SbxVARIANT ) { // defer error until runtime if in vba mode @@ -384,13 +378,13 @@ SbiExprNode* SbiExpression::Term( const KeywordSymbolInfo* pKeywordSymbolInfo ) if( !bError ) pNd->aVar.pNext = ObjTerm( *pDef ); } - // Merken der Spalte 1 wieder freigeben + pParser->UnlockColumn(); return pNd; } -// Aufbau eines Objekt-Terms. Ein derartiger Term ist Teil -// eines Ausdrucks, der mit einer Objektvariablen beginnt. +// construction of an object term. A term of this kind is part +// of an expression that begins with an object variable. SbiExprNode* SbiExpression::ObjTerm( SbiSymDef& rObj ) { @@ -398,8 +392,8 @@ SbiExprNode* SbiExpression::ObjTerm( SbiSymDef& rObj ) SbiToken eTok = pParser->Next(); if( eTok != SYMBOL && !pParser->IsKwd( eTok ) && !pParser->IsExtra( eTok ) ) { - // #66745 Einige Operatoren koennen in diesem Kontext auch - // als Identifier zugelassen werden, wichtig fuer StarOne + // #66745 Some operators can also be allowed + // as identifiers, important for StarOne if( eTok != MOD && eTok != NOT && eTok != AND && eTok != OR && eTok != XOR && eTok != EQV && eTok != IMP && eTok != IS ) { @@ -416,7 +410,7 @@ SbiExprNode* SbiExpression::ObjTerm( SbiSymDef& rObj ) SbiParameters* pPar = NULL; SbiExprListVector* pvMoreParLcl = NULL; eTok = pParser->Peek(); - // Parameter? + if( DoParametersFollow( pParser, eCurExpr, eTok ) ) { bool bStandaloneExpression = false; @@ -443,13 +437,13 @@ SbiExprNode* SbiExpression::ObjTerm( SbiSymDef& rObj ) eType = SbxOBJECT; else { - // Name%. geht wirklich nicht! + // Name%. does really not work! pParser->Error( SbERR_BAD_DECLARATION, aSym ); bError = sal_True; } } - // Der Symbol-Pool eines Objekts ist immer PUBLIC + // an object's symbol pool is always PUBLIC SbiSymPool& rPool = rObj.GetPool(); rPool.SetScope( SbPUBLIC ); SbiSymDef* pDef = rPool.Find( aSym ); @@ -464,11 +458,6 @@ SbiExprNode* SbiExpression::ObjTerm( SbiSymDef& rObj ) pNd->aVar.pvMorePar = pvMoreParLcl; if( bObj ) { - // Falls wir etwas mit Punkt einscannen, muss der - // Typ SbxOBJECT sein - - // Es kann sein, dass pDef ein Objekt beschreibt, das bisher - // nur als SbxVARIANT erkannt wurde, dann Typ von pDef aendern if( pDef->GetType() == SbxVARIANT ) pDef->SetType( SbxOBJECT ); @@ -486,20 +475,20 @@ SbiExprNode* SbiExpression::ObjTerm( SbiSymDef& rObj ) return pNd; } -// Als Operanden kommen in Betracht: -// Konstante -// skalare Variable -// Strukturelemente -// Array-Elemente -// Funktionen -// geklammerte Ausdruecke +// an operand can be: +// constant +// scalar variable +// structure elements +// array elements +// functions +// bracketed expressions SbiExprNode* SbiExpression::Operand( bool bUsedForTypeOf ) { SbiExprNode *pRes; SbiToken eTok; - // Operand testen: + // test operand: switch( eTok = pParser->Peek() ) { case SYMBOL: @@ -555,13 +544,13 @@ SbiExprNode* SbiExpression::Operand( bool bUsedForTypeOf ) pRes->bComposite = sal_True; break; default: - // Zur Zeit sind Keywords hier OK! + // keywords here are OK at the moment! if( pParser->IsKwd( eTok ) ) pRes = Term(); else { pParser->Next(); - pRes = new SbiExprNode( pParser, 1.0, SbxDOUBLE ); // bei Fehlern + pRes = new SbiExprNode( pParser, 1.0, SbxDOUBLE ); pParser->Error( SbERR_UNEXPECTED, eTok ); } } @@ -848,7 +837,7 @@ SbiExprNode* SbiExpression::Like() SbiToken eTok = pParser->Next(); pNd = new SbiExprNode( pParser, pNd, eTok, Comp() ), nCount++; } - // Mehrere Operatoren hintereinander gehen nicht + // multiple operands in a row does not work if( nCount > 1 && !pParser->IsVBASupportOn() ) { pParser->Error( SbERR_SYNTAX ); @@ -882,9 +871,6 @@ SbiExprNode* SbiExpression::Boolean() |* ***************************************************************************/ -// Parsing einer Expression, die sich zu einer numerischen -// Konstanten verarbeiten laesst. - SbiConstExpression::SbiConstExpression( SbiParser* p ) : SbiExpression( p ) { if( pExpr->IsConstant() ) @@ -902,13 +888,12 @@ SbiConstExpression::SbiConstExpression( SbiParser* p ) : SbiExpression( p ) } else { - // #40204 Spezialbehandlung fuer sal_Bool-Konstanten + // #40204 special treatment for sal_Bool-constants sal_Bool bIsBool = sal_False; if( pExpr->eNodeType == SbxVARVAL ) { SbiSymDef* pVarDef = pExpr->GetVar(); - // Ist es eine sal_Bool-Konstante? sal_Bool bBoolVal = sal_False; if( pVarDef->GetName().EqualsIgnoreCaseAscii( "true" ) ) { @@ -922,7 +907,6 @@ SbiConstExpression::SbiConstExpression( SbiParser* p ) : SbiExpression( p ) bBoolVal = sal_False; } - // Wenn es ein sal_Bool ist, Node austauschen if( bIsBool ) { delete pExpr; @@ -988,7 +972,6 @@ SbiExprList::~SbiExprList() } } -// Parameter anfordern (ab 0) SbiExpression* SbiExprList::Get( short n ) { @@ -1014,11 +997,11 @@ void SbiExprList::addExpression( SbiExpression* pExpr ) |* ***************************************************************************/ -// Parsender Konstruktor: -// Die Parameterliste wird komplett geparst. -// "Prozedurname()" ist OK. -// Dann handelt es sich um eine Funktion ohne Parameter -// respektive um die Angabe eines Arrays als Prozedurparameter. +// parsing constructor: +// the parameter list is completely parsed +// "procedurename()" is OK +// it's a function without parameters then +// i. e. you give an array as procedure parameter // #i79918/#i80532: bConst has never been set to true // -> reused as bStandaloneExpression @@ -1032,7 +1015,6 @@ SbiParameters::SbiParameters( SbiParser* p, sal_Bool bStandaloneExpression, sal_ SbiExpression *pExpr; SbiToken eTok = pParser->Peek(); - // evtl. Klammer auf weg: bool bAssumeExprLParenMode = false; bool bAssumeArrayMode = false; if( eTok == LPAREN ) @@ -1049,25 +1031,25 @@ SbiParameters::SbiParameters( SbiParser* p, sal_Bool bStandaloneExpression, sal_ } } - // Ende-Test + if( ( bBracket && eTok == RPAREN ) || pParser->IsEoln( eTok ) ) { if( eTok == RPAREN ) pParser->Next(); return; } - // Parametertabelle einlesen und in richtiger Folge ablegen! + // read in parameter table and lay down in correct order! SbiExpression* pLast = NULL; String aName; while( !bError ) { aName.Erase(); - // Fehlendes Argument + // missing argument if( eTok == COMMA ) { pExpr = new SbiExpression( pParser, 0, SbxEMPTY ); } - // Benannte Argumente: entweder .name= oder name:= + // named arguments: either .name= or name:= else { bool bByVal = false; @@ -1117,7 +1099,7 @@ SbiParameters::SbiParameters( SbiParser* p, sal_Bool bStandaloneExpression, sal_ if( pParser->Peek() == ASSIGN ) { // VBA mode: name:= - // SbiExpression::Term() hat einen String daraus gemacht + // SbiExpression::Term() has made as string out of it aName = pExpr->GetString(); delete pExpr; pParser->Next(); @@ -1137,7 +1119,7 @@ SbiParameters::SbiParameters( SbiParser* p, sal_Bool bStandaloneExpression, sal_ if( bAssumeArrayMode ) break; - // Naechstes Element? + // next element? eTok = pParser->Peek(); if( eTok != COMMA ) { @@ -1156,7 +1138,7 @@ SbiParameters::SbiParameters( SbiParser* p, sal_Bool bStandaloneExpression, sal_ break; } } - // Schliessende Klammer + // closing bracket if( eTok == RPAREN ) { pParser->Next(); @@ -1176,10 +1158,9 @@ SbiParameters::SbiParameters( SbiParser* p, sal_Bool bStandaloneExpression, sal_ |* ***************************************************************************/ -// Parsender Konstruktor: -// Eine Liste von Array-Dimensionen wird geparst. Die Ausdruecke werden -// auf numerisch getestet. Das bCONST-Bit wird gesetzt, wenn alle Ausdruecke -// Integer-Konstanten sind. +// parsing constructor: +// A list of array dimensions is parsed. The expressions are tested for being +// numeric. The bCONST-Bit is reset when all expressions are Integer constants. SbiDimList::SbiDimList( SbiParser* p ) : SbiExprList( p ) { @@ -1216,7 +1197,6 @@ SbiDimList::SbiDimList( SbiParser* p ) : SbiExprList( p ) } else { - // Nur eine Dim-Angabe pExpr1->SetBased(); pExpr1->pNext = NULL; bConst &= pExpr1->IsIntConstant(); diff --git a/basic/source/comp/io.cxx b/basic/source/comp/io.cxx index bc458e54305f..cff657adfb07 100644 --- a/basic/source/comp/io.cxx +++ b/basic/source/comp/io.cxx @@ -34,7 +34,7 @@ #include "sbcomp.hxx" #include "iosys.hxx" -// Test, ob ein I/O-Channel angegeben wurde +// test if there's an I/O channel sal_Bool SbiParser::Channel( sal_Bool bAlways ) { @@ -54,15 +54,13 @@ sal_Bool SbiParser::Channel( sal_Bool bAlways ) return bRes; } -// Fuer PRINT und WRITE wird bei Objektvariablen versucht, -// die Default-Property anzusprechen. - -// PRINT +// it's tried that at object variables the Default- +// Property is addressed for PRINT and WRITE void SbiParser::Print() { sal_Bool bChan = Channel(); - // Die Ausdruecke zum Drucken: + while( !bAbort ) { if( !IsEoln( Peek() ) ) @@ -93,7 +91,7 @@ void SbiParser::Print() void SbiParser::Write() { sal_Bool bChan = Channel(); - // Die Ausdruecke zum Drucken: + while( !bAbort ) { SbiExpression* pExpr = new SbiExpression( this ); @@ -153,7 +151,7 @@ void SbiParser::LineInput() pExpr->Gen(); aGen.Gen( _LINPUT ); delete pExpr; - aGen.Gen( _CHAN0 ); // ResetChannel() nicht mehr in StepLINPUT() + aGen.Gen( _CHAN0 ); // ResetChannel() not in StepLINPUT() anymore } // INPUT @@ -178,7 +176,7 @@ void SbiParser::Input() else break; } delete pExpr; - aGen.Gen( _CHAN0 ); // ResetChannel() nicht mehr in StepINPUT() + aGen.Gen( _CHAN0 ); } // OPEN stringexpr FOR mode ACCCESS access mode AS Channel [Len=n] @@ -209,8 +207,8 @@ void SbiParser::Open() { Next(); eTok = Next(); - // Nur STREAM_READ,STREAM_WRITE-Flags in nMode beeinflussen - nMode &= ~(STREAM_READ | STREAM_WRITE); // loeschen + // influence only STREAM_READ,STREAM_WRITE-Flags in nMode + nMode &= ~(STREAM_READ | STREAM_WRITE); // delete if( eTok == READ ) { if( Peek() == WRITE ) @@ -254,7 +252,7 @@ void SbiParser::Open() default: break; } TestToken( AS ); - // Die Kanalnummer + // channel number SbiExpression* pChan = new SbiExpression( this ); if( !pChan ) Error( SbERR_SYNTAX ); @@ -270,10 +268,10 @@ void SbiParser::Open() } } if( !pLen ) pLen = new SbiExpression( this, 128, SbxINTEGER ); - // Der Stack fuer den OPEN-Befehl sieht wie folgt aus: - // Blocklaenge - // Kanalnummer - // Dateiname + // the stack for the OPEN command looks as follows: + // block length + // channel number + // file name pLen->Gen(); if( pChan ) pChan->Gen(); diff --git a/basic/source/comp/loops.cxx b/basic/source/comp/loops.cxx index c3e9159dac3b..392e3e9ccb5c 100644 --- a/basic/source/comp/loops.cxx +++ b/basic/source/comp/loops.cxx @@ -37,18 +37,18 @@ void SbiParser::If() { sal_uInt32 nEndLbl; SbiToken eTok = NIL; - // Ende-Tokens ignorieren: + // ignore end-tokens SbiExpression aCond( this ); aCond.Gen(); TestToken( THEN ); if( IsEoln( Next() ) ) { - // Am Ende jeden Blocks muss ein Jump zu ENDIF - // eingefuegt werden, damit bei ELSEIF nicht erneut die Bedingung - // ausgewertet wird. Die Tabelle nimmt alle Absprungstellen auf. + // At the end of each block a jump to ENDIF must be inserted, + // so that the condition is not evaluated again at ELSEIF. + // The table collects all jump points. #define JMP_TABLE_SIZE 100 - sal_uInt32 pnJmpToEndLbl[JMP_TABLE_SIZE]; // 100 ELSEIFs zulaessig - sal_uInt16 iJmp = 0; // aktueller Tabellen-Index + sal_uInt32 pnJmpToEndLbl[JMP_TABLE_SIZE]; // 100 ELSEIFs allowed + sal_uInt16 iJmp = 0; // current table index // multiline IF nEndLbl = aGen.Gen( _JUMPF, 0 ); @@ -64,7 +64,7 @@ void SbiParser::If() } while( eTok == ELSEIF ) { - // Bei erfolgreichem IF/ELSEIF auf ENDIF springen + // jump to ENDIF in case of a successful IF/ELSEIF if( iJmp >= JMP_TABLE_SIZE ) { Error( SbERR_PROG_TOO_LARGE ); bAbort = sal_True; return; @@ -104,7 +104,7 @@ void SbiParser::If() else if( eTok == ENDIF ) Next(); - // Jmp-Tabelle abarbeiten + while( iJmp > 0 ) { iJmp--; @@ -143,7 +143,7 @@ void SbiParser::If() aGen.BackChain( nEndLbl ); } -// ELSE/ELSEIF/ENDIF ohne IF +// ELSE/ELSEIF/ENDIF without IF void SbiParser::NoIf() { @@ -213,7 +213,7 @@ void SbiParser::For() if( bForEach ) Next(); SbiExpression aLvalue( this, SbOPERAND ); - aLvalue.Gen(); // Variable auf dem Stack + aLvalue.Gen(); // variable on the Stack if( bForEach ) { @@ -227,10 +227,10 @@ void SbiParser::For() { TestToken( EQ ); SbiExpression aStartExpr( this ); - aStartExpr.Gen(); // Startausdruck auf dem Stack + aStartExpr.Gen(); TestToken( TO ); SbiExpression aStopExpr( this ); - aStopExpr.Gen(); // Endausdruck auf dem Stack + aStopExpr.Gen(); if( Peek() == STEP ) { Next(); @@ -243,19 +243,19 @@ void SbiParser::For() aOne.Gen(); } TestEoln(); - // Der Stack hat jetzt 4 Elemente: Variable, Start, Ende, Inkrement - // Startwert binden + // The stack has all 4 elements now: variable, start, end, increment + // bind start value aGen.Gen( _INITFOR ); } sal_uInt32 nLoop = aGen.GetPC(); - // Test durchfuehren, evtl. Stack freigeben + // do tests, maybe free the stack sal_uInt32 nEndTarget = aGen.Gen( _TESTFOR, 0 ); OpenBlock( FOR ); StmntBlock( NEXT ); aGen.Gen( _NEXT ); aGen.Gen( _JUMP, nLoop ); - // Kommen Variable nach NEXT? + // are there variables after NEXT? if( Peek() == SYMBOL ) { SbiExpression aVar( this, SbOPERAND ); @@ -272,16 +272,15 @@ void SbiParser::With() { SbiExpression aVar( this, SbOPERAND ); - // Letzten Knoten in der Objekt-Kette ueberpruefen SbiExprNode *pNode = aVar.GetExprNode()->GetRealNode(); SbiSymDef* pDef = pNode->GetVar(); - // Variant, AB 27.6.1997, #41090: bzw. empty -> muß Object sein + // Variant, from 27.6.1997, #41090: empty -> must be Object if( pDef->GetType() == SbxVARIANT || pDef->GetType() == SbxEMPTY ) pDef->SetType( SbxOBJECT ); else if( pDef->GetType() != SbxOBJECT ) Error( SbERR_NEEDS_OBJECT ); - // Knoten auch auf SbxOBJECT setzen, damit spaeter Gen() klappt + pNode->SetType( SbxOBJECT ); OpenBlock( NIL, aVar.GetExprNode() ); @@ -289,7 +288,7 @@ void SbiParser::With() CloseBlock(); } -// LOOP/NEXT/WEND ohne Konstrukt +// LOOP/NEXT/WEND without construct void SbiParser::BadBlock() { @@ -312,11 +311,11 @@ void SbiParser::OnGoto() Error( SbERR_EXPECTED, "GoTo/GoSub" ); eTok = GOTO; } - // Label-Tabelle einlesen: + sal_uInt32 nLbl = 0; do { - Next(); // Label holen + Next(); // get label if( MayBeLabel() ) { sal_uInt32 nOff = pProc->GetLabels().Reference( aSym ); @@ -371,7 +370,7 @@ void SbiParser::Select() sal_uInt32 nNextTarget = 0; sal_uInt32 nDoneTarget = 0; sal_Bool bElse = sal_False; - // Die Cases einlesen: + while( !bAbort ) { eTok = Next(); @@ -380,7 +379,7 @@ void SbiParser::Select() if( nNextTarget ) aGen.BackChain( nNextTarget ), nNextTarget = 0; aGen.Statement(); - // Jeden Case einlesen + sal_Bool bDone = sal_False; sal_uInt32 nTrueTarget = 0; if( Peek() == ELSE ) @@ -429,13 +428,13 @@ void SbiParser::Select() if( Peek() == COMMA ) Next(); else TestEoln(), bDone = sal_True; } - // Alle Cases abgearbeitet + if( !bElse ) { nNextTarget = aGen.Gen( _JUMP, nNextTarget ); aGen.BackChain( nTrueTarget ); } - // den Statement-Rumpf bauen + // build the statement body while( !bAbort ) { eTok = Peek(); @@ -472,14 +471,14 @@ void SbiParser::On() SbiToken eTok = Peek(); String aString = SbiTokenizer::Symbol(eTok); if (aString.EqualsIgnoreCaseAscii("ERROR")) - eTok = _ERROR_; // Error kommt als SYMBOL + eTok = _ERROR_; // Error comes as SYMBOL if( eTok != _ERROR_ && eTok != LOCAL ) OnGoto(); else { if( eTok == LOCAL ) Next(); - Next (); // Kein TestToken mehr, da es sonst einen Fehler gibt + Next (); // no more TestToken, as there'd be an error otherwise - Next(); // Token nach Error holen + Next(); // get token after error if( eCurTok == GOTO ) { // ON ERROR GOTO label|0 diff --git a/basic/source/comp/parser.cxx b/basic/source/comp/parser.cxx index 2ea78357882f..b8fb78f366d0 100644 --- a/basic/source/comp/parser.cxx +++ b/basic/source/comp/parser.cxx @@ -32,18 +32,18 @@ #include "sbcomp.hxx" #include <com/sun/star/script/ModuleType.hpp> -struct SbiParseStack { // "Stack" fuer Statement-Blocks +struct SbiParseStack { // "Stack" for statement-blocks SbiParseStack* pNext; // Chain - SbiExprNode* pWithVar; // Variable fuer WITH - SbiToken eExitTok; // Exit-Token + SbiExprNode* pWithVar; + SbiToken eExitTok; sal_uInt32 nChain; // JUMP-Chain }; struct SbiStatement { SbiToken eTok; - void( SbiParser::*Func )(); // Verarbeitungsroutine - sal_Bool bMain; // sal_True: ausserhalb SUBs OK - sal_Bool bSubr; // sal_True: in SUBs OK + void( SbiParser::*Func )(); + sal_Bool bMain; // sal_True: OK outside the SUB + sal_Bool bSubr; // sal_True: OK inside the SUB }; #define Y sal_True @@ -148,16 +148,16 @@ SbiParser::SbiParser( StarBASIC* pb, SbModule* pm ) OSL_TRACE("Parser - %s, bClassModule %d", rtl::OUStringToOString( pm->GetName(), RTL_TEXTENCODING_UTF8 ).getStr(), bClassModule ); pPool = &aPublics; for( short i = 0; i < 26; i++ ) - eDefTypes[ i ] = SbxVARIANT; // Kein expliziter Defaulttyp + eDefTypes[ i ] = SbxVARIANT; // no explicit default type aPublics.SetParent( &aGlobals ); aGlobals.SetParent( &aRtlSyms ); - // Die globale Chainkette faengt bei Adresse 0 an: + nGblChain = aGen.Gen( _JUMP, 0 ); - rTypeArray = new SbxArray; // Array fuer Benutzerdefinierte Typen - rEnumArray = new SbxArray; // Array for Enum types + rTypeArray = new SbxArray; // array for user defined types + rEnumArray = new SbxArray; // array for Enum types bVBASupportOn = pm->IsVBACompat(); if ( bVBASupportOn ) EnableCompatibility(); @@ -165,7 +165,7 @@ SbiParser::SbiParser( StarBASIC* pb, SbModule* pm ) } -// Ist Teil der Runtime-Library? +// part of the runtime-library? SbiSymDef* SbiParser::CheckRTLForSym( const String& rSym, SbxDataType eType ) { SbxVariable* pVar = GetBasic()->GetRtl()->Find( rSym, SbxCLASS_DONTCARE ); @@ -187,7 +187,7 @@ SbiSymDef* SbiParser::CheckRTLForSym( const String& rSym, SbxDataType eType ) return pDef; } -// Globale Chainkette schliessen +// close global chain sal_Bool SbiParser::HasGlobalCode() { @@ -210,7 +210,7 @@ void SbiParser::OpenBlock( SbiToken eTok, SbiExprNode* pVar ) pStack = p; pWithVar = pVar; - // #29955 for-Schleifen-Ebene pflegen + // #29955 service the for-loop level if( eTok == FOR ) aGen.IncForLevel(); } @@ -221,7 +221,7 @@ void SbiParser::CloseBlock() { SbiParseStack* p = pStack; - // #29955 for-Schleifen-Ebene pflegen + // #29955 service the for-loop level if( p->eExitTok == FOR ) aGen.DecForLevel(); @@ -264,7 +264,7 @@ sal_Bool SbiParser::TestSymbol( sal_Bool bKwdOk ) return sal_False; } -// Testen auf ein bestimmtes Token + sal_Bool SbiParser::TestToken( SbiToken t ) { @@ -279,7 +279,7 @@ sal_Bool SbiParser::TestToken( SbiToken t ) } } -// Testen auf Komma oder EOLN + sal_Bool SbiParser::TestComma() { @@ -298,7 +298,7 @@ sal_Bool SbiParser::TestComma() return sal_True; } -// Testen, ob EOLN vorliegt + void SbiParser::TestEoln() { @@ -309,8 +309,7 @@ void SbiParser::TestEoln() } } -// Parsing eines Statement-Blocks -// Das Parsing laeuft bis zum Ende-Token. + void SbiParser::StmntBlock( SbiToken eEnd ) { @@ -325,8 +324,7 @@ void SbiParser::StmntBlock( SbiToken eEnd ) } } -// Die Hauptroutine. Durch wiederholten Aufrufs dieser Routine wird -// die Quelle geparst. Returnwert sal_False bei Ende/Fehlern. + sal_Bool SbiParser::Parse() { @@ -337,19 +335,19 @@ sal_Bool SbiParser::Parse() bErrorIsSymbol = false; Peek(); bErrorIsSymbol = true; - // Dateiende? + if( IsEof() ) { - // AB #33133: Falls keine Sub angelegt wurde, muss hier - // der globale Chain abgeschlossen werden! - // AB #40689: Durch die neue static-Behandlung kann noch - // ein nGblChain vorhanden sein, daher vorher abfragen + // AB #33133: If no sub has been created before, + // the global chain must be closed here! + // AB #40689: Due to the new static-handling there + // can be another nGblChain, so ask for it before. if( bNewGblDefs && nGblChain == 0 ) nGblChain = aGen.Gen( _JUMP, 0 ); return sal_False; } - // Leerstatement? + if( IsEoln( eCurTok ) ) { Next(); return sal_True; @@ -357,20 +355,20 @@ sal_Bool SbiParser::Parse() if( !bSingleLineIf && MayBeLabel( sal_True ) ) { - // Ist ein Label + // is a label if( !pProc ) Error( SbERR_NOT_IN_MAIN, aSym ); else pProc->GetLabels().Define( aSym ); Next(); Peek(); - // Leerstatement? + if( IsEoln( eCurTok ) ) { Next(); return sal_True; } } - // Ende des Parsings? + // end of parsing? if( eCurTok == eEndTok || ( bVBASupportOn && // #i109075 (eCurTok == ENDFUNC || eCurTok == ENDPROPERTY || eCurTok == ENDSUB) && @@ -382,7 +380,7 @@ sal_Bool SbiParser::Parse() return sal_False; } - // Kommentar? + // comment? if( eCurTok == REM ) { Next(); return sal_True; @@ -400,16 +398,16 @@ sal_Bool SbiParser::Parse() ePush = eCurTok; } } - // Kommt ein Symbol, ist es entweder eine Variable( LET ) - // oder eine SUB-Prozedur( CALL ohne Klammern ) - // DOT fuer Zuweisungen im WITH-Block: .A=5 + // if there's a symbol, it's either a variable (LET) + // or a SUB-procedure (CALL without brackets) + // DOT for assignments in the WITH-block: .A=5 if( eCurTok == SYMBOL || eCurTok == DOT ) { if( !pProc ) Error( SbERR_EXPECTED, SUB ); else { - // Damit Zeile & Spalte stimmen... + // for correct line and column... Next(); Push( eCurTok ); aGen.Statement(); @@ -420,7 +418,7 @@ sal_Bool SbiParser::Parse() { Next(); - // Hier folgen nun die Statement-Parser. + // statement parsers SbiStatement* p; for( p = StmntTable; p->eTok != NIL; p++ ) @@ -434,16 +432,15 @@ sal_Bool SbiParser::Parse() Error( SbERR_NOT_IN_SUBR, eCurTok ); else { - // globalen Chain pflegen - // AB #41606/#40689: Durch die neue static-Behandlung kann noch - // ein nGblChain vorhanden sein, daher vorher abfragen + // AB #41606/#40689: Due to the new static-handling there + // can be another nGblChain, so ask for it before. if( bNewGblDefs && nGblChain == 0 && ( eCurTok == SUB || eCurTok == FUNCTION || eCurTok == PROPERTY ) ) { nGblChain = aGen.Gen( _JUMP, 0 ); bNewGblDefs = sal_False; } - // Statement-Opcode bitte auch am Anfang einer Sub + // statement-opcode at the beginning of a sub, too, please if( ( p->bSubr && (eCurTok != STATIC || Peek() == SUB || Peek() == FUNCTION ) ) || eCurTok == SUB || eCurTok == FUNCTION ) aGen.Statement(); @@ -457,35 +454,34 @@ sal_Bool SbiParser::Parse() Error( SbERR_UNEXPECTED, eCurTok ); } - // Test auf Ende des Statements: - // Kann auch ein ELSE sein, da vor dem ELSE kein : stehen muss! + // test for the statement's end - + // might also be an ELSE, as there must not neccessary be a : before the ELSE! if( !IsEos() ) { Peek(); if( !IsEos() && eCurTok != ELSE ) { - // falls das Parsing abgebrochen wurde, bis zum ":" vorgehen: + // if the parsing has been aborted, jump over to the ":" Error( SbERR_UNEXPECTED, eCurTok ); while( !IsEos() ) Next(); } } - // Der Parser bricht am Ende ab, das naechste Token ist noch nicht - // geholt! + // The parser aborts at the end, the + // next token has not been fetched yet! return sal_True; } -// Innerste With-Variable liefern + SbiExprNode* SbiParser::GetWithVar() { if( pWithVar ) return pWithVar; - // Sonst im Stack suchen SbiParseStack* p = pStack; while( p ) { - // LoopVar kann zur Zeit nur fuer with sein + // LoopVar can at the moment only be for with if( p->pWithVar ) return p->pWithVar; p = p->pNext; @@ -494,7 +490,7 @@ SbiExprNode* SbiParser::GetWithVar() } -// Zuweisung oder Subroutine Call +// assignment or subroutine call void SbiParser::Symbol( const KeywordSymbolInfo* pKeywordSymbolInfo ) { @@ -540,7 +536,7 @@ void SbiParser::Symbol( const KeywordSymbolInfo* pKeywordSymbolInfo ) } else { - // Dann muss es eine Zuweisung sein. Was anderes gibts nicht! + // so it must be an assignment! if( !aVar.IsLvalue() ) Error( SbERR_LVALUE_EXPECTED ); TestToken( EQ ); @@ -566,7 +562,6 @@ void SbiParser::Symbol( const KeywordSymbolInfo* pKeywordSymbolInfo ) } } -// Zuweisungen void SbiParser::Assign() { @@ -587,7 +582,7 @@ void SbiParser::Assign() aGen.Gen( _PUT ); } -// Zuweisungen einer Objektvariablen +// assignments of an object-variable void SbiParser::Set() { @@ -671,7 +666,7 @@ void SbiParser::RSet() aGen.Gen( _RSET ); } -// DEFINT, DEFLNG, DEFSNG, DEFDBL, DEFSTR und so weiter +// DEFINT, DEFLNG, DEFSNG, DEFDBL, DEFSTR and so on void SbiParser::DefXXX() { @@ -705,7 +700,7 @@ void SbiParser::DefXXX() void SbiParser::Stop() { aGen.Gen( _STOP ); - Peek(); // #35694: Nur Peek(), damit EOL in Single-Line-If erkannt wird + Peek(); // #35694: only Peek(), so that EOL is recognized in Single-Line-If } // IMPLEMENTS diff --git a/basic/source/comp/sbcomp.cxx b/basic/source/comp/sbcomp.cxx index 86557db46699..b2cba95a5344 100644 --- a/basic/source/comp/sbcomp.cxx +++ b/basic/source/comp/sbcomp.cxx @@ -903,8 +903,8 @@ void RTL_Impl_TraceCommand( StarBASIC* pBasic, SbxArray& rPar, sal_Bool bWrite ) #endif -// Diese Routine ist hier definiert, damit der Compiler als eigenes Segment -// geladen werden kann. +// This routine is defined here, so that the +// compiler can be loaded as a discrete segment. sal_Bool SbModule::Compile() { @@ -914,7 +914,7 @@ sal_Bool SbModule::Compile() if( !pBasic ) return sal_False; SbxBase::ResetError(); - // Aktuelles Modul! + SbModule* pOld = pCMOD; pCMOD = this; @@ -923,14 +923,14 @@ sal_Bool SbModule::Compile() if( !pParser->GetErrors() ) pParser->aGen.Save(); delete pParser; - // fuer den Disassembler + // for the disassembler if( pImage ) pImage->aOUSource = aOUSource; pCMOD = pOld; - // Beim Compilieren eines Moduls werden die Modul-globalen - // Variablen aller Module ungueltig + // compiling a module, the module-global + // variables of all modules become invalid sal_Bool bRet = IsCompiled(); if( bRet ) { diff --git a/basic/source/comp/scanner.cxx b/basic/source/comp/scanner.cxx index 11c081d1b4b2..1dec4db83caa 100644 --- a/basic/source/comp/scanner.cxx +++ b/basic/source/comp/scanner.cxx @@ -97,12 +97,12 @@ void SbiScanner::GenError( SbError code ) if( !bError && bErrors ) { sal_Bool bRes = sal_True; - // Nur einen Fehler pro Statement reporten + // report only one error per statement bError = sal_True; if( pBasic ) { - // Falls EXPECTED oder UNEXPECTED kommen sollte, bezieht es sich - // immer auf das letzte Token, also die Col1 uebernehmen + // in case of EXPECTED or UNEXPECTED it always refers + // to the last token, so take the Col1 over sal_uInt16 nc = nColLock ? nSavedCol1 : nCol1; switch( code ) { @@ -123,8 +123,8 @@ void SbiScanner::GenError( SbError code ) nErrors++; } -// Falls sofort ein Doppelpunkt folgt, wird sal_True zurueckgeliefert. -// Wird von SbiTokenizer::MayBeLabel() verwendet, um einen Label zu erkennen + +// used by SbiTokenizer::MayBeLabel() to detect a label sal_Bool SbiScanner::DoesColonFollow() { @@ -135,7 +135,7 @@ sal_Bool SbiScanner::DoesColonFollow() else return sal_False; } -// Testen auf ein legales Suffix +// test for legal suffix static SbxDataType GetSuffixType( sal_Unicode c ) { @@ -149,8 +149,8 @@ static SbxDataType GetSuffixType( sal_Unicode c ) return SbxVARIANT; } -// Einlesen des naechsten Symbols in die Variablen aSym, nVal und eType -// Returnwert ist sal_False bei EOF oder Fehlern +// reading the next symbol into the variables aSym, nVal and eType +// return value is sal_False at EOF or errors #define BUF_SIZE 80 namespace { @@ -165,7 +165,7 @@ inline bool lclIsWhitespace( sal_Unicode cChar ) sal_Bool SbiScanner::NextSym() { - // Fuer den EOLN-Fall merken + // memorize for the EOLN-case sal_uInt16 nOldLine = nLine; sal_uInt16 nOldCol1 = nCol1; sal_uInt16 nOldCol2 = nCol2; @@ -177,7 +177,7 @@ sal_Bool SbiScanner::NextSym() bSymbol = bNumber = bSpaces = sal_False; - // Zeile einlesen? + // read in line? if( !pLine ) { sal_Int32 n = nBufPos; @@ -207,13 +207,13 @@ sal_Bool SbiScanner::NextSym() nColLock = 0; } - // Leerstellen weg: + while( lclIsWhitespace( *pLine ) ) pLine++, nCol++, bSpaces = sal_True; nCol1 = nCol; - // nur Leerzeile? + // only blank line? if( !*pLine ) goto eoln; @@ -227,10 +227,10 @@ sal_Bool SbiScanner::NextSym() bHash = sal_True; } - // Symbol? Dann Zeichen kopieren. + // copy character if symbol if( BasicSimpleCharClass::isAlpha( *pLine, bCompatible ) || *pLine == '_' ) { - // Wenn nach '_' nichts kommt, ist es ein Zeilenabschluss! + // if there's nothing behind '_' , it's the end of a line! if( *pLine == '_' && !*(pLine+1) ) { pLine++; goto eoln; } @@ -263,16 +263,16 @@ sal_Bool SbiScanner::NextSym() } } - // Abschliessendes '_' durch Space ersetzen, wenn Zeilenende folgt - // (sonst falsche Zeilenfortsetzung) + // replace closing '_' by space when end of line is following + // (wrong line continuation otherwise) if( !bUsedForHilite && !*pLine && *(pLine-1) == '_' ) { aSym.GetBufferAccess(); // #109693 force copy if necessary - *((sal_Unicode*)(pLine-1)) = ' '; // cast wegen const + *((sal_Unicode*)(pLine-1)) = ' '; // cast because of const } - // Typkennung? - // Das Ausrufezeichen bitte nicht testen, wenn - // danach noch ein Symbol anschliesst + // type recognition? + // don't test the exclamation mark + // if there's a symbol behind it else if( *pLine != '!' || !BasicSimpleCharClass::isAlpha( pLine[ 1 ], bCompatible ) ) { SbxDataType t = GetSuffixType( *pLine ); @@ -285,7 +285,7 @@ sal_Bool SbiScanner::NextSym() } } - // Zahl? Dann einlesen und konvertieren. + // read in and convert if number else if( BasicSimpleCharClass::isDigit( *pLine & 0xFF ) || ( *pLine == '.' && BasicSimpleCharClass::isDigit( *(pLine+1) & 0xFF ) ) ) { @@ -297,14 +297,14 @@ sal_Bool SbiScanner::NextSym() sal_Bool bBufOverflow = sal_False; while( strchr( "0123456789.DEde", *pLine ) && *pLine ) { - // AB 4.1.1996: Buffer voll? -> leer weiter scannen + // from 4.1.1996: buffer full? -> go on scanning empty if( (p-buf) == (BUF_SIZE-1) ) { bBufOverflow = sal_True; pLine++, nCol++; continue; } - // Komma oder Exponent? + // point or exponent? if( *pLine == '.' ) { if( ++comma > 1 ) @@ -320,7 +320,7 @@ sal_Bool SbiScanner::NextSym() pLine++; nCol++; continue; } *p++ = 'E'; pLine++; nCol++; - // Vorzeichen hinter Exponent? + if( *pLine == '+' ) pLine++, nCol++; else @@ -336,12 +336,12 @@ sal_Bool SbiScanner::NextSym() } *p = 0; aSym = p; bNumber = sal_True; - // Komma, Exponent mehrfach vorhanden? + if( comma > 1 || exp > 1 ) { aError = '.'; GenError( SbERR_BAD_CHAR_IN_NUMBER ); } - // #57844 Lokalisierte Funktion benutzen + // #57844 use localized function nVal = rtl_math_uStringToDouble( buf, buf+(p-buf), '.', ',', NULL, NULL ); ndig = ndig - comma; @@ -356,7 +356,7 @@ sal_Bool SbiScanner::NextSym() if( bBufOverflow ) GenError( SbERR_MATH_OVERFLOW ); - // Typkennung? + // type recognition? SbxDataType t = GetSuffixType( *pLine ); if( t != SbxVARIANT ) { @@ -366,7 +366,7 @@ sal_Bool SbiScanner::NextSym() } } - // Hex/Oktalzahl? Einlesen und konvertieren: + // Hex/octal number? Read in and convert: else if( *pLine == '&' ) { pLine++; nCol++; @@ -383,7 +383,7 @@ sal_Bool SbiScanner::NextSym() case 'H': break; default : - // Wird als Operator angesehen + // treated as an operator pLine--; nCol--; nCol1 = nCol-1; aSym = '&'; return SYMBOL; } bNumber = sal_True; @@ -395,7 +395,7 @@ sal_Bool SbiScanner::NextSym() sal_Unicode ch = sal::static_int_cast< sal_Unicode >( toupper( *pLine & 0xFF ) ); pLine++; nCol++; - // AB 4.1.1996: Buffer voll, leer weiter scannen + // from 4.1.1996: buffer full, go on scanning empty if( (p-buf) == (BUF_SIZE-1) ) bBufOverflow = sal_True; else if( String( cmp ).Search( ch ) != STRING_NOTFOUND ) @@ -447,7 +447,7 @@ sal_Bool SbiScanner::NextSym() aSym = aLine.copy( n - 1, nCol - n + 1); else aSym = aLine.copy( n, nCol - n - 1 ); - // Doppelte Stringbegrenzer raus + // get out duplicate string delimiters String s( cSep ); s += cSep; sal_uInt16 nIdx = 0; @@ -463,12 +463,12 @@ sal_Bool SbiScanner::NextSym() if( cSep != ']' ) eScanType = ( cSep == '#' ) ? SbxDATE : SbxSTRING; } - // ungueltige Zeichen: + // invalid characters: else if( ( *pLine & 0xFF ) >= 0x7F ) { GenError( SbERR_SYNTAX ); pLine++; nCol++; } - // andere Gruppen: + // other groups: else { short n = 1; @@ -485,7 +485,7 @@ sal_Bool SbiScanner::NextSym() nCol2 = nCol-1; PrevLineCommentLbl: - // Kommentar? + if( bPrevLineExtentsComment || (eScanType != SbxSTRING && ( aSym.GetBuffer()[0] == '\'' || aSym.EqualsIgnoreCaseAscii( "REM" ) ) ) ) { @@ -499,8 +499,7 @@ PrevLineCommentLbl: } return sal_True; - // Sonst Zeilen-Ende: aber bitte auf '_' testen, ob die - // Zeile nicht weitergeht! + eoln: if( nCol && *--pLine == '_' ) { diff --git a/basic/source/comp/symtbl.cxx b/basic/source/comp/symtbl.cxx index 128c4acf52fc..4e6e93283c2b 100644 --- a/basic/source/comp/symtbl.cxx +++ b/basic/source/comp/symtbl.cxx @@ -37,11 +37,11 @@ SV_IMPL_PTRARR(SbiStrings,String*) SV_IMPL_PTRARR(SbiSymbols,SbiSymDef*) -// Alle Symbolnamen werden im Stringpool des Symbol-Pools abgelegt, damit -// alle Symbole im gleichen Case verarbeitet werden. Beim Speichern des -// Code-Images wird der globale Stringpool mit den entsprechenden Sympools -// gespeichert. Der lokale Stringpool nimmt alle Symbole auf, die nicht -// ins Image wandern (Labels, Konstantennamen etc). +// All symbol names are laid down int the symbol-pool's stringpool, so that +// all symbols are handled in the same case. On saving the code-image, the +// global stringpool with the respective symbols is also saved. +// The local stringpool holds all the symbols that don't move to the image +// (labels, constant names etc.). /*************************************************************************** |* @@ -57,7 +57,6 @@ SbiStringPool::SbiStringPool( SbiParser* p ) SbiStringPool::~SbiStringPool() {} -// Suchen const String& SbiStringPool::Find( sal_uInt16 n ) const { @@ -67,8 +66,7 @@ const String& SbiStringPool::Find( sal_uInt16 n ) const return *aData.GetObject( n-1 ); } -// Hinzufuegen eines Strings. Der String wird Case-Insensitiv -// verglichen. + short SbiStringPool::Add( const String& rVal, sal_Bool bNoCase ) { @@ -117,7 +115,6 @@ SbiSymPool::SbiSymPool( SbiStringPool& r, SbiSymScope s ) : rStrings( r ) SbiSymPool::~SbiSymPool() {} -// Inhalt loeschen void SbiSymPool::Clear() { @@ -138,7 +135,6 @@ SbiSymDef* SbiSymPool::Next() return aData.GetObject( nCur ); } -// Hinzufuegen eines Symbols SbiSymDef* SbiSymPool::AddSym( const String& rName ) { @@ -157,7 +153,7 @@ SbiProcDef* SbiSymPool::AddProc( const String& rName ) SbiProcDef* p = new SbiProcDef( pParser, rName ); p->nPos = aData.Count(); p->nId = rStrings.Add( rName ); - // Procs sind immer global + // procs are always local p->nProcId = 0; p->pIn = this; const SbiSymDef* q = p; @@ -165,7 +161,7 @@ SbiProcDef* SbiSymPool::AddProc( const String& rName ) return p; } -// Hinzufuegen einer extern aufgebauten Symboldefinition +// adding an externally constructed symbol definition void SbiSymPool::Add( SbiSymDef* pDef ) { @@ -174,7 +170,7 @@ void SbiSymPool::Add( SbiSymDef* pDef ) if( pDef->pIn ) { #ifdef DBG_UTIL - // schon in einem anderen Pool drin! + pParser->Error( SbERR_INTERNAL_ERROR, "Dbl Pool" ); #endif return; @@ -183,8 +179,8 @@ void SbiSymPool::Add( SbiSymDef* pDef ) pDef->nPos = aData.Count(); if( !pDef->nId ) { - // Bei statischen Variablen muss ein eindeutiger Name - // im Stringpool erzeugt werden (Form ProcName:VarName) + // A unique name must be created in the string pool + // for static variables (Form ProcName:VarName) String aName( pDef->aName ); if( pDef->IsStatic() ) { @@ -194,7 +190,7 @@ void SbiSymPool::Add( SbiSymDef* pDef ) } pDef->nId = rStrings.Add( aName ); } - // Procs sind immer global + if( !pDef->GetProcDef() ) pDef->nProcId = nProcId; pDef->pIn = this; @@ -203,7 +199,6 @@ void SbiSymPool::Add( SbiSymDef* pDef ) } } -// Suchen eines Eintrags ueber den Namen. Es wird auch im Parent gesucht. SbiSymDef* SbiSymPool::Find( const String& rName ) const { @@ -221,7 +216,6 @@ SbiSymDef* SbiSymPool::Find( const String& rName ) const return NULL; } -// Suchen ueber ID-Nummer SbiSymDef* SbiSymPool::FindId( sal_uInt16 n ) const { @@ -237,7 +231,7 @@ SbiSymDef* SbiSymPool::FindId( sal_uInt16 n ) const return NULL; } -// Suchen ueber Position (ab 0) +// find via position (from 0) SbiSymDef* SbiSymPool::Get( sal_uInt16 n ) const { @@ -264,12 +258,11 @@ sal_uInt32 SbiSymPool::Reference( const String& rName ) SbiSymDef* p = Find( rName ); if( !p ) p = AddSym( rName ); - //Sicherheitshalber + // to be sure pParser->aGen.GenStmnt(); return p->Reference(); } -// Alle offenen Referenzen anmaulen void SbiSymPool::CheckRefs() { @@ -283,7 +276,7 @@ void SbiSymPool::CheckRefs() /*************************************************************************** |* -|* Symbol-Definitionen +|* symbol definitions |* ***************************************************************************/ @@ -328,8 +321,6 @@ SbiConstDef* SbiSymDef::GetConstDef() return NULL; } -// Wenn der Name benoetigt wird, den aktuellen Namen -// aus dem Stringpool nehmen const String& SbiSymDef::GetName() { @@ -338,7 +329,6 @@ const String& SbiSymDef::GetName() return aName; } -// Eintragen eines Datentyps void SbiSymDef::SetType( SbxDataType t ) { @@ -358,9 +348,8 @@ void SbiSymDef::SetType( SbxDataType t ) eType = t; } -// Aufbau einer Backchain, falls noch nicht definiert -// Es wird der Wert zurueckgeliefert, der als Operand gespeichert -// werden soll. +// construct a backchain, if not yet defined +// the value that shall be stored as an operand is returned sal_uInt32 SbiSymDef::Reference() { @@ -373,8 +362,6 @@ sal_uInt32 SbiSymDef::Reference() else return nChain; } -// Definition eines Symbols. -// Hier wird der Backchain aufgeloest, falls vorhanden sal_uInt32 SbiSymDef::Define() { @@ -386,13 +373,13 @@ sal_uInt32 SbiSymDef::Define() return nChain; } -// Eine Symboldefinition kann einen eigenen Pool haben. Dies ist -// der Fall bei Objekten und Prozeduren (lokale Variable) +// A symbol definition may have its own pool. This is the caseDies ist +// for objects and procedures (local variable) SbiSymPool& SbiSymDef::GetPool() { if( !pPool ) - pPool = new SbiSymPool( pIn->pParser->aGblStrings, SbLOCAL ); // wird gedumpt + pPool = new SbiSymPool( pIn->pParser->aGblStrings, SbLOCAL ); // is dumped return *pPool; } @@ -402,22 +389,22 @@ SbiSymScope SbiSymDef::GetScope() const } -// Die Prozedur-Definition hat drei Pools: -// 1) aParams: wird durch die Definition gefuellt. Enthaelt die Namen -// der Parameter, wie sie innerhalb des Rumpfes verwendet werden. -// Das erste Element ist der Returnwert. -// 2) pPool: saemtliche lokale Variable -// 3) aLabels: Labels +// The procedure definition has three pools: +// 1) aParams: is filled by the definition. Contains the +// parameters' names, like they're used inside the body. +// The first element is the return value. +// 2) pPool: all local variables +// 3) aLabels: labels SbiProcDef::SbiProcDef( SbiParser* pParser, const String& rName, sal_Bool bProcDecl ) : SbiSymDef( rName ) - , aParams( pParser->aGblStrings, SbPARAM ) // wird gedumpt - , aLabels( pParser->aLclStrings, SbLOCAL ) // wird nicht gedumpt + , aParams( pParser->aGblStrings, SbPARAM ) // is dumped + , aLabels( pParser->aLclStrings, SbLOCAL ) // is not dumped , mbProcDecl( bProcDecl ) { aParams.SetParent( &pParser->aPublics ); - pPool = new SbiSymPool( pParser->aGblStrings, SbLOCAL ); // Locals + pPool = new SbiSymPool( pParser->aGblStrings, SbLOCAL ); pPool->SetParent( &aParams ); nLine1 = nLine2 = 0; @@ -425,8 +412,8 @@ SbiProcDef::SbiProcDef( SbiParser* pParser, const String& rName, bPublic = sal_True; bCdecl = sal_False; bStatic = sal_False; - // Fuer Returnwerte ist das erste Element der Parameterliste - // immer mit dem Namen und dem Typ der Proc definiert + // For return values the first element of the parameter + // list is always defined with name and type of the proc aParams.AddSym( aName ); } @@ -444,30 +431,29 @@ void SbiProcDef::SetType( SbxDataType t ) aParams.Get( 0 )->SetType( eType ); } -// Match mit einer Forward-Deklaration -// Falls der Match OK ist, wird pOld durch this im Pool ersetzt -// pOld wird immer geloescht! +// match with a forward-declaration +// if the match is OK, pOld is replaced by this in the pool +// pOld is deleted in any case! void SbiProcDef::Match( SbiProcDef* pOld ) { SbiSymDef* po, *pn=NULL; - // Parameter 0 ist der Funktionsname + // parameter 0 is the function name sal_uInt16 i; for( i = 1; i < aParams.GetSize(); i++ ) { po = pOld->aParams.Get( i ); pn = aParams.Get( i ); - // Kein Typabgleich; das wird beim Laufen erledigt - // aber ist sie evtl. mit zu wenigen Parametern aufgerufen - // worden? + // no type matching - that is done during running + // but is it maybe called with too little parameters? if( !po && !pn->IsOptional() && !pn->IsParamArray() ) break; po = pOld->aParams.Next(); } - // Wurden zu viele Parameter angegeben? + if( pn && i < aParams.GetSize() && pOld->pIn ) { - // Die ganze Zeile markieren + // mark the whole line pOld->pIn->GetParser()->SetCol1( 0 ); pOld->pIn->GetParser()->Error( SbERR_BAD_DECLARATION, aName ); } diff --git a/basic/source/comp/token.cxx b/basic/source/comp/token.cxx index df387eabc102..1027d5b683a9 100644 --- a/basic/source/comp/token.cxx +++ b/basic/source/comp/token.cxx @@ -34,11 +34,11 @@ struct TokenTable { SbiToken t; const char *s; }; -static short nToken; // Anzahl der Tokens +static short nToken; // number of tokens static TokenTable* pTokTable; -static TokenTable aTokTable_Basic [] = { // Token-Tabelle: +static TokenTable aTokTable_Basic [] = { { CAT, "&" }, { MUL, "*" }, @@ -119,7 +119,7 @@ static TokenTable aTokTable_Basic [] = { // Token-Tabelle: { IMP, "Imp" }, { IMPLEMENTS, "Implements" }, { _IN_, "In" }, - { INPUT, "Input" }, // auch INPUT # + { INPUT, "Input" }, // also INPUT # { TINTEGER, "Integer" }, { IS, "Is" }, { LET, "Let" }, @@ -188,7 +188,7 @@ static TokenTable aTokTable_Basic [] = { // Token-Tabelle: { WHILE, "While" }, { WITH, "With" }, { WITHEVENTS, "WithEvents" }, - { WRITE, "Write" }, // auch WRITE # + { WRITE, "Write" }, // also WRITE # { XOR, "Xor" }, { NIL, "" } }; @@ -217,7 +217,7 @@ TokenLabelInfo::~TokenLabelInfo() } -// Der Konstruktor ermittelt die Laenge der Token-Tabelle. +// the constructor detects the length of the token table SbiTokenizer::SbiTokenizer( const ::rtl::OUString& rSrc, StarBASIC* pb ) : SbiScanner( rSrc, pb ) @@ -236,7 +236,6 @@ SbiTokenizer::~SbiTokenizer() { } -// Wiederablage (Pushback) eines Tokens. (Bis zu 2 Tokens) void SbiTokenizer::Push( SbiToken t ) { @@ -263,7 +262,7 @@ void SbiTokenizer::Error( SbError code, SbiToken tok ) Error( code ); } -// Einlesen des naechsten Tokens, ohne dass das Token geschluckt wird +// reading in the next token without absorbing it SbiToken SbiTokenizer::Peek() { @@ -280,12 +279,11 @@ SbiToken SbiTokenizer::Peek() return eCurTok = ePush; } -// Dies ist fuer die Decompilation. -// Zahlen und Symbole liefern einen Leerstring zurueck. +// For decompilation. Numbers and symbols return an empty string. const String& SbiTokenizer::Symbol( SbiToken t ) { - // Zeichen-Token? + // character token? if( t < FIRSTKWD ) { aSym = (char) t; @@ -312,15 +310,15 @@ const String& SbiTokenizer::Symbol( SbiToken t ) return aSym; } -// Einlesen des naechsten Tokens und Ablage desselben -// Tokens, die nicht in der Token-Tabelle vorkommen, werden -// direkt als Zeichen zurueckgeliefert. -// Einige Worte werden gesondert behandelt. +// Reading in the next token and put it down. +// Tokens that don't appear in the token table +// are directly returned as a character. +// Some words are treated in a special way. SbiToken SbiTokenizer::Next() { if (bEof) return EOLN; - // Schon eines eingelesen? + // have read in one already? if( ePush != NIL ) { eCurTok = ePush; @@ -333,40 +331,35 @@ SbiToken SbiTokenizer::Next() } TokenTable *tp; - // Sonst einlesen: if( !NextSym() ) { bEof = bEos = sal_True; return eCurTok = EOLN; } - // Zeilenende? + if( aSym.GetBuffer()[0] == '\n' ) { bEos = sal_True; return eCurTok = EOLN; } bEos = sal_False; - // Zahl? if( bNumber ) return eCurTok = NUMBER; - // String? else if( ( eScanType == SbxDATE || eScanType == SbxSTRING ) && !bSymbol ) return eCurTok = FIXSTRING; - // Sonderfaelle von Zeichen, die zwischen "Z" und "a" liegen. ICompare() - // wertet die Position dieser Zeichen unterschiedlich aus. + // Special cases of characters that are between "Z" and "a". ICompare() + // evaluates the position of these characters in different ways. else if( aSym.GetBuffer()[0] == '^' ) return eCurTok = EXPON; else if( aSym.GetBuffer()[0] == '\\' ) return eCurTok = IDIV; else { - // Mit Typkennung oder ein Symbol und keine Keyword-Erkennung? - // Dann kein Token-Test if( eScanType != SbxVARIANT || ( !bKeywords && bSymbol ) ) return eCurTok = SYMBOL; - // Gueltiges Token? + // valid token? short lb = 0; short ub = nToken-1; short delta; @@ -375,23 +368,23 @@ SbiToken SbiTokenizer::Next() delta = (ub - lb) >> 1; tp = &pTokTable[ lb + delta ]; StringCompare res = aSym.CompareIgnoreCaseToAscii( tp->s ); - // Gefunden? + if( res == COMPARE_EQUAL ) goto special; - // Groesser? Dann untere Haelfte + if( res == COMPARE_LESS ) { if ((ub - lb) == 2) ub = lb; else ub = ub - delta; } - // Kleiner? Dann obere Haelfte + else { if ((ub -lb) == 2) lb = ub; else lb = lb + delta; } } while( delta ); - // Symbol? Wenn nicht >= Token + // Symbol? if not >= token sal_Unicode ch = aSym.GetBuffer()[0]; if( !BasicSimpleCharClass::isAlpha( ch, bCompatible ) && !bSymbol ) return eCurTok = (SbiToken) (ch & 0x00FF); @@ -410,14 +403,14 @@ special: // END IF, CASE, SUB, DEF, FUNCTION, TYPE, CLASS, WITH if( tp->t == END ) { - // AB, 15.3.96, Spezialbehandlung fuer END, beim Peek() geht die - // aktuelle Zeile verloren, daher alles merken und danach restaurieren + // from 15.3.96, special treatment for END, at Peek() the current + // time is lost, so memorize everything and restore after sal_uInt16 nOldLine = nLine; sal_uInt16 nOldCol = nCol; sal_uInt16 nOldCol1 = nCol1; sal_uInt16 nOldCol2 = nCol2; String aOldSym = aSym; - SaveLine(); // pLine im Scanner sichern + SaveLine(); // save pLine in the scanner eCurTok = Peek(); switch( eCurTok ) @@ -435,21 +428,20 @@ special: nCol1 = nOldCol1; if( eCurTok == END ) { - // Alles zuruecksetzen, damit Token nach END ganz neu gelesen wird + // reset everything so that token is read completely newly after END ePush = NIL; nLine = nOldLine; nCol = nOldCol; nCol2 = nOldCol2; aSym = aOldSym; - RestoreLine(); // pLine im Scanner restaurieren + RestoreLine(); } return eCurTok; } - // Sind Datentypen Keywords? - // Nur nach AS, sonst sind es Symbole! - // Es gibt ja ERROR(), DATA(), STRING() etc. + // are data types keywords? + // there is ERROR(), DATA(), STRING() etc. eCurTok = tp->t; - // AS: Datentypen sind Keywords + // AS: data types are keywords if( tp->t == AS ) bAs = sal_True; else @@ -493,7 +485,6 @@ special: #pragma optimize("",off) #endif -// Kann das aktuell eingelesene Token ein Label sein? sal_Bool SbiTokenizer::MayBeLabel( sal_Bool bNeedsColon ) { @@ -541,7 +532,7 @@ void SbiTokenizer::Hilite( SbTextPortions& rList ) else aRes.eType = SB_PUNCTUATION; } - // Die Folge xxx.Keyword sollte nicht als Kwd geflagt werden + // the sequence xxx.Keyword should not be flagged as Kwd if( aRes.eType == SB_KEYWORD && ( eLastTok == DOT|| eLastTok == EXCLAM ) ) aRes.eType = SB_SYMBOL; |