Changeset 58 for Include/Classes/System/Diagnostics/Trace.ab

Timestamp:

Jan 12, 2007, 3:21:30 AM (17 years ago)

Author:

dai

Message:

例外処理用に必要なコードを追加。
空間統括ファイル（index.ab）を作成。
その他クラスの調整。

File:

• Include/Classes/System/Diagnostics/Trace.ab (modified) (8 diffs)

Include/Classes/System/Diagnostics/Trace.ab

@@ -1 +1 @@
 
-' リスナ
-Class TraceListener
-End Class
 
 ' リスナコレクション
 Class TraceListenerCollection
+    ppListeners As **TraceListener
+    count As Long
 Public
+
+    Sub TraceListenerCollection()
+        ppListeners = _System_malloc( 1 )
+    End Sub
+    Sub ~TraceListenerCollection()
+        Dim i As Long
+        For i = 0 To ELM( count )
+            Delete ppListeners[i]
+        Next
+        _System_free( ppListeners )
+    End Sub
 
     '----------------------------------------------------------------
@@ -13 +23 @@
 
     ' リスナを追加
-    Function Add( listener As TraceListener )
-        ' TODO: 実装
-    End Function
+    Sub Add( listener As TraceListener ) As Long
+        ppListeners = _System_realloc( ppListeners, ( count + 1 ) * SizeOf( *TraceListener ) )
+        ppListeners[count] = New TraceListener( listener )
+        count++
+    End Sub
 
     ' 複数のリスナを追加
     Sub AddRange( listeners As TraceListenerCollection )
         ' TODO: 実装
-    End Function
+    End Sub
 
     ' リストからすべてのリスナを削除
@@ -50 +62 @@
     '----------------------------------------------------------------
 
+    ' インデクサ ( Getter )
+    Function Operator[] ( index As Long ) As TraceListener
+        If index < 0 or count <= index Then
+            ' TODO: エラー処理
+            debug
+        End If
+
+        Dim tempListener As TraceListener( ByVal ppListeners[index] )
+        Return tempListener
+    End Function
+
     ' 保有するリスナの数を取得する
     Function Count() As Long
-        ' TODO: 実装
-    End Function
-
-    ' リスナを取得する
-    Function Item( index As Long ) As TraceListener
-        ' TODO: 実装
+        Return count
     End Function
 End Class
@@ -65 +83 @@
     Static indentSize = 4 As Long
 
-    Static Function GetIndentString() As String
-        Dim i As Long
 
-        Dim IndentStr = ""
-        For i = 0 To ELM( indentSize )
-            IndentStr = IndentStr + " "
-        Next
-
-        Dim ResultStr = ""
-        For i = 0 To ELM( indentLevel )
-            ResultStr = ResultStr + IndentStr
-        Next
-
-        Return ResultStr
-    End Function
+    ' リスナ管理
+    Static Listeners As TraceListenerCollection
 
 Public
@@ -113 +119 @@
     ' インデントレベルを上げる
     Static Sub Indent()
-        indentLevel++
+        IndentLevel = indentLevel + 1
     End Sub
 
@@ -122 +128 @@
             Return
         End If
-        indentLevel--
+        IndentLevel = indentLevel - 1
+    End Sub
+
+    Static Sub Write( message As String )
+        
     End Sub
 
     ' 一行の文字列を出力
     Static Sub WriteLine( message As String )
-        Dim tempmsg = GetIndentString() + message + Ex"\n"
-
-        ' TODO: リスナへの出力を実装
+        Dim i As Long
+        For i = 0 To ELM( Listeners.Count )
+            Dim temp As TraceListener
+            temp = Listeners[i]
+            temp.WriteLine( message )
+        Next
     End Sub
 
@@ -141 +154 @@
         Return indentLevel
     End Function
-    Static Sub IndentLevel( level As Long )
-        indentLevel = level
+    Static Sub IndentLevel( indentLevel As Long )
+        This.indentLevel = indentLevel
+
+        Dim i As Long
+        For i = 0 To ELM( Listeners.Count )
+            Dim temp As TraceListener
+            temp = Listeners[i]
+            temp.IndentLevel = indentLevel
+        Next
     End Sub
 
@@ -151 +171 @@
     Static Sub IndentSize( size As Long )
         indentSize = size
-    End Sub
 
-    ' Listenersプロパティ
-    Static Function Listeners() As TraceListenerCollection
-        Return listeners
-    End Function
-    Static Sub Listeners( listeners As TraceListenerCollection )
-        This.listeners = listeners
+        Dim i As Long
+        For i = 0 To ELM( Listeners.Count )
+            Dim temp As TraceListener
+            temp = Listeners[i]
+            temp.IndentSize = indentSize
+        Next
     End Sub