Updated namespaces and converted syntax highlighting from C# (not yet applied)

Author: aduguid

VB/App_Data/ScriptHelp.sdf

@@ -1,9 +1,9 @@
 Option Strict On
 Option Explicit On
 
-Imports System.Environment
 Imports System.Drawing
 Imports System.Windows.Forms
+Imports ScriptHelp.Scripts
 
 Public Class frmSettings
 
@@ -12,24 +12,29 @@ Public Class frmSettings
             My.Settings.Save()
 
         Catch ex As Exception
-            Call ErrorMsg(ex)
+            ErrorHandler.DisplayMessage(ex)
             Exit Try
 
         End Try
 
     End Sub
 
     Private Sub frmSettings_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
-        Call LoadSettings()
-        Call SetFormIcon(Me, My.Resources.Save)
-        Dim strVersion As String = My.Application.Info.Version.Major & "." & My.Application.Info.Version.Minor & "." & My.Application.Info.Version.Build & "." & My.Application.Info.Version.Revision
-        Me.Text = "Settings for " & My.Application.Info.Title.ToString.Replace("&", "&&") & Space(1) & strVersion
+        Try
+            Call LoadSettings()
+            Call SetFormIcon(Me, My.Resources.Save)
+            Dim version As String = My.Application.Info.Version.Major & "." & My.Application.Info.Version.Minor & "." & My.Application.Info.Version.Build & "." & My.Application.Info.Version.Revision
+            Me.Text = "Settings for " & My.Application.Info.Title.ToString.Replace("&", "&&") & Space(1) & version
+
+        Catch ex As Exception
+            ErrorHandler.DisplayMessage(ex)
+            Exit Try
+
+        End Try
+
     End Sub
 
     Public Sub LoadSettings()
-        '--------------------------------------------------------------------------------------------------------------------
-        ' Purpose: load settings
-        '--------------------------------------------------------------------------------------------------------------------
         Try
             Me.pgdSettings.SelectedObject = My.Settings
             ''Only show "user" settings
@@ -38,42 +43,23 @@ Public Class frmSettings
             'pgdSettings.BrowsableAttributes = attrs
 
         Catch ex As Exception
-            Call ErrorMsg(ex)
+            ErrorHandler.DisplayMessage(ex)
             Exit Try
 
         End Try
 
     End Sub
 
-    Public Sub SetFormIcon(ByRef frmCurrent As Form, ByRef bmp As Bitmap)
-        '--------------------------------------------------------------------------------------------------------------------
-        ' Purpose: set form icon
-        '--------------------------------------------------------------------------------------------------------------------
+    Public Sub SetFormIcon(ByRef frmCurrent As System.Windows.Forms.Form, ByRef bmp As Bitmap)
         Try
             frmCurrent.Icon = Icon.FromHandle(bmp.GetHicon)
 
         Catch ex As Exception
-            Call ErrorMsg(ex)
+            ErrorHandler.DisplayMessage(ex)
             Exit Try
 
         End Try
 
     End Sub
 
-    Public Sub ErrorMsg(ByRef ex As Exception)
-        '--------------------------------------------------------------------------------------------------------------------
-        ' Global error message for all procedures
-        '--------------------------------------------------------------------------------------------------------------------
-        Dim Msg As String
-        Dim sf As New System.Diagnostics.StackFrame(1)
-        Dim caller As System.Reflection.MethodBase = sf.GetMethod()
-        Dim Proc As String = (caller.Name).Trim
-
-        Msg = "Contact your system administrator." & vbCrLf
-        Msg += "Procedure: " & Proc & vbCrLf
-        Msg += "Description: " & ex.ToString & vbCrLf   '
-        MsgBox(Msg, vbCritical, "Unexpected Error")
-
-    End Sub
-
 End Class

VB/Forms/frmSettings.vb

@@ -246,17 +246,6 @@
     <Compile Include="Scripts\Form.vb" />
     <Compile Include="Scripts\Formula.vb" />
     <Compile Include="Scripts\Ribbon.vb" />
