diff options
Diffstat (limited to 'src/usr/local/www/code-syntax-highlighter/shBrushVb.js')
-rw-r--r-- | src/usr/local/www/code-syntax-highlighter/shBrushVb.js | 29 |
1 files changed, 29 insertions, 0 deletions
diff --git a/src/usr/local/www/code-syntax-highlighter/shBrushVb.js b/src/usr/local/www/code-syntax-highlighter/shBrushVb.js new file mode 100644 index 0000000..197adcc --- /dev/null +++ b/src/usr/local/www/code-syntax-highlighter/shBrushVb.js @@ -0,0 +1,29 @@ +dp.sh.Brushes.Vb = function() +{ + 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: new RegExp('\'.*$', 'gm'), css: 'comment' }, // one line comments + { regex: new RegExp('"(?:\\.|[^\\""])*"', 'g'), css: 'string' }, // strings + { regex: new RegExp('^\\s*#.*', 'gm'), css: 'preprocessor' }, // preprocessor tags like #region and #endregion + { regex: new RegExp(this.GetKeywords(keywords), 'gm'), css: 'keyword' } // c# keyword + ]; + + this.CssClass = 'dp-vb'; +} + +dp.sh.Brushes.Vb.prototype = new dp.sh.Highlighter(); +dp.sh.Brushes.Vb.Aliases = ['vb', 'vb.net']; |