Changeset 188 for Include/Classes/System/Collections/ArrayList.ab

Timestamp:

Mar 28, 2007, 5:10:35 AM (18 years ago)

Author:

dai

Message:

・ArrayList.Add(x As Object)メソッドを追加
・ArrayList.Cloneメソッドの中のNewをオブジェクトポインタに対して行うようにした（これはDeleteしないといけないので、ホントはダメ。要修正）。
・ArrayList.GetEnumerator()メソッドでエラーが起きていたので、一時的にコメントアウト。
・ArrayList.Containsメソッドでエラーが起きていたので、一時的にコメントアウト。
・ArrayList_Elementクラスの初期化コードをInitメソッドに出した。
（※これはArrayListのみではありませんが、オブジェクトが参照型になったのでユーザに見せるメソッドの引数と戻り値でポインタは出さない方向でいきましょう）

File:

• Include/Classes/System/Collections/ArrayList.ab (modified) (8 diffs)

Include/Classes/System/Collections/ArrayList.ab

@@ -62 +62 @@
     ' Methods
     '   Constractors
-    Sub ArrrayList()
-        data.ArrayList(16)
+    Sub ArrayList()
+        data.Init(16)
     End Sub
 /*
@@ -72 +72 @@
 */
     Sub ArrayList(c As Long)
-        data.ArrayList_Element(c)
+        data.Init(c)
     End Sub
 
@@ -88 +88 @@
     End Function
 
+    /*Override*/ Virtual Function Add(x As Object) As Long
+        setLeastCapacity(data.Size + 1)
+        data.Elm[data.Size] = VarPtr(x)
+        Add = data.Size
+        data.Size++
+    End Function
+
     Virtual Sub AddRange(ByRef c As ICollection)
         ' TODO: 実装
@@ -109 +116 @@
 
     Virtual Function Clone() As *ArrayList
-        Dim p = New ArrayList(data.Size)
+        Dim p As *ArrayList
+        p = New ArrayList(data.Size)
         p->data.Size = data.Size
         memcpy(p->data.Elm, This.data.Elm, SizeOf (*Object) * data.Size)
@@ -115 +123 @@
     End Function
 
-    /*Const*/ /*Override*/ Virtual Function Contains(x As *Object) As Boolean
+    /*Const*/ /*Override*/ /*Virtual Function Contains(x As *Object) As Boolean
         Dim i As Long
         For i = 0 To ELM(data.Size)
@@ -122 +130 @@
             End If
         Next
-    End Function
+    End Function*/
 
     ' CopyTo
     /*Const*/ /*Override*/ Virtual Function GetEnumerator() As *IEnumerator
-        Return GetEnumerator(index, count)
+        'Return GetEnumerator(index, count)
     End Function
 
@@ -284 +292 @@
 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)
@@ -298 +317 @@
     End Sub
 
-    Sub ~ArrayList_Element()
-        free(Elm)
-    End Sub
-
     Sub Swap(ByRef x As ArrayList_Element)
         Dim tmpElm = x.Elm