hg/jv-libgdbs: GDBThreadGroup.st@2fa20404923c (annotated)

51 2fa20404923c Introduced GDBThreadGroupType. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 45 diff changeset	1	"{ Encoding: utf8 }"
2fa20404923c Introduced GDBThreadGroupType. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 45 diff changeset	2
35 c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	3	"{ Package: 'jv:libgdbs' }"
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	4
36 095c4b0b74d3 Added support for threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 35 diff changeset	5	GDBDebuggerObject subclass:#GDBThreadGroup
51 2fa20404923c Introduced GDBThreadGroupType. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 45 diff changeset	6	instanceVariableNames:'id type executable pid exit_code threads'
35 c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	7	classVariableNames:''
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	8	poolDictionaries:''
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	9	category:'GDB-Core'
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	10	!
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	11
51 2fa20404923c Introduced GDBThreadGroupType. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 45 diff changeset	12
35 c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	13	!GDBThreadGroup class methodsFor:'instance creation'!
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	14
36 095c4b0b74d3 Added support for threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 35 diff changeset	15	newWithDebugger: debugger id: aString
095c4b0b74d3 Added support for threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 35 diff changeset	16	^ self new setDebugger: debugger; setId: aString; yourself
35 c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	17
36 095c4b0b74d3 Added support for threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 35 diff changeset	18	"Created: / 07-09-2014 / 21:18:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
35 c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	19	! !
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	20
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	21	!GDBThreadGroup class methodsFor:'accessing - GDB value descriptors'!
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	22
45 deb908479a37 Code refactored to use Magritte to meta-describe GDB objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 43 diff changeset	23	description
deb908479a37 Code refactored to use Magritte to meta-describe GDB objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 43 diff changeset	24	^ (super description)
deb908479a37 Code refactored to use Magritte to meta-describe GDB objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 43 diff changeset	25	define:#id as:String;
deb908479a37 Code refactored to use Magritte to meta-describe GDB objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 43 diff changeset	26	define:#pid as:Integer;
51 2fa20404923c Introduced GDBThreadGroupType. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 45 diff changeset	27	yourself.
2fa20404923c Introduced GDBThreadGroupType. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 45 diff changeset	28
2fa20404923c Introduced GDBThreadGroupType. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 45 diff changeset	29	"
2fa20404923c Introduced GDBThreadGroupType. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 45 diff changeset	30	self description
2fa20404923c Introduced GDBThreadGroupType. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 45 diff changeset	31	"
35 c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	32
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	33	"Created: / 06-09-2014 / 02:21:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
51 2fa20404923c Introduced GDBThreadGroupType. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 45 diff changeset	34	"Modified (comment): / 01-10-2014 / 01:29:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2fa20404923c Introduced GDBThreadGroupType. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 45 diff changeset	35	!
2fa20404923c Introduced GDBThreadGroupType. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 45 diff changeset	36
2fa20404923c Introduced GDBThreadGroupType. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 45 diff changeset	37	descriptionType
2fa20404923c Introduced GDBThreadGroupType. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 45 diff changeset	38	^ Magritte::MASingleOptionDescription new
2fa20404923c Introduced GDBThreadGroupType. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 45 diff changeset	39	optionsAndLabels: {
2fa20404923c Introduced GDBThreadGroupType. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 45 diff changeset	40	GDBThreadGroupTypeProcess -> 'process'
2fa20404923c Introduced GDBThreadGroupType. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 45 diff changeset	41	};
2fa20404923c Introduced GDBThreadGroupType. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 45 diff changeset	42	accessor: (GDBMAPropertyAccessor forPropertyNamed: 'type');
2fa20404923c Introduced GDBThreadGroupType. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 45 diff changeset	43	label: 'type';
2fa20404923c Introduced GDBThreadGroupType. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 45 diff changeset	44	description: 'The type of the thread group. At present, only ‘process’ is a valid type.';
2fa20404923c Introduced GDBThreadGroupType. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 45 diff changeset	45	yourself.
2fa20404923c Introduced GDBThreadGroupType. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 45 diff changeset	46
2fa20404923c Introduced GDBThreadGroupType. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 45 diff changeset	47	"Created: / 01-10-2014 / 01:29:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"
35 c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	48	! !
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	49
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	50	!GDBThreadGroup methodsFor:'accessing'!
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	51
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	52	exitCode
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	53	^ exit_code
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	54
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	55	"Created: / 07-09-2014 / 12:34:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	56	!
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	57
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	58	id
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	59	^ id
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	60	!
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	61
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	62	pid
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	63	^ pid
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	64	!
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	65
36 095c4b0b74d3 Added support for threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 35 diff changeset	66	threadWithId: tid
43 22236b6d1d9a Remove threads from thread group when threadgroup terminates. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 37 diff changeset	67	^ threads ? #() detect:[:e \| e isDead not and:[ e id = tid ] ] ifNone:[
36 095c4b0b74d3 Added support for threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 35 diff changeset	68	self error: ('No thread with id ''%1'' found!!' bindWith: tid)
095c4b0b74d3 Added support for threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 35 diff changeset	69	].
095c4b0b74d3 Added support for threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 35 diff changeset	70
095c4b0b74d3 Added support for threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 35 diff changeset	71	"Created: / 07-09-2014 / 21:37:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
43 22236b6d1d9a Remove threads from thread group when threadgroup terminates. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 37 diff changeset	72	"Modified: / 22-09-2014 / 01:23:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
36 095c4b0b74d3 Added support for threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 35 diff changeset	73	!
095c4b0b74d3 Added support for threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 35 diff changeset	74
35 c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	75	threads
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	76	threads isNil ifTrue:[
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	77	threads := List new.
36 095c4b0b74d3 Added support for threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 35 diff changeset	78	].
095c4b0b74d3 Added support for threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 35 diff changeset	79	^ threads
095c4b0b74d3 Added support for threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 35 diff changeset	80
095c4b0b74d3 Added support for threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 35 diff changeset	81	"Modified: / 06-09-2014 / 02:23:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"
095c4b0b74d3 Added support for threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 35 diff changeset	82	"Modified (format): / 07-09-2014 / 21:42:28 / Jan Vrany <jan.vrany@fit.cvut.cz>"
095c4b0b74d3 Added support for threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 35 diff changeset	83	! !
095c4b0b74d3 Added support for threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 35 diff changeset	84
095c4b0b74d3 Added support for threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 35 diff changeset	85	!GDBThreadGroup methodsFor:'event handling'!
095c4b0b74d3 Added support for threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 35 diff changeset	86
37 a85f0c91f164 Some more work on threads (thread status) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 36 diff changeset	87	onThreadCreatedEvent:aGDBThreadCreatedEvent
36 095c4b0b74d3 Added support for threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 35 diff changeset	88	\| thread \|
37 a85f0c91f164 Some more work on threads (thread status) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 36 diff changeset	89
a85f0c91f164 Some more work on threads (thread status) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 36 diff changeset	90	threads isNil ifTrue:[
36 095c4b0b74d3 Added support for threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 35 diff changeset	91	threads := List new.
35 c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	92	].
37 a85f0c91f164 Some more work on threads (thread status) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 36 diff changeset	93	thread := GDBThread
a85f0c91f164 Some more work on threads (thread status) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 36 diff changeset	94	newWithDebugger:debugger
a85f0c91f164 Some more work on threads (thread status) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 36 diff changeset	95	id:aGDBThreadCreatedEvent threadId
a85f0c91f164 Some more work on threads (thread status) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 36 diff changeset	96	group:self.
a85f0c91f164 Some more work on threads (thread status) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 36 diff changeset	97	threads add:thread.
a85f0c91f164 Some more work on threads (thread status) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 36 diff changeset	98	aGDBThreadCreatedEvent setThread:thread.
36 095c4b0b74d3 Added support for threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 35 diff changeset	99
095c4b0b74d3 Added support for threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 35 diff changeset	100	"Created: / 07-09-2014 / 21:25:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"
095c4b0b74d3 Added support for threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 35 diff changeset	101	!
35 c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	102
37 a85f0c91f164 Some more work on threads (thread status) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 36 diff changeset	103	onThreadExitedEvent:aGDBThreadExitedEvent
36 095c4b0b74d3 Added support for threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 35 diff changeset	104	\| thread \|
095c4b0b74d3 Added support for threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 35 diff changeset	105
095c4b0b74d3 Added support for threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 35 diff changeset	106	thread := self threadWithId:aGDBThreadExitedEvent threadId.
095c4b0b74d3 Added support for threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 35 diff changeset	107	thread setTerminated.
43 22236b6d1d9a Remove threads from thread group when threadgroup terminates. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 37 diff changeset	108	aGDBThreadExitedEvent setThread:thread.
36 095c4b0b74d3 Added support for threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 35 diff changeset	109
095c4b0b74d3 Added support for threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 35 diff changeset	110	"Created: / 07-09-2014 / 21:25:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
43 22236b6d1d9a Remove threads from thread group when threadgroup terminates. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 37 diff changeset	111	"Modified: / 22-09-2014 / 00:50:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
35 c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	112	! !
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	113
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	114	!GDBThreadGroup methodsFor:'initialization'!
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	115
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	116	setExitCode: anInteger
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	117	exit_code := anInteger.
43 22236b6d1d9a Remove threads from thread group when threadgroup terminates. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 37 diff changeset	118	threads removeAll
35 c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	119
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	120	"Created: / 06-09-2014 / 02:33:14 / Jan Vrany <jan.vrany@fit.cvut.cz>"
43 22236b6d1d9a Remove threads from thread group when threadgroup terminates. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 37 diff changeset	121	"Modified: / 22-09-2014 / 01:23:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
35 c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	122	!
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	123
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	124	setId: aString
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	125	id := aString.
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	126
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	127	"Created: / 06-09-2014 / 02:32:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	128	!
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	129
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	130	setPid: anInteger
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	131	pid := anInteger.
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	132	exit_code := nil.
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	133
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	134	"Created: / 06-09-2014 / 02:32:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	135	"Modified: / 07-09-2014 / 12:34:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	136	! !
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	137
43 22236b6d1d9a Remove threads from thread group when threadgroup terminates. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 37 diff changeset	138	!GDBThreadGroup methodsFor:'printing & storing'!
22236b6d1d9a Remove threads from thread group when threadgroup terminates. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 37 diff changeset	139
22236b6d1d9a Remove threads from thread group when threadgroup terminates. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 37 diff changeset	140	printOn:aStream
22236b6d1d9a Remove threads from thread group when threadgroup terminates. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 37 diff changeset	141	"append a printed representation if the receiver to the argument, aStream"
22236b6d1d9a Remove threads from thread group when threadgroup terminates. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 37 diff changeset	142
22236b6d1d9a Remove threads from thread group when threadgroup terminates. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 37 diff changeset	143	aStream nextPutAll:'thread group '.
22236b6d1d9a Remove threads from thread group when threadgroup terminates. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 37 diff changeset	144	id printOn:aStream.
22236b6d1d9a Remove threads from thread group when threadgroup terminates. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 37 diff changeset	145	aStream nextPutAll:' pid '.
22236b6d1d9a Remove threads from thread group when threadgroup terminates. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 37 diff changeset	146	pid printOn:aStream.
22236b6d1d9a Remove threads from thread group when threadgroup terminates. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 37 diff changeset	147
22236b6d1d9a Remove threads from thread group when threadgroup terminates. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 37 diff changeset	148	"Modified: / 22-09-2014 / 01:00:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
22236b6d1d9a Remove threads from thread group when threadgroup terminates. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 37 diff changeset	149	! !
22236b6d1d9a Remove threads from thread group when threadgroup terminates. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 37 diff changeset	150
35 c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	151	!GDBThreadGroup methodsFor:'private'!
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	152
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	153	threadAdd: aGDBThread
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	154	self threads add: aGDBThread
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	155
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	156	"Created: / 06-09-2014 / 02:23:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	157	!
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	158
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	159	threadRemove: aGDBThread
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	160	self threads remove: aGDBThread
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	161
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	162	"Created: / 06-09-2014 / 02:23:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	163	! !
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	164
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	165	!GDBThreadGroup methodsFor:'testing'!
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	166
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	167	isDead
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	168	^ exit_code notNil
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	169
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	170	"Created: / 06-09-2014 / 02:38:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	171	!
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	172
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	173	isRunning
51 2fa20404923c Introduced GDBThreadGroupType. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 45 diff changeset	174	^ pid notNil and: [ exit_code isNil ] and:[ self isStopped not ]
35 c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	175
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	176	"Created: / 06-09-2014 / 02:38:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
51 2fa20404923c Introduced GDBThreadGroupType. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 45 diff changeset	177	"Modified: / 30-09-2014 / 00:49:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2fa20404923c Introduced GDBThreadGroupType. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 45 diff changeset	178	!
2fa20404923c Introduced GDBThreadGroupType. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 45 diff changeset	179
2fa20404923c Introduced GDBThreadGroupType. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 45 diff changeset	180	isStopped
2fa20404923c Introduced GDBThreadGroupType. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 45 diff changeset	181	^ threads notEmptyOrNil and:[ threads anySatisfy: [:t \| t isStopped ] ].
2fa20404923c Introduced GDBThreadGroupType. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 45 diff changeset	182
2fa20404923c Introduced GDBThreadGroupType. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 45 diff changeset	183	"Created: / 30-09-2014 / 00:49:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
35 c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	184	! !
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	185
51 2fa20404923c Introduced GDBThreadGroupType. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 45 diff changeset	186	!GDBThreadGroup class methodsFor:'documentation'!
2fa20404923c Introduced GDBThreadGroupType. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 45 diff changeset	187
2fa20404923c Introduced GDBThreadGroupType. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 45 diff changeset	188	version_HG
2fa20404923c Introduced GDBThreadGroupType. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 45 diff changeset	189
2fa20404923c Introduced GDBThreadGroupType. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 45 diff changeset	190	^ '$Changeset: <not expanded> $'
2fa20404923c Introduced GDBThreadGroupType. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 45 diff changeset	191	! !
2fa20404923c Introduced GDBThreadGroupType. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 45 diff changeset	192

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Wed, 01 Oct 2014 02:04:11 +0100
changeset 51	2fa20404923c
parent 45	deb908479a37
child 60	ab92b3e4aecf
permissions	-rw-r--r--