source: tol/TolJava/WebTOLJavaDEMO/web/sh/scripts/shBrushVb.js @ 9887b93

/**
 * SyntaxHighlighter
 * http://alexgorbatchev.com/SyntaxHighlighter
 *
 * SyntaxHighlighter is donationware. If you are using it, please donate.
 * http://alexgorbatchev.com/SyntaxHighlighter/donate.html
 *
 * @version
 * 3.0.83 (July 02 2010)
 * 
 * @copyright
 * Copyright (C) 2004-2010 Alex Gorbatchev.
 *
 * @license
 * Dual licensed under the MIT and GPL licenses.
 */
;(function()
{
        // CommonJS
        typeof(require) != 'undefined' ? SyntaxHighlighter = require('shCore').SyntaxHighlighter : null;

        function Brush()
        {
                var keywords =  'AddHandler AddressOf AndAlso Alias And Ansi As Assembly Auto ' +
                                                'Boolean ByRef Byte ByVal Call Case Catch CBool CByte CChar CDate ' +
                                                'CDec CDbl Char CInt Class CLng CObj Const CShort CSng CStr CType ' +
                                                'Date Decimal Declare Default Delegate Dim DirectCast Do Double Each ' +
                                                'Else ElseIf End Enum Erase Error Event Exit False 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 Nothing ' +
                                                'NotInheritable NotOverridable Object On Option Optional Or OrElse ' +
                                                'Overloads Overridable Overrides ParamArray Preserve Private Property ' +
                                                'Protected Public RaiseEvent ReadOnly ReDim REM RemoveHandler Resume ' +
                                                'Return Select Set Shadows Shared Short Single Static Step Stop String ' +
                                                'Structure Sub SyncLock Then Throw To True Try TypeOf Unicode Until ' +
                                                'Variant When While With WithEvents WriteOnly Xor';

                this.regexList = [
                        { regex: /'.*$/gm,                                                                              css: 'comments' },                      // one line comments
                        { regex: SyntaxHighlighter.regexLib.doubleQuotedString, css: 'string' },                        // strings
                        { regex: /^\s*#.*$/gm,                                                                  css: 'preprocessor' },          // preprocessor tags like #region and #endregion
                        { regex: new RegExp(this.getKeywords(keywords), 'gm'),  css: 'keyword' }                        // vb keyword
                        ];

                this.forHtmlScript(SyntaxHighlighter.regexLib.aspScriptTags);
        };

        Brush.prototype = new SyntaxHighlighter.Highlighter();
        Brush.aliases   = ['vb', 'vbnet'];

        SyntaxHighlighter.brushes.Vb = Brush;

        // CommonJS
        typeof(exports) != 'undefined' ? exports.Brush = Brush : null;
})();