Changeset 675

Timestamp:

Jan 13, 2009, 1:57:12 AM (16 years ago)

Author:

イグトランス (egtra)

Message:

List<T>のCapacityの増加量を2倍に修正。内部のポインタの取得用のDataプロパティの追加。Containsの実装。

File:

• trunk/ab5.0/ablib/src/Classes/System/Collections/Generic/List.ab (modified) (4 diffs)

trunk/ab5.0/ablib/src/Classes/System/Collections/Generic/List.ab

@@ -56 +56 @@
     End Sub
 
-    Sub SetLeastCapacity( capacity As Long )
-        If This.capacity < capacity Then
-            Realloc(capacity)
-        End If
+    Sub SetLeastCapacity( leastCapacity As Long )
+        Dim c = This.capacity
+        While c < leastCapacity
+            c *= 2
+        Wend
+        Realloc(c)
     End Sub
 Public
@@ -91 +93 @@
 
     /*!
-    @brief  既存のIEnumerator<T>を使用してListを初期化
+    @brief  既存のIEnumerable<T>を使用してListを初期化
     @author NoWest
     @date   2008/09/22
-    @param  基になるIEnumerator<T>
-    */
-    Sub List ( enumerator As IEnumerator<T> )
+    @param  基になるIEnumerable<T>
+    */
+    Sub List ( enumerable As IEnumerable<T> )
         _Initialize( 1 )
-        While enumerator.MoveNext()
-            'ここでTをByetに変換できないというエラーになる This.Add(enumerator.Current())
-        Wend
+        Foreach e In enumerable
+'           This.Add(e)
+        Next
     End Sub
 
@@ -146 +148 @@
     End Function
 
+    /*!
+    @brief  内部の配列へのポインタを取得する
+    @auther Egtra
+    @date   2009/01/13
+    @retrun 内部の配列へのポインタ
+    @pre    Count <> 0
+    */
+    Function Data() As *T
+        Return items
+    End Function
 
     '----------------------------------------------------------------
@@ -217 +229 @@
     End Sub
 
-/*  Override Function Contains ( item As T ) As Boolean
-        TODO
-    End Function*/
+    /*!
+    @brief  Listに指定された要素が含まれるか調べる
+    @author Egtra
+    @date   2009/01/13
+    */
+    Function Contains ( item As T ) As Boolean
+        Return IndexOf(item) >= 0
+    End Function
 
     /*!