The Weird and The Wonderful

''' <summary>
''' Projection over the client event stream to summarise the state of a client
''' </summary>
Public NotInheritable Class ClientSummaryProjection
    Inherits ProjectionBase(Of AggregateIdentifiers.ClientAggregateIdentity)
    Implements IEventConsumer(Of AggregateIdentifiers.ClientAggregateIdentity, Events.Client.NewBazaarCreatedEvent)
    Implements IEventConsumer(Of AggregateIdentifiers.ClientAggregateIdentity, Events.Client.BazaarClosedEvent)
    Implements IEventConsumer(Of AggregateIdentifiers.ClientAggregateIdentity, Events.Client.CreatedEvent)
    Implements IEventConsumer(Of AggregateIdentifiers.ClientAggregateIdentity, Events.Client.ClientNameChangedEvent)
    Implements IEventConsumer(Of AggregateIdentifiers.ClientAggregateIdentity, Events.Client.DisabledEvent)
    Implements IEventConsumer(Of AggregateIdentifiers.ClientAggregateIdentity, Events.Client.EnabledEvent)

    ReadOnly m_identity As AggregateIdentifiers.ClientAggregateIdentity
    ''' <summary>
    ''' The aggregate identifier of the client over which this projection applies
    ''' </summary>
    Public Overrides ReadOnly Property Identity As AggregateIdentifiers.ClientAggregateIdentity
        Get
            Return m_identity
        End Get
    End Property


    Private m_openBazaars As Integer
    ''' <summary>
    ''' The number of Bazaars open at this point in time
    ''' </summary>
    Public ReadOnly Property OpenBazaars As Integer
        Get
            Return m_openBazaars
        End Get
    End Property

    Private m_totalBazaars As Integer
    ''' <summary>
    ''' The total number of bazaars ever opened for this client at this point in time
    ''' </summary>
    Public ReadOnly Property TotalBazaars As Integer
        Get
            Return m_totalBazaars
        End Get
    End Property

    Private m_clientName As String
    ''' <summary>
    ''' The full display name to use for the client
    ''' </summary>
    Public ReadOnly Property ClientName As String
        Get
            Return m_clientName
        End Get
    End Property


    Private m_enabled As Boolean = True
    ''' <summary>
    ''' Is the client enabled or not
    ''' </summary>
    ''' <remarks>
    ''' Disabling a client prevents them appearing in the application but does not require deletion of their history
    ''' </remarks>
    Public ReadOnly Property Enabled As Boolean
        Get
            Return m_enabled
        End Get
    End Property

    Public Overrides Sub ConsumeEvent(sequence As Integer, eventToConsume As IEvent(Of AggregateIdentifiers.ClientAggregateIdentity))

        If IsPriorEvent(sequence) Then
            ' This projection ignores out-of-sequence events
            Return
        End If

        'Process the event depending on its type..
        If (TypeOf (eventToConsume) Is Events.Client.NewBazaarCreatedEvent) Then
            ConsumeNewBazaarCreatedEvent(sequence, eventToConsume)
        End If

        If (TypeOf (eventToConsume) Is Events.Client.BazaarClosedEvent) Then
            ConsumeBazaarClosedEvent(sequence, eventToConsume)
        End If

        If (TypeOf (eventToConsume) Is Events.Client.CreatedEvent) Then
            ConsumeCreatedEvent(sequence, eventToConsume)
        End If

        If (TypeOf (eventToConsume) Is Events.Client.ClientNameChangedEvent) Then
            ConsumeNameChangedEvent(sequence, eventToConsume)
        End If

        If (TypeOf (eventToConsume) Is Events.Client.EnabledEvent) Then
            ConsumeEnabledEvent(sequence, eventToConsume)
        End If

        If (TypeOf (eventToConsume) Is Events.Client.DisabledEvent) Then
            ConsumeDisableEvent(sequence, eventToConsume)
        End If

        ' Update the current sequence after the event is consumed
        SetSequence(sequence)
    End Sub


    Public Sub New(ByVal aggregateidentity As AggregateIdentifiers.ClientAggregateIdentity)
        m_identity = aggregateidentity
    End Sub

    Public Sub ConsumeNewBazaarCreatedEvent(sequence As Integer, eventToConsume As Events.Client.NewBazaarCreatedEvent) Implements IEventConsumer(Of AggregateIdentifiers.ClientAggregateIdentity, Events.Client.NewBazaarCreatedEvent).ConsumeEvent

        m_totalBazaars += 1
        m_openBazaars += 1

    End Sub

    Public Sub ConsumeBazaarClosedEvent(sequence As Integer, eventToConsume As Events.Client.BazaarClosedEvent) Implements IEventConsumer(Of AggregateIdentifiers.ClientAggregateIdentity, Events.Client.BazaarClosedEvent).ConsumeEvent

        m_openBazaars -= 1

    End Sub

    Public Sub ConsumeCreatedEvent(sequence As Integer, eventToConsume As Events.Client.CreatedEvent) Implements IEventConsumer(Of AggregateIdentifiers.ClientAggregateIdentity, Events.Client.CreatedEvent).ConsumeEvent

        m_clientName = eventToConsume.ClientName

    End Sub

    Public Sub ConsumeNameChangedEvent(sequence As Integer, eventToConsume As Events.Client.ClientNameChangedEvent) Implements IEventConsumer(Of AggregateIdentifiers.ClientAggregateIdentity, Events.Client.ClientNameChangedEvent).ConsumeEvent
        m_clientName = eventToConsume.ClientName
    End Sub

    Public Sub ConsumeDisableEvent(sequence As Integer, eventToConsume As Events.Client.DisabledEvent) Implements IEventConsumer(Of AggregateIdentifiers.ClientAggregateIdentity, Events.Client.DisabledEvent).ConsumeEvent
        m_enabled = False
    End Sub

    Public Sub ConsumeEnabledEvent(sequence As Integer, eventToConsume As Events.Client.EnabledEvent) Implements IEventConsumer(Of AggregateIdentifiers.ClientAggregateIdentity, Events.Client.EnabledEvent).ConsumeEvent
        m_enabled = True
    End Sub
End Class

Select Case word
    Case "JULY"
        Return 7
End Select