equal
deleted
inserted
replaced
23 OrderedCollection subclass:#GDBMITrace |
23 OrderedCollection subclass:#GDBMITrace |
24 instanceVariableNames:'lock' |
24 instanceVariableNames:'lock' |
25 classVariableNames:'' |
25 classVariableNames:'' |
26 poolDictionaries:'' |
26 poolDictionaries:'' |
27 category:'GDB-Private-MI Trace' |
27 category:'GDB-Private-MI Trace' |
28 ! |
|
29 |
|
30 Object subclass:#Command |
|
31 instanceVariableNames:'string' |
|
32 classVariableNames:'' |
|
33 poolDictionaries:'' |
|
34 privateIn:GDBMITrace |
|
35 ! |
|
36 |
|
37 Object subclass:#Response |
|
38 instanceVariableNames:'string' |
|
39 classVariableNames:'' |
|
40 poolDictionaries:'' |
|
41 privateIn:GDBMITrace |
|
42 ! |
28 ! |
43 |
29 |
44 !GDBMITrace class methodsFor:'documentation'! |
30 !GDBMITrace class methodsFor:'documentation'! |
45 |
31 |
46 copyright |
32 copyright |
161 "Modified: / 23-06-2014 / 23:51:17 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
147 "Modified: / 23-06-2014 / 23:51:17 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
162 ! ! |
148 ! ! |
163 |
149 |
164 !GDBMITrace methodsFor:'recording'! |
150 !GDBMITrace methodsFor:'recording'! |
165 |
151 |
166 <<< aString |
152 <<< aString |
167 self add: (Response new string: aString) |
153 self add:(GDBMITraceResponseRecord new string:aString) |
168 |
|
169 "Created: / 24-06-2014 / 00:35:42 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
170 ! |
154 ! |
171 |
155 |
172 >>> aString |
156 >>> aString |
173 self add: (Command new string: aString) |
157 self add:(GDBMITraceCommandRecord new string:aString) |
174 |
|
175 "Created: / 24-06-2014 / 00:35:31 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
176 ! ! |
158 ! ! |
177 |
159 |
178 !GDBMITrace methodsFor:'saving & restoring'! |
160 !GDBMITrace methodsFor:'saving & restoring'! |
179 |
161 |
180 saveInClass: class selector: selector |
162 saveInClass: class selector: selector |
209 ^ self saveInClass: GDBSimulatorResource selector: selector |
191 ^ self saveInClass: GDBSimulatorResource selector: selector |
210 |
192 |
211 "Created: / 23-06-2014 / 23:17:34 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
193 "Created: / 23-06-2014 / 23:17:34 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
212 ! ! |
194 ! ! |
213 |
195 |
214 !GDBMITrace::Command methodsFor:'accessing'! |
|
215 |
|
216 string |
|
217 ^ string |
|
218 ! |
|
219 |
|
220 string:something |
|
221 string := something. |
|
222 ! ! |
|
223 |
|
224 !GDBMITrace::Command methodsFor:'printing & storing'! |
|
225 |
|
226 printOn:aStream |
|
227 "append a printed representation if the receiver to the argument, aStream" |
|
228 |
|
229 aStream nextPutLine: '>>>'. |
|
230 string printOn: aStream. |
|
231 aStream cr. |
|
232 |
|
233 "Modified: / 24-06-2014 / 00:09:01 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
234 ! ! |
|
235 |
|
236 !GDBMITrace::Command methodsFor:'testing'! |
|
237 |
|
238 isCommand |
|
239 ^ true |
|
240 |
|
241 "Created: / 24-06-2014 / 00:41:35 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
242 ! |
|
243 |
|
244 isResponse |
|
245 ^ false |
|
246 |
|
247 "Created: / 24-06-2014 / 00:41:41 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
248 ! ! |
|
249 |
|
250 !GDBMITrace::Response methodsFor:'accessing'! |
|
251 |
|
252 string |
|
253 ^ string |
|
254 ! |
|
255 |
|
256 string:something |
|
257 string := something. |
|
258 ! ! |
|
259 |
|
260 !GDBMITrace::Response methodsFor:'printing & storing'! |
|
261 |
|
262 printOn:aStream |
|
263 "append a printed representation if the receiver to the argument, aStream" |
|
264 |
|
265 aStream nextPutLine: '<<<'. |
|
266 string printOn: aStream. |
|
267 aStream cr. |
|
268 |
|
269 "Modified: / 24-06-2014 / 00:08:28 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
270 ! ! |
|
271 |
|
272 !GDBMITrace::Response methodsFor:'testing'! |
|
273 |
|
274 isCommand |
|
275 ^ false |
|
276 |
|
277 "Created: / 24-06-2014 / 00:41:35 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
278 ! |
|
279 |
|
280 isResponse |
|
281 ^ true |
|
282 |
|
283 "Created: / 24-06-2014 / 00:41:41 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
284 ! ! |
|
285 |
|