Ignore:
Timestamp:
May 12, 2007, 6:31:13 PM (18 years ago)
Author:
dai
Message:

Objectクラス、Stringクラスの定義をSystem名前空間に入れると共に、コンパイラ側で両者のクラスをSystem名前空間に依存しない特殊型として扱うようにした。
System.Diagnostics名前空間を導入した。
Namespaceステートメントのコード補間機能に対応。

File:
1 edited

Legend:

Unmodified
Added
Removed

  • Include/Classes/System/Diagnostics/Trace.ab

    r69 r246  
     1Namespace System
     2    Namespace Diagnostics
    13
    2 Class Trace
    3     Static base As _System_TraceBase()
     4        Class Trace
     5            Static base As _System_TraceBase()
    46
    5 Public
     7        Public
    68
    7     '----------------------------------------------------------------
    8     ' パブリック メソッド
    9     '----------------------------------------------------------------
     9            '----------------------------------------------------------------
     10            ' パブリック メソッド
     11            '----------------------------------------------------------------
    1012
    11     ' アサート（コールスタックを表示）
    12     Static Sub Assert( condition As Boolean )
    13         base.Assert( condition )
    14     End Sub
     13            ' アサート（コールスタックを表示）
     14            Static Sub Assert( condition As Boolean )
     15                base.Assert( condition )
     16            End Sub
    1517
    16     ' アサート（メッセージ文字列を表示）
    17     Static Sub Assert( condition As Boolean, message As String )
    18         base.Assert( condition, message )
    19     End Sub
     18            ' アサート（メッセージ文字列を表示）
     19            Static Sub Assert( condition As Boolean, message As String )
     20                base.Assert( condition, message )
     21            End Sub
    2022
    21     ' アサート（メッセージ文字列と詳細文字列を表示）
    22     Static Sub Assert( condition As Boolean, message As String, detailMessage As String )
    23         base.Assert( condition, message, detailMessage )
    24     End Sub
     23            ' アサート（メッセージ文字列と詳細文字列を表示）
     24            Static Sub Assert( condition As Boolean, message As String, detailMessage As String )
     25                base.Assert( condition, message, detailMessage )
     26            End Sub
    2527
    2628
    27     ' インデントレベルを上げる
    28     Static Sub Indent()
    29         base.Indent()
    30     End Sub
     29            ' インデントレベルを上げる
     30            Static Sub Indent()
     31                base.Indent()
     32            End Sub
    3133
    32     ' インデントレベルを下げる
    33     Static Sub Unindent()
    34         base.Unindent()
    35     End Sub
     34            ' インデントレベルを下げる
     35            Static Sub Unindent()
     36                base.Unindent()
     37            End Sub
    3638
    37     ' 文字列を出力
    38     Static Sub Write( value As Object )
    39         base.Write( value )
    40     End Sub
    41     Static Sub Write( message As String )
    42         base.Write( message )
    43     End Sub
    44     Static Sub Write( value As Object, category As String )
    45         base.Write( value, category )
    46     End Sub
    47     Static Sub Write( message As String, category As String )
    48         base.Write( message, category )
    49     End Sub
     39            ' 文字列を出力
     40            Static Sub Write( value As Object )
     41                base.Write( value )
     42            End Sub
     43            Static Sub Write( message As String )
     44                base.Write( message )
     45            End Sub
     46            Static Sub Write( value As Object, category As String )
     47                base.Write( value, category )
     48            End Sub
     49            Static Sub Write( message As String, category As String )
     50                base.Write( message, category )
     51            End Sub
    5052
    51     ' 一行の文字列を出力
    52     Static Sub WriteLine( value As Object )
    53         base.WriteLine( value )
    54     End Sub
    55     Static Sub WriteLine( message As String )
    56         base.WriteLine( message )
    57     End Sub
    58     Static Sub WriteLine( value As Object, category As String )
    59         base.WriteLine( value, category )
    60     End Sub
    61     Static Sub WriteLine( message As String, category As String )
    62         base.WriteLine( message, category )
    63     End Sub
     53            ' 一行の文字列を出力
     54            Static Sub WriteLine( value As Object )
     55                base.WriteLine( value )
     56            End Sub
     57            Static Sub WriteLine( message As String )
     58                base.WriteLine( message )
     59            End Sub
     60            Static Sub WriteLine( value As Object, category As String )
     61                base.WriteLine( value, category )
     62            End Sub
     63            Static Sub WriteLine( message As String, category As String )
     64                base.WriteLine( message, category )
     65            End Sub
    6466
    65     ' 条件をもとに文字列を出力
    66     Static Sub WriteIf( condition As Boolean, value As Object )
    67         base.WriteIf( condition, value )
    68     End Sub
    69     Static Sub WriteIf( condition As Boolean, message As String )
    70         base.WriteIf( condition, message )
    71     End Sub
    72     Static Sub WriteIf( condition As Boolean, value As Object, category As String )
    73         base.WriteIf( condition, value, category )
    74     End Sub
    75     Static Sub WriteIf( condition As Boolean, message As String, category As String )
    76         base.WriteIf( condition, message, category )
    77     End Sub
     67            ' 条件をもとに文字列を出力
     68            Static Sub WriteIf( condition As Boolean, value As Object )
     69                base.WriteIf( condition, value )
     70            End Sub
     71            Static Sub WriteIf( condition As Boolean, message As String )
     72                base.WriteIf( condition, message )
     73            End Sub
     74            Static Sub WriteIf( condition As Boolean, value As Object, category As String )
     75                base.WriteIf( condition, value, category )
     76            End Sub
     77            Static Sub WriteIf( condition As Boolean, message As String, category As String )
     78                base.WriteIf( condition, message, category )
     79            End Sub
    7880
    79     ' 条件をもとに一行の文字列を出力
    80     Static Sub WriteLineIf( condition As Boolean, message As String )
    81         base.WriteLineIf( condition, message )
    82     End Sub
    83     Static Sub WriteLineIf( condition As Boolean, value As Object )
    84         base.WriteLineIf( condition, value )
    85     End Sub
    86     Static Sub WriteLineIf( condition As Boolean, value As Object, category As String )
    87         base.WriteLineIf( condition, value, category )
    88     End Sub
    89     Static Sub WriteLineIf( condition As Boolean, message As String, category As String )
    90         base.WriteLineIf( condition, message, category )
    91     End Sub
     81            ' 条件をもとに一行の文字列を出力
     82            Static Sub WriteLineIf( condition As Boolean, message As String )
     83                base.WriteLineIf( condition, message )
     84            End Sub
     85            Static Sub WriteLineIf( condition As Boolean, value As Object )
     86                base.WriteLineIf( condition, value )
     87            End Sub
     88            Static Sub WriteLineIf( condition As Boolean, value As Object, category As String )
     89                base.WriteLineIf( condition, value, category )
     90            End Sub
     91            Static Sub WriteLineIf( condition As Boolean, message As String, category As String )
     92                base.WriteLineIf( condition, message, category )
     93            End Sub
    9294
    9395
    94     '----------------------------------------------------------------
    95     ' パブリック プロパティ
    96     '----------------------------------------------------------------
     96            '----------------------------------------------------------------
     97            ' パブリック プロパティ
     98            '----------------------------------------------------------------
    9799
    98     ' IndentLevelプロパティ
    99     Static Function IndentLevel() As Long
    100         Return base.IndentLevel
    101     End Function
    102     Static Sub IndentLevel( indentLevel As Long )
    103         base.IndentLevel = indentLevel
    104     End Sub
     100            ' IndentLevelプロパティ
     101            Static Function IndentLevel() As Long
     102                Return base.IndentLevel
     103            End Function
     104            Static Sub IndentLevel( indentLevel As Long )
     105                base.IndentLevel = indentLevel
     106            End Sub
    105107
    106     ' IndentSizeプロパティ
    107     Static Function IndentSize() As Long
    108         Return base.IndentSize
    109     End Function
    110     Static Sub IndentSize( size As Long )
    111         base.IndentSize = size
    112     End Sub
     108            ' IndentSizeプロパティ
     109            Static Function IndentSize() As Long
     110                Return base.IndentSize
     111            End Function
     112            Static Sub IndentSize( size As Long )
     113                base.IndentSize = size
     114            End Sub
    113115
    114     ' Listenersプロパティ
    115     Static Function Listeners() As TraceListenerCollection
    116         Return base.Listeners
    117     End Function
     116            ' Listenersプロパティ
     117            Static Function Listeners() As TraceListenerCollection
     118                Return base.Listeners
     119            End Function
    118120
    119 End Class
     121        End Class
     122
     123    End Namespace
     124End Namespace
Note: See TracChangeset for help on using the changeset viewer.