Context Navigation

Debug.ab@ 246

Last change on this file since 246 was 246, checked in by dai, 17 years ago
Objectクラス、Stringクラスの定義をSystem名前空間に入れると共に、コンパイラ側で両者のクラスをSystem名前空間に依存しない特殊型として扱うようにした。 System.Diagnostics名前空間を導入した。 Namespaceステートメントのコード補間機能に対応。
File size: 7.2 KB

Rev	Line
[246]	1	Namespace System
	2	Namespace Diagnostics
	3
	4
[43]	5	#ifdef _DEBUG
	6
[246]	7	Class Debug
	8	Static base As _System_TraceBase()
[69]	9
[246]	10	Public
[69]	11
[246]	12	'----------------------------------------------------------------
	13	' パブリックメソッド
	14	'----------------------------------------------------------------
[69]	15
[246]	16	' アサート（コールスタックを表示）
	17	Static Sub Assert( condition As Boolean )
	18	base.Assert( condition )
	19	End Sub
[69]	20
[246]	21	' アサート（メッセージ文字列を表示）
	22	Static Sub Assert( condition As Boolean, message As String )
	23	base.Assert( condition, message )
	24	End Sub
[69]	25
[246]	26	' アサート（メッセージ文字列と詳細文字列を表示）
	27	Static Sub Assert( condition As Boolean, message As String, detailMessage As String )
	28	base.Assert( condition, message, detailMessage )
	29	End Sub
[69]	30
	31
[246]	32	' インデントレベルを上げる
	33	Static Sub Indent()
	34	base.Indent()
	35	End Sub
[69]	36
[246]	37	' インデントレベルを下げる
	38	Static Sub Unindent()
	39	base.Unindent()
	40	End Sub
[69]	41
[246]	42	' 文字列を出力
	43	Static Sub Write( value As Object )
	44	base.Write( value )
	45	End Sub
	46	Static Sub Write( message As String )
	47	base.Write( message )
	48	End Sub
	49	Static Sub Write( value As Object, category As String )
	50	base.Write( value, category )
	51	End Sub
	52	Static Sub Write( message As String, category As String )
	53	base.Write( message, category )
	54	End Sub
[69]	55
[246]	56	' 一行の文字列を出力
	57	Static Sub WriteLine( value As Object )
	58	base.WriteLine( value )
	59	End Sub
	60	Static Sub WriteLine( message As String )
	61	base.WriteLine( message )
	62	End Sub
	63	Static Sub WriteLine( value As Object, category As String )
	64	base.WriteLine( value, category )
	65	End Sub
	66	Static Sub WriteLine( message As String, category As String )
	67	base.WriteLine( message, category )
	68	End Sub
[69]	69
[246]	70	' 条件をもとに文字列を出力
	71	Static Sub WriteIf( condition As Boolean, value As Object )
	72	base.WriteIf( condition, value )
	73	End Sub
	74	Static Sub WriteIf( condition As Boolean, message As String )
	75	base.WriteIf( condition, message )
	76	End Sub
	77	Static Sub WriteIf( condition As Boolean, value As Object, category As String )
	78	base.WriteIf( condition, value, category )
	79	End Sub
	80	Static Sub WriteIf( condition As Boolean, message As String, category As String )
	81	base.WriteIf( condition, message, category )
	82	End Sub
[69]	83
[246]	84	' 条件をもとに一行の文字列を出力
	85	Static Sub WriteLineIf( condition As Boolean, message As String )
	86	base.WriteLineIf( condition, message )
	87	End Sub
	88	Static Sub WriteLineIf( condition As Boolean, value As Object )
	89	base.WriteLineIf( condition, value )
	90	End Sub
	91	Static Sub WriteLineIf( condition As Boolean, value As Object, category As String )
	92	base.WriteLineIf( condition, value, category )
	93	End Sub
	94	Static Sub WriteLineIf( condition As Boolean, message As String, category As String )
	95	base.WriteLineIf( condition, message, category )
	96	End Sub
[69]	97
	98
[246]	99	'----------------------------------------------------------------
	100	' パブリックプロパティ
	101	'----------------------------------------------------------------
[69]	102
[246]	103	' IndentLevelプロパティ
	104	Static Function IndentLevel() As Long
	105	Return base.IndentLevel
	106	End Function
	107	Static Sub IndentLevel( indentLevel As Long )
	108	base.IndentLevel = indentLevel
	109	End Sub
[69]	110
[246]	111	' IndentSizeプロパティ
	112	Static Function IndentSize() As Long
	113	Return base.IndentSize
	114	End Function
	115	Static Sub IndentSize( size As Long )
	116	base.IndentSize = size
	117	End Sub
