source: Include/Classes/System/Diagnostics/TraceListenerCollection.ab @ 176

Last change on this file since 176 was 176, checked in by dai, 16 years ago

inet_ntoa関数のパラメータをDWordに変更(暫定対応)。
戻り値の型指定抜け、その他タイプミスを修正。

File size: 1.6 KB
Line 
1' リスナコレクション
2Class TraceListenerCollection
3    pListeners As *TraceListener
4    count As Long
5Public
6
7    Sub TraceListenerCollection()
8        pListeners = _System_malloc( 1 )
9    End Sub
10    Sub ~TraceListenerCollection()
11        _System_free( pListeners )
12    End Sub
13
14    '----------------------------------------------------------------
15    ' パブリック メソッド
16    '----------------------------------------------------------------
17
18    ' リスナを追加
19    Sub Add( listener As TraceListener )
20        pListeners = _System_realloc( pListeners, ( count + 1 ) * SizeOf( LONG_PTR ) )
21        pListeners[count] = listener
22        count++
23    End Sub
24
25    ' 複数のリスナを追加
26    Sub AddRange( listeners As TraceListenerCollection )
27        ' TODO: 実装
28    End Sub
29
30    ' リストからすべてのリスナを削除
31    Sub Clear()
32        ' TODO: 実装
33    End Sub
34
35    ' 指定したリスナのインデックスを取得
36    Function IndexOf( listener As TraceListener )
37        ' TODO: 実装
38    End Function
39
40    ' リスナを挿入
41    Sub Insert( index As Long, listener As TraceListener )
42        ' TODO: 実装
43    End Sub
44
45    ' リスナを削除
46    Function Remove( name As String )
47        ' TODO: 実装
48    End Function
49    Function Remove( listener As TraceListener )
50        ' TODO: 実装
51    End Function
52
53
54    '----------------------------------------------------------------
55    ' パブリック プロパティ
56    '----------------------------------------------------------------
57
58    ' インデクサ ( Getter )
59    Function Operator[] ( index As Long ) As TraceListener
60        If index < 0 or count <= index Then
61            ' TODO: エラー処理
62            debug
63        End If
64
65        Return pListeners[index]
66    End Function
67
68    ' 保有するリスナの数を取得する
69    Function Count() As Long
70        Return count
71    End Function
72End Class
Note: See TracBrowser for help on using the repository browser.