hg/jv-libgdbs: GDB.st@474fbb650afe (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
7 7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	4	instanceVariableNames:'driver commandSequenceNumber snapshotSequenceNumber'
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
7 7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	50	nextCommandSequnceNumber
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	51	commandSequenceNumber := commandSequenceNumber + 1.
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	52	commandSequenceNumber == SmallInteger maxVal ifTrue:[
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	53	commandSequenceNumber := 0.
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	54	].
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	55	^ commandSequenceNumber
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	56
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	57	"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	58	!
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	59
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	60	nextSnapshotSequnceNumber
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	61	snapshotSequenceNumber := snapshotSequenceNumber + 1.
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	62	snapshotSequenceNumber == SmallInteger maxVal ifTrue:[
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	63	snapshotSequenceNumber := 0.
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	^ snapshotSequenceNumber
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	66
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	67	"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	68	! !
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	69
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	70	!GDB methodsFor:'commands'!
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	71
8 7f4882e2562a More work on basic example. GDB exiting not yet working. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 7 diff changeset	72	send: aGDBCommand
7f4882e2562a More work on basic example. GDB exiting not yet working. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 7 diff changeset	73	^ 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	74
7f4882e2562a More work on basic example. GDB exiting not yet working. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 7 diff changeset	75	"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	76	!
7f4882e2562a More work on basic example. GDB exiting not yet working. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 7 diff changeset	77
7 7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	78	send: aGDBCommand wait: aBoolean
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	79	"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	80	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	81
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	82	\| token blocker releaser \|
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	83
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	84	token := self nextCommandSequnceNumber.
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	85	aGDBCommand token: token.
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	86	aBoolean ifTrue:[
9 5cc8797f6523 Make simple example with -gdb-exit command working Jan Vrany <jan.vrany@fit.cvut.cz> parents: 8 diff changeset	87	releaser := [ :ev \|
7 7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	88	ev token == token ifTrue:[
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	89	self announcer unsubscribe: releaser.
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	90	blocker signal.
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	91	]].
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	92	blocker := Semaphore new.
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	93	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	94	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	95	blocker wait.
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	96	] ifFalse:[
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	97	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	98	]
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	99
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	100	"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	101	"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	102	! !
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	103
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	104	!GDB methodsFor:'event handling'!
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	onCommandResult: aGDBCommandResultEvent
9 5cc8797f6523 Make simple example with -gdb-exit command working Jan Vrany <jan.vrany@fit.cvut.cz> parents: 8 diff changeset	107	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	108	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	109	].
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	110
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	111	"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	112	"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	113	!
7f4882e2562a More work on basic example. GDB exiting not yet working. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 7 diff changeset	114
7f4882e2562a More work on basic example. GDB exiting not yet working. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 7 diff changeset	115	onExit: aGDBExitEvent
7f4882e2562a More work on basic example. GDB exiting not yet working. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 7 diff changeset	116	self release.
7f4882e2562a More work on basic example. GDB exiting not yet working. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 7 diff changeset	117
7f4882e2562a More work on basic example. GDB exiting not yet working. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 7 diff changeset	118	"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	119	"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	120	! !
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	121
0 0b9e93821620 First shot (merely backup) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	122	!GDB methodsFor:'finalization'!
0b9e93821620 First shot (merely backup) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	123
0b9e93821620 First shot (merely backup) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	124	finalize
0b9e93821620 First shot (merely backup) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	125	self release.
0b9e93821620 First shot (merely backup) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	126
0b9e93821620 First shot (merely backup) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	127	"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	128	! !
0b9e93821620 First shot (merely backup) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	129
0b9e93821620 First shot (merely backup) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	130	!GDB methodsFor:'initialize & release'!
0b9e93821620 First shot (merely backup) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	131
0b9e93821620 First shot (merely backup) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	132	initialize
1 da21f8614c2d Fixes in GDBLauncher Jan Vrany <jan.vrany@fit.cvut.cz> parents: 0 diff changeset	133	self registerForFinalization.
2 a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	134	driver := GDBLauncher startGDB.
0 0b9e93821620 First shot (merely backup) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	135
7 7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	136	commandSequenceNumber := 0.
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	137	snapshotSequenceNumber := 0.
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	138
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	139	self announcer
8 7f4882e2562a More work on basic example. GDB exiting not yet working. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 7 diff changeset	140	when: GDBCommandResultEvent send: #onCommandResult: to: self;
7f4882e2562a More work on basic example. GDB exiting not yet working. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 7 diff changeset	141	when: GDBExitEvent send: #onExit: to: self.
7f4882e2562a More work on basic example. GDB exiting not yet working. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 7 diff changeset	142
7f4882e2562a More work on basic example. GDB exiting not yet working. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 7 diff changeset	143	driver eventPumpStart.
7f4882e2562a More work on basic example. GDB exiting not yet working. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 7 diff changeset	144	driver eventDispatchStart.
7 7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	145
11 474fbb650afe PTY support refactored to use GDBPTY object. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 10 diff changeset	146	self send: (GDBMICommand inferiorTtySet: driver inferiorPTY name).
474fbb650afe PTY support refactored to use GDBPTY object. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 10 diff changeset	147
0 0b9e93821620 First shot (merely backup) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	148	"Created: / 26-05-2014 / 21:23:04 / 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	149	"Modified: / 09-06-2014 / 21:18:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"
0 0b9e93821620 First shot (merely backup) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	150	!
0b9e93821620 First shot (merely backup) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	151
0b9e93821620 First shot (merely backup) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	152	release
2 a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	153	driver notNil ifTrue:[
a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	154	driver release.
a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	155	driver := nil.
0 0b9e93821620 First shot (merely backup) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	156	].
0b9e93821620 First shot (merely backup) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	157
0b9e93821620 First shot (merely backup) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	158	"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	159	! !
0b9e93821620 First shot (merely backup) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	160
7 7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	161	!GDB class methodsFor:'documentation'!
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	162
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	163	version_HG
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	164
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	165	^ '$Changeset: <not expanded> $'
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	166	! !
7a51f98e7162 Initial implementation of event dispatcher and event pump. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	167

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Mon, 09 Jun 2014 21:28:52 +0100
changeset 11	474fbb650afe
parent 10	f04a22c9b16c
child 12	568a2971c977
permissions	-rw-r--r--