Ignore:
Timestamp:
May 12, 2007, 6:31:13 PM (17 years ago)
Author:
dai
Message:

Objectクラス、Stringクラスの定義をSystem名前空間に入れると共に、コンパイラ側で両者のクラスをSystem名前空間に依存しない特殊型として扱うようにした。
System.Diagnostics名前空間を導入した。
Namespaceステートメントのコード補間機能に対応。

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r176 r246  
    1 ' リスナコレクション
    2 Class TraceListenerCollection
    3     pListeners As *TraceListener
    4     count As Long
    5 Public
     1Namespace System
     2    Namespace Diagnostics
    63
    7     Sub TraceListenerCollection()
    8         pListeners = _System_malloc( 1 )
    9     End Sub
    10     Sub ~TraceListenerCollection()
    11         _System_free( pListeners )
    12     End Sub
     4        ' リスナコレクション
     5        Class TraceListenerCollection
     6            pListeners As *TraceListener
     7            count As Long
     8        Public
    139
    14     '----------------------------------------------------------------
    15     ' パブリック メソッド
    16     '----------------------------------------------------------------
     10            Sub TraceListenerCollection()
     11                pListeners = _System_malloc( 1 )
     12            End Sub
     13            Sub ~TraceListenerCollection()
     14                _System_free( pListeners )
     15            End Sub
    1716
    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
     17            '----------------------------------------------------------------
     18            ' パブリック メソッド
     19            '----------------------------------------------------------------
    2420
    25     ' 複数のリスナを追加
    26     Sub AddRange( listeners As TraceListenerCollection )
    27         ' TODO: 実装
    28     End Sub
     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
    2927
    30     ' リストからすべてのリスナを削除
    31     Sub Clear()
    32         ' TODO: 実装
    33     End Sub
     28            ' 複数のリスナを追加
     29            Sub AddRange( listeners As TraceListenerCollection )
     30                ' TODO: 実装
     31            End Sub
    3432
    35     ' 指定したリスナのインデックスを取得
    36     Function IndexOf( listener As TraceListener )
    37         ' TODO: 実装
    38     End Function
     33            ' リストからすべてのリスナを削除
     34            Sub Clear()
     35                ' TODO: 実装
     36            End Sub
    3937
    40     ' リスナを挿入
    41     Sub Insert( index As Long, listener As TraceListener )
    42         ' TODO: 実装
    43     End Sub
     38            ' 指定したリスナのインデックスを取得
     39            Function IndexOf( listener As TraceListener )
     40                ' TODO: 実装
     41            End Function
    4442
    45     ' リスナを削除
    46     Function Remove( name As String )
    47         ' TODO: 実装
    48     End Function
    49     Function Remove( listener As TraceListener )
    50         ' TODO: 実装
    51     End Function
     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
    5255
    5356
    54     '----------------------------------------------------------------
    55     ' パブリック プロパティ
    56     '----------------------------------------------------------------
     57            '----------------------------------------------------------------
     58            ' パブリック プロパティ
     59            '----------------------------------------------------------------
    5760
    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
     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
    6467
    65         Return pListeners[index]
    66     End Function
     68                Return pListeners[index]
     69            End Function
    6770
    68     ' 保有するリスナの数を取得する
    69     Function Count() As Long
    70         Return count
    71     End Function
    72 End Class
     71            ' 保有するリスナの数を取得する
     72            Function Count() As Long
     73                Return count
     74            End Function
     75        End Class
     76
     77    End Namespace
     78End Namespace
Note: See TracChangeset for help on using the changeset viewer.