includes/syntax/scripts/shBrushVb.js

   1 /**
   2  * SyntaxHighlighter
   3  * http://alexgorbatchev.com/SyntaxHighlighter
   4  *
   5  * SyntaxHighlighter is donationware. If you are using it, please donate.
   6  * http://alexgorbatchev.com/SyntaxHighlighter/donate.html
   7  *
   8  * @version
   9  * 3.0.83 (July 02 2010)
  10  *
  11  * @copyright
  12  * Copyright (C) 2004-2010 Alex Gorbatchev.
  13  *
  14  * @license
  15  * Dual licensed under the MIT and GPL licenses.
  16  */
  17 ;(function()
  18 {
  19         // CommonJS
  20         typeof(require) != 'undefined' ? SyntaxHighlighter = require('shCore').SyntaxHighlighter : null;
  21
  22         function Brush()
  23         {
  24                 var keywords =  'AddHandler AddressOf AndAlso Alias And Ansi As Assembly Auto ' +
  25                                                 'Boolean ByRef Byte ByVal Call Case Catch CBool CByte CChar CDate ' +
  26                                                 'CDec CDbl Char CInt Class CLng CObj Const CShort CSng CStr CType ' +
  27                                                 'Date Decimal Declare Default Delegate Dim DirectCast Do Double Each ' +
  28                                                 'Else ElseIf End Enum Erase Error Event Exit False Finally For Friend ' +
  29                                                 'Function Get GetType GoSub GoTo Handles If Implements Imports In ' +
  30                                                 'Inherits Integer Interface Is Let Lib Like Long Loop Me Mod Module ' +
  31                                                 'MustInherit MustOverride MyBase MyClass Namespace New Next Not Nothing ' +
  32                                                 'NotInheritable NotOverridable Object On Option Optional Or OrElse ' +
  33                                                 'Overloads Overridable Overrides ParamArray Preserve Private Property ' +
  34                                                 'Protected Public RaiseEvent ReadOnly ReDim REM RemoveHandler Resume ' +
  35                                                 'Return Select Set Shadows Shared Short Single Static Step Stop String ' +
  36                                                 'Structure Sub SyncLock Then Throw To True Try TypeOf Unicode Until ' +
  37                                                 'Variant When While With WithEvents WriteOnly Xor';
  38
  39                 this.regexList = [
  40                         { regex: /'.*$/gm,                                                                              css: 'comments' },                      // one line comments
  41                         { regex: SyntaxHighlighter.regexLib.doubleQuotedString, css: 'string' },                        // strings
  42                         { regex: /^\s*#.*$/gm,                                                                  css: 'preprocessor' },          // preprocessor tags like #region and #endregion
  43                         { regex: new RegExp(this.getKeywords(keywords), 'gm'),  css: 'keyword' }                        // vb keyword
  44                         ];
  45
  46                 this.forHtmlScript(SyntaxHighlighter.regexLib.aspScriptTags);
  47         };
  48
  49         Brush.prototype = new SyntaxHighlighter.Highlighter();
  50         Brush.aliases   = ['vb', 'vbnet'];
  51
  52         SyntaxHighlighter.brushes.Vb = Brush;
  53
  54         // CommonJS
  55         typeof(exports) != 'undefined' ? exports.Brush = Brush : null;
  56 })();