Changeset 79 for Include/Classes
- Timestamp:
- Jan 30, 2007, 2:06:20 AM (18 years ago)
- Location:
- Include/Classes/System/Diagnostics
- Files:
-
- 2 edited
-
TraceListenerCollection.ab (modified) (2 diffs)
-
base.ab (modified) (20 diffs)
Legend:
- Unmodified
- Added
- Removed
-
Include/Classes/System/Diagnostics/TraceListenerCollection.ab
r66 r79 61 61 62 62 ' インデクサ ( Getter ) 63 Function Operator[] ( index As Long ) As TraceListener63 Function Operator[] ( index As Long ) ByRef As TraceListener 64 64 If index < 0 or count <= index Then 65 65 ' TODO: エラー処理 … … 67 67 End If 68 68 69 Dim tempListener As TraceListener( ByVal ppListeners[index] ) 70 Return tempListener 69 Return ByVal ppListeners[index] 71 70 End Function 72 71 -
Include/Classes/System/Diagnostics/base.ab
r69 r79 1 1 2 2 Class _System_TraceBase 3 indentLevel = 0As Long4 indentSize = 4As Long3 indentLevel As Long 4 indentSize As Long 5 5 6 6 … … 14 14 Dim _System_defaultTraceListener As DefaultTraceListener 15 15 listeners.Add( _System_defaultTraceListener ) 16 17 indentLevel = 0 18 indentSize = 4 16 19 End Sub 17 20 … … 62 65 Dim i As Long 63 66 For i = 0 To ELM( listeners.Count ) 64 Dim temp As TraceListener 65 temp = listeners[i] 66 temp.Write( value ) 67 Dim ByRef listener = listeners[i] 68 listener.Write( value ) 67 69 Next 68 70 End Sub … … 70 72 Dim i As Long 71 73 For i = 0 To ELM( listeners.Count ) 72 Dim temp As TraceListener 73 temp = listeners[i] 74 temp.Write( message ) 74 Dim ByRef listener = listeners[i] 75 listener.Write( message ) 75 76 Next 76 77 End Sub … … 78 79 Dim i As Long 79 80 For i = 0 To ELM( listeners.Count ) 80 Dim temp As TraceListener 81 temp = listeners[i] 82 temp.Write( value, category ) 81 Dim ByRef listener = listeners[i] 82 listener.Write( value, category ) 83 83 Next 84 84 End Sub … … 86 86 Dim i As Long 87 87 For i = 0 To ELM( listeners.Count ) 88 Dim temp As TraceListener 89 temp = listeners[i] 90 temp.Write( message, category ) 88 Dim ByRef listener = listeners[i] 89 listener.Write( message, category ) 91 90 Next 92 91 End Sub … … 96 95 Dim i As Long 97 96 For i = 0 To ELM( listeners.Count ) 98 Dim temp As TraceListener 99 temp = listeners[i] 100 temp.WriteLine( value ) 97 Dim ByRef listener = listeners[i] 98 listener.WriteLine( value ) 101 99 Next 102 100 End Sub … … 104 102 Dim i As Long 105 103 For i = 0 To ELM( listeners.Count ) 106 Dim temp As TraceListener 107 temp = listeners[i] 108 temp.WriteLine( message ) 104 Dim ByRef listener = listeners[i] 105 listener.WriteLine( message ) 109 106 Next 110 107 End Sub … … 112 109 Dim i As Long 113 110 For i = 0 To ELM( listeners.Count ) 114 Dim temp As TraceListener 115 temp = listeners[i] 116 temp.WriteLine( value, category ) 111 Dim ByRef listener = listeners[i] 112 listener.WriteLine( value, category ) 117 113 Next 118 114 End Sub … … 120 116 Dim i As Long 121 117 For i = 0 To ELM( listeners.Count ) 122 Dim temp As TraceListener 123 temp = listeners[i] 124 temp.WriteLine( message, category ) 118 Dim ByRef listener = listeners[i] 119 listener.WriteLine( message, category ) 125 120 Next 126 121 End Sub … … 130 125 Dim i As Long 131 126 For i = 0 To ELM( listeners.Count ) 132 Dim temp As TraceListener 133 temp = listeners[i] 134 temp.WriteIf( condition, value ) 127 Dim ByRef listener = listeners[i] 128 listener.WriteIf( condition, value ) 135 129 Next 136 130 End Sub … … 138 132 Dim i As Long 139 133 For i = 0 To ELM( listeners.Count ) 140 Dim temp As TraceListener 141 temp = listeners[i] 142 temp.WriteIf( condition, message ) 134 Dim ByRef listener = listeners[i] 135 listener.WriteIf( condition, message ) 143 136 Next 144 137 End Sub … … 146 139 Dim i As Long 147 140 For i = 0 To ELM( listeners.Count ) 148 Dim temp As TraceListener 149 temp = listeners[i] 150 temp.WriteIf( condition, value, category ) 141 Dim ByRef listener = listeners[i] 142 listener.WriteIf( condition, value, category ) 151 143 Next 152 144 End Sub … … 154 146 Dim i As Long 155 147 For i = 0 To ELM( listeners.Count ) 156 Dim temp As TraceListener 157 temp = listeners[i] 158 temp.WriteIf( condition, message, category ) 148 Dim ByRef listener = listeners[i] 149 listener.WriteIf( condition, message, category ) 159 150 Next 160 151 End Sub … … 164 155 Dim i As Long 165 156 For i = 0 To ELM( listeners.Count ) 166 Dim temp As TraceListener 167 temp = listeners[i] 168 temp.WriteLineIf( condition, value ) 157 Dim ByRef listener = listeners[i] 158 listener.WriteLineIf( condition, value ) 169 159 Next 170 160 End Sub … … 172 162 Dim i As Long 173 163 For i = 0 To ELM( listeners.Count ) 174 Dim temp As TraceListener 175 temp = listeners[i] 176 temp.WriteLineIf( condition, message ) 164 Dim ByRef listener = listeners[i] 165 listener.WriteLineIf( condition, message ) 177 166 Next 178 167 End Sub … … 180 169 Dim i As Long 181 170 For i = 0 To ELM( listeners.Count ) 182 Dim temp As TraceListener 183 temp = listeners[i] 184 temp.WriteLineIf( condition, value, category ) 171 Dim ByRef listener = listeners[i] 172 listener.WriteLineIf( condition, value, category ) 185 173 Next 186 174 End Sub … … 188 176 Dim i As Long 189 177 For i = 0 To ELM( listeners.Count ) 190 Dim temp As TraceListener 191 temp = listeners[i] 192 temp.WriteLineIf( condition, message, category ) 178 Dim ByRef listener = listeners[i] 179 listener.WriteLineIf( condition, message, category ) 193 180 Next 194 181 End Sub … … 208 195 Dim i As Long 209 196 For i = 0 To ELM( listeners.Count ) 210 Dim temp As TraceListener 211 temp = listeners[i] 212 temp.IndentLevel = indentLevel 197 Dim ByRef listener = listeners[i] 198 listener.IndentLevel = indentLevel 213 199 Next 214 200 End Sub … … 223 209 Dim i As Long 224 210 For i = 0 To ELM( listeners.Count ) 225 Dim temp As TraceListener 226 temp = listeners[i] 227 temp.IndentSize = indentSize 211 Dim ByRef listener = listeners[i] 212 listener.IndentSize = indentSize 228 213 Next 229 214 End Sub
Note:
See TracChangeset
for help on using the changeset viewer.
