syntax: Option ...

fix #9

Author: Lukas Neubert

syntaxes/tests/main.bas

@@ -1,11 +1,11 @@
 ' SYNTAX TEST "source.vba" "main syntax test"
 
   Public Const FOO As Int = 1
-' ^^^^^^ storage.visibility
+' ^^^^^^ storage.modifier.visibility
 
   ' some comment
 ' ^^^^^^^^^^^^^^ comment.line
 
   Private Sub doStuff()
-' ^^^^^^^ storage.visibility
+' ^^^^^^^ storage.modifier.visibility
 End Sub

syntaxes/tests/option.bas

@@ -0,0 +1,15 @@
+' SYNTAX TEST "source.vba" "Option statement"
+
+  Option Explicit
+' ^^^^^^^^^^^^^^^ storage.modifier.option
+
+  Option Private Module
+' ^^^^^^^^^^^^^^^^^^^^^ storage.modifier.option
+
+  Option Compare Binary
+' ^^^^^^^^^^^^^^^^^^^^^ storage.modifier.option
+  Option Compare Text
+' ^^^^^^^^^^^^^^^^^^^ storage.modifier.option
+
+  Option Base 1
+' ^^^^^^^^^^^ storage.modifier.option

syntaxes/vba.tmLanguage.json

@@ -7,17 +7,22 @@
 	],
 	"patterns": [
 		{ "include": "#comments" },
-		{ "include": "#storage" }
+		{ "include": "#visibility" },
+		{ "include": "#option" }
 	],
 	"repository": {
 		"comments": {
 			"name": "comment.line",
 			"begin": "'",
 			"end": "$"
 		},
-		"storage": {
-			"name": "storage.visibility",
+		"visibility": {
+			"name": "storage.modifier.visibility",
 			"match": "\\b(Public|Private)\\b"
+		},
+		"option": {
+			"name": "storage.modifier.option",
+			"match": "Option (Explicit|Private Module|Base|(Compare (Binary|Text)+))?"
 		}
 	}
 }