Changeset 66 for Include/Classes


Ignore:
Timestamp:
Jan 17, 2007, 3:44:54 AM (18 years ago)
Author:
dai
Message:
 
Location:
Include/Classes/System/Diagnostics
Files:
1 added
2 edited

Legend:

Unmodified
Added
Removed

  • Include/Classes/System/Diagnostics/Trace.ab

    r58 r66  
    1 
    2 
    3 ' リスナコレクション
    4 Class TraceListenerCollection
    5     ppListeners As **TraceListener
    6     count As Long
    7 Public
    8 
    9     Sub TraceListenerCollection()
    10         ppListeners = _System_malloc( 1 )
    11     End Sub
    12     Sub ~TraceListenerCollection()
    13         Dim i As Long
    14         For i = 0 To ELM( count )
    15             Delete ppListeners[i]
    16         Next
    17         _System_free( ppListeners )
    18     End Sub
    19 
    20     '----------------------------------------------------------------
    21     ' パブリック メソッド
    22     '----------------------------------------------------------------
    23 
    24     ' リスナを追加
    25     Sub Add( listener As TraceListener ) As Long
    26         ppListeners = _System_realloc( ppListeners, ( count + 1 ) * SizeOf( *TraceListener ) )
    27         ppListeners[count] = New TraceListener( listener )
    28         count++
    29     End Sub
    30 
    31     ' 複数のリスナを追加
    32     Sub AddRange( listeners As TraceListenerCollection )
    33         ' TODO: 実装
    34     End Sub
    35 
    36     ' リストからすべてのリスナを削除
    37     Sub Clear()
    38         ' TODO: 実装
    39     End Sub
    40 
    41     ' 指定したリスナのインデックスを取得
    42     Function IndexOf( listener As TraceListener )
    43         ' TODO: 実装
    44     End Function
    45 
    46     ' リスナを挿入
    47     Sub Insert( index As Long, listener As TraceListener )
    48         ' TODO: 実装
    49     End Sub
    50 
    51     ' リスナを削除
    52     Function Remove( name As String )
    53         ' TODO: 実装
    54     End Function
    55     Function Remove( listener As TraceListener )
    56         ' TODO: 実装
    57     End Function
    58 
    59 
    60     '----------------------------------------------------------------
    61     ' パブリック プロパティ
    62     '----------------------------------------------------------------
    63 
    64     ' インデクサ ( Getter )
    65     Function Operator[] ( index As Long ) As TraceListener
    66         If index < 0 or count <= index Then
    67             ' TODO: エラー処理
    68             debug
    69         End If
    70 
    71         Dim tempListener As TraceListener( ByVal ppListeners[index] )
    72         Return tempListener
    73     End Function
    74 
    75     ' 保有するリスナの数を取得する
    76     Function Count() As Long
    77         Return count
    78     End Function
    79 End Class
    801
    812Class Trace
    … …  
    181102
    182103End Class
     104
     105Dim _System_defaultTraceListener As DefaultTraceListener
     106Trace.Listeners.Add( _System_defaultTraceListener )

  • Include/Classes/System/Diagnostics/index.ab

    r58 r66  
    1 #include "Debug.ab"
    2 #include "Trace.ab"
    3 #include "TraceListener.ab"
     1#require "Debug.ab"
     2#require "Trace.ab"
     3#require "TraceListener.ab"
     4#require "TraceListenerCollection.ab"
Note: See TracChangeset for help on using the changeset viewer.