Namespace System
	Namespace Diagnostics


#ifdef _DEBUG

		Class Debug
			Static base As _System_TraceBase()

		Public

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

			' アサート（コールスタックを表示）
			Static Sub Assert( condition As Boolean )
				base.Assert( condition )
			End Sub

			' アサート（メッセージ文字列を表示）
			Static Sub Assert( condition As Boolean, message As String )
				base.Assert( condition, message )
			End Sub

			' アサート（メッセージ文字列と詳細文字列を表示）
			Static Sub Assert( condition As Boolean, message As String, detailMessage As String )
				base.Assert( condition, message, detailMessage )
			End Sub


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

			' インデントレベルを下げる
			Static Sub Unindent()
				base.Unindent()
			End Sub

			' 文字列を出力
			Static Sub Write( value As Object )
				base.Write( value )
			End Sub
			Static Sub Write( message As String )
				base.Write( message )
			End Sub
			Static Sub Write( value As Object, category As String )
				base.Write( value, category )
			End Sub
			Static Sub Write( message As String, category As String )
				base.Write( message, category )
			End Sub

			' 一行の文字列を出力
			Static Sub WriteLine( value As Object )
				base.WriteLine( value )
			End Sub
			Static Sub WriteLine( message As String )
				base.WriteLine( message )
			End Sub
			Static Sub WriteLine( value As Object, category As String )
				base.WriteLine( value, category )
			End Sub
			Static Sub WriteLine( message As String, category As String )
				base.WriteLine( message, category )
			End Sub

			' 条件をもとに文字列を出力
			Static Sub WriteIf( condition As Boolean, value As Object )
				base.WriteIf( condition, value )
			End Sub
			Static Sub WriteIf( condition As Boolean, message As String )
				base.WriteIf( condition, message )
			End Sub
			Static Sub WriteIf( condition As Boolean, value As Object, category As String )
				base.WriteIf( condition, value, category )
			End Sub
			Static Sub WriteIf( condition As Boolean, message As String, category As String )
				base.WriteIf( condition, message, category )
			End Sub

			' 条件をもとに一行の文字列を出力
			Static Sub WriteLineIf( condition As Boolean, message As String )
				base.WriteLineIf( condition, message )
			End Sub
			Static Sub WriteLineIf( condition As Boolean, value As Object )
				base.WriteLineIf( condition, value )
			End Sub
			Static Sub WriteLineIf( condition As Boolean, value As Object, category As String )
				base.WriteLineIf( condition, value, category )
			End Sub
			Static Sub WriteLineIf( condition As Boolean, message As String, category As String )
				base.WriteLineIf( condition, message, category )
			End Sub


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

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

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

			' Listenersプロパティ
			Static Function Listeners() As TraceListenerCollection
				Return base.Listeners
			End Function
		End Class

#else

		Class Debug
			Static base As _System_TraceBase()

		Public

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

			' アサート（コールスタックを表示）
			Static Sub Assert( condition As Boolean )
				'base.Assert( condition )
			End Sub

			' アサート（メッセージ文字列を表示）
			Static Sub Assert( condition As Boolean, message As String )
				'base.Assert( condition, message )
			End Sub

			' アサート（メッセージ文字列と詳細文字列を表示）
			Static Sub Assert( condition As Boolean, message As String, detailMessage As String )
				'base.Assert( condition, message, detailMessage )
			End Sub


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

			' インデントレベルを下げる
			Static Sub Unindent()
				base.Unindent()
			End Sub

			' 文字列を出力
			Static Sub Write( value As Object )
				'base.Write( value )
			End Sub
			Static Sub Write( message As String )
				'base.Write( message )
			End Sub
			Static Sub Write( value As Object, category As String )
				'base.Write( value, category )
			End Sub
			Static Sub Write( message As String, category As String )
				'base.Write( message, category )
			End Sub

			' 一行の文字列を出力
			Static Sub WriteLine( value As Object )
				'base.WriteLine( value )
			End Sub
			Static Sub WriteLine( message As String )
				'base.WriteLine( message )
			End Sub
			Static Sub WriteLine( value As Object, category As String )
				'base.WriteLine( value, category )
			End Sub
			Static Sub WriteLine( message As String, category As String )
				'base.WriteLine( message, category )
			End Sub

			' 条件をもとに文字列を出力
			Static Sub WriteIf( condition As Boolean, value As Object )
				'base.WriteIf( condition, value )
			End Sub
			Static Sub WriteIf( condition As Boolean, message As String )
				'base.WriteIf( condition, message )
			End Sub
			Static Sub WriteIf( condition As Boolean, value As Object, category As String )
				'base.WriteIf( condition, value, category )
			End Sub
			Static Sub WriteIf( condition As Boolean, message As String, category As String )
				'base.WriteIf( condition, message, category )
			End Sub

			' 条件をもとに一行の文字列を出力
			Static Sub WriteLineIf( condition As Boolean, message As String )
				'base.WriteLineIf( condition, message )
			End Sub
			Static Sub WriteLineIf( condition As Boolean, value As Object )
				'base.WriteLineIf( condition, value )
			End Sub
			Static Sub WriteLineIf( condition As Boolean, value As Object, category As String )
				'base.WriteLineIf( condition, value, category )
			End Sub
			Static Sub WriteLineIf( condition As Boolean, message As String, category As String )
				'base.WriteLineIf( condition, message, category )
			End Sub


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

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

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

			' Listenersプロパティ
			Static Function Listeners() As TraceListenerCollection
				Return base.Listeners
			End Function
		End Class

#endif

	End Namespace
End Namespace