Changeset 44 for Include/Classes

Timestamp:

Jan 6, 2007, 6:30:04 PM (18 years ago)

Author:

dai

Message:

Indent/Unindentに対応してみた。Assertの骨組みを書いたので、後ほど細かい実装をしたい（コールスタック、どうしよう…）。

File:

• Include/Classes/System/Diagnostics/Trace.ab (modified) (1 diff)

Include/Classes/System/Diagnostics/Trace.ab

@@ -1 +1 @@
 Class Trace
+    Static IndentNum = 0 As Long
+
+    Static Function GetIndentString() As String
+        Dim i As Long
+        Dim ResultStr = ""
+        For i = 0 To ELM( IndentNum )
+            ResultStr = ResultStr + Ex"\t"
+        Next
+        Return ResultStr
+    End Function
 Public
+
+/*
+    TODO: 実装
+
+    ' アサート表示
+    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
+            WriteLine( message )
+        End If
+    End Sub
+*/
+
+    ' インデントレベルを上げる
+    Static Sub Indent()
+        IndentNum++
+    End Sub
+
+    ' インデントレベルを下げる
+    Static Sub Unindent()
+        If IndentNum <= 0 Then
+            IndentNum = 0
+            Return
+        End If
+        IndentNum--
+    End Sub
+
+    ' 一行の文字列を出力
     Static Sub WriteLine( message As String )
-        Dim tempmsg = message + Ex"\n"
+        Dim tempmsg = GetIndentString() + message + Ex"\n"
         OutputDebugString( tempmsg )
     End Sub