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

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


    ' リスナ管理
    Static Listeners As TraceListenerCollection

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 = indentLevel + 1
    End Sub

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

    Static Sub Write( message As String )
        
    End Sub

    ' 一行の文字列を出力
    Static Sub WriteLine( message As String )
        Dim i As Long
        For i = 0 To ELM( Listeners.Count )
            Dim temp As TraceListener
            temp = Listeners[i]
            temp.WriteLine( message )
        Next
    End Sub


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

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

        Dim i As Long
        For i = 0 To ELM( Listeners.Count )
            Dim temp As TraceListener
            temp = Listeners[i]
            temp.IndentLevel = indentLevel
        Next
    End Sub

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

        Dim i As Long
        For i = 0 To ELM( Listeners.Count )
            Dim temp As TraceListener
            temp = Listeners[i]
            temp.IndentSize = indentSize
        Next
    End Sub

End Class

Dim _System_defaultTraceListener As DefaultTraceListener
Trace.Listeners.Add( _System_defaultTraceListener )