tdf#36541 Wrong syntax highlighting in BASIC IDE

-- and // are not comments in Basic

Change-Id: I6cd16f2d19eec280ead7d59a6162cd03ac267474
Reviewed-on: https://gerrit.libreoffice.org/38074
Tested-by: Jenkins <ci@libreoffice.org>
Reviewed-by: Mike Kaganski <mike.kaganski@collabora.com>
This commit is contained in:
tagezi
2017-05-26 17:39:35 +03:00
committed by Mike Kaganski
parent f45cfc6569
commit 6dbf9543c6

View File

@@ -395,7 +395,7 @@ bool SyntaxHighlighter::Tokenizer::getNextToken(const sal_Unicode*& pos, /*out*/
else if ( testCharFlags( c, CharFlags::Operator ) || ( (c == '\'') && (aLanguage==HighlighterLanguage::Basic)) ) else if ( testCharFlags( c, CharFlags::Operator ) || ( (c == '\'') && (aLanguage==HighlighterLanguage::Basic)) )
{ {
// parameters for SQL view // parameters for SQL view
if ( (c==':') || (c=='?')) if (((c==':') || (c=='?')) && (aLanguage == HighlighterLanguage::SQL))
{ {
if (c!='?') if (c!='?')
{ {
@@ -412,7 +412,7 @@ bool SyntaxHighlighter::Tokenizer::getNextToken(const sal_Unicode*& pos, /*out*/
} }
reType = TokenType::Parameter; reType = TokenType::Parameter;
} }
else if (c=='-') else if ((c=='-') && (aLanguage == HighlighterLanguage::SQL))
{ {
sal_Unicode cPeekNext = *pos; sal_Unicode cPeekNext = *pos;
if (cPeekNext=='-') if (cPeekNext=='-')
@@ -426,7 +426,7 @@ bool SyntaxHighlighter::Tokenizer::getNextToken(const sal_Unicode*& pos, /*out*/
reType = TokenType::Comment; reType = TokenType::Comment;
} }
} }
else if (c=='/') else if ((c=='/') && (aLanguage == HighlighterLanguage::SQL))
{ {
sal_Unicode cPeekNext = *pos; sal_Unicode cPeekNext = *pos;
if (cPeekNext=='/') if (cPeekNext=='/')
@@ -442,8 +442,8 @@ bool SyntaxHighlighter::Tokenizer::getNextToken(const sal_Unicode*& pos, /*out*/
} }
else else
{ {
// Comment? // Apostrophe is Basic comment
if ( c == '\'' ) if (( c == '\'') && (aLanguage == HighlighterLanguage::Basic))
{ {
// Skip all characters until end of input or end of line: // Skip all characters until end of input or end of line:
for (;;) { for (;;) {