Context Navigation

Debug.ab@ 272

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

Line
1	Namespace System
2	Namespace Diagnostics
3
4
5	#ifdef _DEBUG
6
7	Class Debug
8	Static base As _System_TraceBase()
9
10	Public
11
12	'----------------------------------------------------------------
13	' パブリックメソッド
14	'----------------------------------------------------------------
15
16	' アサート（コールスタックを表示）
17	Static Sub Assert( condition As Boolean )
18	base.Assert( condition )
19	End Sub
20
21	' アサート（メッセージ文字列を表示）
22	Static Sub Assert( condition As Boolean, message As String )
23	base.Assert( condition, message )
24	End Sub
25
26	' アサート（メッセージ文字列と詳細文字列を表示）
27	Static Sub Assert( condition As Boolean, message As String, detailMessage As String )
28	base.Assert( condition, message, detailMessage )
29	End Sub
30
31
32	' インデントレベルを上げる
33	Static Sub Indent()
34	base.Indent()
35	End Sub
36
37	' インデントレベルを下げる
38	Static Sub Unindent()
39	base.Unindent()
40	End Sub
41
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
55
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
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
83
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
97
98
99	'----------------------------------------------------------------
100	' パブリックプロパティ
101	'----------------------------------------------------------------
102
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
110
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
118
119	' Listenersプロパティ
120	Static Function Listeners() As TraceListenerCollection
121	Return base.Listeners
122	End Function
123	End Class
124
125	#else
126
127	Class Debug
128	Static base As _System_TraceBase()
129
130	Public
131
132	'----------------------------------------------------------------
133	' パブリックメソッド
134	'----------------------------------------------------------------
135
136	' アサート（コールスタックを表示）
137	Static Sub Assert( condition As Boolean )
138	'base.Assert( condition )
139	End Sub
140
141	' アサート（メッセージ文字列を表示）
142	Static Sub Assert( condition As Boolean, message As String )
143	'base.Assert( condition, message )
144	End Sub
145
146	' アサート（メッセージ文字列と詳細文字列を表示）
147	Static Sub Assert( condition As Boolean, message As String, detailMessage As String )
148	'base.Assert( condition, message, detailMessage )
149	End Sub
150
151
152	' インデントレベルを上げる
153	Static Sub Indent()
154	base.Indent()
155	End Sub
156
157	' インデントレベルを下げる
158	Static Sub Unindent()
159	base.Unindent()
160	End Sub
161
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
175
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
189
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
203
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
217
218
219	'----------------------------------------------------------------
220	' パブリックプロパティ
221	'----------------------------------------------------------------
222
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
230
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
238
239	' Listenersプロパティ
240	Static Function Listeners() As TraceListenerCollection
241	Return base.Listeners
242	End Function
243	End Class
244
245	#endif
246
247	End Namespace
248	End Namespace

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

Download in other formats:

Original Format