source: trunk/Include/Classes/System/Collections/ArrayList.ab@ 309

' Classes/System/Collections/ArrayList.ab

#require <Classes/System/Collections/misc.ab>

Class ArrayList
    Inherits IList /*, ICollection, IEnumerable, ICloneable*/

    pObject As *Object
    size As Long
    capacity As Long

    Sub Init( capacity As Long )
        If size < 0 Then
            ' Error
            debug
        End If

        This.size = 0
        This.capacity = size

        pObject = GC_malloc( SizeOf(*Object) * size )
        If pObject = 0 Then
            ' OutOfMemoryException
            Debug
        End If
    End Sub

    Sub Realloc( newSize As Long )
'       If newSize > capacity Then
'           ' miss!
'           Debug
'       End If

        Dim p = realloc( pObject, SizeOf(*Object) * newSize  )
        If p = 0 Then
            ' OutOfMemoryException
            Debug
        Else
            pObject = p
        End If
        capacity = newSize
    End Sub

    Sub SetLeastCapacity( capacity As Long )
        If This.capacity < capacity Then
            Realloc(capacity)
        End If
    End Sub

Public

    '----------------------------------------------------------------
    ' Properties
    '----------------------------------------------------------------

    /*Const*/ Virtual Function Capacity() As Long
        Return capacity
    End Function

    Virtual Sub Capacity(c As Long)
        If c <> capacity Then
            If c < size Then
                'Throw ArgumentOutOfRangeException
                Debug
            Else
                Realloc(c)
            End If
        End If
    End Sub

    /*Const*/ /*Override*/ Virtual Function Count() As Long
        Return size
    End Function

    /*Const*/ Override Function IsFixedSize() As Boolean
        Return False
    End Function

    /*Const*/ Override Function IsReadOnly() As Boolean
        Return False
    End Function

    /*Const*/ /*Override*/ Virtual Function IsSynchronized() As Boolean
        Return False
    End Function
    ' SyncRoot

    ' Operators
    /*Const*/ /*Override*/ Virtual Function Operator [](index As Long) As Object
        If 0 <= index And index < size Then
            Return pObject[index]
        Else
            'Throw OutOfRangeException?
            Debug
        End If
    End Function
    
    /*Override*/ Virtual Sub Operator []=(index As Long, object As Object)
        If 0 <= index And index < size Then
            pObject[index] = object
        Else
            'Throw OutOfRangeException?
            Debug
        End If
    End Sub



    '----------------------------------------------------------------
    ' Methods
    '----------------------------------------------------------------

    '   Constractors
    Sub ArrayList()
        Init( 16 )
    End Sub
/*
    Sub ArrayList(c As ICollection)
        ' 未実装
        Debug
    End Sub
*/
    Sub ArrayList(c As Long)
        Init( c )
    End Sub

    '   Destractor
    Virtual Sub ~ArrayList()
    End Sub

'   Sub Operator =(a As ArrayList)

    /*Override*/ Virtual Function Add( object As Object ) As Long
        SetLeastCapacity( size + 1 )
        pObject[size] = object
        Add = size
        size++
    End Function

    Virtual Sub AddRange(c As ICollection)
        ' TODO: 実装
    End Sub

    Const Virtual Function BinarySearch(x As Object)
        ' TODO: 実装
    End Function

    Const Virtual Function BinarySearch(x As Object, c As IComparer) As Long
        Return BinarySearch(0, size, x, c)
    End Function

    Const Virtual Function BinarySearch(index As Long, count As Long, x As Object, c As IComparer) As Long
        Dim l = index
        Dim r = index + ELM(count)
        While l <= r
            Dim mid = (l + r) >> 2
            Dim ret = c.Compare(pObject[mid], x)
            If ret = 0 Then
                Return mid
            Else If ret < 0 Then 'pObject[mid] < x
                If l = r Then
                    If mid + 1 <= index + ELM(count) Then
                        Return Not (mid + 1)
                    Else
                        Return count
                    End If
                End If
                l = mid + 1
            Else 'pObject[mid] > x
                If l = r And mid + 1 <= index + ELM(count) Then
                    Return Not mid
                End If
                r = mid - 1
            End If
        Wend
        If l = index Then
            Return Not index
        Else 'r = index + ELM(count)
            Return Not count
        End If
    End Function

    /*Override*/ Virtual Sub Clear()
        size = 0
    End Sub

    Virtual Function Clone() As ArrayList
        Dim arrayList = New ArrayList( size )
        memcpy( arrayList.pObject, This.pObject, SizeOf(*Object) * size )
        arrayList.size = This.size
        Return arrayList
    End Function

    /*Const*/ /*Override*/ /*Virtual Function Contains(x As *Object) As Boolean
        Dim i As Long
        For i = 0 To ELM(size)
            If x->Equals(data.Elm[i]) Then
                Return True
            End If
        Next
    End Function*/

    ' CopyTo

'   
'   /*Const*/ /*Override*/ Virtual Function GetEnumerator() As IEnumerator
'       'Return GetEnumerator(index, count)
'   End Function