-    <Compile Include="Scripts\Syntax\CaseInsensitivePatternDefinition.vb" />
-    <Compile Include="Scripts\Syntax\ColorUtils.vb" />
-    <Compile Include="Scripts\Syntax\Expression.vb" />
-    <Compile Include="Scripts\Syntax\ExpressionType.vb" />
-    <Compile Include="Scripts\Syntax\PatternDefinition.vb" />
-    <Compile Include="Scripts\Syntax\PatternStyleMap.vb" />
-    <Compile Include="Scripts\Syntax\StringExtensions.vb" />
-    <Compile Include="Scripts\Syntax\StyleGroupPair.vb" />
-    <Compile Include="Scripts\Syntax\SyntaxHighlighter.vb" />
-    <Compile Include="Scripts\Syntax\SyntaxStyle.vb" />
-    <Compile Include="Scripts\Syntax\TextBoxBaseExtensions.vb" />
     <Compile Include="TaskPane\GraphData.Designer.vb">
       <DependentUpon>GraphData.vb</DependentUpon>
     </Compile>
@@ -378,7 +367,9 @@
   <ItemGroup>
     <Service Include="{94E38DFF-614B-4CBD-B67C-F211BB35CE8B}" />
   </ItemGroup>
-  <ItemGroup />
+  <ItemGroup>
+    <Folder Include="Scripts\Syntax\" />
+  </ItemGroup>
   <PropertyGroup>
     <VisualStudioVersion Condition="'$(VisualStudioVersion)' == ''">10.0</VisualStudioVersion>
     <VSToolsPath Condition="'$(VSToolsPath)' == ''">$(MSBuildExtensionsPath32)\Microsoft\VisualStudio\v$(VisualStudioVersion)</VSToolsPath>

VB/ScriptHelp.vbproj

@@ -1,3 +1,21 @@
-Public Class CaseInsensitivePatternDefinition
+Imports System.Collections.Generic
 
-End Class
+Namespace Scripts
+    Namespace Syntax
+
+        Public Class CaseInsensitivePatternDefinition
+
+            Inherits PatternDefinition
+
+            Public Sub New(tokens As IEnumerable(Of String))
+                'MyBase.New(False, tokens)
+            End Sub
+
+            Public Sub New(ParamArray tokens As String())
+                'MyBase.New(False, tokens)
+            End Sub
+
+        End Class
+
+    End Namespace
+End Namespace

VB/Scripts/Syntax/CaseInsensitivePatternDefinition.vb

@@ -1,3 +1,15 @@
-Public Class ColorUtils
+Imports System.Drawing
 
-End Class
+Namespace Scripts
+    Namespace Syntax
+
+        Public Class ColorUtils
+
+            Public Shared Function ColorToRtfTableEntry(color As Color) As String
+                Return [String].Format("\red{0}\green{1}\blue{2}", color.R, color.G, color.B)
+            End Function
+
+        End Class
+
+    End Namespace
+End Namespace

VB/Scripts/Syntax/ColorUtils.vb

@@ -1,3 +1,65 @@
-Public Class Expression
+
+Namespace Scripts
+    Namespace Syntax
 
-End Class
+        Public Class Expression
+
+            Public Property Type() As ExpressionType
+                Get
+                    Return m_Type
+                End Get
+                Private Set
+                    m_Type = Value
+                End Set
+            End Property
+            Private m_Type As ExpressionType
+
+            Public Property Content() As String
+                Get
+                    Return m_Content
+                End Get
+                Private Set
+                    m_Content = Value
+                End Set
+            End Property
+            Private m_Content As String
+
+            Public Property Group() As String
+                Get
+                    Return m_Group
+                End Get
+                Private Set
+                    m_Group = Value
+                End Set
+            End Property
+            Private m_Group As String
+
+            Public Sub New(content__1 As String, type__2 As ExpressionType, group__3 As String)
+                If content__1 Is Nothing Then
+                    Throw New ArgumentNullException("content")
+                End If
+                If group__3 Is Nothing Then
+                    Throw New ArgumentNullException("group")
+                End If
+
+                Type = type__2
+                Content = content__1
+                Group = group__3
+            End Sub
+
+            Public Sub New(content As String, type As ExpressionType)
+                Me.New(content, type, [String].Empty)
+            End Sub
+
+            Public Overrides Function ToString() As String
+                If Type = ExpressionType.Newline Then
+                    Return [String].Format("({0})", Type)
+                End If
+
+                Return [String].Format("({0} --> {1}{2})", Content, Type, If(Group.Length > 0, Convert.ToString(" --> ") & Group, [String].Empty))
+            End Function
+
+        End Class
+
+    End Namespace
+End Namespace

