equal
deleted
inserted
replaced
|
1 "{ Encoding: utf8 }" |
|
2 |
1 "{ Package: 'jv:libgdbs' }" |
3 "{ Package: 'jv:libgdbs' }" |
2 |
4 |
3 GDBDebuggerObject subclass:#GDBThreadGroup |
5 GDBDebuggerObject subclass:#GDBThreadGroup |
4 instanceVariableNames:'id pid exit_code threads' |
6 instanceVariableNames:'id type executable pid exit_code threads' |
5 classVariableNames:'' |
7 classVariableNames:'' |
6 poolDictionaries:'' |
8 poolDictionaries:'' |
7 category:'GDB-Core' |
9 category:'GDB-Core' |
8 ! |
10 ! |
|
11 |
9 |
12 |
10 !GDBThreadGroup class methodsFor:'instance creation'! |
13 !GDBThreadGroup class methodsFor:'instance creation'! |
11 |
14 |
12 newWithDebugger: debugger id: aString |
15 newWithDebugger: debugger id: aString |
13 ^ self new setDebugger: debugger; setId: aString; yourself |
16 ^ self new setDebugger: debugger; setId: aString; yourself |
19 |
22 |
20 description |
23 description |
21 ^ (super description) |
24 ^ (super description) |
22 define:#id as:String; |
25 define:#id as:String; |
23 define:#pid as:Integer; |
26 define:#pid as:Integer; |
24 yourself |
27 yourself. |
|
28 |
|
29 " |
|
30 self description |
|
31 " |
25 |
32 |
26 "Created: / 06-09-2014 / 02:21:51 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
33 "Created: / 06-09-2014 / 02:21:51 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
34 "Modified (comment): / 01-10-2014 / 01:29:30 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
35 ! |
|
36 |
|
37 descriptionType |
|
38 ^ Magritte::MASingleOptionDescription new |
|
39 optionsAndLabels: { |
|
40 GDBThreadGroupTypeProcess -> 'process' |
|
41 }; |
|
42 accessor: (GDBMAPropertyAccessor forPropertyNamed: 'type'); |
|
43 label: 'type'; |
|
44 description: 'The type of the thread group. At present, only ‘process’ is a valid type.'; |
|
45 yourself. |
|
46 |
|
47 "Created: / 01-10-2014 / 01:29:13 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
27 ! ! |
48 ! ! |
28 |
49 |
29 !GDBThreadGroup methodsFor:'accessing'! |
50 !GDBThreadGroup methodsFor:'accessing'! |
30 |
51 |
31 exitCode |
52 exitCode |
148 |
169 |
149 "Created: / 06-09-2014 / 02:38:31 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
170 "Created: / 06-09-2014 / 02:38:31 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
150 ! |
171 ! |
151 |
172 |
152 isRunning |
173 isRunning |
153 ^ pid notNil and: [ exit_code isNil ]. |
174 ^ pid notNil and: [ exit_code isNil ] and:[ self isStopped not ] |
154 |
175 |
155 "Created: / 06-09-2014 / 02:38:18 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
176 "Created: / 06-09-2014 / 02:38:18 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
177 "Modified: / 30-09-2014 / 00:49:58 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
178 ! |
|
179 |
|
180 isStopped |
|
181 ^ threads notEmptyOrNil and:[ threads anySatisfy: [:t | t isStopped ] ]. |
|
182 |
|
183 "Created: / 30-09-2014 / 00:49:58 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
156 ! ! |
184 ! ! |
157 |
185 |
|
186 !GDBThreadGroup class methodsFor:'documentation'! |
|
187 |
|
188 version_HG |
|
189 |
|
190 ^ '$Changeset: <not expanded> $' |
|
191 ! ! |
|
192 |