' Licensed to the .NET Foundation under one or more agreements.
' The .NET Foundation licenses this file to you under the MIT license.
 
Imports System
 
Namespace Global.Microsoft.VisualBasic
    ' -------------------------------------------------------------------
    ' VBFixedArray is used by the runtime to determine 
    ' if the array should be written/read without the array descriptor.
    ' -------------------------------------------------------------------
    <AttributeUsage(AttributeTargets.Field, Inherited:=False, AllowMultiple:=False)>
    Public NotInheritable Class VBFixedArrayAttribute
        Inherits Attribute
 
        Friend FirstBound As Integer
        Friend SecondBound As Integer
 
        Public ReadOnly Property Bounds() As Integer()
            Get
                If Me.SecondBound = -1 Then
                    Return New Integer() {Me.FirstBound}
                Else
                    Return New Integer() {Me.FirstBound, Me.SecondBound}
                End If
            End Get
        End Property
 
        Public ReadOnly Property Length() As Integer
            Get
                If Me.SecondBound = -1 Then
                    Return (Me.FirstBound + 1)
                Else
                    Return (Me.FirstBound + 1) * (Me.SecondBound + 1)
                End If
            End Get
        End Property
 
        Public Sub New(ByVal UpperBound1 As Integer)
            If UpperBound1 < 0 Then
                Throw New ArgumentException(SR.Invalid_VBFixedArray)
            End If
 
            Me.FirstBound = UpperBound1
            Me.SecondBound = -1
 
        End Sub
 
        Public Sub New(ByVal UpperBound1 As Integer, ByVal UpperBound2 As Integer)
            If UpperBound1 < 0 OrElse UpperBound2 < 0 Then
                Throw New ArgumentException(SR.Invalid_VBFixedArray)
            End If
 
            Me.FirstBound = UpperBound1
            Me.SecondBound = UpperBound2
 
        End Sub
    End Class
End Namespace