mir/libreoffice
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

tdf#36541 Wrong syntax highlighting in BASIC IDE

Browse Source 
-- 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
1 changed files with 18 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

36
comphelper/source/misc/syntaxhighlight.cxx
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)) )
{
// parameters for SQL view
if ( (c==':') || (c=='?'))
if (((c==':') || (c=='?')) && (aLanguage == HighlighterLanguage::SQL))
{
if (c!='?')
{
@@ -412,7 +412,7 @@ bool SyntaxHighlighter::Tokenizer::getNextToken(const sal_Unicode*& pos, /*out*/
}
reType = TokenType::Parameter;
}
else if (c=='-')
else if ((c=='-') && (aLanguage == HighlighterLanguage::SQL))
{
sal_Unicode cPeekNext = *pos;
if (cPeekNext=='-')
@@ -426,24 +426,24 @@ bool SyntaxHighlighter::Tokenizer::getNextToken(const sal_Unicode*& pos, /*out*/
reType = TokenType::Comment;
}
}
else if (c=='/')
{
sal_Unicode cPeekNext = *pos;
if (cPeekNext=='/')
{
// Remove all characters until end of line or EOF
while( cPeekNext != 0 && !testCharFlags( cPeekNext, CharFlags::EOL ) )
{
++pos;
cPeekNext = *pos;
}
reType = TokenType::Comment;
}
}
else if ((c=='/') && (aLanguage == HighlighterLanguage::SQL))
{
sal_Unicode cPeekNext = *pos;
if (cPeekNext=='/')
{
// Remove all characters until end of line or EOF
while( cPeekNext != 0 && !testCharFlags( cPeekNext, CharFlags::EOL ) )
{
++pos;
cPeekNext = *pos;
}
reType = TokenType::Comment;
}
}
else
{
// Comment?
if ( c == '\'' )
// Apostrophe is Basic comment
if (( c == '\'') && (aLanguage == HighlighterLanguage::Basic))
{
// Skip all characters until end of input or end of line:
for (;;) {