Ignore:
Timestamp:
Feb 25, 2008, 10:59:10 PM (17 years ago)
Author:
dai
Message:

TraceListenerCollectionをクラス定義せず、System.Collections.Generic.List<TraceListener>のTypeDefとした

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/Include/Classes/System/Diagnostics/TraceListenerCollection.ab

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