update domain in click to refresh message
[namibia] / public / js / lib / syntaxhighlighter / 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 })();