removetooltypes01: #i112600# adjust basic and scaddins

1 files changed, 36 insertions, 36 deletions

diff --git a/basic/source/comp/parser.cxx b/basic/source/comp/parser.cxx
index 3d7178ae7688..670ca7384767 100644
--- a/basic/source/comp/parser.cxx
+++ b/basic/source/comp/parser.cxx
@@ -35,18 +35,18 @@ struct SbiParseStack {              // "Stack" fuer Statement-Blocks
     SbiParseStack* pNext;           // Chain
     SbiExprNode* pWithVar;          // Variable fuer WITH
     SbiToken eExitTok;              // Exit-Token
-    UINT32  nChain;                 // JUMP-Chain
+    sal_uInt32  nChain;                 // JUMP-Chain
 };
 
 struct SbiStatement {
     SbiToken eTok;
     void( SbiParser::*Func )();     // Verarbeitungsroutine
-    BOOL  bMain;                    // TRUE: ausserhalb SUBs OK
-    BOOL  bSubr;                    // TRUE: in SUBs OK
+    sal_Bool  bMain;                    // sal_True: ausserhalb SUBs OK
+    sal_Bool  bSubr;                    // sal_True: in SUBs OK
 };
 
-#define Y   TRUE
-#define N   FALSE
+#define Y   sal_True
+#define N   sal_False
 
 static SbiStatement StmntTable [] = {
 { CALL,     &SbiParser::Call,       N, Y, }, // CALL
@@ -141,7 +141,7 @@ SbiParser::SbiParser( StarBASIC* pb, SbModule* pm )
     bGblDefs =
     bNewGblDefs =
     bSingleLineIf =
-    bExplicit = FALSE;
+    bExplicit = sal_False;
     bClassModule = ( pm->GetModuleType() == com::sun::star::script::ModuleType::CLASS );
     OSL_TRACE("Parser - %s, bClassModule %d", rtl::OUStringToOString( pm->GetName(), RTL_TEXTENCODING_UTF8 ).getStr(), bClassModule );
     pPool    = &aPublics;
@@ -187,7 +187,7 @@ SbiSymDef* SbiParser::CheckRTLForSym( const String& rSym, SbxDataType eType )
 
 // Globale Chainkette schliessen
 
-BOOL SbiParser::HasGlobalCode()
+sal_Bool SbiParser::HasGlobalCode()
 {
     if( bGblDefs && nGblChain )
     {
@@ -252,49 +252,49 @@ void SbiParser::Exit()
         Error( SbERR_BAD_EXIT );
 }
 
-BOOL SbiParser::TestSymbol( BOOL bKwdOk )
+sal_Bool SbiParser::TestSymbol( sal_Bool bKwdOk )
 {
     Peek();
     if( eCurTok == SYMBOL || ( bKwdOk && IsKwd( eCurTok ) ) )
     {
-        Next(); return TRUE;
+        Next(); return sal_True;
     }
     Error( SbERR_SYMBOL_EXPECTED );
-    return FALSE;
+    return sal_False;
 }
 
 // Testen auf ein bestimmtes Token
 
-BOOL SbiParser::TestToken( SbiToken t )
+sal_Bool SbiParser::TestToken( SbiToken t )
 {
     if( Peek() == t )
     {
-        Next(); return TRUE;
+        Next(); return sal_True;
     }
     else
     {
         Error( SbERR_EXPECTED, t );
-        return FALSE;
+        return sal_False;
     }
 }
 
 // Testen auf Komma oder EOLN
 
-BOOL SbiParser::TestComma()
+sal_Bool SbiParser::TestComma()
 {
     SbiToken eTok = Peek();
     if( IsEoln( eTok ) )
     {
         Next();
-        return FALSE;
+        return sal_False;
     }
     else if( eTok != COMMA )
     {
         Error( SbERR_EXPECTED, COMMA );
-        return FALSE;
+        return sal_False;
     }
     Next();
-    return TRUE;
+    return sal_True;
 }
 
 // Testen, ob EOLN vorliegt
@@ -320,16 +320,16 @@ void SbiParser::StmntBlock( SbiToken eEnd )
     if( IsEof() )
     {
         Error( SbERR_BAD_BLOCK, eEnd );
-        bAbort = TRUE;
+        bAbort = sal_True;
     }
 }
 
 // Die Hauptroutine. Durch wiederholten Aufrufs dieser Routine wird
-// die Quelle geparst. Returnwert FALSE bei Ende/Fehlern.
+// die Quelle geparst. Returnwert sal_False bei Ende/Fehlern.
 
-BOOL SbiParser::Parse()
+sal_Bool SbiParser::Parse()
 {
-    if( bAbort ) return FALSE;
+    if( bAbort ) return sal_False;
 
     EnableErrors();
 
@@ -345,16 +345,16 @@ BOOL SbiParser::Parse()
         // ein nGblChain vorhanden sein, daher vorher abfragen
         if( bNewGblDefs && nGblChain == 0 )
             nGblChain = aGen.Gen( _JUMP, 0 );
-        return FALSE;
+        return sal_False;
     }
 
     // Leerstatement?
     if( IsEoln( eCurTok ) )
     {
-        Next(); return TRUE;
+        Next(); return sal_True;
     }
 
-    if( !bSingleLineIf && MayBeLabel( TRUE ) )
+    if( !bSingleLineIf && MayBeLabel( sal_True ) )
     {
         // Ist ein Label
         if( !pProc )
@@ -365,7 +365,7 @@ BOOL SbiParser::Parse()
         // Leerstatement?
         if( IsEoln( eCurTok ) )
         {
-            Next(); return TRUE;
+            Next(); return sal_True;
         }
     }
 
@@ -378,13 +378,13 @@ BOOL SbiParser::Parse()
         Next();
         if( eCurTok != NIL )
             aGen.Statement();
-        return FALSE;
+        return sal_False;
     }
 
     // Kommentar?
     if( eCurTok == REM )
     {
-        Next(); return TRUE;
+        Next(); return sal_True;
     }
 
     // Kommt ein Symbol, ist es entweder eine Variable( LET )
