syntax: module level public/private vars

fix #51

Author: serkonda7

syntaxes/tests/other.bas

@@ -7,7 +7,7 @@ Attribute VB_Name = "SyntaxTest"
 ' ^^^^^^^^^^^^^^ comment.line.quote
 
 Public Const FOO As Integer = 1
-' <------ keyword.other.vba
+'      ^^^^^ keyword.other.vba
 '                ^^ keyword.control.vba
 
 Dim obj As Variant

syntaxes/tests/procedure.bas

@@ -1,17 +1,19 @@
 ' SYNTAX TEST "source.vba" "Sub, Function and anything related"
 
-  Private Sub doStuff(ByRef x As String)
-' ^^^^^^^^^^^ keyword.other.vba
-'             ^^^^^^^ entity.name.function.vba
-'                     ^^^^^ keyword.control.vba
+Private Sub doStuff(ByRef x As String)
+' <------- keyword.other.visibility.vba
+'       ^^^ keyword.other.vba
+'           ^^^^^^^ entity.name.function.vba
+'                   ^^^^^ keyword.control.vba
 
 End Sub
 ' <------- keyword.other.vba
 
-  Public Function foo() As Boolean
-' ^^^^^^^^^^^^^^^ keyword.other.vba
-'                 ^^^ entity.name.function.vba
-'                       ^^ keyword.control.vba
+Public Function foo() As Boolean
+' <------ keyword.other.visibility.vba
+'      ^^^^^^^^ keyword.other.vba
+'               ^^^ entity.name.function.vba
+'                     ^^ keyword.control.vba
 
   Function foo() As MyType
 ' ^^^^^^^^ keyword.other.vba

syntaxes/tests/visibilityKeywords.bas

@@ -0,0 +1,7 @@
+' SYNTAX TEST "source.vba" "module level variable declaration"
+
+Public strName As String
+' <------ keyword.other.visibility.vba
+
+Private strMsg As String
+' <------- keyword.other.visibility.vba

syntaxes/vba.tmGrammar.yml

@@ -33,7 +33,9 @@ repository:
       - name: keyword.control.vba
         match: (?i:\b((?<= )E(nd|xit)|As|And|By(Ref|Val)|Goto|Is|Like|Mod|Not|On Error|Optional|Or|Resume Next|Stop|Xor)\b)
       - name: keyword.other.vba
-        match: (?i:\b(Attribute|Call|End (Function|Property|Sub)|((Private|Public|Static) )?(Const|Function|Property|Sub))\b)
+        match: (?i:\b(Attribute|Call|End (Function|Property|Sub)|(Static )?(Const|Function|Property|Sub))\b)
+      - name: keyword.other.visibility.vba
+        match: (?i:\b(Private|Public)\b)
       - name: constant.language.vba
         match: (?i)\b(Empty|False|Nothing|Null|True)\b