| Clement Escoffier | 0210fa0 | 2009-07-21 11:48:26 +0000 | [diff] [blame] | 1 | dp.sh.Brushes.Vb = function()
|
| 2 | {
|
| 3 | var keywords = 'AddHandler AddressOf AndAlso Alias And Ansi As Assembly Auto ' +
|
| 4 | 'Boolean ByRef Byte ByVal Call Case Catch CBool CByte CChar CDate ' +
|
| 5 | 'CDec CDbl Char CInt Class CLng CObj Const CShort CSng CStr CType ' +
|
| 6 | 'Date Decimal Declare Default Delegate Dim DirectCast Do Double Each ' +
|
| 7 | 'Else ElseIf End Enum Erase Error Event Exit False Finally For Friend ' +
|
| 8 | 'Function Get GetType GoSub GoTo Handles If Implements Imports In ' +
|
| 9 | 'Inherits Integer Interface Is Let Lib Like Long Loop Me Mod Module ' +
|
| 10 | 'MustInherit MustOverride MyBase MyClass Namespace New Next Not Nothing ' +
|
| 11 | 'NotInheritable NotOverridable Object On Option Optional Or OrElse ' +
|
| 12 | 'Overloads Overridable Overrides ParamArray Preserve Private Property ' +
|
| 13 | 'Protected Public RaiseEvent ReadOnly ReDim REM RemoveHandler Resume ' +
|
| 14 | 'Return Select Set Shadows Shared Short Single Static Step Stop String ' +
|
| 15 | 'Structure Sub SyncLock Then Throw To True Try TypeOf Unicode Until ' +
|
| 16 | 'Variant When While With WithEvents WriteOnly Xor';
|
| 17 |
|
| 18 | this.regexList = [
|
| 19 | { regex: new RegExp('\'.*$', 'gm'), css: 'comment' }, // one line comments
|
| 20 | { regex: new RegExp('"(?:\\.|[^\\""])*"', 'g'), css: 'string' }, // strings
|
| 21 | { regex: new RegExp('^\\s*#.*', 'gm'), css: 'preprocessor' }, // preprocessor tags like #region and #endregion
|
| 22 | { regex: new RegExp(this.GetKeywords(keywords), 'gm'), css: 'keyword' } // c# keyword
|
| 23 | ];
|
| 24 |
|
| 25 | this.CssClass = 'dp-vb';
|
| 26 | }
|
| 27 |
|
| 28 | dp.sh.Brushes.Vb.prototype = new dp.sh.Highlighter();
|
| 29 | dp.sh.Brushes.Vb.Aliases = ['vb', 'vb.net'];
|