Changeset 291 for Include/Classes/System

Timestamp:

Aug 15, 2007, 4:24:27 AM (17 years ago)

Author:

dai

Message:

TraceListener.WriteLineIfメソッドを実装。
ArrayList内の未完成コードをコメントアウトした

Location:

Include/Classes/System

Files:

• Collections/ArrayList.ab (modified) (3 diffs)
• Diagnostics/TraceListener.ab (modified) (2 diffs)

Include/Classes/System/Collections/ArrayList.ab

@@ -319 +319 @@
 
     Static Function FixedSize(l As IList) As IList
-        Return FixedSize(Adapter(l))
+        ' TODO: 実装
+        'Return FixedSize(Adapter(l))
     End Function
 
@@ -327 +328 @@
 
     Static Function ReadOnly(l As IList) As IList
-        Return ReadOnly(Adapter(l))
+        ' TODO: 実装
+        'Return ReadOnly(Adapter(l))
     End Function
 
@@ -343 +345 @@
 
     Static Function Synchronized(l As IList) As IList
-        Return Synchronized(Adapter(l))
+        ' TODO: 実装
+        'Return Synchronized(Adapter(l))
     End Function
 

Include/Classes/System/Diagnostics/TraceListener.ab

@@ -38 +38 @@
 
             '----------------------------------------------------------------
-            ' パブリック コンストラクタ
+            ' パブリック メソッド
             '----------------------------------------------------------------
 
@@ -89 +89 @@
             End Sub
 
+            ' 条件をもとに文字列を出力
+            Sub WriteLineIf( condition As Boolean, value As Object )
+                If condition Then
+                    WriteLine( value )
+                End If
+            End Sub
+            Sub WriteLineIf( condition As Boolean, message As String )
+                If condition Then
+                    WriteLine( message )
+                End If
+            End Sub
+            Sub WriteLineIf( condition As Boolean, value As Object, category As String )
+                If condition Then
+                    WriteLine( value, category )
+                End If
+            End Sub
+            Sub WriteLineIf( condition As Boolean, message As String, category As String )
+                If condition Then
+                    WriteLine( message, category )
+                End If
+            End Sub
+
 
             '----------------------------------------------------------------