| /** | |
| * @fileoverview | |
| * Registers a language handler for various flavors of basic. | |
| * | |
| * | |
| * To use, include prettify.js and this file in your HTML page. | |
| * Then put your code in an HTML tag like | |
| * <pre class="prettyprint lang-vb"></pre> | |
| * | |
| * | |
| * http://msdn.microsoft.com/en-us/library/aa711638(VS.71).aspx defines the | |
| * visual basic grammar lexical grammar. | |
| * | |
| * @author mikesamuel@gmail.com | |
| */ | |
| PR.registerLangHandler( | |
| PR.createSimpleLexer( | |
| [ | |
| // Whitespace | |
| [PR.PR_PLAIN, /^[\t\n\r \xA0\u2028\u2029]+/, null, '\t\n\r \xA0\u2028\u2029'], | |
| // A double quoted string with quotes escaped by doubling them. | |
| // A single character can be suffixed with C. | |
| [PR.PR_STRING, /^(?:[\"\u201C\u201D](?:[^\"\u201C\u201D]|[\"\u201C\u201D]{2})(?:[\"\u201C\u201D]c|$)|[\"\u201C\u201D](?:[^\"\u201C\u201D]|[\"\u201C\u201D]{2})*(?:[\"\u201C\u201D]|$))/i, null, | |
| '"\u201C\u201D'], | |
| // A comment starts with a single quote and runs until the end of the | |
| // line. | |
| [PR.PR_COMMENT, /^[\'\u2018\u2019][^\r\n\u2028\u2029]*/, null, '\'\u2018\u2019'] | |
| ], | |
| [ | |
| [PR.PR_KEYWORD, /^(?:AddHandler|AddressOf|Alias|And|AndAlso|Ansi|As|Assembly|Auto|Boolean|ByRef|Byte|ByVal|Call|Case|Catch|CBool|CByte|CChar|CDate|CDbl|CDec|Char|CInt|Class|CLng|CObj|Const|CShort|CSng|CStr|CType|Date|Decimal|Declare|Default|Delegate|Dim|DirectCast|Do|Double|Each|Else|ElseIf|End|EndIf|Enum|Erase|Error|Event|Exit|Finally|For|Friend|Function|Get|GetType|GoSub|GoTo|Handles|If|Implements|Imports|In|Inherits|Integer|Interface|Is|Let|Lib|Like|Long|Loop|Me|Mod|Module|MustInherit|MustOverride|MyBase|MyClass|Namespace|New|Next|Not|NotInheritable|NotOverridable|Object|On|Option|Optional|Or|OrElse|Overloads|Overridable|Overrides|ParamArray|Preserve|Private|Property|Protected|Public|RaiseEvent|ReadOnly|ReDim|RemoveHandler|Resume|Return|Select|Set|Shadows|Shared|Short|Single|Static|Step|Stop|String|Structure|Sub|SyncLock|Then|Throw|To|Try|TypeOf|Unicode|Until|Variant|Wend|When|While|With|WithEvents|WriteOnly|Xor|EndIf|GoSub|Let|Variant|Wend)\b/i, null], | |
| // A second comment form | |
| [PR.PR_COMMENT, /^REM[^\r\n\u2028\u2029]*/i], | |
| // A boolean, numeric, or date literal. | |
| [PR.PR_LITERAL, | |
| /^(?:True\b|False\b|Nothing\b|\d+(?:E[+\-]?\d+[FRD]?|[FRDSIL])?|(?:&H[0-9A-F]+|&O[0-7]+)[SIL]?|\d*\.\d+(?:E[+\-]?\d+)?[FRD]?|#\s+(?:\d+[\-\/]\d+[\-\/]\d+(?:\s+\d+:\d+(?::\d+)?(\s*(?:AM|PM))?)?|\d+:\d+(?::\d+)?(\s*(?:AM|PM))?)\s+#)/i], | |
| // An identifier? | |
| [PR.PR_PLAIN, /^(?:(?:[a-z]|_\w)\w*|\[(?:[a-z]|_\w)\w*\])/i], | |
| // A run of punctuation | |
| [PR.PR_PUNCTUATION, | |
| /^[^\w\t\n\r \"\'\[\]\xA0\u2018\u2019\u201C\u201D\u2028\u2029]+/], | |
| // Square brackets | |
| [PR.PR_PUNCTUATION, /^(?:\[|\])/] | |
| ]), | |
| ['vb', 'vbs']); |