Peer Graph - Search Criteria Helper

'----------------------------------------------------------------------
' Gold Parser engine.
' See more details on http:'www.devincook.com/goldparser/
' 
' Original code is written in VB by Devin Cook (GOLDParser@DevinCook.com)
'
' This translation is done by Vladimir Morozov (vmoroz@hotmail.com)
' 
' The translation is based on the other engine translations:
' Delphi engine by Alexandre Rai (riccio@gmx.at)
' C# engine by Marcus Klimstra (klimstra@home.nl)
'----------------------------------------------------------------------

Imports System
Imports System.Collections

Namespace GoldParser
    ''' <summary>
    ''' Contains read only collection of LALR states.
    ''' </summary>
    Class LalrStateCollection
        Implements IEnumerable

        Private m_lalrStateTable() As LalrState

        ''' <summary>
        ''' Creates a new instance of <c>LalrStateCollection</c> class.
        ''' </summary>
        ''' <param name="lalrStateTable">
        ''' Array of LALR states to initialize the collection.
        ''' </param>
        Public Sub New(ByVal lalrStateTable() As LalrState)
            m_lalrStateTable = lalrStateTable
        End Sub

        ''' <summary>
        ''' Gets LALR state by its index.
        ''' </summary>
        Default Public ReadOnly Property Item(ByVal index As Integer) As LalrState
            Get
                Return m_lalrStateTable(index)
            End Get
        End Property

        ''' <summary>
        ''' Gets number of LALR states.
        ''' </summary>
        Public ReadOnly Property Count() As Integer
            Get
                Return m_lalrStateTable.Length
            End Get
        End Property

#Region "IEnumerable Members"
        ''' <summary>
        ''' Creates a new IEnumerator for the collection.
        ''' </summary>
        ''' <returns>New instance of IEnumerator.</returns>
        Public Function GetEnumerator() As System.Collections.IEnumerator Implements System.Collections.IEnumerable.GetEnumerator
            Return m_lalrStateTable.GetEnumerator()
        End Function
#End Region
    End Class
End Namespace