From d34c7a075649b4b4e9b4ee4c4287acf74dbf7169 Mon Sep 17 00:00:00 2001
From: Neil <nyamatongwe@gmail.com>
Date: Wed, 8 Jan 2014 13:50:22 +1100
Subject: Feature [feature-requests:#1041]. Highlight hex, octal, and binary
 numbers in FreeBASIC which use the prefixes &h, &o and &b respectively. From
 Ebben.

---
 lexers/LexBasic.cxx | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'lexers')

diff --git a/lexers/LexBasic.cxx b/lexers/LexBasic.cxx
index 55285201f..b73fac8b6 100644
--- a/lexers/LexBasic.cxx
+++ b/lexers/LexBasic.cxx
@@ -445,9 +445,9 @@ void SCI_METHOD LexerBasic::Lex(unsigned int startPos, int length, int initStyle
 				sc.SetState(SCE_B_STRING);
 			} else if (IsDigit(sc.ch)) {
 				sc.SetState(SCE_B_NUMBER);
-			} else if (sc.Match('$')) {
+			} else if (sc.Match('$') || sc.Match("&h") || sc.Match("&H") || sc.Match("&o") || sc.Match("&O")) {
 				sc.SetState(SCE_B_HEXNUMBER);
-			} else if (sc.Match('%')) {
+			} else if (sc.Match('%') || sc.Match("&b") || sc.Match("&B")) {
 				sc.SetState(SCE_B_BINNUMBER);
 			} else if (sc.Match('#')) {
 				sc.SetState(SCE_B_CONSTANT);
-- 
cgit v1.2.3