hg/jv-libgdbs: GDBConnection.st@a7eb888c81b5 (annotated)

0 0b9e93821620 First shot (merely backup) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1	"{ Package: 'jv:libgdbs' }"
0b9e93821620 First shot (merely backup) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2
22 57025871aed4 Renamed GDBDriver to GDBConnection. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 19 diff changeset	3	Object subclass:#GDBConnection
23 a7eb888c81b5 Introduced GDBProcess - a class encapsulating gdb OS process. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 22 diff changeset	4	instanceVariableNames:'process inferiorPTY eventAnnouncer eventAnnouncerInternal
a7eb888c81b5 Introduced GDBProcess - a class encapsulating gdb OS process. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 22 diff changeset	5	eventQueue eventQueueLock eventQueueNotifier eventDispatchProcess
a7eb888c81b5 Introduced GDBProcess - a class encapsulating gdb OS process. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 22 diff changeset	6	eventPumpProcess outstandingCommands'
0 0b9e93821620 First shot (merely backup) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	7	classVariableNames:''
7 7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	8	poolDictionaries:'GDBDebugFlags'
3 29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	9	category:'GDB-Private'
0 0b9e93821620 First shot (merely backup) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	10	!
0b9e93821620 First shot (merely backup) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	11
1 da21f8614c2d Fixes in GDBLauncher Jan Vrany <jan.vrany@fit.cvut.cz> parents: 0 diff changeset	12
22 57025871aed4 Renamed GDBDriver to GDBConnection. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 19 diff changeset	13	!GDBConnection class methodsFor:'instance creation'!
0 0b9e93821620 First shot (merely backup) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	14
23 a7eb888c81b5 Introduced GDBProcess - a class encapsulating gdb OS process. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 22 diff changeset	15	new
a7eb888c81b5 Introduced GDBProcess - a class encapsulating gdb OS process. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 22 diff changeset	16	^ self shouldNotImplement.
0 0b9e93821620 First shot (merely backup) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	17
23 a7eb888c81b5 Introduced GDBProcess - a class encapsulating gdb OS process. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 22 diff changeset	18	"Created: / 20-06-2014 / 21:45:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
a7eb888c81b5 Introduced GDBProcess - a class encapsulating gdb OS process. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 22 diff changeset	19	!
a7eb888c81b5 Introduced GDBProcess - a class encapsulating gdb OS process. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 22 diff changeset	20
a7eb888c81b5 Introduced GDBProcess - a class encapsulating gdb OS process. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 22 diff changeset	21	newWithProcess: aGDBProcess
a7eb888c81b5 Introduced GDBProcess - a class encapsulating gdb OS process. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 22 diff changeset	22	^ self basicNew initializeWithProcess: aGDBProcess
a7eb888c81b5 Introduced GDBProcess - a class encapsulating gdb OS process. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 22 diff changeset	23
a7eb888c81b5 Introduced GDBProcess - a class encapsulating gdb OS process. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 22 diff changeset	24	"Created: / 20-06-2014 / 21:45:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
0 0b9e93821620 First shot (merely backup) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	25	! !
0b9e93821620 First shot (merely backup) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	26
22 57025871aed4 Renamed GDBDriver to GDBConnection. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 19 diff changeset	27	!GDBConnection methodsFor:'accessing'!
7 7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	28
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	29	eventAnnouncer
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	30	^ eventAnnouncer
10 f04a22c9b16c Use special PTY for inferior input/output... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	31	!
f04a22c9b16c Use special PTY for inferior input/output... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	32
19 c48d33e27d34 Added internal announcer. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 18 diff changeset	33	eventAnnouncerInternal
c48d33e27d34 Added internal announcer. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 18 diff changeset	34	^ eventAnnouncerInternal
c48d33e27d34 Added internal announcer. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 18 diff changeset	35
c48d33e27d34 Added internal announcer. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 18 diff changeset	36	"Created: / 19-06-2014 / 22:18:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"
c48d33e27d34 Added internal announcer. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 18 diff changeset	37	!
c48d33e27d34 Added internal announcer. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 18 diff changeset	38
11 474fbb650afe PTY support refactored to use GDBPTY object. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 10 diff changeset	39	inferiorPTY
474fbb650afe PTY support refactored to use GDBPTY object. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 10 diff changeset	40	^ inferiorPTY
7 7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	41	! !
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	42
23 a7eb888c81b5 Introduced GDBProcess - a class encapsulating gdb OS process. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 22 diff changeset	43	!GDBConnection methodsFor:'commands'!
a7eb888c81b5 Introduced GDBProcess - a class encapsulating gdb OS process. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 22 diff changeset	44
a7eb888c81b5 Introduced GDBProcess - a class encapsulating gdb OS process. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 22 diff changeset	45	send: command
a7eb888c81b5 Introduced GDBProcess - a class encapsulating gdb OS process. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 22 diff changeset	46	command token notNil ifTrue:[
a7eb888c81b5 Introduced GDBProcess - a class encapsulating gdb OS process. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 22 diff changeset	47	process debuggerInput nextPutAll: command token printString.
a7eb888c81b5 Introduced GDBProcess - a class encapsulating gdb OS process. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 22 diff changeset	48	].
a7eb888c81b5 Introduced GDBProcess - a class encapsulating gdb OS process. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 22 diff changeset	49	outstandingCommands add: command.
a7eb888c81b5 Introduced GDBProcess - a class encapsulating gdb OS process. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 22 diff changeset	50	process debuggerInput nextPutLine: command asString.
a7eb888c81b5 Introduced GDBProcess - a class encapsulating gdb OS process. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 22 diff changeset	51
a7eb888c81b5 Introduced GDBProcess - a class encapsulating gdb OS process. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 22 diff changeset	52	"Created: / 20-06-2014 / 22:09:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"
a7eb888c81b5 Introduced GDBProcess - a class encapsulating gdb OS process. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 22 diff changeset	53	! !
a7eb888c81b5 Introduced GDBProcess - a class encapsulating gdb OS process. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 22 diff changeset	54
22 57025871aed4 Renamed GDBDriver to GDBConnection. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 19 diff changeset	55	!GDBConnection methodsFor:'event dispatching'!
2 a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	56
a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	57	eventDispatchLoop
7 7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	58	"raise an error: this method should be implemented (TODO)"
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	59
9 5cc8797f6523 Make simple example with -gdb-exit command working Jan Vrany <jan.vrany@fit.cvut.cz> parents: 8 diff changeset	60	[
7 7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	61	\| eventQueueEmpty \|
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	62
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	63	eventQueueEmpty := false.
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	64	[ eventQueueEmpty ] whileFalse:[
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	65	\| event \|
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	66
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	67	event := nil.
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	68	eventQueueLock critical:[
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	69	eventQueueEmpty := eventQueue isEmpty.
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	70	eventQueueEmpty ifFalse:[
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	71	event := eventQueue removeFirst.
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	72	]
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	73	].
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	74	eventQueueEmpty ifFalse:[
8 7f4882e2562a More work on basic example. GDB exiting not yet working. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 7 diff changeset	75	[
7f4882e2562a More work on basic example. GDB exiting not yet working. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 7 diff changeset	76	self eventDispatchSingle: event.
7f4882e2562a More work on basic example. GDB exiting not yet working. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 7 diff changeset	77	] on: Error do:[:ex \|
7f4882e2562a More work on basic example. GDB exiting not yet working. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 7 diff changeset	78	"/ Pass
7f4882e2562a More work on basic example. GDB exiting not yet working. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 7 diff changeset	79	].
7 7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	80	].
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	81	].
23 a7eb888c81b5 Introduced GDBProcess - a class encapsulating gdb OS process. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 22 diff changeset	82	process pid isNil ifTrue:[ ^ self ]. "/ gdb process terninated
7 7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	83	eventQueueNotifier wait.
9 5cc8797f6523 Make simple example with -gdb-exit command working Jan Vrany <jan.vrany@fit.cvut.cz> parents: 8 diff changeset	84	] loop.
7 7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	85
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	86	"Created: / 02-06-2014 / 22:51:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
23 a7eb888c81b5 Introduced GDBProcess - a class encapsulating gdb OS process. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 22 diff changeset	87	"Modified: / 20-06-2014 / 21:38:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"
7 7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	88	!
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	89
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	90	eventDispatchSingle: aGDBEvent
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	91	TraceEvents ifTrue:[
9 5cc8797f6523 Make simple example with -gdb-exit command working Jan Vrany <jan.vrany@fit.cvut.cz> parents: 8 diff changeset	92	Logger log: ('event loop: broadcasting %1 (%2)' bindWith: aGDBEvent class name with: aGDBEvent token) severity: #trace facility: 'GDB'
7 7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	93	].
19 c48d33e27d34 Added internal announcer. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 18 diff changeset	94	eventAnnouncerInternal announce: aGDBEvent.
7 7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	95	eventAnnouncer announce: aGDBEvent
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	96
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	97	"Created: / 02-06-2014 / 22:58:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"
19 c48d33e27d34 Added internal announcer. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 18 diff changeset	98	"Modified: / 19-06-2014 / 22:18:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
7 7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	99	!
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	100
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	101	eventDispatchStart
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	102	eventDispatchProcess isNil ifTrue:[
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	103	eventDispatchProcess := [
9 5cc8797f6523 Make simple example with -gdb-exit command working Jan Vrany <jan.vrany@fit.cvut.cz> parents: 8 diff changeset	104	TraceEvents ifTrue:[
5cc8797f6523 Make simple example with -gdb-exit command working Jan Vrany <jan.vrany@fit.cvut.cz> parents: 8 diff changeset	105	Logger log: 'event loop: starting' severity: #trace facility: 'GDB'
5cc8797f6523 Make simple example with -gdb-exit command working Jan Vrany <jan.vrany@fit.cvut.cz> parents: 8 diff changeset	106	].
5cc8797f6523 Make simple example with -gdb-exit command working Jan Vrany <jan.vrany@fit.cvut.cz> parents: 8 diff changeset	107	self eventDispatchLoop.
7 7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	108	] newProcess.
23 a7eb888c81b5 Introduced GDBProcess - a class encapsulating gdb OS process. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 22 diff changeset	109	eventDispatchProcess name:('GDB Event dispatcher (%1)' bindWith:process pid).
7 7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	110	eventDispatchProcess priority:Processor userBackgroundPriority.
9 5cc8797f6523 Make simple example with -gdb-exit command working Jan Vrany <jan.vrany@fit.cvut.cz> parents: 8 diff changeset	111	eventDispatchProcess addExitAction:[
5cc8797f6523 Make simple example with -gdb-exit command working Jan Vrany <jan.vrany@fit.cvut.cz> parents: 8 diff changeset	112	eventDispatchProcess := nil.
5cc8797f6523 Make simple example with -gdb-exit command working Jan Vrany <jan.vrany@fit.cvut.cz> parents: 8 diff changeset	113	TraceEvents ifTrue:[
5cc8797f6523 Make simple example with -gdb-exit command working Jan Vrany <jan.vrany@fit.cvut.cz> parents: 8 diff changeset	114	Logger log: 'event loop: terminated' severity: #trace facility: 'GDB'
5cc8797f6523 Make simple example with -gdb-exit command working Jan Vrany <jan.vrany@fit.cvut.cz> parents: 8 diff changeset	115	].
5cc8797f6523 Make simple example with -gdb-exit command working Jan Vrany <jan.vrany@fit.cvut.cz> parents: 8 diff changeset	116	].
8 7f4882e2562a More work on basic example. GDB exiting not yet working. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 7 diff changeset	117	eventDispatchProcess resume.
2 a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	118	].
a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	119
7 7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	120	"Created: / 02-06-2014 / 22:51:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
23 a7eb888c81b5 Introduced GDBProcess - a class encapsulating gdb OS process. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 22 diff changeset	121	"Modified: / 20-06-2014 / 21:38:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2 a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	122	!
a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	123
7 7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	124	eventDispatchStop
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	125	\| t \|
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	126
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	127	t := eventDispatchProcess.
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	128	(t notNil and:[ t isDead not]) ifTrue:[
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	129	eventDispatchProcess := nil.
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	130	t terminate.
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	131	"/ raise its prio to make it terminate quickly
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	132	t priority:(Processor userSchedulingPriority + 1)
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	133	].
2 a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	134
7 7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	135	"Created: / 02-06-2014 / 22:52:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	136	! !
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	137
22 57025871aed4 Renamed GDBDriver to GDBConnection. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 19 diff changeset	138	!GDBConnection methodsFor:'event pump'!
7 7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	139
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	140	eventPumpLoop
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	141	\| parser \|
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	142
23 a7eb888c81b5 Introduced GDBProcess - a class encapsulating gdb OS process. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 22 diff changeset	143	parser := GDBParser on: process debuggerOutput.
18 6bf3d5c400d1 Make GDBEvent and GDBCommandResult also described by value descriptor... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 11 diff changeset	144	parser token2CommandMappingBlock:[ :token \|
6bf3d5c400d1 Make GDBEvent and GDBCommandResult also described by value descriptor... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 11 diff changeset	145	\| command \|
6bf3d5c400d1 Make GDBEvent and GDBCommandResult also described by value descriptor... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 11 diff changeset	146
6bf3d5c400d1 Make GDBEvent and GDBCommandResult also described by value descriptor... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 11 diff changeset	147	command := outstandingCommands detect:[:cmd \| cmd token == token ] ifNone:[nil].
6bf3d5c400d1 Make GDBEvent and GDBCommandResult also described by value descriptor... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 11 diff changeset	148	command notNil ifTrue:[ outstandingCommands remove: command ].
6bf3d5c400d1 Make GDBEvent and GDBCommandResult also described by value descriptor... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 11 diff changeset	149	command
6bf3d5c400d1 Make GDBEvent and GDBCommandResult also described by value descriptor... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 11 diff changeset	150	].
23 a7eb888c81b5 Introduced GDBProcess - a class encapsulating gdb OS process. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 22 diff changeset	151	[ process debuggerOutput atEnd ] whileFalse:[
7 7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	152	\| eventset \|
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	153
8 7f4882e2562a More work on basic example. GDB exiting not yet working. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 7 diff changeset	154	[
7f4882e2562a More work on basic example. GDB exiting not yet working. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 7 diff changeset	155	[
7f4882e2562a More work on basic example. GDB exiting not yet working. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 7 diff changeset	156	eventset := parser parseOutput.
7f4882e2562a More work on basic example. GDB exiting not yet working. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 7 diff changeset	157	] on: StreamNotOpenError do:[
7f4882e2562a More work on basic example. GDB exiting not yet working. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 7 diff changeset	158	^ self.
7f4882e2562a More work on basic example. GDB exiting not yet working. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 7 diff changeset	159	].
7f4882e2562a More work on basic example. GDB exiting not yet working. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 7 diff changeset	160	self pushEventSet: eventset.
7f4882e2562a More work on basic example. GDB exiting not yet working. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 7 diff changeset	161	] on: AbortOperationRequest do:[
7f4882e2562a More work on basic example. GDB exiting not yet working. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 7 diff changeset	162	\| terminator i c \|
7f4882e2562a More work on basic example. GDB exiting not yet working. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 7 diff changeset	163
7f4882e2562a More work on basic example. GDB exiting not yet working. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 7 diff changeset	164	terminator := '(gdb)'.
7f4882e2562a More work on basic example. GDB exiting not yet working. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 7 diff changeset	165	i := 1.
23 a7eb888c81b5 Introduced GDBProcess - a class encapsulating gdb OS process. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 22 diff changeset	166	process debuggerOutput notNil ifTrue:[
a7eb888c81b5 Introduced GDBProcess - a class encapsulating gdb OS process. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 22 diff changeset	167	[ process debuggerOutput atEnd not and: [i <= terminator size ] ] whileTrue:[
a7eb888c81b5 Introduced GDBProcess - a class encapsulating gdb OS process. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 22 diff changeset	168	c := process debuggerOutput next.
8 7f4882e2562a More work on basic example. GDB exiting not yet working. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 7 diff changeset	169	c == (terminator at: i) ifTrue:[
7f4882e2562a More work on basic example. GDB exiting not yet working. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 7 diff changeset	170	i := i + 1.
7f4882e2562a More work on basic example. GDB exiting not yet working. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 7 diff changeset	171	] ifFalse:[
7f4882e2562a More work on basic example. GDB exiting not yet working. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 7 diff changeset	172	i := 1.
7f4882e2562a More work on basic example. GDB exiting not yet working. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 7 diff changeset	173	].
7f4882e2562a More work on basic example. GDB exiting not yet working. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 7 diff changeset	174	].
23 a7eb888c81b5 Introduced GDBProcess - a class encapsulating gdb OS process. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 22 diff changeset	175	process debuggerOutput next. "/ read nl.
8 7f4882e2562a More work on basic example. GDB exiting not yet working. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 7 diff changeset	176	] ifFalse:[
7f4882e2562a More work on basic example. GDB exiting not yet working. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 7 diff changeset	177	^ self.
7f4882e2562a More work on basic example. GDB exiting not yet working. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 7 diff changeset	178	].
7f4882e2562a More work on basic example. GDB exiting not yet working. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 7 diff changeset	179	]
7 7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	180	]
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	181
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	182	"Created: / 02-06-2014 / 22:38:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"
23 a7eb888c81b5 Introduced GDBProcess - a class encapsulating gdb OS process. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 22 diff changeset	183	"Modified: / 20-06-2014 / 21:39:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
7 7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	184	!
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	185
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	186	eventPumpStart
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	187	eventPumpProcess isNil ifTrue:[
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	188	eventPumpProcess := [
9 5cc8797f6523 Make simple example with -gdb-exit command working Jan Vrany <jan.vrany@fit.cvut.cz> parents: 8 diff changeset	189	TraceEvents ifTrue:[
5cc8797f6523 Make simple example with -gdb-exit command working Jan Vrany <jan.vrany@fit.cvut.cz> parents: 8 diff changeset	190	Logger log: 'event pump: starting' severity: #trace facility: 'GDB'
5cc8797f6523 Make simple example with -gdb-exit command working Jan Vrany <jan.vrany@fit.cvut.cz> parents: 8 diff changeset	191	].
7 7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	192	self eventPumpLoop
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	193	] newProcess.
23 a7eb888c81b5 Introduced GDBProcess - a class encapsulating gdb OS process. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 22 diff changeset	194	eventPumpProcess name:('GDB Event pump (%1)' bindWith:process pid).
7 7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	195	eventPumpProcess priority:Processor userBackgroundPriority.
9 5cc8797f6523 Make simple example with -gdb-exit command working Jan Vrany <jan.vrany@fit.cvut.cz> parents: 8 diff changeset	196	eventPumpProcess addExitAction:[
5cc8797f6523 Make simple example with -gdb-exit command working Jan Vrany <jan.vrany@fit.cvut.cz> parents: 8 diff changeset	197	TraceEvents ifTrue:[
5cc8797f6523 Make simple example with -gdb-exit command working Jan Vrany <jan.vrany@fit.cvut.cz> parents: 8 diff changeset	198	Logger log: 'event pump: terminated' severity: #trace facility: 'GDB'
5cc8797f6523 Make simple example with -gdb-exit command working Jan Vrany <jan.vrany@fit.cvut.cz> parents: 8 diff changeset	199	].
5cc8797f6523 Make simple example with -gdb-exit command working Jan Vrany <jan.vrany@fit.cvut.cz> parents: 8 diff changeset	200	eventPumpProcess := nil.
5cc8797f6523 Make simple example with -gdb-exit command working Jan Vrany <jan.vrany@fit.cvut.cz> parents: 8 diff changeset	201	].
8 7f4882e2562a More work on basic example. GDB exiting not yet working. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 7 diff changeset	202	eventPumpProcess resume.
7 7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	203	].
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	204
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	205	"Created: / 02-06-2014 / 22:38:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"
23 a7eb888c81b5 Introduced GDBProcess - a class encapsulating gdb OS process. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 22 diff changeset	206	"Modified: / 20-06-2014 / 21:37:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
7 7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	207	!
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	208
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	209	eventPumpStop
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	210	\| t \|
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	211
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	212	t := eventPumpProcess.
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	213	(t notNil and:[ t isDead not]) ifTrue:[
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	214	eventPumpProcess := nil.
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	215	t terminate.
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	216	"/ raise its prio to make it terminate quickly
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	217	t priority:(Processor userSchedulingPriority + 1)
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	218	].
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	219
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	220	"Created: / 02-06-2014 / 22:40:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	221	! !
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	222
22 57025871aed4 Renamed GDBDriver to GDBConnection. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 19 diff changeset	223	!GDBConnection methodsFor:'events'!
7 7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	224
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	225	pushEvent: aGDBEvent
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	226	eventQueueLock critical:[
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	227	eventQueue add: aGDBEvent.
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	228	eventQueueNotifier signalForAll.
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	229	].
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	230
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	231	"Created: / 02-06-2014 / 22:49:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	232	!
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	233
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	234	pushEventSet: aGDBEventSet
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	235	eventQueueLock critical:[
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	236	eventQueue addAll: aGDBEventSet.
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	237	eventQueueNotifier signalForAll.
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	238	].
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	239
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	240	"Created: / 02-06-2014 / 22:42:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	241	! !
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	242
22 57025871aed4 Renamed GDBDriver to GDBConnection. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 19 diff changeset	243	!GDBConnection methodsFor:'initialize & release'!
0 0b9e93821620 First shot (merely backup) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	244
23 a7eb888c81b5 Introduced GDBProcess - a class encapsulating gdb OS process. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 22 diff changeset	245	initializeWithProcess: aGDBProcess
a7eb888c81b5 Introduced GDBProcess - a class encapsulating gdb OS process. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 22 diff changeset	246	process := aGDBProcess.
11 474fbb650afe PTY support refactored to use GDBPTY object. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 10 diff changeset	247	inferiorPTY := GDBPTY new.
2 a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	248	eventQueue := OrderedCollection new.
a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	249	eventQueueLock := RecursionLock new.
7 7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	250	eventQueueNotifier := Semaphore new.
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	251	eventAnnouncer := Announcer new.
19 c48d33e27d34 Added internal announcer. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 18 diff changeset	252	eventAnnouncerInternal := Announcer new.
18 6bf3d5c400d1 Make GDBEvent and GDBCommandResult also described by value descriptor... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 11 diff changeset	253	outstandingCommands := Set new.
0 0b9e93821620 First shot (merely backup) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	254
23 a7eb888c81b5 Introduced GDBProcess - a class encapsulating gdb OS process. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 22 diff changeset	255	"Created: / 20-06-2014 / 21:40:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
0 0b9e93821620 First shot (merely backup) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	256	!
0b9e93821620 First shot (merely backup) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	257
0b9e93821620 First shot (merely backup) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	258	release
23 a7eb888c81b5 Introduced GDBProcess - a class encapsulating gdb OS process. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 22 diff changeset	259	process pid notNil ifTrue:[
a7eb888c81b5 Introduced GDBProcess - a class encapsulating gdb OS process. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 22 diff changeset	260	OperatingSystem sendSignal:(OperatingSystem sigKILL) to:process pid.
0 0b9e93821620 First shot (merely backup) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	261	]
0b9e93821620 First shot (merely backup) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	262
0b9e93821620 First shot (merely backup) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	263	"Created: / 26-05-2014 / 21:30:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
23 a7eb888c81b5 Introduced GDBProcess - a class encapsulating gdb OS process. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 22 diff changeset	264	"Modified: / 20-06-2014 / 21:41:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"
0 0b9e93821620 First shot (merely backup) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	265	!
0b9e93821620 First shot (merely backup) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	266
0b9e93821620 First shot (merely backup) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	267	released: status
9 5cc8797f6523 Make simple example with -gdb-exit command working Jan Vrany <jan.vrany@fit.cvut.cz> parents: 8 diff changeset	268	TraceProcesses ifTrue:[
23 a7eb888c81b5 Introduced GDBProcess - a class encapsulating gdb OS process. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 22 diff changeset	269	Logger log: ('gdb process: exited with status %1' bindWith: status code) severity: #trace facility: 'GDB'.
9 5cc8797f6523 Make simple example with -gdb-exit command working Jan Vrany <jan.vrany@fit.cvut.cz> parents: 8 diff changeset	270	].
5cc8797f6523 Make simple example with -gdb-exit command working Jan Vrany <jan.vrany@fit.cvut.cz> parents: 8 diff changeset	271	TraceProcesses ifTrue:[
5cc8797f6523 Make simple example with -gdb-exit command working Jan Vrany <jan.vrany@fit.cvut.cz> parents: 8 diff changeset	272	Logger log: ('gdb process: waiting for event pump to finish' bindWith: status code) severity: #trace facility: 'GDB'.
5cc8797f6523 Make simple example with -gdb-exit command working Jan Vrany <jan.vrany@fit.cvut.cz> parents: 8 diff changeset	273	].
5cc8797f6523 Make simple example with -gdb-exit command working Jan Vrany <jan.vrany@fit.cvut.cz> parents: 8 diff changeset	274	[ eventPumpProcess notNil ] whileTrue:[
5cc8797f6523 Make simple example with -gdb-exit command working Jan Vrany <jan.vrany@fit.cvut.cz> parents: 8 diff changeset	275	Delay waitForMilliseconds: 200.
5cc8797f6523 Make simple example with -gdb-exit command working Jan Vrany <jan.vrany@fit.cvut.cz> parents: 8 diff changeset	276	].
5cc8797f6523 Make simple example with -gdb-exit command working Jan Vrany <jan.vrany@fit.cvut.cz> parents: 8 diff changeset	277	TraceProcesses ifTrue:[
5cc8797f6523 Make simple example with -gdb-exit command working Jan Vrany <jan.vrany@fit.cvut.cz> parents: 8 diff changeset	278	Logger log: ('gdb process: event pump finished' bindWith: status code) severity: #trace facility: 'GDB'.
5cc8797f6523 Make simple example with -gdb-exit command working Jan Vrany <jan.vrany@fit.cvut.cz> parents: 8 diff changeset	279	].
5cc8797f6523 Make simple example with -gdb-exit command working Jan Vrany <jan.vrany@fit.cvut.cz> parents: 8 diff changeset	280	eventQueueNotifier signalForAll.
23 a7eb888c81b5 Introduced GDBProcess - a class encapsulating gdb OS process. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 22 diff changeset	281	process release.
11 474fbb650afe PTY support refactored to use GDBPTY object. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 10 diff changeset	282	inferiorPTY release.
0 0b9e93821620 First shot (merely backup) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	283
0b9e93821620 First shot (merely backup) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	284	"Created: / 26-05-2014 / 21:31:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"
23 a7eb888c81b5 Introduced GDBProcess - a class encapsulating gdb OS process. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 22 diff changeset	285	"Modified: / 20-06-2014 / 21:37:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
0 0b9e93821620 First shot (merely backup) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	286	! !
0b9e93821620 First shot (merely backup) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	287
22 57025871aed4 Renamed GDBDriver to GDBConnection. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 19 diff changeset	288	!GDBConnection class methodsFor:'documentation'!
1 da21f8614c2d Fixes in GDBLauncher Jan Vrany <jan.vrany@fit.cvut.cz> parents: 0 diff changeset	289
da21f8614c2d Fixes in GDBLauncher Jan Vrany <jan.vrany@fit.cvut.cz> parents: 0 diff changeset	290	version_HG
da21f8614c2d Fixes in GDBLauncher Jan Vrany <jan.vrany@fit.cvut.cz> parents: 0 diff changeset	291
da21f8614c2d Fixes in GDBLauncher Jan Vrany <jan.vrany@fit.cvut.cz> parents: 0 diff changeset	292	^ '$Changeset: <not expanded> $'
da21f8614c2d Fixes in GDBLauncher Jan Vrany <jan.vrany@fit.cvut.cz> parents: 0 diff changeset	293	! !
da21f8614c2d Fixes in GDBLauncher Jan Vrany <jan.vrany@fit.cvut.cz> parents: 0 diff changeset	294

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Fri, 20 Jun 2014 22:14:51 +0100
changeset 23	a7eb888c81b5
parent 22	57025871aed4
child 24	98ff50f8a25d
permissions	-rw-r--r--