[69]	118
[246]	119	' Listenersプロパティ
	120	Static Function Listeners() As TraceListenerCollection
	121	Return base.Listeners
	122	End Function
	123	End Class
[43]	124
	125	#else
	126
[246]	127	Class Debug
	128	Static base As _System_TraceBase()
[69]	129
[246]	130	Public
[69]	131
[246]	132	'----------------------------------------------------------------
	133	' パブリックメソッド
	134	'----------------------------------------------------------------
[69]	135
[246]	136	' アサート（コールスタックを表示）
	137	Static Sub Assert( condition As Boolean )
	138	'base.Assert( condition )
	139	End Sub
[69]	140
[246]	141	' アサート（メッセージ文字列を表示）
	142	Static Sub Assert( condition As Boolean, message As String )
	143	'base.Assert( condition, message )
	144	End Sub
[69]	145
[246]	146	' アサート（メッセージ文字列と詳細文字列を表示）
	147	Static Sub Assert( condition As Boolean, message As String, detailMessage As String )
	148	'base.Assert( condition, message, detailMessage )
	149	End Sub
[69]	150
	151
[246]	152	' インデントレベルを上げる
	153	Static Sub Indent()
	154	base.Indent()
	155	End Sub
[69]	156
[246]	157	' インデントレベルを下げる
	158	Static Sub Unindent()
	159	base.Unindent()
	160	End Sub
[69]	161
[246]	162	' 文字列を出力
	163	Static Sub Write( value As Object )
	164	'base.Write( value )
	165	End Sub
	166	Static Sub Write( message As String )
	167	'base.Write( message )
	168	End Sub
	169	Static Sub Write( value As Object, category As String )
	170	'base.Write( value, category )
	171	End Sub
	172	Static Sub Write( message As String, category As String )
	173	'base.Write( message, category )
	174	End Sub
[69]	175
[246]	176	' 一行の文字列を出力
	177	Static Sub WriteLine( value As Object )
	178	'base.WriteLine( value )
	179	End Sub
	180	Static Sub WriteLine( message As String )
	181	'base.WriteLine( message )
	182	End Sub
	183	Static Sub WriteLine( value As Object, category As String )
	184	'base.WriteLine( value, category )
	185	End Sub
	186	Static Sub WriteLine( message As String, category As String )
	187	'base.WriteLine( message, category )
	188	End Sub
[69]	189
[246]	190	' 条件をもとに文字列を出力
	191	Static Sub WriteIf( condition As Boolean, value As Object )
	192	'base.WriteIf( condition, value )
	193	End Sub
	194	Static Sub WriteIf( condition As Boolean, message As String )
	195	'base.WriteIf( condition, message )
	196	End Sub
	197	Static Sub WriteIf( condition As Boolean, value As Object, category As String )
	198	'base.WriteIf( condition, value, category )
	199	End Sub
	200	Static Sub WriteIf( condition As Boolean, message As String, category As String )
	201	'base.WriteIf( condition, message, category )
	202	End Sub
[69]	203
[246]	204	' 条件をもとに一行の文字列を出力
	205	Static Sub WriteLineIf( condition As Boolean, message As String )
	206	'base.WriteLineIf( condition, message )
	207	End Sub
	208	Static Sub WriteLineIf( condition As Boolean, value As Object )
	209	'base.WriteLineIf( condition, value )
	210	End Sub
	211	Static Sub WriteLineIf( condition As Boolean, value As Object, category As String )
	212	'base.WriteLineIf( condition, value, category )
	213	End Sub
	214	Static Sub WriteLineIf( condition As Boolean, message As String, category As String )
	215	'base.WriteLineIf( condition, message, category )
	216	End Sub
[69]	217
	218
[246]	219	'----------------------------------------------------------------
	220	' パブリックプロパティ
	221	'----------------------------------------------------------------
[69]	222
[246]	223	' IndentLevelプロパティ
	224	Static Function IndentLevel() As Long
	225	Return base.IndentLevel
	226	End Function
	227	Static Sub IndentLevel( indentLevel As Long )
	228	base.IndentLevel = indentLevel
	229	End Sub
[69]	230
[246]	231	' IndentSizeプロパティ
	232	Static Function IndentSize() As Long
	233	Return base.IndentSize
	234	End Function
	235	Static Sub IndentSize( size As Long )
	236	base.IndentSize = size
	237	End Sub
[69]	238
[246]	239	' Listenersプロパティ
	240	Static Function Listeners() As TraceListenerCollection
	241	Return base.Listeners
	242	End Function
	243	End Class
[43]	244
	245	#endif
[246]	246
	247	End Namespace
	248	End Namespace

Note: See TracBrowser for help on using the repository browser.

Download in other formats:

Original Format