syntax: highlight binary numbers

serkonda7 · serkonda7 · commit 9dd72ff03449 · 2022-04-02T11:37:05.000+02:00
- fix underscores in hex and oct
diff --git a/syntaxes/tests/numbers.bas b/syntaxes/tests/numbers.bas
@@ -11,9 +11,20 @@ Dim hex As Long
 hex = &H98FA2
 '     ^^^^^^^ constant.numeric.hexadecimal
 
+hex = &h98_FA2
+'     ^^^^^^^^ constant.numeric.hexadecimal
+
 Dim oct As Long
 oct = &O75
 '     ^^^^ constant.numeric.octal
+oct = &o23_22
+'     ^^^^^^ constant.numeric.octal
+
+Dim bin As Long
+bin = &B0011
+'     ^^^^^^ constant.numeric.binary
+bin = &b1000_0101
+'     ^^^^^^^^^^^ constant.numeric.binary
 
 Dim dub As Double
 '          ^^^^^^ support.type.Double
diff --git a/syntaxes/vba.tmLanguage.json b/syntaxes/vba.tmLanguage.json
@@ -44,11 +44,15 @@
 			"patterns": [
 				{
 					"name": "constant.numeric.hexadecimal",
-					"match": "(?i)&H[0-9A-F]+"
+					"match": "(?i)&H([0-9A-F]+[_]?)+"
 				},
 				{
 					"name": "constant.numeric.octal",
-					"match": "(?i)&O[0-7]+"
+					"match": "(?i)&O([0-7]+[_]?)+"
+				},
+				{
+					"name": "constant.numeric.binary",
+					"match": "(?i)&B([0-1]+[_]?)+"
 				},
 				{
 					"name": "constant.numeric.decimal",

Original file line number	Diff line number	Diff line change
`@@ -44,11 +44,15 @@`
`44`	`44`	`"patterns": [`
`45`	`45`	`{`
`46`	`46`	`"name": "constant.numeric.hexadecimal",`
`47`		`- "match": "(?i)&H[0-9A-F]+"`
	`47`	`+ "match": "(?i)&H([0-9A-F]+[_]?)+"`
`48`	`48`	`},`
`49`	`49`	`{`
`50`	`50`	`"name": "constant.numeric.octal",`
`51`		`- "match": "(?i)&O[0-7]+"`
	`51`	`+ "match": "(?i)&O([0-7]+[_]?)+"`
	`52`	`+ },`
	`53`	`+ {`
	`54`	`+ "name": "constant.numeric.binary",`
	`55`	`+ "match": "(?i)&B([0-1]+[_]?)+"`
`52`	`56`	`},`
`53`	`57`	`{`
`54`	`58`	`"name": "constant.numeric.decimal",`