- Timestamp:
- Jan 30, 2007, 2:06:20 AM (18 years ago)
- Location:
- Include
- Files:
-
- 4 edited
-
Classes/System/Diagnostics/TraceListenerCollection.ab (modified) (2 diffs)
-
Classes/System/Diagnostics/base.ab (modified) (20 diffs)
-
basic.sbp (modified) (1 diff)
-
system/gc.sbp (modified) (3 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 -
Include/basic.sbp
r71 r79 35 35 36 36 37 '-------------------------------------------------------------------- 38 ' Boolena型の暫定対応 39 ' ※コンパイラが実装するまではこちらを使いましょう。 40 TypeDef Boolean = Byte 41 Const True = 1 42 Const False = 0 43 '-------------------------------------------------------------------- 37 ' Boolena型の定数 38 Const True = 1 As Boolean 39 Const False = 0 As Boolean 44 40 45 41 -
Include/system/gc.sbp
r18 r79 68 68 If ppPtr=0 Then Exit Sub 69 69 70 #ifdef _DLL 71 _destructor() 72 #else 70 73 '解放スレッドを生成 71 74 Dim hThread As HANDLE … … 73 76 hThread=_beginthreadex(NULL,0,AddressOf(DestructorThread),VarPtr(This),0,ThreadId) 74 77 CloseHandle(hThread) 75 Sleep(INFINITE) 78 Sleep( INFINITE ) 79 #endif 80 76 81 End Sub 77 82 78 83 Private 79 Function Cdecl DestructorThread() As Long 80 '------------------------------------- 81 ' すべてのスレッドを一時停止 82 '------------------------------------- 83 _System_pobj_AllThreads->SuspendAllThread() 84 85 84 Sub _destructor() 86 85 Dim i As Long 87 86 For i=0 To ELM(n) … … 103 102 'クリティカルセッションを破棄 104 103 DeleteCriticalSection(CriticalSection) 105 104 End Sub 105 Function Cdecl DestructorThread() As Long 106 '------------------------------------- 107 ' すべてのスレッドを一時停止 108 '------------------------------------- 109 _System_pobj_AllThreads->SuspendAllThread() 110 111 _destructor() 106 112 107 113 'プロセスを終了
Note:
See TracChangeset
for help on using the changeset viewer.
