Changeset 386 for trunk/Include/Classes/System/Collections/Generic

Timestamp:

Nov 23, 2007, 11:39:44 AM (17 years ago)

Author:

dai

Message:

StrPtr内の判定ミスを修正。
SPrintFクラス内のx64に対するコードを修正。
ArrayListクラスのIListインターフェイス実装を一旦保留。
ListクラスにIEnumeratable、IEnumeratorインターフェイスを実装（まだ実装中…）。

File:

• trunk/Include/Classes/System/Collections/Generic/List.ab (modified) (2 diffs)

trunk/Include/Classes/System/Collections/Generic/List.ab

@@ -5 +5 @@
 
 Class List<T>
+    Implements IEnumerable, IEnumerator
     items As *T
     size As Long
+
+    currentIndexForEnumerator As Long
 
     Sub Realloc( allocateSize As Long )
@@ -125 +128 @@
         size--
     End Sub
+
+    /*!
+    @brief  IEnumeratorインターフェイスを取得する
+    @author Daisuke Yamamoto
+    @date   2007/11/19
+    @return IEnumeratorインターフェイスが返る
+    */
+    Function GetEnumerator() As IEnumerator
+        Return This
+    End Function
+
+    /*!
+    @brief  イテレータのカレントインデックスを増加させる
+    @author Daisuke Yamamoto
+    @date   2007/11/19
+    @return 上限に達していなければTrueが、達していればFalseが返る
+    */
+    Function MoveNext() As Boolean
+        If currentIndexForEnumerator >= size Then
+            ' 上限に達した
+            Return False
+        End If
+
+        currentIndexForEnumerator ++
+        Return True
+    End Function
+
+    /*!
+    @brief  イテレータをリセットする
+    @author Daisuke Yamamoto
+    @date   2007/11/19
+    */
+    Sub Reset()
+        currentIndexForEnumerator = 0
+    End Sub
+
+    /*!
+    @brief  イテレータのカレントオブジェクトを取得する
+    @author Daisuke Yamamoto
+    @date   2007/11/19
+    @return カレントオブジェクトが返る
+    */
+    Function Current() As Object
+        Return items[currentIndexForEnumerator] As Object
+    End Function
 End Class