Imports System

Namespace Codice.Common.InRep
    <Serializable()> _
    Public Class ObjectInRepInfo
        Inherits ObjectInfo
        Public RepId As Long = -1
        Public Id As Long = -1

        Public Sub New()
        End Sub

        Public Sub New(id__1 As Long)
            Id = id__1
        End Sub

        Public Overrides Function Equals(obj As Object) As Boolean
            If Not (TypeOf obj Is ObjectInRepInfo) Then
                Return False
            End If

            Dim repObj As ObjectInRepInfo = TryCast(obj, ObjectInRepInfo)

            If RepId <> repObj.RepId Then
                Return False
            End If

            If Id <> repObj.Id Then
                Return False
            End If

            Return MyBase.Equals(obj)
        End Function

        Public Overrides Function GetHashCode() As Integer
            Return MyBase.GetHashCode()
        End Function
    End Class
End Namespace

Namespace Codice.Common.Rep
    <Serializable()> _
    Public Class RepositoryServerInfo
        Inherits ObjectInfo
        Public ServerName As String

        Public Overrides Function Equals(obj As Object) As Boolean
            If Not (TypeOf obj Is RepositoryServerInfo) Then
                Return False
            End If

            Dim repObj As RepositoryServerInfo = TryCast(obj, RepositoryServerInfo)
            If ServerLocator.[Get]().AreSameServer(ServerName, repObj.ServerName) Then
                Return False
            End If

            Return MyBase.Equals(obj)
        End Function

        Public Overrides Function GetHashCode() As Integer
            Return MyBase.GetHashCode()
        End Function
    End Class
End Namespace