hg/jv-libgdbs: GDB.st@c48d33e27d34 (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
0b9e93821620 First shot (merely backup) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	3	Object subclass:#GDB
19 c48d33e27d34 Added internal announcer. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12 diff changeset	4	instanceVariableNames:'driver commandSequenceNumber inferiorStateSequenceNumber'
0 0b9e93821620 First shot (merely backup) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	5	classVariableNames:''
7 7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	6	poolDictionaries:'GDBCommandStatus'
0 0b9e93821620 First shot (merely backup) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	7	category:'GDB-Core'
0b9e93821620 First shot (merely backup) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	8	!
0b9e93821620 First shot (merely backup) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	9
7 7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	10
0 0b9e93821620 First shot (merely backup) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	11	!GDB class methodsFor:'instance creation'!
0b9e93821620 First shot (merely backup) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	12
0b9e93821620 First shot (merely backup) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	13	new
0b9e93821620 First shot (merely backup) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	14	"return an initialized instance"
0b9e93821620 First shot (merely backup) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	15
0b9e93821620 First shot (merely backup) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	16	^ self basicNew initialize.
0b9e93821620 First shot (merely backup) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	17	! !
0b9e93821620 First shot (merely backup) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	18
7 7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	19	!GDB methodsFor:'accessing'!
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	20
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	21	announcer
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	22	^ driver eventAnnouncer.
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	23
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	24	"Created: / 02-06-2014 / 23:06:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	25	!
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	26
10 f04a22c9b16c Use special PTY for inferior input/output... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	27	inferiorStderr
11 474fbb650afe PTY support refactored to use GDBPTY object. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 10 diff changeset	28	^ driver inferiorPTY master
10 f04a22c9b16c Use special PTY for inferior input/output... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	29
f04a22c9b16c Use special PTY for inferior input/output... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	30	"Created: / 09-06-2014 / 10:01:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"
11 474fbb650afe PTY support refactored to use GDBPTY object. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 10 diff changeset	31	"Modified: / 09-06-2014 / 18:26:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10 f04a22c9b16c Use special PTY for inferior input/output... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	32	!
f04a22c9b16c Use special PTY for inferior input/output... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	33
f04a22c9b16c Use special PTY for inferior input/output... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	34	inferiorStdin
11 474fbb650afe PTY support refactored to use GDBPTY object. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 10 diff changeset	35	^ driver inferiorPTY master
10 f04a22c9b16c Use special PTY for inferior input/output... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	36
f04a22c9b16c Use special PTY for inferior input/output... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	37	"Created: / 09-06-2014 / 10:00:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
11 474fbb650afe PTY support refactored to use GDBPTY object. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 10 diff changeset	38	"Modified: / 09-06-2014 / 18:27:03 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10 f04a22c9b16c Use special PTY for inferior input/output... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	39	!
f04a22c9b16c Use special PTY for inferior input/output... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	40
f04a22c9b16c Use special PTY for inferior input/output... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	41	inferiorStdout
11 474fbb650afe PTY support refactored to use GDBPTY object. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 10 diff changeset	42	^ driver inferiorPTY master
10 f04a22c9b16c Use special PTY for inferior input/output... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	43
f04a22c9b16c Use special PTY for inferior input/output... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	44	"Created: / 09-06-2014 / 10:01:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
11 474fbb650afe PTY support refactored to use GDBPTY object. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 10 diff changeset	45	"Modified: / 09-06-2014 / 18:27:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10 f04a22c9b16c Use special PTY for inferior input/output... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	46	! !
f04a22c9b16c Use special PTY for inferior input/output... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	47
f04a22c9b16c Use special PTY for inferior input/output... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	48	!GDB methodsFor:'accessing-private'!
f04a22c9b16c Use special PTY for inferior input/output... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	49
19 c48d33e27d34 Added internal announcer. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12 diff changeset	50	currentInferiorStateSequnceNumber
c48d33e27d34 Added internal announcer. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12 diff changeset	51	^ inferiorStateSequenceNumber
c48d33e27d34 Added internal announcer. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12 diff changeset	52
c48d33e27d34 Added internal announcer. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12 diff changeset	53	"Created: / 19-06-2014 / 22:22:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"
c48d33e27d34 Added internal announcer. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12 diff changeset	54	!
c48d33e27d34 Added internal announcer. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12 diff changeset	55
7 7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	56	nextCommandSequnceNumber
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	57	commandSequenceNumber := commandSequenceNumber + 1.
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	58	commandSequenceNumber == SmallInteger maxVal ifTrue:[
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	59	commandSequenceNumber := 0.
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	60	].
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	61	^ commandSequenceNumber
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	62
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	63	"Created: / 02-06-2014 / 23:48:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	64	!
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	65
19 c48d33e27d34 Added internal announcer. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12 diff changeset	66	nextInferiorStateSequnceNumber
c48d33e27d34 Added internal announcer. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12 diff changeset	67	inferiorStateSequenceNumber := inferiorStateSequenceNumber + 1.
c48d33e27d34 Added internal announcer. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12 diff changeset	68	inferiorStateSequenceNumber == SmallInteger maxVal ifTrue:[
c48d33e27d34 Added internal announcer. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12 diff changeset	69	inferiorStateSequenceNumber := 0.
7 7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	70	].
19 c48d33e27d34 Added internal announcer. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12 diff changeset	71	^ inferiorStateSequenceNumber
7 7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	72
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	73	"Created: / 02-06-2014 / 23:48: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: 2 diff changeset	74	! !
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	75
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	76	!GDB methodsFor:'commands'!
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	77
8 7f4882e2562a More work on basic example. GDB exiting not yet working. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 7 diff changeset	78	send: aGDBCommand
7f4882e2562a More work on basic example. GDB exiting not yet working. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 7 diff changeset	79	^ self send: aGDBCommand wait: true.
7f4882e2562a More work on basic example. GDB exiting not yet working. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 7 diff changeset	80
7f4882e2562a More work on basic example. GDB exiting not yet working. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 7 diff changeset	81	"Created: / 03-06-2014 / 00:10:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"
7f4882e2562a More work on basic example. GDB exiting not yet working. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 7 diff changeset	82	!
7f4882e2562a More work on basic example. GDB exiting not yet working. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 7 diff changeset	83
7 7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	84	send: aGDBCommand wait: aBoolean
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	85	"Sends given command to GDB. If `aBoolean` is true, wait for
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	86	command to finish. Otherwise, return immediately."
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	87
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	88	\| token blocker releaser \|
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	89
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	90	token := self nextCommandSequnceNumber.
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	91	aGDBCommand token: token.
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	92	aBoolean ifTrue:[
9 5cc8797f6523 Make simple example with -gdb-exit command working Jan Vrany <jan.vrany@fit.cvut.cz> parents: 8 diff changeset	93	releaser := [ :ev \|
7 7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	94	ev token == token ifTrue:[
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	95	self announcer unsubscribe: releaser.
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	96	blocker signal.
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	97	]].
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	98	blocker := Semaphore new.
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	99	self announcer when: GDBCommandResultEvent do: releaser.
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	100	driver pushEvent: (GDBCommandEvent new command: aGDBCommand).
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	101	blocker wait.
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	102	] ifFalse:[
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	103	driver pushEvent: (GDBCommandEvent new command: aGDBCommand).
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	104	]
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	105
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	106	"Created: / 02-06-2014 / 23:45:43 / Jan Vrany <jan.vrany@fit.cvut.cz>"
9 5cc8797f6523 Make simple example with -gdb-exit command working Jan Vrany <jan.vrany@fit.cvut.cz> parents: 8 diff changeset	107	"Modified: / 04-06-2014 / 09:32:20 / 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: 2 diff changeset	108	! !
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	109
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	110	!GDB methodsFor:'event handling'!
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	111
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	112	onCommandResult: aGDBCommandResultEvent
9 5cc8797f6523 Make simple example with -gdb-exit command working Jan Vrany <jan.vrany@fit.cvut.cz> parents: 8 diff changeset	113	aGDBCommandResultEvent result status == CommandStatusExit ifTrue:[
8 7f4882e2562a More work on basic example. GDB exiting not yet working. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 7 diff changeset	114	driver pushEvent: GDBExitEvent new.
7 7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	115	].
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	116
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	117	"Created: / 02-06-2014 / 23:40:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
9 5cc8797f6523 Make simple example with -gdb-exit command working Jan Vrany <jan.vrany@fit.cvut.cz> parents: 8 diff changeset	118	"Modified: / 04-06-2014 / 09:30:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
8 7f4882e2562a More work on basic example. GDB exiting not yet working. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 7 diff changeset	119	!
7f4882e2562a More work on basic example. GDB exiting not yet working. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 7 diff changeset	120
19 c48d33e27d34 Added internal announcer. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12 diff changeset	121	onExecutionEvent: aGDBExecutionEvent
c48d33e27d34 Added internal announcer. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12 diff changeset	122	self nextInferiorStateSequnceNumber.
c48d33e27d34 Added internal announcer. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12 diff changeset	123
c48d33e27d34 Added internal announcer. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12 diff changeset	124	"Created: / 19-06-2014 / 22:21:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"
c48d33e27d34 Added internal announcer. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12 diff changeset	125	!
c48d33e27d34 Added internal announcer. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12 diff changeset	126
8 7f4882e2562a More work on basic example. GDB exiting not yet working. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 7 diff changeset	127	onExit: aGDBExitEvent
7f4882e2562a More work on basic example. GDB exiting not yet working. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 7 diff changeset	128	self release.
7f4882e2562a More work on basic example. GDB exiting not yet working. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 7 diff changeset	129
7f4882e2562a More work on basic example. GDB exiting not yet working. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 7 diff changeset	130	"Created: / 03-06-2014 / 00:36:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"
9 5cc8797f6523 Make simple example with -gdb-exit command working Jan Vrany <jan.vrany@fit.cvut.cz> parents: 8 diff changeset	131	"Modified: / 04-06-2014 / 09:28: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: 2 diff changeset	132	! !
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	133
0 0b9e93821620 First shot (merely backup) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	134	!GDB methodsFor:'finalization'!
0b9e93821620 First shot (merely backup) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	135
0b9e93821620 First shot (merely backup) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	136	finalize
0b9e93821620 First shot (merely backup) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	137	self release.
0b9e93821620 First shot (merely backup) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	138
0b9e93821620 First shot (merely backup) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	139	"Created: / 26-05-2014 / 21:23:28 / Jan Vrany <jan.vrany@fit.cvut.cz>"
0b9e93821620 First shot (merely backup) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	140	! !
0b9e93821620 First shot (merely backup) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	141
0b9e93821620 First shot (merely backup) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	142	!GDB methodsFor:'initialize & release'!
0b9e93821620 First shot (merely backup) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	143
0b9e93821620 First shot (merely backup) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	144	initialize
1 da21f8614c2d Fixes in GDBLauncher Jan Vrany <jan.vrany@fit.cvut.cz> parents: 0 diff changeset	145	self registerForFinalization.
2 a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	146	driver := GDBLauncher startGDB.
0 0b9e93821620 First shot (merely backup) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	147
7 7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	148	commandSequenceNumber := 0.
19 c48d33e27d34 Added internal announcer. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12 diff changeset	149	inferiorStateSequenceNumber := 0.
7 7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	150
19 c48d33e27d34 Added internal announcer. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12 diff changeset	151	driver eventAnnouncerInternal
8 7f4882e2562a More work on basic example. GDB exiting not yet working. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 7 diff changeset	152	when: GDBCommandResultEvent send: #onCommandResult: to: self;
19 c48d33e27d34 Added internal announcer. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12 diff changeset	153	when: GDBExitEvent send: #onExit: to: self;
c48d33e27d34 Added internal announcer. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12 diff changeset	154	when: GDBExecutionEvent send: #onExecutionEvent: to: self.
c48d33e27d34 Added internal announcer. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12 diff changeset	155
8 7f4882e2562a More work on basic example. GDB exiting not yet working. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 7 diff changeset	156
7f4882e2562a More work on basic example. GDB exiting not yet working. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 7 diff changeset	157	driver eventPumpStart.
7f4882e2562a More work on basic example. GDB exiting not yet working. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 7 diff changeset	158	driver eventDispatchStart.
7 7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	159
12 568a2971c977 Generated classes for MI commands. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 11 diff changeset	160	"/ self send: (GDBMICommand inferiorTtySet: driver inferiorPTY name).
568a2971c977 Generated classes for MI commands. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 11 diff changeset	161	self send: (GDBMI_inferior_tty_set arguments: { driver inferiorPTY name })
11 474fbb650afe PTY support refactored to use GDBPTY object. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 10 diff changeset	162
0 0b9e93821620 First shot (merely backup) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	163	"Created: / 26-05-2014 / 21:23:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
19 c48d33e27d34 Added internal announcer. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12 diff changeset	164	"Modified: / 19-06-2014 / 22:22:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"
0 0b9e93821620 First shot (merely backup) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	165	!
0b9e93821620 First shot (merely backup) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	166
0b9e93821620 First shot (merely backup) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	167	release
2 a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	168	driver notNil ifTrue:[
a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	169	driver release.
a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	170	driver := nil.
0 0b9e93821620 First shot (merely backup) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	171	].
0b9e93821620 First shot (merely backup) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	172
0b9e93821620 First shot (merely backup) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	173	"Created: / 26-05-2014 / 21:24:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
0b9e93821620 First shot (merely backup) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	174	! !
0b9e93821620 First shot (merely backup) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	175
7 7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	176	!GDB class methodsFor:'documentation'!
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	177
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	178	version_HG
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	179
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	180	^ '$Changeset: <not expanded> $'
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	181	! !
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	182

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Thu, 19 Jun 2014 22:27:00 +0100
changeset 19	c48d33e27d34
parent 12	568a2971c977
permissions	-rw-r--r--