From 6e8b14e8c77b25f0522cdc72266e9fffbeeba020 Mon Sep 17 00:00:00 2001
From: nyamatongwe <devnull@localhost>
Date: Sat, 2 Jul 2011 13:39:57 +1000
Subject: Recognise COBOL comments '*' in column 7 or '*>'. Bug #3014850. From
 Gerrit.

---
 lexers/LexCOBOL.cxx | 8 ++++++++
 1 file changed, 8 insertions(+)

(limited to 'lexers')

diff --git a/lexers/LexCOBOL.cxx b/lexers/LexCOBOL.cxx
index a9a8f5519..b3bc011d6 100644
--- a/lexers/LexCOBOL.cxx
+++ b/lexers/LexCOBOL.cxx
@@ -208,6 +208,14 @@ static void ColouriseCOBOLDoc(unsigned int startPos, int length, int initStyle,
             if (isCOBOLwordstart(ch) || (ch == '$' && isascii(chNext) && isalpha(chNext))) {
                 ColourTo(styler, i-1, state);
                 state = SCE_C_IDENTIFIER;
+            } else if (column == 6 && ch == '*') {
+            // Cobol comment line: asterisk in column 7.
+                ColourTo(styler, i-1, state);
+                state = SCE_C_COMMENTLINE;
+            } else if (ch == '*' && chNext == '>') {
+            // Cobol inline comment: asterisk, followed by greater than.
+                ColourTo(styler, i-1, state);
+                state = SCE_C_COMMENTLINE;
             } else if (column == 0 && ch == '*' && chNext != '*') {
                 ColourTo(styler, i-1, state);
                 state = SCE_C_COMMENTLINE;
-- 
cgit v1.2.3