'   Const Virtual Function GetEnumerator(index As Long, count As Long) As IEnumerator
'       ' TODO: 実装
'   End Function

    Virtual Function GetRange(index As Long, count As Long) As ArrayList
        ' TODO: 実装
    End Function

    /*Const*/ Override Function IndexOf(object As Object) As Long
        Return IndexOf(object, 0, size)
    End Function

    /*Const*/ Virtual Function IndexOf(object As Object, startIndex As Long) As Long
        Return IndexOf(object, startIndex, size - startIndex)
    End Function

    /*Const*/ Virtual Function IndexOf(object As Object, startIndex As Long, count As Long) As Long
        Dim i As Long
        Dim last = System.Math.Min(startIndex + count - 1, size)
        For i = startIndex To last
            If object.Equals( pObject[i] ) Then
                Return i
            End If
        Next
        Return -1
    End Function

    Override Sub Insert(i As Long, object As Object)
        SetLeastCapacity(size + 1)
        memmove(VarPtr(pObject[i + 1]), VarPtr(pObject[i]), SizeOf (*Object) * (size - i))
        pObject[i] = object
        size++
    End Sub

    Virtual Sub InsertRange(index As Long, c As ICollection)
        ' TODO: 実装
    End Sub

    /*Const*/ Virtual Function LastIndexOf(object As Object) As Long
        LastIndexOf(object, 0, size)
    End Function

    /*Const*/ Virtual Function LastIndexOf(object As Object, startIndex As Long) As Long
        Return LastIndexOf(object, startIndex, size - startIndex)
    End Function

    /*Const*/ Virtual Function LastIndexOf(object As Object, startIndex As Long, count As Long) As Long
        ' TODO: 実装
    End Function

    Override Sub Remove(object As Object)
        Dim i = IndexOf(object)
        If i > 0 Then
            RemoveAt(i)
        End If
    End Sub

    Override Sub RemoveAt(i As Long)
        RemoveRange(i, 1)
    End Sub
    
    Virtual Sub RemoveRange(i As Long, count As Long)
        Dim removeLastPos = i + count
        memmove(VarPtr(pObject[i]), VarPtr(pObject[removeLastPos]), SizeOf(*Object) * (size - removeLastPos))
        size -= count
    End Sub

    Virtual Sub Reverse()
        Reverse(0, size)
    End Sub

    Virtual Sub Reverse(startIndex As Long, count As Long)
        ' TODO: 実装
    End Sub

    Virtual Sub SetRange(index As Long, c As ICollection)
        ' TODO: 実装
    End Sub

    Virtual Sub Sort()
        ' TODO: 実装
    End Sub

    Virtual Sub Sort(c As IComparer)
        Sort(0, size, c)
    End Sub

    Virtual Sub Sort(index As Long, count As Long, c As IComparer)
        ' TODO: 実装
    End Sub

    ' ToArray
    Virtual Sub TrimToSize()
        Realloc(size)
    End Sub

    /*Override*/ Override Function ToString() As String
        Return "System.Collections.ArrayList"
    End Function

    ' --------------------------------
    ' static methods
    Static Function Adapter(l As IList) As ArrayList
        ' TODO: 実装
    End Function

    Static Function FixedSize(l As ArrayList) As ArrayList
        ' TODO: 実装
    End Function

    Static Function FixedSize(l As IList) As IList
        ' TODO: 実装
        'Return FixedSize(Adapter(l))
    End Function

    Static Function ReadOnly(l As ArrayList) As ArrayList
        ' TODO: 実装
    End Function

    Static Function ReadOnly(l As IList) As IList
        ' TODO: 実装
        'Return ReadOnly(Adapter(l))
    End Function

    Static Function Repeat(x As Object, c As Long) As ArrayList
        Repeat = New ArrayList(c)
        Dim i As Long
        For i = 0 To ELM(c)
            Repeat.Add(x)
        Next
    End Function

    Static Function Synchronized(l As ArrayList) As ArrayList
        ' TODO: 実装
    End Function

    Static Function Synchronized(l As IList) As IList
        ' TODO: 実装
        'Return Synchronized(Adapter(l))
    End Function

End Class

/*
Class ArrayList_Element
Public
    Sub ArrayList_Element()
        Init(0)
    End Sub
    Sub ArrayList_Element(c As Long)
        Init(c)
    End Sub

    Sub ~ArrayList_Element()
        free(Elm)
    End Sub

    Sub Init(c As Long)
        If c > 0 Then
            Elm = malloc(SizeOf (*Object) * c)
            If Elm = 0 Then
                ' OutOfMemoryException
                Debug
            End If
        Else
            Elm = 0
        End If
        Size = 0
        Capacity = c
    End Sub

    Sub Swap(ByRef x As ArrayList_Element)
        Dim tmpElm = x.Elm
        x.Elm = This.Elm
        This.Elm = tmpElm

        Dim tmpSize = x.Size
        x.Size = This.Size
        This.Size = x.Size

        Dim tmpCap = x.Capacity
        x.Capacity = This.Capacity
        This.Capacity = tmpCap
    End Sub

    Elm As **Object
    Size As Long
    Capacity As Long
End Class
*/