@@ -428,7 +428,7 @@ BOOL SbiParser::Parse()
                     ( eCurTok == SUB || eCurTok == FUNCTION || eCurTok == PROPERTY ) )
                 {
                     nGblChain = aGen.Gen( _JUMP, 0 );
-                    bNewGblDefs = FALSE;
+                    bNewGblDefs = sal_False;
                 }
                 // Statement-Opcode bitte auch am Anfang einer Sub
                 if( ( p->bSubr && (eCurTok != STATIC || Peek() == SUB || Peek() == FUNCTION ) ) ||
@@ -459,7 +459,7 @@ BOOL SbiParser::Parse()
     }
     // Der Parser bricht am Ende ab, das naechste Token ist noch nicht
     // geholt!
-    return TRUE;
+    return sal_True;
 }
 
 // Innerste With-Variable liefern
@@ -564,7 +564,7 @@ void SbiParser::Assign()
     SbiExpression aExpr( this );
     aLvalue.Gen();
     aExpr.Gen();
-    USHORT nLen = 0;
+    sal_uInt16 nLen = 0;
     SbiSymDef* pDef = aLvalue.GetRealVar();
     {
         if( pDef->GetConstDef() )
@@ -595,7 +595,7 @@ void SbiParser::Set()
         Next();
         String aStr;
         SbiSymDef* pTypeDef = new SbiSymDef( aStr );
-        TypeDecl( *pTypeDef, TRUE );
+        TypeDecl( *pTypeDef, sal_True );
 
         aLvalue.Gen();
         // aGen.Gen( _CLASS, pDef->GetTypeId() | 0x8000 );
@@ -747,7 +747,7 @@ void SbiParser::EnableCompatibility()
 {
     if( !bCompatible )
         AddConstants();
-    bCompatible = TRUE;
+    bCompatible = sal_True;
 }
 
 // OPTION
@@ -757,7 +757,7 @@ void SbiParser::Option()
     switch( Next() )
     {
         case EXPLICIT:
-            bExplicit = TRUE; break;
+            bExplicit = sal_True; break;
         case BASE:
             if( Next() == NUMBER )
             {
@@ -780,9 +780,9 @@ void SbiParser::Option()
         {
             SbiToken eTok = Next();
             if( eTok == BINARY )
-                bText = FALSE;
+                bText = sal_False;
             else if( eTok == SYMBOL && GetSym().EqualsIgnoreCaseAscii("text") )
-                bText = TRUE;
+                bText = sal_True;
             else
                 Error( SbERR_EXPECTED, "Text/Binary" );
             break;
@@ -792,7 +792,7 @@ void SbiParser::Option()
             break;
 
         case CLASSMODULE:
-            bClassModule = TRUE;
+            bClassModule = sal_True;
             aGen.GetModule().SetModuleType( com::sun::star::script::ModuleType::CLASS );
             break;
         case VBASUPPORT: