highlight io keywords

CHANGELOG.md

@@ -3,6 +3,7 @@
 _unreleased_
 
 - Highlight `Implements` keyword
+- Highlight all I/O-related keywords
 
 
 ## 0.9.3

package.json

@@ -3,7 +3,7 @@
 	"displayName": "VBA",
 	"description": "VBA tooling, syntax highlighting and snippets for VS Code.",
 	"icon": "images/icon_256x256.png",
-	"version": "0.9.3",
+	"version": "0.9.4-dev",
 	"license": "MIT",
 	"repository": {
 		"type": "git",

syntaxes/tests/vba/io.bas

@@ -0,0 +1,17 @@
+' SYNTAX TEST "source.vba" "I/O related keywords"
+
+Open "file" For Input As #f
+' <--- keyword.io.vba
+'               ^^^^^ keyword.io.vba
+    Input #f myVar
+'   ^^^^^ keyword.io.vba
+
+    Line Input #f myLineVar
+'   ^^^^^^^^^^ keyword.io.vba
+Close #f
+' <---- keyword.io.vba
+
+Open "file2" For Output As #2
+    Print #2 "a"
+'   ^^^^^ keyword.io.vba
+Close #2

syntaxes/vba.tmGrammar.yml

@@ -39,16 +39,18 @@ repository:
 
   keywords:
     patterns:
-      - name: keyword.other.option.vba
-        match: (?i)\bOption (Base [01]|Compare (Binary|Text)|Explicit|Private Module)\b
       - name: keyword.conditional.vba
         match: (?i:\b(Do(( While)|( Until))?|While|Case( Else)?|Else(If)?|For( Each)?|(I)?If|In|New|(Select )?Case|Then|To|Step|With)\b)
       - name: keyword.conditional.end.vba
         match: (?i:\b(End( )?If|End (Select|With)|Next|Wend|Loop(( While)|( Until))?|Exit (For|Do|While))\b)
       - name: keyword.control.vba
         match: (?i:(\b(Exit (Function|Property|Sub)|As|And|By(Ref|Val)|Goto|Is|Like|Mod|Not|On Error|Optional|Or|Resume Next|Stop|Xor|Eqv|Imp|TypeOf|AddressOf)\b)|(\b(End)\b(?=\n)))
+      - name: keyword.io.vba
+        match: (?i:\b(Open|Close|(Line )?Input|Lock|Unlock|Print|Seek|Width|Get|Put|Write)\b)
       - name: keyword.other.vba
         match: (?i:\b(Attribute|Call|End (Function|Property|Sub|Type|Enum)|(Const|Function|Property|Sub|Type|Enum)|Declare|PtrSafe|WithEvents|Event|RaiseEvent|Implements)\b)
+      - name: keyword.other.option.vba
+        match: (?i)\bOption (Base [01]|Compare (Binary|Text)|Explicit|Private Module)\b
       - name: keyword.other.visibility.vba
         match: (?i:\b(Private|Public|Friend)\b)
       - name: constant.language.vba
@@ -63,13 +65,13 @@ repository:
     begin: "(?i)^\\s*(BEGIN)\\b"
     beginCaptures:
       '1':
-        name: "keyword.metadata.vba"     
+        name: "keyword.metadata.vba"
     end: "(?i)^\\s*(END)\\b"
     endCaptures:
       '0':
         name: "keyword.metadata.vba"
-    patterns: 
-      - include: "source.vba" 
+    patterns:
+      - include: "source.vba"
 
   numbers:
     patterns: