Changeset 355 for trunk/Include/Classes/System

Timestamp:

Oct 13, 2007, 2:11:22 PM (17 years ago)

Author:

イグトランス (egtra)

Message:

FormatIntegerDを実装。
UnitTestの失敗時の表示を目立つようにした。
ArrayListを名前空間System.Collectionsに入れた。

Location:

trunk/Include/Classes/System/Collections

Files:

• ArrayList.ab (modified) (2 diffs)
• misc.ab (modified) (2 diffs)

trunk/Include/Classes/System/Collections/ArrayList.ab

@@ -2 +2 @@
 
 #require <Classes/System/Collections/misc.ab>
+
+Namespace System
+Namespace Collections
 
 Class ArrayList
@@ -351 +354 @@
 End Class
 
-/*
-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)
-            If Elm = 0 Then
-                ' OutOfMemoryException
-                Debug
-            End If
-        Else
-            Elm = 0
-        End If
-        Size = 0
-        Capacity = c
-    End Sub
-
-    Sub Swap(ByRef x As ArrayList_Element)
-        Dim tmpElm = x.Elm
-        x.Elm = This.Elm
-        This.Elm = tmpElm
-
-        Dim tmpSize = x.Size
-        x.Size = This.Size
-        This.Size = x.Size
-
-        Dim tmpCap = x.Capacity
-        x.Capacity = This.Capacity
-        This.Capacity = tmpCap
-    End Sub
-
-    Elm As **Object
-    Size As Long
-    Capacity As Long
-End Class
-*/
+End Namespace 'Collections
+End Namespace 'System

trunk/Include/Classes/System/Collections/misc.ab

@@ -3 +3 @@
 #ifndef __SYSTEM_COLLECTIONS_MISC_AB__
 #define __SYSTEM_COLLECTIONS_MISC_AB__
+
+Namespace System
+Namespace Collections
 
 Interface ICollection
@@ -114 +117 @@
 End Class
 
+End Namespace 'Collections
+End Namespace 'System
+
 #endif '__SYSTEM_COLLECTIONS_MISC_AB__