Source file tm_grammar_vb.ml

let lang_id = "vb"
let json = {json|{
  "displayName": "Visual Basic",
  "name": "vb",
  "patterns": [
    {
      "match": "\\n",
      "name": "meta.ending-space"
    },
    {
      "include": "#round-brackets"
    },
    {
      "begin": "^(?=\\t)",
      "end": "(?=[^\\t])",
      "name": "meta.leading-space",
      "patterns": [
        {
          "captures": {
            "1": {
              "name": "meta.odd-tab.tabs"
            },
            "2": {
              "name": "meta.even-tab.tabs"
            }
          },
          "match": "(\\t)(\\t)?"
        }
      ]
    },
    {
      "begin": "^(?= )",
      "end": "(?=[^ ])",
      "name": "meta.leading-space",
      "patterns": [
        {
          "captures": {
            "1": {
              "name": "meta.odd-tab.spaces"
            },
            "2": {
              "name": "meta.even-tab.spaces"
            }
          },
          "match": "(  )(  )?"
        }
      ]
    },
    {
      "captures": {
        "1": {
          "name": "storage.type.function.asp"
        },
        "2": {
          "name": "entity.name.function.asp"
        },
        "3": {
          "name": "punctuation.definition.parameters.asp"
        },
        "4": {
          "name": "variable.parameter.function.asp"
        },
        "5": {
          "name": "punctuation.definition.parameters.asp"
        }
      },
      "match": "^\\s*((?i:function|sub))\\s*([A-Z_a-z]\\w*)\\s*(\\()([^)]*)(\\)).*\\n?",
      "name": "meta.function.asp"
    },
    {
      "begin": "(^[\\t ]+)?(?=')",
      "beginCaptures": {
        "1": {
          "name": "punctuation.whitespace.comment.leading.asp"
        }
      },
      "end": "(?!\\G)",
      "patterns": [
        {
          "begin": "'",
          "beginCaptures": {
            "0": {
              "name": "punctuation.definition.comment.asp"
            }
          },
          "end": "\\n",
          "name": "comment.line.apostrophe.asp"
        }
      ]
    },
    {
      "match": "(?i:\\b(If|Then|Else|ElseIf|Else If|End If|While|Wend|For|To|Each|Case|Select|End Select|Return|Continue|Do|Until|Loop|Next|With|Exit Do|Exit For|Exit Function|Exit Property|Exit Sub|IIf)\\b)",
      "name": "keyword.control.asp"
    },
    {
      "match": "(?i:\\b(Mod|And|Not|Or|Xor|as)\\b)",
      "name": "keyword.operator.asp"
    },
    {
      "captures": {
        "1": {
          "name": "storage.type.asp"
        },
        "2": {
          "name": "variable.other.bfeac.asp"
        },
        "3": {
          "name": "meta.separator.comma.asp"
        }
      },
      "match": "(?i:(dim)\\s*\\b([7A-Z_a-z][0-9A-Z_a-z]*?)\\b\\s*(,?))",
      "name": "variable.other.dim.asp"
    },
    {
      "match": "(?i:\\s*\\b(Call|Class|Const|Dim|Redim|Function|Sub|Private Sub|Public Sub|End Sub|End Function|End Class|End Property|Public Property|Private Property|Set|Let|Get|New|Randomize|Option Explicit|On Error Resume Next|On Error GoTo)\\b\\s*)",
      "name": "storage.type.asp"
    },
    {
      "match": "(?i:\\b(Private|Public|Default)\\b)",
      "name": "storage.modifier.asp"
    },
    {
      "match": "(?i:\\s*\\b(Empty|False|Nothing|Null|True)\\b)",
      "name": "constant.language.asp"
    },
    {
      "begin": "\"",
      "beginCaptures": {
        "0": {
          "name": "punctuation.definition.string.begin.asp"
        }
      },
      "end": "\"",
      "endCaptures": {
        "0": {
          "name": "punctuation.definition.string.end.asp"
        }
      },
      "name": "string.quoted.double.asp",
      "patterns": [
        {
          "match": "\"\"",
          "name": "constant.character.escape.apostrophe.asp"
        }
      ]
    },
    {
      "captures": {
        "1": {
          "name": "punctuation.definition.variable.asp"
        }
      },
      "match": "(\\$)[7A-Z_a-z][0-9A-Z_a-z]*?\\b\\s*",
      "name": "variable.other.asp"
    },
    {
      "match": "(?i:\\b(Application|ObjectContext|Request|Response|Server|Session)\\b)",
      "name": "support.class.asp"
    },
    {
      "match": "(?i:\\b(Contents|StaticObjects|ClientCertificate|Cookies|Form|QueryString|ServerVariables)\\b)",
      "name": "support.class.collection.asp"
    },
    {
      "match": "(?i:\\b(TotalBytes|Buffer|CacheControl|Charset|ContentType|Expires|ExpiresAbsolute|IsClientConnected|PICS|Status|ScriptTimeout|CodePage|LCID|SessionID|Timeout)\\b)",
      "name": "support.constant.asp"
    },
    {
      "match": "(?i:\\b(Lock|Unlock|SetAbort|SetComplete|BinaryRead|AddHeader|AppendToLog|BinaryWrite|Clear|End|Flush|Redirect|Write|CreateObject|HTMLEncode|MapPath|URLEncode|Abandon|Convert|Regex)\\b)",
      "name": "support.function.asp"
    },
    {
      "match": "(?i:\\b(Application_OnEnd|Application_OnStart|OnTransactionAbort|OnTransactionCommit|Session_OnEnd|Session_OnStart)\\b)",
      "name": "support.function.event.asp"
    },
    {
      "match": "(?i:(?<=as )\\b([7A-Z_a-z][0-9A-Z_a-z]*?)\\b)",
      "name": "support.type.vb.asp"
    },
    {
      "match": "(?i:\\b(Array|Add|Asc|Atn|CBool|CByte|CCur|CDate|CDbl|Chr|CInt|CLng|Conversions|Cos|CreateObject|CSng|CStr|Date|DateAdd|DateDiff|DatePart|DateSerial|DateValue|Day|Derived|Math|Escape|Eval|Exists|Exp|Filter|FormatCurrency|FormatDateTime|FormatNumber|FormatPercent|GetLocale|GetObject|GetRef|Hex|Hour|InputBox|InStr|InStrRev|Int|Fix|IsArray|IsDate|IsEmpty|IsNull|IsNumeric|IsObject|Items??|Join|Keys|LBound|LCase|Left|Len|LoadPicture|Log|LTrim|RTrim|Trim|Maths|Mid|Minute|Month|MonthName|MsgBox|Now|Oct|Remove|RemoveAll|Replace|RGB|Right|Rnd|Round|ScriptEngine|ScriptEngineBuildVersion|ScriptEngineMajorVersion|ScriptEngineMinorVersion|Second|SetLocale|Sgn|Sin|Space|Split|Sqr|StrComp|String|StrReverse|Tan|Timer??|TimeSerial|TimeValue|TypeName|UBound|UCase|Unescape|VarType|Weekday|WeekdayName|Year)\\b)",
      "name": "support.function.vb.asp"
    },
    {
      "match": "-?\\b((0([Xx])\\h*)|(([0-9]+\\.?[0-9]*)|(\\.[0-9]+))(([Ee])([-+])?[0-9]+)?)([Ll]|UL|ul|[FUfu])?\\b",
      "name": "constant.numeric.asp"
    },
    {
      "match": "(?i:\\b(vbtrue|vbfalse|vbcr|vbcrlf|vbformfeed|vblf|vbnewline|vbnullchar|vbnullstring|int32|vbtab|vbverticaltab|vbbinarycompare|vbtextcomparevbsunday|vbmonday|vbtuesday|vbwednesday|vbthursday|vbfriday|vbsaturday|vbusesystemdayofweek|vbfirstjan1|vbfirstfourdays|vbfirstfullweek|vbgeneraldate|vblongdate|vbshortdate|vblongtime|vbshorttime|vbobjecterror|vbEmpty|vbNull|vbInteger|vbLong|vbSingle|vbDouble|vbCurrency|vbDate|vbString|vbObject|vbError|vbBoolean|vbVariant|vbDataObject|vbDecimal|vbByte|vbArray)\\b)",
      "name": "support.type.vb.asp"
    },
    {
      "captures": {
        "1": {
          "name": "entity.name.function.asp"
        }
      },
      "match": "(?i:\\b([7A-Z_a-z][0-9A-Z_a-z]*?)\\b(?=\\(\\)?))",
      "name": "support.function.asp"
    },
    {
      "match": "(?i:((?<=([-\\&(+,/<=>\\\\]))\\s*\\b([7A-Z_a-z][0-9A-Z_a-z]*?)\\b(?!([(.]))|\\b([7A-Z_a-z][0-9A-Z_a-z]*?)\\b(?=\\s*([-\\&()+/<=>\\\\]))))",
      "name": "variable.other.asp"
    },
    {
      "match": "[!$%\\&*]|--?|\\+\\+|[+~]|===?|=|!==??|<=|>=|<<=|>>=|>>>=|<>|[!<>]|&&|\\|\\||\\?:|\\*=|/=|%=|\\+=|-=|&=|\\^=|\\b(in|instanceof|new|delete|typeof|void)\\b",
      "name": "keyword.operator.js"
    }
  ],
  "repository": {
    "round-brackets": {
      "begin": "\\(",
      "beginCaptures": {
        "0": {
          "name": "punctuation.section.round-brackets.begin.asp"
        }
      },
      "end": "\\)",
      "endCaptures": {
        "0": {
          "name": "punctuation.section.round-brackets.end.asp"
        }
      },
      "name": "meta.round-brackets",
      "patterns": [
        {
          "include": "source.asp.vb.net"
        }
      ]
    }
  },
  "scopeName": "source.asp.vb.net"
}|json}