source: Include/Classes/System/Diagnostics/Trace.ab@ 45

' リスナ
Class TraceListener
End Class

' リスナコレクション
Class TraceListenerCollection
Public

    '----------------------------------------------------------------
    ' パブリック メソッド
    '----------------------------------------------------------------

    ' リスナを追加
    Function Add( listener As TraceListener )
        ' TODO: 実装
    End Function

    ' 複数のリスナを追加
    Sub AddRange( listeners As TraceListenerCollection )
        ' TODO: 実装
    End Function

    ' リストからすべてのリスナを削除
    Sub Clear()
        ' TODO: 実装
    End Sub

    ' 指定したリスナのインデックスを取得
    Function IndexOf( listener As TraceListener )
        ' TODO: 実装
    End Function

    ' リスナを挿入
    Sub Insert( index As Long, listener As TraceListener )
        ' TODO: 実装
    End Sub

    ' リスナを削除
    Function Remove( name As String )
        ' TODO: 実装
    End Function
    Function Remove( listener As TraceListener )
        ' TODO: 実装
    End Function


    '----------------------------------------------------------------
    ' パブリック プロパティ
    '----------------------------------------------------------------

    ' 保有するリスナの数を取得する
    Function Count() As Long
        ' TODO: 実装
    End Function

    ' リスナを取得する
    Function Item( index As Long ) As TraceListener
        ' TODO: 実装
    End Function
End Class

Class Trace
    Static indentLevel = 0 As Long
    Static indentSize = 4 As Long

    Static Function GetIndentString() As String
        Dim i As Long

        Dim IndentStr = ""
        For i = 0 To ELM( indentSize )
            IndentStr = IndentStr + " "
        Next

        Dim ResultStr = ""
        For i = 0 To ELM( indentLevel )
            ResultStr = ResultStr + IndentStr
        Next

        Return ResultStr
    End Function

Public

    '----------------------------------------------------------------
    ' パブリック メソッド
    '----------------------------------------------------------------

    ' アサート（コールスタックを表示）
    Static Sub Assert( condition As Boolean )
        If condition == False then
            'TODO: コールスタックを表示
        End If
    End Sub

    ' アサート（メッセージ文字列を表示）
    Static Sub Assert( condition As Boolean, message As String )
        If condition == False then
            ' TODO: メッセージボックス形式での表示に対応
            WriteLine( message )
        End If
    End Sub

    ' アサート（メッセージ文字列と詳細文字列を表示）
    Static Sub Assert( condition As Boolean, message As String, detailMessage As String )
        If condition == False then
            ' TODO: メッセージボックス形式での表示に対応
            WriteLine( message )
        End If
    End Sub


    ' インデントレベルを上げる
    Static Sub Indent()
        indentLevel++
    End Sub

    ' インデントレベルを下げる
    Static Sub Unindent()
        If indentLevel <= 0 Then
            indentLevel = 0
            Return
        End If
        indentLevel--
    End Sub

    ' 一行の文字列を出力
    Static Sub WriteLine( message As String )
        Dim tempmsg = GetIndentString() + message + Ex"\n"

        ' TODO: リスナへの出力を実装
    End Sub


    '----------------------------------------------------------------
    ' パブリック プロパティ
    '----------------------------------------------------------------

    ' IndentLevelプロパティ
    Static Function IndentLevel() As Long
        Return indentLevel
    End Function
    Static Sub IndentLevel( level As Long )
        indentLevel = level
    End Sub

    ' IndentSizeプロパティ
    Static Function IndentSize() As Long
        Return indentSize
    End Function
    Static Sub IndentSize( size As Long )
        indentSize = size
    End Sub

    ' Listenersプロパティ
    Static Function Listeners() As TraceListenerCollection
        Return listeners
    End Function
    Static Sub Listeners( listeners As TraceListenerCollection )
        This.listeners = listeners
    End Sub

End Class