1 files changed, 49 insertions, 13 deletions

diff --git a/basic/source/comp/parser.cxx b/basic/source/comp/parser.cxx
index 8770dc8539f0..3d7178ae7688 100644
--- a/basic/source/comp/parser.cxx
+++ b/basic/source/comp/parser.cxx
@@ -83,6 +83,7 @@ static SbiStatement StmntTable [] = {
 { IMPLEMENTS, &SbiParser::Implements, Y, N, }, // IMPLEMENTS
 { INPUT,    &SbiParser::Input,      N, Y, }, // INPUT
 { LET,      &SbiParser::Assign,     N, Y, }, // LET
+{ LINE,     &SbiParser::Line,       N, Y, }, // LINE, -> LINE INPUT (#i92642)
 { LINEINPUT,&SbiParser::LineInput,  N, Y, }, // LINE INPUT
 { LOOP,     &SbiParser::BadBlock,   N, Y, }, // LOOP
 { LSET,     &SbiParser::LSet,       N, Y, }, // LSET
@@ -237,7 +238,9 @@ void SbiParser::Exit()
     SbiToken eTok = Next();
     for( SbiParseStack* p = pStack; p; p = p->pNext )
     {
-        if( eTok == p->eExitTok )
+        SbiToken eExitTok = p->eExitTok;
+        if( eTok == eExitTok ||
+            (eTok == PROPERTY && (eExitTok == GET || eExitTok == LET) ) )   // #i109051
         {
             p->nChain = aGen.Gen( _JUMP, p->nChain );
             return;
@@ -367,7 +370,10 @@ BOOL SbiParser::Parse()
     }
 
     // Ende des Parsings?
-    if( eCurTok == eEndTok )
+    if( eCurTok == eEndTok ||
+        ( bVBASupportOn &&      // #i109075
+          (eCurTok == ENDFUNC || eCurTok == ENDPROPERTY || eCurTok == ENDSUB) &&
+          (eEndTok == ENDFUNC || eEndTok == ENDPROPERTY || eEndTok == ENDSUB) ) )
     {
         Next();
         if( eCurTok != NIL )
@@ -477,10 +483,10 @@ SbiExprNode* SbiParser::GetWithVar()
 
 // Zuweisung oder Subroutine Call
 
-void SbiParser::Symbol()
+void SbiParser::Symbol( const KeywordSymbolInfo* pKeywordSymbolInfo )
 {
     SbiExprMode eMode = bVBASupportOn ? EXPRMODE_STANDALONE : EXPRMODE_STANDARD;
-    SbiExpression aVar( this, SbSYMBOL, eMode );
+    SbiExpression aVar( this, SbSYMBOL, eMode, pKeywordSymbolInfo );
 
     bool bEQ = ( Peek() == EQ );
     if( !bEQ && bVBASupportOn && aVar.IsBracket() )
@@ -704,11 +710,37 @@ void SbiParser::Implements()
         return;
     }
 
-    if( TestSymbol() )
+    Peek();
+    if( eCurTok != SYMBOL )
+    {
+        Error( SbERR_SYMBOL_EXPECTED );
+        return;
+    }
+
+    String aImplementedIface = aSym;
+    Next();
+    if( Peek() == DOT )
     {
-        String aImplementedIface = GetSym();
-        aIfaceVector.push_back( aImplementedIface );
+        String aDotStr( '.' );
+        while( Peek() == DOT )
+        {
+            aImplementedIface += aDotStr;
+            Next();
+            SbiToken ePeekTok = Peek();
+            if( ePeekTok == SYMBOL || IsKwd( ePeekTok ) )
+            {
+                Next();
+                aImplementedIface += aSym;
+            }
+            else
+            {
+                Next();
+                Error( SbERR_SYMBOL_EXPECTED );
+                break;
+            }
+        }
     }
+    aIfaceVector.push_back( aImplementedIface );
 }
 
 void SbiParser::EnableCompatibility()
@@ -745,12 +777,16 @@ void SbiParser::Option()
             break;
         }
         case COMPARE:
-            switch( Next() )
-            {
-                case TEXT:      bText = TRUE; return;
-                case BINARY:    bText = FALSE; return;
-                default:;
-            } // Fall thru!
+        {
+            SbiToken eTok = Next();
+            if( eTok == BINARY )
+                bText = FALSE;
+            else if( eTok == SYMBOL && GetSym().EqualsIgnoreCaseAscii("text") )
+                bText = TRUE;
+            else
+                Error( SbERR_EXPECTED, "Text/Binary" );
+            break;
+        }
         case COMPATIBLE:
             EnableCompatibility();
             break;