source: trunk/Include/Classes/System/Collections/Generic/Dictionary.ab@ 310

'Classes/System/Collections/Generic/Dictionary.ab

'#require <Classes/System/Collections/Generic/EqualityComparer.ab>

Namespace System
Namespace Collections
Namespace Generic

Namespace Detail
    Class Pair<Key, T>
    Public
        Sub Pair(key As Key, value As T)
            Key = key
            Value = value
        End Sub

        Key As Key
        Value As T
    End Class
End Namespace 'Detail

Class Dictionary<Key, T>
Public
    'Constructor
    Sub Dictionary()
        initialize(23)
    End Sub
'   Sub Dictionary(d As IDictionary<Key, T>)
'   Sub Dictionary(comparer As IEqualityComparer<Key>)
    Sub Dictionary(capacity As Long)
        initialize(capacity)
    End Sub
'   Sub Dictionary(d As IDictionary<Key, T>, comparer As IEqualityComparer<Key>)
'   Sub Dictionary(capacity As Long, comparer As IEqualityComparer<Key>)

    'Properties
'   Function Comparer() As IEqualityComparer<Key>
'   Virtual Function Count() As Long
'   End Function

'   Virtual Function Item(key As Key) As T
    Virtual Function Item(key As Key) As Object

        Imports System.Collections.Generic.Detail
        Imports System.Diagnostics

        If Object.ReferenceEquals(key, Nothing) Then
            'Throw ArgumentNullError
            Exit Sub
        End If

        Dim hash = key.GetHashCode Mod al.Count
        Dim a = al[hash] As ArrayList

        If Not Object.ReferenceEquals(a, Nothing) Then
            Dim i As Long
            For i = 0 To ELM(a.Count)
                Dim pair = a[i] As Pair
                Dim s = pair.Key.ToString + " " + pair.Value.ToString
                Trace.Write(s)
                If pair.Key.Equals(key) Then
                    Return pair.Value
                End If
            Next
        End If
        'KeyNotFoundException
        Return Nothing

    End Function

    Virtual Sub Item(key As Key, value As T)
        Imports System.Collections.Generic.Detail

        If Object.ReferenceEquals(key, Nothing) Then
            'Throw ArgumentNullError
            Exit Sub
        End If

        Dim hash = key.GetHashCode Mod al.Count
        Dim a = al[hash] As ArrayList

        If Object.ReferenceEquals(a, Nothing) Then
            a = New ArrayList
            al[hash] = a
        Else
            Dim i As Long
            For i = 0 To ELM(a.Count)
                Dim pair = a[i] As Pair
                If pair.Key.Equals(key) Then
                    pair.Value = value
                End If
            Next
        End If

        a.Add(New Pair(key, value))
    End Sub

'   Function Keys() As KeyCollection
'   Function Values() As ValuesCollection
/*
    'Operators
'   Function Operator [](key As Key) As T
    Function Operator [](key As Key) As Object
        Return Item[key]
    End Function

    Sub Operator []=(key As Key, value As T)
'       Item[key] = vaule
    End Sub
*/
    'Methods
    Sub Add(key As Key, value As T)
        Imports System.Collections.Generic.Detail

        If Object.ReferenceEquals(key, Nothing) Then
            'Throw ArgumentNullError
            Exit Sub
        End If

        Dim hash = key.GetHashCode Mod al.Count
        Dim a = al[hash] As ArrayList

        If Object.ReferenceEquals(a, Nothing) Then
            a = New ArrayList
            al[hash] = a
        Else
            Dim i As Long
            For i = 0 To ELM(a.Count)
                Dim pair = a[i] As Pair
                If pair.Key.Equals(key) Then
                    'Throw ArgumentError
                End If
            Next
        End If

        a.Add(New Pair(key, value))
    End Sub

    Sub Clear()
        Dim i As Long
        For i = 0 To ELM(al.Count)
            al[i] = Nothing
        Next
    End Sub

'   Function ContainsKey(key As Key) As Boolean
'   End Function
'   Function ContainsValue(value As T) As Boolean
'   End Function
'   Function GetEnumerator() As Enumerator
'   Function Remove(key As Key) As Boolean
'   End Function
'   Function TryGetValue(key As Key, ByRef value As T) As Boolean
'   End Function

    'Classses
'   Class KeyCollection
'   Class ValuesCollection
'   Class Enumerator

Private

'   comp As System.Collections.Generic.Detail.DefaultEqualityComparer<Key> 'IEqualityComparer<Key>

    Sub initialize(c As Long)
        al = ArrayList.Repeat(Nothing, c)
        Dim e = al[0]
        Dim p = ObjPtr(e) As ULONG_PTR
        OutputDebugString(ToTCStr(Str$(p)))
    End Sub

    al As ArrayList

End Class

End Namespace 'Generic
End Namespace 'Collections
End Namespace 'System