Last change
on this file since 226 was 176, checked in by dai, 18 years ago |
inet_ntoa関数のパラメータをDWordに変更(暫定対応)。
戻り値の型指定抜け、その他タイプミスを修正。
|
File size:
1.6 KB
|
Rev | Line | |
---|
[66] | 1 | ' リスナコレクション
|
---|
| 2 | Class TraceListenerCollection
|
---|
[147] | 3 | pListeners As *TraceListener
|
---|
[66] | 4 | count As Long
|
---|
| 5 | Public
|
---|
| 6 |
|
---|
| 7 | Sub TraceListenerCollection()
|
---|
[147] | 8 | pListeners = _System_malloc( 1 )
|
---|
[66] | 9 | End Sub
|
---|
| 10 | Sub ~TraceListenerCollection()
|
---|
[147] | 11 | _System_free( pListeners )
|
---|
[66] | 12 | End Sub
|
---|
| 13 |
|
---|
| 14 | '----------------------------------------------------------------
|
---|
| 15 | ' パブリック メソッド
|
---|
| 16 | '----------------------------------------------------------------
|
---|
| 17 |
|
---|
| 18 | ' リスナを追加
|
---|
[176] | 19 | Sub Add( listener As TraceListener )
|
---|
[147] | 20 | pListeners = _System_realloc( pListeners, ( count + 1 ) * SizeOf( LONG_PTR ) )
|
---|
| 21 | pListeners[count] = listener
|
---|
[66] | 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 )
|
---|
[147] | 59 | Function Operator[] ( index As Long ) As TraceListener
|
---|
[66] | 60 | If index < 0 or count <= index Then
|
---|
| 61 | ' TODO: エラー処理
|
---|
| 62 | debug
|
---|
| 63 | End If
|
---|
| 64 |
|
---|
[147] | 65 | Return pListeners[index]
|
---|
[66] | 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.