Changeset 396 for trunk/Include/Classes

Timestamp:

Dec 18, 2007, 2:55:40 AM (17 years ago)

Author:

dai

Message:

Foreachを試験的に実装。
ジェネリクスインターフェイスをサポートした。

File:

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

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

@@ -4 +4 @@
 Namespace Generic
 
+Interface IEnumerable<T>
+    ' Method
+    Function GetEnumerator() As IEnumerator<T>
+End Interface
+
+Interface IEnumerator<T>
+    ' Methods
+    Function MoveNext() As Boolean
+    Sub Reset()
+    ' Property
+    Function Current() As T
+End Interface
+
 Class List<T>
-    Implements IEnumerable, IEnumerator
+    Implements IEnumerable<T>, IEnumerator<T>
     items As *T
     size As Long
@@ -138 +151 @@
     @return IEnumeratorインターフェイスが返る
     */
-    Function GetEnumerator() As IEnumerator
+    Function GetEnumerator() As IEnumerator<T>
         Return This
     End Function
@@ -173 +186 @@
     @return カレントオブジェクトが返る
     */
-    Function Current() As Object
+    Function Current() As T
         If currentIndexForEnumerator = -1 Then
             ' MoveNextメソッドがReset後、一度も呼び出されなかった
             Return Nothing
         End If
-        Return items[currentIndexForEnumerator] As Object
+        Return items[currentIndexForEnumerator]
     End Function
 End Class