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 | ' リスナコレクション |
---|
2 | Class TraceListenerCollection |
---|
3 | pListeners As *TraceListener |
---|
4 | count As Long |
---|
5 | Public |
---|
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 |
---|
72 | End Class |
---|
Note: See
TracBrowser
for help on using the repository browser.