source: Include/Classes/System/Version.ab@ 163

' System/Version.ab

Class Version
    ' Inherits ICloneable, IComparable, IComparable<Version>, IEquatable<Version>
Public
    ' Constractor
    Sub Version()
        major = 0
        minor = 0
        build = -1
        revision = -1
    End Sub

    'Sub Version(s As String)
    'End Sub

    Sub Version(major As Long, minor As Long)
        This.major = major
        This.minor = minor
        build = -1
        revision = -1
    End Sub

    Sub Version(major As Long, minor As Long, build As Long)
        This.major = major
        This.minor = minor
        This.build = build
        revision = -1
    End Sub

    Sub Version(major As Long, minor As Long, build As Long, revision As Long)
        This.major = major
        This.minor = minor
        This.build = build
        This.revision = revision
    End Sub

    Const Function Major() As Long
        Return major
    End Function

    Const Function Minor() As Long
        Return minor
    End Function

    Const Function Build() As Long
        Return build
    End Function

    Const Function Revision() As Long
        Return revision
    End Function

    Const Function MajorRivision() As Integer
        Return HIWORD(revision) As Integer
    End Function

    Const Function MinorRivision() As Integer
        Return LOWORD(revision) As Integer
    End Function

    Const Function CompareTo(v As Version) As Long
        CompareTo = major - v.major
        If CompareTo <> 0 Then Exit Function
        CompareTo = minor - v.minor
        If CompareTo <> 0 Then Exit Function
        CompareTo = build - v.build
        If CompareTo <> 0 Then Exit Function
        CompareTo = rivision - v.rivision
    End Function

    Const Function Equals(v As Version) As Boolean
        Return CompareTo(v) = 0
    End Function

    Override Function GetHashCode() As Long
        Return htonl(major) Xor minor Xor build Xor htonl(rivision)
    End Function

    Function Operator ==(v As Version) As Boolean
        Return CompareTo(v) = 0
    End Function

    Function Operator <>(v As Version) As Boolean
        Return CompareTo(v) <> 0
    End Function

    Function Operator <(v As Version) As Boolean
        Return CompareTo(v) < 0
    End Function

    Function Operator >(v As Version) As Boolean
        Return CompareTo(v) > 0
    End Function

    Function Operator <=(v As Version) As Boolean
        Return CompareTo(v) <= 0
    End Function

    Function Operator >=(v As Version) As Boolean
        Return CompareTo(v) >= 0
    End Function

    Override Function ToString() As String
        ToString = Str$(major) + "." + Str$(minor)
        If build >= 0 Then
            ToString = ToString + "." + Str$(build)
            If rivision >= 0 Then
                ToString = ToString + "." + Str$(rivision)
            End If
        End If
    End Function

    Function ToString(fieldCount As Long) As String
        If fieldCount < 0 Or fieldCount > 4 Then
            ' Throw ArgumentException
            Debug
        End If
        ToString = ""
        If fieldCount = 0 Then Exit Function
        ToString = Str$(major)
        If fieldCount = 1 Then Exit Function
        ToString = Str$(minor)
        If fieldCount = 2 Then Exit Function

        If build < 0 Then
            ' Throw ArgumentException
            Debug
        End If
        ToString = Str$(build)
        If fieldCount = 3 Then Exit Function

        If rivision < 0 Then
            ' Throw ArgumentException
            Debug
        End If
        ToString = Str$(rivision)
    End Function
Private
    major As Long
    minor As Long
    build As Long
    rivision As Long
End Class