highlight unsigned number postfixes

fix #18

Author: Lukas Neubert

syntaxes/tests/numbers.bas

@@ -7,19 +7,40 @@ dec = 2.375D
 dec = 4.000
 '     ^^^^^ constant.numeric.decimal
 
-Dim doub As Double
-'           ^^^^^^ support.type.Double
-doub = 4.0R
-'      ^^^^ constant.numeric.decimal
+Dim dub As Double
+'          ^^^^^^ support.type.Double
+dub = 4.0R
+'     ^^^^ constant.numeric.decimal
 
-Dim sing As Single
-'           ^^^^^^ support.type.Single
-sing = 4.2F
-'      ^^^^ constant.numeric.decimal
+Dim sng As Single
+'          ^^^^^^ support.type.Single
+sng = 4.2F
+'     ^^^^ constant.numeric.decimal
 
 Dim i As Integer
 '        ^^^^^^^ support.type.Integer
 i = 123
 '   ^^^ constant.numeric.integer
 i = 1_000_000
 '   ^^^^^^^^^ constant.numeric.integer
+
+Dim ui as UInteger
+'         ^^^^^^^^ support.type.UInteger
+ui = 123ui
+'    ^^^^^ constant.numeric.integer
+ui = 45_67UI
+'    ^^^^^^^ constant.numeric.integer
+
+Dim ul as ULong
+'         ^^^^^ support.type.ULong
+ul = 123456ul
+'    ^^^^^^^^ constant.numeric.integer
+ul = 123_456_789UL
+'    ^^^^^^^^^^^^^ constant.numeric.integer
+
+Dim us as UShort
+'         ^^^^^^ support.type.UShort
+us = 1us
+'    ^^^ constant.numeric.integer
+us = 1_2US
+'    ^^^^^ constant.numeric.integer

syntaxes/tests/other.bas

@@ -2,6 +2,9 @@
 Attribute VB_Name = "SyntaxTest"
 ' <--------- keyword.Attribute.vba
 
+  ' Some comment
+' ^^^^^^^^^^^^^^ comment.line.quote
+
 Public Const FOO As Integer = 1
 ' <------ storage.modifier.visibility
 '      ^^^^^ keyword.Const.vba
@@ -20,8 +23,7 @@ With presentation
     For Each slide In .Slides
 '   ^^^ keyword.control.For.vba
 '       ^^^^ keyword.control.Each.vba
-    Next ' Some comment
+    Next
 '   ^^^^ keyword.control.Next.vba
-'        ^^^^^^^^^^^^^^ comment.line.quote
 End With
 ' <-------- keyword.control.End.vba

syntaxes/vba.tmLanguage.json

@@ -48,7 +48,7 @@
 				},
 				{
 					"name": "constant.numeric.integer",
-					"match": "(([0-9]+)([_]?))+"
+					"match": "(([0-9]+)([_]?))+(ui|UI|ul|UL|us|US)?"
 				}
 			]
 		},