From a201a359fdd7eae722169e6e650ed2b45c44ec57 Mon Sep 17 00:00:00 2001
From: nyamatongwe <unknown>
Date: Fri, 7 Apr 2006 23:22:43 +0000
Subject: Patch from Elias recognizes '$include.

---
 src/LexBasic.cxx | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

(limited to 'src')

diff --git a/src/LexBasic.cxx b/src/LexBasic.cxx
index 4a1843aa0..79ba2b891 100644
--- a/src/LexBasic.cxx
+++ b/src/LexBasic.cxx
@@ -147,7 +147,7 @@ static void ColouriseBasicDoc(unsigned int startPos, int length, int initStyle,
 				sc.ChangeState(SCE_B_ERROR);
 				sc.SetState(SCE_B_DEFAULT);
 			}
-		} else if (sc.state == SCE_B_COMMENT) {
+		} else if (sc.state == SCE_B_COMMENT || sc.state == SCE_B_PREPROCESSOR) {
 			if (sc.atLineEnd) {
 				sc.SetState(SCE_B_DEFAULT);
 			}
@@ -163,7 +163,12 @@ static void ColouriseBasicDoc(unsigned int startPos, int length, int initStyle,
 				wasfirst = isfirst;
 				sc.SetState(SCE_B_IDENTIFIER);
 			} else if (sc.Match(comment_char)) {
-				sc.SetState(SCE_B_COMMENT);
+				// Hack to make deprecated QBASIC '$Include show
+				// up in freebasic with SCE_B_PREPROCESSOR.
+				if (comment_char == '\'' && sc.Match(comment_char, '$'))
+					sc.SetState(SCE_B_PREPROCESSOR);
+				else
+					sc.SetState(SCE_B_COMMENT);
 			} else if (sc.Match('"')) {
 				sc.SetState(SCE_B_STRING);
 			} else if (IsDigit(sc.ch)) {
-- 
cgit v1.2.3