VB/Scripts/Syntax/Expression.vb

@@ -1,3 +1,58 @@
-Public Class ExpressionType
+
+Namespace Scripts
+    Namespace Syntax
 
-End Class
+        Public Enum ExpressionType
+            ''' <summary>
+            ''' None
+            ''' </summary>
+            None = 0
+            ''' <summary>
+            ''' i.e. a word which is neither keyword nor inside any word-group
+            ''' </summary>
+            Identifier
+            ''' <summary>
+            ''' Operator
+            ''' </summary>
+            [Operator]
+            ''' <summary>
+            ''' Number
+            ''' </summary>
+            Number
+            ''' <summary>
+            ''' Whitespace
+            ''' </summary>
+            Whitespace
+            ''' <summary>
+            ''' Newline
+            ''' </summary>
+            Newline
+            ''' <summary>
+            ''' Keyword
+            ''' </summary>
+            Keyword
+            ''' <summary>
+            ''' Comment
+            ''' </summary>
+            Comment
+            ''' <summary>
+            ''' CommentLine
+            ''' </summary>
+            CommentLine
+            ''' <summary>
+            ''' String
+            ''' </summary>
+            [String]
+            ''' <summary>
+            ''' needs extra argument
+            ''' </summary>
+            DelimitedGroup
+            ''' <summary>
+            ''' needs extra argument
+            ''' </summary>
+            WordGroup
+        End Enum
+
+
+    End Namespace
+End Namespace

VB/Scripts/Syntax/ExpressionType.vb

@@ -1,3 +1,88 @@
-Public Class PatternDefinition
+Imports System.Collections.Generic
+Imports System.Text.RegularExpressions
 
-End Class
+Namespace Scripts
+    Namespace Syntax
+
+        Public Class PatternDefinition
+            Private ReadOnly _regex As Regex
+            Private _expressionType As ExpressionType = ExpressionType.Identifier
+            Private ReadOnly _isCaseSensitive As Boolean = False
+
+            Public Sub New(regularExpression As Regex)
+                If regularExpression Is Nothing Then
+                    Throw New ArgumentNullException("regularExpression")
+                End If
+                _regex = regularExpression
+            End Sub
+
+            Public Sub New(regexPattern As String)
+                If [String].IsNullOrEmpty(regexPattern) Then
+                    Throw New ArgumentException("regex pattern must not be null or empty", "regexPattern")
+                End If
+
+                _regex = New Regex(regexPattern, RegexOptions.Compiled)
+            End Sub
+
+            Public Sub New(ParamArray tokens As String())
+                Me.New(True, tokens)
+            End Sub
+
+            Public Sub New(tokens As IEnumerable(Of String))
+                Me.New(True, tokens)
+            End Sub
+
+            Friend Sub New(caseSensitive As Boolean, tokens As IEnumerable(Of String))
+                If tokens Is Nothing Then
+                    Throw New ArgumentNullException("tokens")
+                End If
+
+                caseSensitive = _isCaseSensitive
+
+                Dim regexTokens = New List(Of String)()
+
+                For Each token As var In tokens
+                    Dim escaptedToken = Regex.Escape(token.Trim())
+
+                    If escaptedToken.Length > 0 Then
+                        If [Char].IsLetterOrDigit(escaptedToken(0)) Then
+                            regexTokens.Add([String].Format("\b{0}\b", escaptedToken))
+                        Else
+                            regexTokens.Add(escaptedToken)
+                        End If
+                    End If
+                Next
+
+                Dim pattern As String = [String].Join("|", regexTokens)
+                Dim regexOptions__1 = RegexOptions.Compiled
+                If Not caseSensitive Then
+                    regexOptions__1 = regexOptions__1 Or RegexOptions.IgnoreCase
+                End If
+                _regex = New Regex(pattern, regexOptions__1)
+            End Sub
+
+            Friend Property ExpressionType() As ExpressionType
+                Get
+                    Return _expressionType
+                End Get
+                Set
+                    _expressionType = Value
+                End Set
+            End Property
+
+            Friend ReadOnly Property IsCaseSensitive() As Boolean
+                Get
+                    Return _isCaseSensitive
+                End Get
+            End Property
+
+            Friend ReadOnly Property Regex() As Regex
+                Get
+                    Return _regex
+                End Get
+            End Property
+
+        End Class
+
+    End Namespace
+End Namespace