hg/jv-libgdbs: GDBMIParser.st@50e80d25ea6f (annotated)

3 29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	1	"{ Encoding: utf8 }"
29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	2
2 a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	3	"{ Package: 'jv:libgdbs' }"
a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	4
55 437ee6413c74 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: 52 diff changeset	5	"{ NameSpace: Smalltalk }"
437ee6413c74 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: 52 diff changeset	6
45 deb908479a37 Code refactored to use Magritte to meta-describe GDB objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 40 diff changeset	7	Object subclass:#GDBMIParser
24 98ff50f8a25d Temporary commit : initial work on session recorder (to use for simulation later) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 20 diff changeset	8	instanceVariableNames:'source lookahead token token2CommandMappingBlock recorder'
2 a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	9	classVariableNames:''
6 d935bc59f6f4 Removed useless MI prefix Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	10	poolDictionaries:'GDBCommandStatus'
3 29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	11	category:'GDB-Private'
2 a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	12	!
a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	13
85 6fea1000a2a5 Implemented proper quoting of MI commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: 84 diff changeset	14	!GDBMIParser class methodsFor:'documentation'!
6fea1000a2a5 Implemented proper quoting of MI commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: 84 diff changeset	15
6fea1000a2a5 Implemented proper quoting of MI commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: 84 diff changeset	16	documentation
6fea1000a2a5 Implemented proper quoting of MI commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: 84 diff changeset	17	"
6fea1000a2a5 Implemented proper quoting of MI commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: 84 diff changeset	18	A parser that reads GDB MI output records from a stream
6fea1000a2a5 Implemented proper quoting of MI commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: 84 diff changeset	19	and converts them to objects.
6fea1000a2a5 Implemented proper quoting of MI commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: 84 diff changeset	20
6fea1000a2a5 Implemented proper quoting of MI commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: 84 diff changeset	21	See [1] for description of GDB MI output syntax.
6fea1000a2a5 Implemented proper quoting of MI commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: 84 diff changeset	22
6fea1000a2a5 Implemented proper quoting of MI commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: 84 diff changeset	23	[author:]
6fea1000a2a5 Implemented proper quoting of MI commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: 84 diff changeset	24	Jan Vrany <jan.vrany@fit.cvut.cz>
6fea1000a2a5 Implemented proper quoting of MI commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: 84 diff changeset	25
6fea1000a2a5 Implemented proper quoting of MI commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: 84 diff changeset	26	[instance variables:]
6fea1000a2a5 Implemented proper quoting of MI commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: 84 diff changeset	27
6fea1000a2a5 Implemented proper quoting of MI commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: 84 diff changeset	28	[class variables:]
6fea1000a2a5 Implemented proper quoting of MI commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: 84 diff changeset	29
6fea1000a2a5 Implemented proper quoting of MI commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: 84 diff changeset	30	[see also:]
6fea1000a2a5 Implemented proper quoting of MI commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: 84 diff changeset	31	[1]: https://sourceware.org/gdb/onlinedocs/gdb/GDB_002fMI-Output-Syntax.html#GDB_002fMI-Output-Syntax
6fea1000a2a5 Implemented proper quoting of MI commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: 84 diff changeset	32
6fea1000a2a5 Implemented proper quoting of MI commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: 84 diff changeset	33	"
6fea1000a2a5 Implemented proper quoting of MI commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: 84 diff changeset	34	! !
52 0618438f6ba5 Report async execution event immediately. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 45 diff changeset	35
45 deb908479a37 Code refactored to use Magritte to meta-describe GDB objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 40 diff changeset	36	!GDBMIParser class methodsFor:'instance creation'!
2 a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	37
5 5cdb702e1bec stc fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	38	on: aStringOrStream
2 a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	39	^ self new on: aStringOrStream
a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	40
a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	41	"Created: / 27-05-2014 / 23:50:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	42	! !
a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	43
45 deb908479a37 Code refactored to use Magritte to meta-describe GDB objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 40 diff changeset	44	!GDBMIParser methodsFor:'accessing'!
18 6bf3d5c400d1 Make GDBEvent and GDBCommandResult also described by value descriptor... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	45
24 98ff50f8a25d Temporary commit : initial work on session recorder (to use for simulation later) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 20 diff changeset	46	recorder
98ff50f8a25d Temporary commit : initial work on session recorder (to use for simulation later) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 20 diff changeset	47	^ recorder
98ff50f8a25d Temporary commit : initial work on session recorder (to use for simulation later) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 20 diff changeset	48	!
98ff50f8a25d Temporary commit : initial work on session recorder (to use for simulation later) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 20 diff changeset	49
98ff50f8a25d Temporary commit : initial work on session recorder (to use for simulation later) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 20 diff changeset	50	recorder:something
98ff50f8a25d Temporary commit : initial work on session recorder (to use for simulation later) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 20 diff changeset	51	recorder := something.
98ff50f8a25d Temporary commit : initial work on session recorder (to use for simulation later) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 20 diff changeset	52	!
98ff50f8a25d Temporary commit : initial work on session recorder (to use for simulation later) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 20 diff changeset	53
18 6bf3d5c400d1 Make GDBEvent and GDBCommandResult also described by value descriptor... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	54	token2CommandMappingBlock: aBlock
6bf3d5c400d1 Make GDBEvent and GDBCommandResult also described by value descriptor... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	55	token2CommandMappingBlock := aBlock.
6bf3d5c400d1 Make GDBEvent and GDBCommandResult also described by value descriptor... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	56
6bf3d5c400d1 Make GDBEvent and GDBCommandResult also described by value descriptor... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	57	"Created: / 19-06-2014 / 21:34:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
6bf3d5c400d1 Make GDBEvent and GDBCommandResult also described by value descriptor... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	58	! !
6bf3d5c400d1 Make GDBEvent and GDBCommandResult also described by value descriptor... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	59
45 deb908479a37 Code refactored to use Magritte to meta-describe GDB objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 40 diff changeset	60	!GDBMIParser methodsFor:'initialization'!
2 a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	61
a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	62	on: aStringOrStream
a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	63	source := aStringOrStream readStream
a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	64
a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	65	"Created: / 27-05-2014 / 23:50:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	66	! !
a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	67
45 deb908479a37 Code refactored to use Magritte to meta-describe GDB objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 40 diff changeset	68	!GDBMIParser methodsFor:'parsing'!
2 a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	69
a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	70	parseCString
a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	71	self expect: $".
15 65d3b4bfe871 Initial support for parsing typed values (now only booleans and integers) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	72	^ self parseCStringRest: ''.
2 a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	73
a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	74	"Created: / 27-05-2014 / 23:51:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"
15 65d3b4bfe871 Initial support for parsing typed values (now only booleans and integers) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	75	"Modified (format): / 18-06-2014 / 07:19:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2 a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	76	!
a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	77
a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	78	parseCStringEscape: char
a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	79	\|ascii c \|
a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	80
a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	81	char == $" ifTrue:[
5 5cdb702e1bec stc fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	82	^ $".
2 a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	83	].
a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	84
a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	85	char == $b ifTrue:[
5 5cdb702e1bec stc fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	86	^ Character backspace
2 a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	87	].
a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	88	char == $t ifTrue:[
5 5cdb702e1bec stc fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	89	^ Character tab
2 a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	90	].
a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	91	char == $n ifTrue:[
5 5cdb702e1bec stc fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	92	^ Character cr
2 a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	93	].
a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	94	char == $r ifTrue:[
5 5cdb702e1bec stc fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	95	^ Character return
2 a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	96	].
a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	97	char == $f ifTrue:[
5 5cdb702e1bec stc fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	98	^ Character newPage
2 a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	99	].
a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	100
a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	101	"/ char == $u ifTrue:[
a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	102	"/ ascii := 0.
a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	103	"/ c := source peekOrNil.
a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	104	"/ 4 timesRepeat:[
a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	105	"/ (c isDigitRadix:16) ifFalse:[
a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	106	"/ self syntaxError:'invalid hex character constant'
a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	107	"/ position:source position-2 to:(source position - 1).
a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	108	"/ ^ Character value:ascii
a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	109	"/ ].
a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	110	"/ ascii := (ascii bitShift:4).
a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	111	"/ ascii := ascii + c digitValue.
a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	112	"/ source next. c := source peekOrNil.
a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	113	"/ ].
a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	114	"/ ^ Character value:ascii
a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	115	"/ ].
a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	116	char == $x ifTrue:[
5 5cdb702e1bec stc fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	117	ascii := 0.
5cdb702e1bec stc fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	118	c := self peekOrNil.
5cdb702e1bec stc fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	119	2 timesRepeat:[
5cdb702e1bec stc fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	120	(c isDigitRadix:16) ifFalse:[
5cdb702e1bec stc fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	121	self error:'Invalid hex character escape'.
5cdb702e1bec stc fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	122	^ Character value:ascii
5cdb702e1bec stc fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	123	].
5cdb702e1bec stc fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	124	ascii := (ascii bitShift:4).
5cdb702e1bec stc fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	125	ascii := ascii + c digitValue.
5cdb702e1bec stc fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	126	self next. c := self peekOrNil.
5cdb702e1bec stc fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	127	].
5cdb702e1bec stc fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	128	^ Character value:ascii
2 a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	129	].
a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	130	"OctalEscape ::= \ OctalDigit \|
5 5cdb702e1bec stc fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	131	\ OctalDigit OctalDigit
5cdb702e1bec stc fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	132	\ ZeroToThree OctalDigit OctalDigit"
2 a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	133
a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	134	(char between:$0 and:$3) ifTrue:[
5 5cdb702e1bec stc fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	135	ascii := char digitValue.
5cdb702e1bec stc fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	136	c := self peekOrNil.
5cdb702e1bec stc fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	137	(c between: $0 and: $7) ifTrue:[
5cdb702e1bec stc fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	138	self next.
5cdb702e1bec stc fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	139	ascii := (ascii bitShift:3).
5cdb702e1bec stc fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	140	ascii := ascii + c digitValue.
5cdb702e1bec stc fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	141	].
5cdb702e1bec stc fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	142	c := self peekOrNil.
5cdb702e1bec stc fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	143	(c between: $0 and: $7) ifTrue:[
5cdb702e1bec stc fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	144	self next.
5cdb702e1bec stc fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	145	ascii := (ascii bitShift:3).
5cdb702e1bec stc fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	146	ascii := ascii + c digitValue.
5cdb702e1bec stc fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	147	].
5cdb702e1bec stc fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	148	^ Character value:ascii
2 a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	149	].
a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	150	(char between:$4 and: $7) ifTrue:[
5 5cdb702e1bec stc fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	151	ascii := char digitValue.
5cdb702e1bec stc fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	152	c := self peekOrNil.
5cdb702e1bec stc fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	153	(c between: $0 and: $7) ifTrue:[
5cdb702e1bec stc fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	154	self next.
5cdb702e1bec stc fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	155	ascii := (ascii bitShift:3).
5cdb702e1bec stc fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	156	ascii := ascii + c digitValue.
5cdb702e1bec stc fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	157	].
5cdb702e1bec stc fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	158	^ Character value:ascii
2 a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	159	].
a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	160
a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	161	^ char
a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	162
a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	163	"Created: / 28-05-2014 / 00:02:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	164	!
a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	165
15 65d3b4bfe871 Initial support for parsing typed values (now only booleans and integers) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	166	parseCStringRest: alreadyRead
65d3b4bfe871 Initial support for parsing typed values (now only booleans and integers) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	167	\| buffer inString nextChar \|
65d3b4bfe871 Initial support for parsing typed values (now only booleans and integers) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	168
65d3b4bfe871 Initial support for parsing typed values (now only booleans and integers) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	169	buffer := (String new: 50) writeStream.
65d3b4bfe871 Initial support for parsing typed values (now only booleans and integers) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	170	buffer nextPutAll: alreadyRead.
65d3b4bfe871 Initial support for parsing typed values (now only booleans and integers) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	171	nextChar := self next.
65d3b4bfe871 Initial support for parsing typed values (now only booleans and integers) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	172	inString := true.
65d3b4bfe871 Initial support for parsing typed values (now only booleans and integers) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	173	[inString] whileTrue:[
65d3b4bfe871 Initial support for parsing typed values (now only booleans and integers) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	174	nextChar isNil ifTrue:[
65d3b4bfe871 Initial support for parsing typed values (now only booleans and integers) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	175	self error: 'Unexpected end of input'.
65d3b4bfe871 Initial support for parsing typed values (now only booleans and integers) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	176	].
65d3b4bfe871 Initial support for parsing typed values (now only booleans and integers) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	177	nextChar == $\ ifTrue:[
65d3b4bfe871 Initial support for parsing typed values (now only booleans and integers) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	178	nextChar := self next.
65d3b4bfe871 Initial support for parsing typed values (now only booleans and integers) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	179	nextChar := self parseCStringEscape:nextChar.
65d3b4bfe871 Initial support for parsing typed values (now only booleans and integers) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	180	] ifFalse:[
65d3b4bfe871 Initial support for parsing typed values (now only booleans and integers) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	181	(nextChar == $") ifTrue:[
65d3b4bfe871 Initial support for parsing typed values (now only booleans and integers) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	182	(self peekOrNil == $") ifTrue:[
65d3b4bfe871 Initial support for parsing typed values (now only booleans and integers) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	183	self next
65d3b4bfe871 Initial support for parsing typed values (now only booleans and integers) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	184	] ifFalse:[
65d3b4bfe871 Initial support for parsing typed values (now only booleans and integers) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	185	inString := false
65d3b4bfe871 Initial support for parsing typed values (now only booleans and integers) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	186	]
65d3b4bfe871 Initial support for parsing typed values (now only booleans and integers) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	187	].
65d3b4bfe871 Initial support for parsing typed values (now only booleans and integers) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	188	].
65d3b4bfe871 Initial support for parsing typed values (now only booleans and integers) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	189	inString ifTrue:[
65d3b4bfe871 Initial support for parsing typed values (now only booleans and integers) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	190	buffer nextPut:nextChar.
65d3b4bfe871 Initial support for parsing typed values (now only booleans and integers) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	191	nextChar := self next
65d3b4bfe871 Initial support for parsing typed values (now only booleans and integers) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	192	]
65d3b4bfe871 Initial support for parsing typed values (now only booleans and integers) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	193	].
65d3b4bfe871 Initial support for parsing typed values (now only booleans and integers) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	194	^ buffer contents
65d3b4bfe871 Initial support for parsing typed values (now only booleans and integers) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	195
65d3b4bfe871 Initial support for parsing typed values (now only booleans and integers) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	196	"Created: / 18-06-2014 / 07:17:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"
65d3b4bfe871 Initial support for parsing typed values (now only booleans and integers) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	197	!
65d3b4bfe871 Initial support for parsing typed values (now only booleans and integers) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	198
3 29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	199	parseNl
29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	200	\| c \|
29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	201
29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	202	c := self peek.
5 5cdb702e1bec stc fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	203	(c == Character return or:[ c == Character cr ]) ifTrue:[
5cdb702e1bec stc fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	204	self next
3 29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	205	].
29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	206
29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	207	"Created: / 30-05-2014 / 09:52:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	208	"Modified: / 31-05-2014 / 00:38:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	209	!
29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	210
27 e7e01078d9c4 Temporary commit - more on process simulator Jan Vrany <jan.vrany@fit.cvut.cz> parents: 25 diff changeset	211	parseNonBlankSequence
e7e01078d9c4 Temporary commit - more on process simulator Jan Vrany <jan.vrany@fit.cvut.cz> parents: 25 diff changeset	212	^ String streamContents:[ :buffer \|
e7e01078d9c4 Temporary commit - more on process simulator Jan Vrany <jan.vrany@fit.cvut.cz> parents: 25 diff changeset	213	[ self peek isNil or: [ self peek isSeparator ] ] whileFalse:[
e7e01078d9c4 Temporary commit - more on process simulator Jan Vrany <jan.vrany@fit.cvut.cz> parents: 25 diff changeset	214	buffer nextPut: self next.
e7e01078d9c4 Temporary commit - more on process simulator Jan Vrany <jan.vrany@fit.cvut.cz> parents: 25 diff changeset	215	]
e7e01078d9c4 Temporary commit - more on process simulator Jan Vrany <jan.vrany@fit.cvut.cz> parents: 25 diff changeset	216	]
e7e01078d9c4 Temporary commit - more on process simulator Jan Vrany <jan.vrany@fit.cvut.cz> parents: 25 diff changeset	217
e7e01078d9c4 Temporary commit - more on process simulator Jan Vrany <jan.vrany@fit.cvut.cz> parents: 25 diff changeset	218	"Created: / 24-06-2014 / 23:19:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e7e01078d9c4 Temporary commit - more on process simulator Jan Vrany <jan.vrany@fit.cvut.cz> parents: 25 diff changeset	219	!
e7e01078d9c4 Temporary commit - more on process simulator Jan Vrany <jan.vrany@fit.cvut.cz> parents: 25 diff changeset	220
3 29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	221	parseOutput
29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	222	"
29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	223	output → ( out-of-band-record )* [ result-record ] '(gdb)' nl
5 5cdb702e1bec stc fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	224	out-of-band-record → async-record \| stream-record
4 62366cc0fd95 Added some events + fixed parser to parse a simple session. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	225
3 29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	226	"
29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	227
4 62366cc0fd95 Added some events + fixed parser to parse a simple session. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	228	\| peek events \|
3 29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	229
6 d935bc59f6f4 Removed useless MI prefix Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	230	events := GDBEventSet new.
8 7f4882e2562a More work on basic example. GDB exiting not yet working. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 7 diff changeset	231
7f4882e2562a More work on basic example. GDB exiting not yet working. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 7 diff changeset	232	peek := self peek.
7f4882e2562a More work on basic example. GDB exiting not yet working. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 7 diff changeset	233	peek == Character space ifTrue:[ self next ].
7f4882e2562a More work on basic example. GDB exiting not yet working. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 7 diff changeset	234	peek := self peek.
7f4882e2562a More work on basic example. GDB exiting not yet working. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 7 diff changeset	235	peek == Character cr ifTrue:[ self next ].
5 5cdb702e1bec stc fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	236	[
33 7abcdaaa5229 Fixed parsing of command - reset token before parsing new response. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 32 diff changeset	237	token := nil.
6 d935bc59f6f4 Removed useless MI prefix Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	238	peek := self peek.
9 5cc8797f6523 Make simple example with -gdb-exit command working Jan Vrany <jan.vrany@fit.cvut.cz> parents: 8 diff changeset	239	peek isNil ifTrue:[
5cc8797f6523 Make simple example with -gdb-exit command working Jan Vrany <jan.vrany@fit.cvut.cz> parents: 8 diff changeset	240	source atEnd ifTrue:[ ^ events ].
5cc8797f6523 Make simple example with -gdb-exit command working Jan Vrany <jan.vrany@fit.cvut.cz> parents: 8 diff changeset	241	].
6 d935bc59f6f4 Removed useless MI prefix Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	242	peek isDigit ifTrue:[ self parseToken. peek := self peek ].
d935bc59f6f4 Removed useless MI prefix Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	243	peek ~~ $(
5 5cdb702e1bec stc fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	244	] whileTrue:[
6 d935bc59f6f4 Removed useless MI prefix Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	245	('*+=' includes: self peek) ifTrue:[
52 0618438f6ba5 Report async execution event immediately. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 45 diff changeset	246	\| event \|
0618438f6ba5 Report async execution event immediately. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 45 diff changeset	247
0618438f6ba5 Report async execution event immediately. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 45 diff changeset	248	event := self parseAsyncRecord.
0618438f6ba5 Report async execution event immediately. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 45 diff changeset	249	events add: event.
0618438f6ba5 Report async execution event immediately. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 45 diff changeset	250	"Sigh, GDB 7.7.1 does not write '(gdb)' terminator after an
87 50e80d25ea6f Added initial support for breakppints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 85 diff changeset	251	async events (even though specification says it should).
52 0618438f6ba5 Report async execution event immediately. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 45 diff changeset	252	Thus, report any execution record immediately"
87 50e80d25ea6f Added initial support for breakppints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 85 diff changeset	253	event isAsyncEvent ifTrue:[
52 0618438f6ba5 Report async execution event immediately. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 45 diff changeset	254	events last token: token.
0618438f6ba5 Report async execution event immediately. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 45 diff changeset	255	recorder notNil ifTrue:[
0618438f6ba5 Report async execution event immediately. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 45 diff changeset	256	recorder recordResponseEnd.
0618438f6ba5 Report async execution event immediately. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 45 diff changeset	257	].
0618438f6ba5 Report async execution event immediately. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 45 diff changeset	258	^ events
0618438f6ba5 Report async execution event immediately. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 45 diff changeset	259	].
6 d935bc59f6f4 Removed useless MI prefix Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	260	] ifFalse:[
d935bc59f6f4 Removed useless MI prefix Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	261	('~@&' includes: self peek) ifTrue:[
d935bc59f6f4 Removed useless MI prefix Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	262	events add: self parseStreamRecord.
d935bc59f6f4 Removed useless MI prefix Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	263	] ifFalse:[
d935bc59f6f4 Removed useless MI prefix Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	264	peek == $^ ifTrue:[
d935bc59f6f4 Removed useless MI prefix Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	265	events add: self parseResultRecord.
79 303c4edc75ad `GDBProcess` refatored to have console interpreter on STDIN/STDOUT Jan Vrany <jan.vrany@fit.cvut.cz> parents: 73 diff changeset	266	"/ Sigh, when using MI over PTY (as suggested by Pedro Alves),
303c4edc75ad `GDBProcess` refatored to have console interpreter on STDIN/STDOUT Jan Vrany <jan.vrany@fit.cvut.cz> parents: 73 diff changeset	267	"/ the PTY is kept open if GDB exits so peek block for ever.
303c4edc75ad `GDBProcess` refatored to have console interpreter on STDIN/STDOUT Jan Vrany <jan.vrany@fit.cvut.cz> parents: 73 diff changeset	268	"/ So, if ^exit status is reported, exit immediately.
303c4edc75ad `GDBProcess` refatored to have console interpreter on STDIN/STDOUT Jan Vrany <jan.vrany@fit.cvut.cz> parents: 73 diff changeset	269	(events last isCommandResultEvent and:[ events last status == #exit ]) ifTrue:[
303c4edc75ad `GDBProcess` refatored to have console interpreter on STDIN/STDOUT Jan Vrany <jan.vrany@fit.cvut.cz> parents: 73 diff changeset	270	events last token: token.
303c4edc75ad `GDBProcess` refatored to have console interpreter on STDIN/STDOUT Jan Vrany <jan.vrany@fit.cvut.cz> parents: 73 diff changeset	271	recorder notNil ifTrue:[
303c4edc75ad `GDBProcess` refatored to have console interpreter on STDIN/STDOUT Jan Vrany <jan.vrany@fit.cvut.cz> parents: 73 diff changeset	272	recorder recordResponseEnd.
303c4edc75ad `GDBProcess` refatored to have console interpreter on STDIN/STDOUT Jan Vrany <jan.vrany@fit.cvut.cz> parents: 73 diff changeset	273	].
303c4edc75ad `GDBProcess` refatored to have console interpreter on STDIN/STDOUT Jan Vrany <jan.vrany@fit.cvut.cz> parents: 73 diff changeset	274	^ events
303c4edc75ad `GDBProcess` refatored to have console interpreter on STDIN/STDOUT Jan Vrany <jan.vrany@fit.cvut.cz> parents: 73 diff changeset	275	].
6 d935bc59f6f4 Removed useless MI prefix Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	276	] ifFalse:[
d935bc59f6f4 Removed useless MI prefix Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	277	self error:'Invalid MI record'.
d935bc59f6f4 Removed useless MI prefix Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	278	].
d935bc59f6f4 Removed useless MI prefix Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	279	].
d935bc59f6f4 Removed useless MI prefix Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	280	].
8 7f4882e2562a More work on basic example. GDB exiting not yet working. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 7 diff changeset	281	events last token: token.
3 29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	282	].
29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	283	self expect: '(gdb)'.
25 58e042a191a9 More work on GDB session recorder. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	284	[ self peek == Character space ] whileTrue:[ self next ].
3 29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	285	self parseNl.
24 98ff50f8a25d Temporary commit : initial work on session recorder (to use for simulation later) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 20 diff changeset	286	recorder notNil ifTrue:[
98ff50f8a25d Temporary commit : initial work on session recorder (to use for simulation later) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 20 diff changeset	287	recorder recordResponseEnd.
98ff50f8a25d Temporary commit : initial work on session recorder (to use for simulation later) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 20 diff changeset	288	].
3 29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	289	^ events
29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	290
29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	291	"Created: / 30-05-2014 / 09:52:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
87 50e80d25ea6f Added initial support for breakppints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 85 diff changeset	292	"Modified: / 11-07-2017 / 11:04:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"
3 29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	293	!
29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	294
57 f27c9f059a08 When starting an event loop, allow for GDB to ouput some random messages when it start up. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 55 diff changeset	295	parsePostStartHeader
f27c9f059a08 When starting an event loop, allow for GDB to ouput some random messages when it start up. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 55 diff changeset	296	"
f27c9f059a08 When starting an event loop, allow for GDB to ouput some random messages when it start up. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 55 diff changeset	297	Python Exception <type 'exceptions.ImportError'> No module named gdb:
f27c9f059a08 When starting an event loop, allow for GDB to ouput some random messages when it start up. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 55 diff changeset	298	./gdb: warning:
f27c9f059a08 When starting an event loop, allow for GDB to ouput some random messages when it start up. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 55 diff changeset	299	Could not load the Python gdb module from `/usr/local/share/gdb/python'.
f27c9f059a08 When starting an event loop, allow for GDB to ouput some random messages when it start up. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 55 diff changeset	300	Limited Python support is available from the _gdb module.
f27c9f059a08 When starting an event loop, allow for GDB to ouput some random messages when it start up. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 55 diff changeset	301	Suggest passing --data-directory=/path/to/gdb/data-directory.
f27c9f059a08 When starting an event loop, allow for GDB to ouput some random messages when it start up. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 55 diff changeset	302
f27c9f059a08 When starting an event loop, allow for GDB to ouput some random messages when it start up. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 55 diff changeset	303	=thread-group-added,id='i1'
f27c9f059a08 When starting an event loop, allow for GDB to ouput some random messages when it start up. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 55 diff changeset	304	(gdb)
f27c9f059a08 When starting an event loop, allow for GDB to ouput some random messages when it start up. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 55 diff changeset	305
f27c9f059a08 When starting an event loop, allow for GDB to ouput some random messages when it start up. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 55 diff changeset	306	"
f27c9f059a08 When starting an event loop, allow for GDB to ouput some random messages when it start up. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 55 diff changeset	307
f27c9f059a08 When starting an event loop, allow for GDB to ouput some random messages when it start up. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 55 diff changeset	308	\| atBeginingOfLine c \|
f27c9f059a08 When starting an event loop, allow for GDB to ouput some random messages when it start up. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 55 diff changeset	309
f27c9f059a08 When starting an event loop, allow for GDB to ouput some random messages when it start up. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 55 diff changeset	310	atBeginingOfLine := true.
f27c9f059a08 When starting an event loop, allow for GDB to ouput some random messages when it start up. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 55 diff changeset	311	[
f27c9f059a08 When starting an event loop, allow for GDB to ouput some random messages when it start up. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 55 diff changeset	312	c := source peek.
f27c9f059a08 When starting an event loop, allow for GDB to ouput some random messages when it start up. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 55 diff changeset	313	atBeginingOfLine and:[ c == $= ]
f27c9f059a08 When starting an event loop, allow for GDB to ouput some random messages when it start up. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 55 diff changeset	314	] whileFalse:[
f27c9f059a08 When starting an event loop, allow for GDB to ouput some random messages when it start up. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 55 diff changeset	315	c := source next.
f27c9f059a08 When starting an event loop, allow for GDB to ouput some random messages when it start up. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 55 diff changeset	316	atBeginingOfLine := c == Character lf
f27c9f059a08 When starting an event loop, allow for GDB to ouput some random messages when it start up. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 55 diff changeset	317	].
f27c9f059a08 When starting an event loop, allow for GDB to ouput some random messages when it start up. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 55 diff changeset	318
f27c9f059a08 When starting an event loop, allow for GDB to ouput some random messages when it start up. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 55 diff changeset	319	"Created: / 01-03-2015 / 08:25:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
f27c9f059a08 When starting an event loop, allow for GDB to ouput some random messages when it start up. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 55 diff changeset	320	!
f27c9f059a08 When starting an event loop, allow for GDB to ouput some random messages when it start up. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 55 diff changeset	321
3 29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	322	parseResultClass
29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	323	"
29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	324	result-class → 'done' \| 'running' \| 'connected' \| 'error' \| 'exit'
29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	325	"
29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	326	\| c1 c2 \|
29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	327
29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	328	c1 := self peek.
5 5cdb702e1bec stc fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	329	c1 == $d ifTrue:[
5cdb702e1bec stc fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	330	self expect: 'done'.
5cdb702e1bec stc fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	331	^ CommandStatusDone.
3 29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	332	].
5 5cdb702e1bec stc fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	333	c1 == $r ifTrue:[
5cdb702e1bec stc fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	334	self expect: 'running'.
5cdb702e1bec stc fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	335	^ CommandStatusDone.
3 29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	336	].
5 5cdb702e1bec stc fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	337	c1 == $c ifTrue:[
5cdb702e1bec stc fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	338	self expect: 'connected'.
5cdb702e1bec stc fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	339	^ CommandStatusConnected.
3 29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	340	].
5 5cdb702e1bec stc fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	341	c1 == $e ifTrue:[
5cdb702e1bec stc fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	342	self next.
5cdb702e1bec stc fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	343	c2 := self peek.
5cdb702e1bec stc fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	344	c2 == $x ifTrue:[
5cdb702e1bec stc fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	345	self expect: 'xit'.
5cdb702e1bec stc fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	346	^ CommandStatusExit.
5cdb702e1bec stc fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	347	].
5cdb702e1bec stc fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	348	c2 == $r ifTrue:[
5cdb702e1bec stc fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	349	self expect: 'rror'.
5cdb702e1bec stc fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	350	^ CommandStatusError.
5cdb702e1bec stc fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	351	].
3 29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	352	].
29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	353	^ self error:'Unsupported result class'
29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	354
29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	355	"Created: / 31-05-2014 / 00:16:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
4 62366cc0fd95 Added some events + fixed parser to parse a simple session. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	356	"Modified: / 01-06-2014 / 23:21:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
3 29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	357	!
29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	358
29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	359	parseResultRecord
29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	360	"
29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	361	result-record → '^' result-class ( ',' result )* nl
29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	362	"
29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	363
18 6bf3d5c400d1 Make GDBEvent and GDBCommandResult also described by value descriptor... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	364	\| command result descriptor propertyName propertyDescriptor propertyValue \|
3 29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	365
29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	366	self expect: $^.
6 d935bc59f6f4 Removed useless MI prefix Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	367	result := GDBCommandResult new.
3 29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	368	result status: self parseResultClass.
45 deb908479a37 Code refactored to use Magritte to meta-describe GDB objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 40 diff changeset	369	descriptor := GDBMAContainer new.
18 6bf3d5c400d1 Make GDBEvent and GDBCommandResult also described by value descriptor... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	370	(token notNil and:[ token2CommandMappingBlock notNil ]) ifTrue:[
6bf3d5c400d1 Make GDBEvent and GDBCommandResult also described by value descriptor... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	371	command := token2CommandMappingBlock value: token.
6bf3d5c400d1 Make GDBEvent and GDBCommandResult also described by value descriptor... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	372	command notNil ifTrue:[
6bf3d5c400d1 Make GDBEvent and GDBCommandResult also described by value descriptor... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	373	result command: command.
45 deb908479a37 Code refactored to use Magritte to meta-describe GDB objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 40 diff changeset	374	descriptor := command resultDescription.
18 6bf3d5c400d1 Make GDBEvent and GDBCommandResult also described by value descriptor... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	375	].
3 29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	376	].
73 f5fe22f56f10 MI parsing: added support for command result values as GDB objects Jan Vrany <jan.vrany@fit.cvut.cz> parents: 57 diff changeset	377
f5fe22f56f10 MI parsing: added support for command result values as GDB objects Jan Vrany <jan.vrany@fit.cvut.cz> parents: 57 diff changeset	378	descriptor klass isNil ifTrue:[
f5fe22f56f10 MI parsing: added support for command result values as GDB objects Jan Vrany <jan.vrany@fit.cvut.cz> parents: 57 diff changeset	379	"/ Command result is not an object but list of properties...
f5fe22f56f10 MI parsing: added support for command result values as GDB objects Jan Vrany <jan.vrany@fit.cvut.cz> parents: 57 diff changeset	380	[ self peek == $, ] whileTrue:[
f5fe22f56f10 MI parsing: added support for command result values as GDB objects Jan Vrany <jan.vrany@fit.cvut.cz> parents: 57 diff changeset	381	self next. "/ eat $,
f5fe22f56f10 MI parsing: added support for command result values as GDB objects Jan Vrany <jan.vrany@fit.cvut.cz> parents: 57 diff changeset	382	propertyName := self parseVariable.
f5fe22f56f10 MI parsing: added support for command result values as GDB objects Jan Vrany <jan.vrany@fit.cvut.cz> parents: 57 diff changeset	383	propertyDescriptor := descriptor propertyDescriptorAt: propertyName.
f5fe22f56f10 MI parsing: added support for command result values as GDB objects Jan Vrany <jan.vrany@fit.cvut.cz> parents: 57 diff changeset	384	self expect: $=.
f5fe22f56f10 MI parsing: added support for command result values as GDB objects Jan Vrany <jan.vrany@fit.cvut.cz> parents: 57 diff changeset	385	propertyDescriptor isNil ifTrue:[
f5fe22f56f10 MI parsing: added support for command result values as GDB objects Jan Vrany <jan.vrany@fit.cvut.cz> parents: 57 diff changeset	386	propertyValue := self parseValue.
f5fe22f56f10 MI parsing: added support for command result values as GDB objects Jan Vrany <jan.vrany@fit.cvut.cz> parents: 57 diff changeset	387	] ifFalse:[
f5fe22f56f10 MI parsing: added support for command result values as GDB objects Jan Vrany <jan.vrany@fit.cvut.cz> parents: 57 diff changeset	388	propertyValue := propertyDescriptor parseUsingGDBMIParser:self.
f5fe22f56f10 MI parsing: added support for command result values as GDB objects Jan Vrany <jan.vrany@fit.cvut.cz> parents: 57 diff changeset	389	].
f5fe22f56f10 MI parsing: added support for command result values as GDB objects Jan Vrany <jan.vrany@fit.cvut.cz> parents: 57 diff changeset	390	result propertyAt: propertyName put: propertyValue.
f5fe22f56f10 MI parsing: added support for command result values as GDB objects Jan Vrany <jan.vrany@fit.cvut.cz> parents: 57 diff changeset	391	].
f5fe22f56f10 MI parsing: added support for command result values as GDB objects Jan Vrany <jan.vrany@fit.cvut.cz> parents: 57 diff changeset	392	] ifFalse:[
f5fe22f56f10 MI parsing: added support for command result values as GDB objects Jan Vrany <jan.vrany@fit.cvut.cz> parents: 57 diff changeset	393	"/ Command result forms an object.
f5fe22f56f10 MI parsing: added support for command result values as GDB objects Jan Vrany <jan.vrany@fit.cvut.cz> parents: 57 diff changeset	394	"/ Create an object and parse property list as its properties.
f5fe22f56f10 MI parsing: added support for command result values as GDB objects Jan Vrany <jan.vrany@fit.cvut.cz> parents: 57 diff changeset	395	\| object \|
f5fe22f56f10 MI parsing: added support for command result values as GDB objects Jan Vrany <jan.vrany@fit.cvut.cz> parents: 57 diff changeset	396
f5fe22f56f10 MI parsing: added support for command result values as GDB objects Jan Vrany <jan.vrany@fit.cvut.cz> parents: 57 diff changeset	397	object := descriptor klass new.
f5fe22f56f10 MI parsing: added support for command result values as GDB objects Jan Vrany <jan.vrany@fit.cvut.cz> parents: 57 diff changeset	398	self peek == $, ifTrue:[
f5fe22f56f10 MI parsing: added support for command result values as GDB objects Jan Vrany <jan.vrany@fit.cvut.cz> parents: 57 diff changeset	399	self next. "/ eat first , following command status...
f5fe22f56f10 MI parsing: added support for command result values as GDB objects Jan Vrany <jan.vrany@fit.cvut.cz> parents: 57 diff changeset	400	self parsePropertiesFor: object describedBy: descriptor.
f5fe22f56f10 MI parsing: added support for command result values as GDB objects Jan Vrany <jan.vrany@fit.cvut.cz> parents: 57 diff changeset	401	].
f5fe22f56f10 MI parsing: added support for command result values as GDB objects Jan Vrany <jan.vrany@fit.cvut.cz> parents: 57 diff changeset	402	result propertyAt: #value put: object.
f5fe22f56f10 MI parsing: added support for command result values as GDB objects Jan Vrany <jan.vrany@fit.cvut.cz> parents: 57 diff changeset	403	].
3 29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	404	self parseNl.
6 d935bc59f6f4 Removed useless MI prefix Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	405	^ GDBCommandResultEvent new result: result.
3 29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	406
29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	407	"Created: / 30-05-2014 / 09:52:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"
73 f5fe22f56f10 MI parsing: added support for command result values as GDB objects Jan Vrany <jan.vrany@fit.cvut.cz> parents: 57 diff changeset	408	"Modified: / 19-03-2015 / 08:16:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
3 29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	409	!
29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	410
2 a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	411	parseToken
8 7f4882e2562a More work on basic example. GDB exiting not yet working. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 7 diff changeset	412	token := 0.
7f4882e2562a More work on basic example. GDB exiting not yet working. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 7 diff changeset	413	[ self peek isDigit ] whileTrue:[
7f4882e2562a More work on basic example. GDB exiting not yet working. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 7 diff changeset	414	token := (token * 10) + (self next codePoint - $0 codePoint).
7f4882e2562a More work on basic example. GDB exiting not yet working. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 7 diff changeset	415	].
2 a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	416
a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	417	"Created: / 28-05-2014 / 00:14:57 / 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	418	"Modified: / 03-06-2014 / 00:49:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2 a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	419	! !
a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	420
45 deb908479a37 Code refactored to use Magritte to meta-describe GDB objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 40 diff changeset	421	!GDBMIParser methodsFor:'parsing-async events'!
3 29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	422
29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	423	parseAsyncRecord
29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	424	"
29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	425	async-record → exec-async-output \| status-async-output \| notify-async-output
29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	426	"
5 5cdb702e1bec stc fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	427	self peek == $* ifTrue:[
6 d935bc59f6f4 Removed useless MI prefix Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	428	self next.
d935bc59f6f4 Removed useless MI prefix Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	429	^ self parseAsyncRecord: GDBExecutionEvent.
3 29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	430	].
5 5cdb702e1bec stc fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	431	self peek == $+ ifTrue:[
6 d935bc59f6f4 Removed useless MI prefix Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	432	self next.
d935bc59f6f4 Removed useless MI prefix Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	433	^ self parseAsyncRecord: GDBStatusEvent .
3 29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	434	].
5 5cdb702e1bec stc fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	435	self peek == $= ifTrue:[
6 d935bc59f6f4 Removed useless MI prefix Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	436	self next.
d935bc59f6f4 Removed useless MI prefix Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	437	^ self parseAsyncRecord: GDBNotificationEvent.
3 29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	438	].
29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	439
29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	440	^ self error: 'Invalid async-record'
29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	441
29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	442	"Created: / 30-05-2014 / 09:57:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
6 d935bc59f6f4 Removed useless MI prefix Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	443	"Modified: / 02-06-2014 / 22:19:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"
3 29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	444	!
29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	445
13 45ec9353003f Added classes for each async event type. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	446	parseAsyncRecord: eventClassBase
3 29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	447	"
4 62366cc0fd95 Added some events + fixed parser to parse a simple session. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	448	async-output → async-class ( ',' result )* nl
5 5cdb702e1bec stc fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	449	"
3 29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	450
18 6bf3d5c400d1 Make GDBEvent and GDBCommandResult also described by value descriptor... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	451	\| type eventClass event propertyName propertyDescriptor descriptor propertyValue \|
3 29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	452
4 62366cc0fd95 Added some events + fixed parser to parse a simple session. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	453	type := self parseString.
13 45ec9353003f Added classes for each async event type. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	454	eventClass := eventClassBase eventClassForType: type.
18 6bf3d5c400d1 Make GDBEvent and GDBCommandResult also described by value descriptor... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	455	event := eventClass new.
6bf3d5c400d1 Make GDBEvent and GDBCommandResult also described by value descriptor... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	456	event type: type.
45 deb908479a37 Code refactored to use Magritte to meta-describe GDB objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 40 diff changeset	457	descriptor := eventClass description.
18 6bf3d5c400d1 Make GDBEvent and GDBCommandResult also described by value descriptor... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	458	[ self peek == $, ] whileTrue:[
6bf3d5c400d1 Make GDBEvent and GDBCommandResult also described by value descriptor... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	459	self next. "/ eat $,
6bf3d5c400d1 Make GDBEvent and GDBCommandResult also described by value descriptor... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	460	propertyName := self parseVariable.
6bf3d5c400d1 Make GDBEvent and GDBCommandResult also described by value descriptor... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	461	propertyDescriptor := descriptor propertyDescriptorAt: propertyName.
6bf3d5c400d1 Make GDBEvent and GDBCommandResult also described by value descriptor... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	462	self expect: $=.
6bf3d5c400d1 Make GDBEvent and GDBCommandResult also described by value descriptor... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	463	propertyDescriptor isNil ifTrue:[
6bf3d5c400d1 Make GDBEvent and GDBCommandResult also described by value descriptor... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	464	propertyValue := self parseValue.
6bf3d5c400d1 Make GDBEvent and GDBCommandResult also described by value descriptor... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	465	] ifFalse:[
45 deb908479a37 Code refactored to use Magritte to meta-describe GDB objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 40 diff changeset	466	propertyValue := propertyDescriptor parseUsingGDBMIParser:self.
18 6bf3d5c400d1 Make GDBEvent and GDBCommandResult also described by value descriptor... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	467	].
6bf3d5c400d1 Make GDBEvent and GDBCommandResult also described by value descriptor... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	468	event propertyAt: propertyName put: propertyValue.
4 62366cc0fd95 Added some events + fixed parser to parse a simple session. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	469	].
62366cc0fd95 Added some events + fixed parser to parse a simple session. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	470	self parseNl.
3 29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	471
18 6bf3d5c400d1 Make GDBEvent and GDBCommandResult also described by value descriptor... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	472	^ event
3 29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	473
4 62366cc0fd95 Added some events + fixed parser to parse a simple session. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	474	"Created: / 01-06-2014 / 23:43:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
18 6bf3d5c400d1 Make GDBEvent and GDBCommandResult also described by value descriptor... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	475	"Modified: / 19-06-2014 / 21:43:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"
3 29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	476	! !
29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	477
45 deb908479a37 Code refactored to use Magritte to meta-describe GDB objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 40 diff changeset	478	!GDBMIParser methodsFor:'parsing-commands'!
27 e7e01078d9c4 Temporary commit - more on process simulator Jan Vrany <jan.vrany@fit.cvut.cz> parents: 25 diff changeset	479
e7e01078d9c4 Temporary commit - more on process simulator Jan Vrany <jan.vrany@fit.cvut.cz> parents: 25 diff changeset	480	parseCommand
e7e01078d9c4 Temporary commit - more on process simulator Jan Vrany <jan.vrany@fit.cvut.cz> parents: 25 diff changeset	481
e7e01078d9c4 Temporary commit - more on process simulator Jan Vrany <jan.vrany@fit.cvut.cz> parents: 25 diff changeset	482	self peek isDigit ifTrue:[
e7e01078d9c4 Temporary commit - more on process simulator Jan Vrany <jan.vrany@fit.cvut.cz> parents: 25 diff changeset	483	self parseToken
e7e01078d9c4 Temporary commit - more on process simulator Jan Vrany <jan.vrany@fit.cvut.cz> parents: 25 diff changeset	484	].
e7e01078d9c4 Temporary commit - more on process simulator Jan Vrany <jan.vrany@fit.cvut.cz> parents: 25 diff changeset	485
e7e01078d9c4 Temporary commit - more on process simulator Jan Vrany <jan.vrany@fit.cvut.cz> parents: 25 diff changeset	486	^ self peek == $- ifTrue:[
e7e01078d9c4 Temporary commit - more on process simulator Jan Vrany <jan.vrany@fit.cvut.cz> parents: 25 diff changeset	487	self parseCommandMI
e7e01078d9c4 Temporary commit - more on process simulator Jan Vrany <jan.vrany@fit.cvut.cz> parents: 25 diff changeset	488	] ifFalse:[
e7e01078d9c4 Temporary commit - more on process simulator Jan Vrany <jan.vrany@fit.cvut.cz> parents: 25 diff changeset	489	self parseCommandCLI
e7e01078d9c4 Temporary commit - more on process simulator Jan Vrany <jan.vrany@fit.cvut.cz> parents: 25 diff changeset	490	].
e7e01078d9c4 Temporary commit - more on process simulator Jan Vrany <jan.vrany@fit.cvut.cz> parents: 25 diff changeset	491
e7e01078d9c4 Temporary commit - more on process simulator Jan Vrany <jan.vrany@fit.cvut.cz> parents: 25 diff changeset	492	"Created: / 24-06-2014 / 23:08:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e7e01078d9c4 Temporary commit - more on process simulator Jan Vrany <jan.vrany@fit.cvut.cz> parents: 25 diff changeset	493	!
e7e01078d9c4 Temporary commit - more on process simulator Jan Vrany <jan.vrany@fit.cvut.cz> parents: 25 diff changeset	494
e7e01078d9c4 Temporary commit - more on process simulator Jan Vrany <jan.vrany@fit.cvut.cz> parents: 25 diff changeset	495	parseCommandCLI
e7e01078d9c4 Temporary commit - more on process simulator Jan Vrany <jan.vrany@fit.cvut.cz> parents: 25 diff changeset	496	"raise an error: this method should be implemented (TODO)"
e7e01078d9c4 Temporary commit - more on process simulator Jan Vrany <jan.vrany@fit.cvut.cz> parents: 25 diff changeset	497
e7e01078d9c4 Temporary commit - more on process simulator Jan Vrany <jan.vrany@fit.cvut.cz> parents: 25 diff changeset	498	^ GDBCLICommand new
e7e01078d9c4 Temporary commit - more on process simulator Jan Vrany <jan.vrany@fit.cvut.cz> parents: 25 diff changeset	499	token: token;
e7e01078d9c4 Temporary commit - more on process simulator Jan Vrany <jan.vrany@fit.cvut.cz> parents: 25 diff changeset	500	value: self nextLine;
e7e01078d9c4 Temporary commit - more on process simulator Jan Vrany <jan.vrany@fit.cvut.cz> parents: 25 diff changeset	501	yourself
e7e01078d9c4 Temporary commit - more on process simulator Jan Vrany <jan.vrany@fit.cvut.cz> parents: 25 diff changeset	502
e7e01078d9c4 Temporary commit - more on process simulator Jan Vrany <jan.vrany@fit.cvut.cz> parents: 25 diff changeset	503	"Created: / 24-06-2014 / 23:10:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e7e01078d9c4 Temporary commit - more on process simulator Jan Vrany <jan.vrany@fit.cvut.cz> parents: 25 diff changeset	504	!
e7e01078d9c4 Temporary commit - more on process simulator Jan Vrany <jan.vrany@fit.cvut.cz> parents: 25 diff changeset	505
e7e01078d9c4 Temporary commit - more on process simulator Jan Vrany <jan.vrany@fit.cvut.cz> parents: 25 diff changeset	506	parseCommandMI
e7e01078d9c4 Temporary commit - more on process simulator Jan Vrany <jan.vrany@fit.cvut.cz> parents: 25 diff changeset	507	"raise an error: this method should be implemented (TODO)"
e7e01078d9c4 Temporary commit - more on process simulator Jan Vrany <jan.vrany@fit.cvut.cz> parents: 25 diff changeset	508
e7e01078d9c4 Temporary commit - more on process simulator Jan Vrany <jan.vrany@fit.cvut.cz> parents: 25 diff changeset	509	\| operation className class args \|
e7e01078d9c4 Temporary commit - more on process simulator Jan Vrany <jan.vrany@fit.cvut.cz> parents: 25 diff changeset	510
e7e01078d9c4 Temporary commit - more on process simulator Jan Vrany <jan.vrany@fit.cvut.cz> parents: 25 diff changeset	511	self next. "/ eat $-.
e7e01078d9c4 Temporary commit - more on process simulator Jan Vrany <jan.vrany@fit.cvut.cz> parents: 25 diff changeset	512	operation := self parseVariable.
e7e01078d9c4 Temporary commit - more on process simulator Jan Vrany <jan.vrany@fit.cvut.cz> parents: 25 diff changeset	513	className := ('GDBMI_' , (operation copyReplaceAll: $- with: $_)) asSymbol.
e7e01078d9c4 Temporary commit - more on process simulator Jan Vrany <jan.vrany@fit.cvut.cz> parents: 25 diff changeset	514	class := Smalltalk at: className.
e7e01078d9c4 Temporary commit - more on process simulator Jan Vrany <jan.vrany@fit.cvut.cz> parents: 25 diff changeset	515	args := OrderedCollection new.
e7e01078d9c4 Temporary commit - more on process simulator Jan Vrany <jan.vrany@fit.cvut.cz> parents: 25 diff changeset	516	[ self peek isNil or:[ self peek == Character cr ] ] whileFalse:[
e7e01078d9c4 Temporary commit - more on process simulator Jan Vrany <jan.vrany@fit.cvut.cz> parents: 25 diff changeset	517	self skipSeparators.
e7e01078d9c4 Temporary commit - more on process simulator Jan Vrany <jan.vrany@fit.cvut.cz> parents: 25 diff changeset	518	self peek == $" ifTrue:[
e7e01078d9c4 Temporary commit - more on process simulator Jan Vrany <jan.vrany@fit.cvut.cz> parents: 25 diff changeset	519	args add: self parseCString
e7e01078d9c4 Temporary commit - more on process simulator Jan Vrany <jan.vrany@fit.cvut.cz> parents: 25 diff changeset	520	] ifFalse:[
e7e01078d9c4 Temporary commit - more on process simulator Jan Vrany <jan.vrany@fit.cvut.cz> parents: 25 diff changeset	521	args add: self parseNonBlankSequence
e7e01078d9c4 Temporary commit - more on process simulator Jan Vrany <jan.vrany@fit.cvut.cz> parents: 25 diff changeset	522	].
e7e01078d9c4 Temporary commit - more on process simulator Jan Vrany <jan.vrany@fit.cvut.cz> parents: 25 diff changeset	523	].
e7e01078d9c4 Temporary commit - more on process simulator Jan Vrany <jan.vrany@fit.cvut.cz> parents: 25 diff changeset	524	self next. "/ eat CR.
32 d9c96b33afd6 Temporary commit: more work on simulator... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 27 diff changeset	525	^ (class arguments: args asArray) token: token.
27 e7e01078d9c4 Temporary commit - more on process simulator Jan Vrany <jan.vrany@fit.cvut.cz> parents: 25 diff changeset	526
e7e01078d9c4 Temporary commit - more on process simulator Jan Vrany <jan.vrany@fit.cvut.cz> parents: 25 diff changeset	527	"Created: / 24-06-2014 / 23:10:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
32 d9c96b33afd6 Temporary commit: more work on simulator... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 27 diff changeset	528	"Modified: / 26-08-2014 / 08:02:03 / Jan Vrany <jan.vrany@fit.cvut.cz>"
27 e7e01078d9c4 Temporary commit - more on process simulator Jan Vrany <jan.vrany@fit.cvut.cz> parents: 25 diff changeset	529	! !
e7e01078d9c4 Temporary commit - more on process simulator Jan Vrany <jan.vrany@fit.cvut.cz> parents: 25 diff changeset	530
45 deb908479a37 Code refactored to use Magritte to meta-describe GDB objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 40 diff changeset	531	!GDBMIParser methodsFor:'parsing-misc'!
3 29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	532
29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	533	parseResult
29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	534	"
29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	535	result → variable = value
29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	536	"
29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	537
29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	538	\| name value \|
29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	539
29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	540	name := self parseVariable.
29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	541	self expect: $=.
29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	542	value := self parseValue.
29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	543	^ name -> value
29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	544
29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	545	"Created: / 30-05-2014 / 10:15:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	546	"Modified: / 31-05-2014 / 00:39:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	547	!
29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	548
29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	549	parseString
29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	550	^ String streamContents:[:s\|
27 e7e01078d9c4 Temporary commit - more on process simulator Jan Vrany <jan.vrany@fit.cvut.cz> parents: 25 diff changeset	551	[ self peek notNil and:[self peek isLetterOrDigit or:['-_' includes: self peek ] ] ] whileTrue:[
15 65d3b4bfe871 Initial support for parsing typed values (now only booleans and integers) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	552	s nextPut: self next.
65d3b4bfe871 Initial support for parsing typed values (now only booleans and integers) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	553	]
3 29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	554	].
29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	555
29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	556	"Created: / 30-05-2014 / 10:32:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"
27 e7e01078d9c4 Temporary commit - more on process simulator Jan Vrany <jan.vrany@fit.cvut.cz> parents: 25 diff changeset	557	"Modified: / 24-06-2014 / 23:30:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"
3 29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	558	!
29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	559
29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	560	parseVariable
29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	561	"
29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	562	variable → string
29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	563	"
29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	564	^ self parseString
29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	565
29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	566	"Created: / 30-05-2014 / 10:31:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	567	! !
29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	568
45 deb908479a37 Code refactored to use Magritte to meta-describe GDB objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 40 diff changeset	569	!GDBMIParser methodsFor:'parsing-stream output'!
3 29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	570
29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	571	parseStreamRecord
29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	572	"
29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	573	stream-record → console-stream-output \| target-stream-output \| log-stream-output
29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	574	"
29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	575
4 62366cc0fd95 Added some events + fixed parser to parse a simple session. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	576	self peek == $~ ifTrue:[
6 d935bc59f6f4 Removed useless MI prefix Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	577	self next.
d935bc59f6f4 Removed useless MI prefix Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	578	^ self parseStreamRecord: GDBConsoleOutputEvent.
3 29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	579	].
5 5cdb702e1bec stc fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	580	self peek == $@ ifTrue:[
6 d935bc59f6f4 Removed useless MI prefix Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	581	self next.
d935bc59f6f4 Removed useless MI prefix Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	582	^ self parseStreamRecord: GDBTargetOutputEvent.
3 29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	583	].
5 5cdb702e1bec stc fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	584	self peek == $& ifTrue:[
6 d935bc59f6f4 Removed useless MI prefix Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	585	self next.
d935bc59f6f4 Removed useless MI prefix Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	586	^ self parseStreamRecord: GDBLogOutputEvent.
3 29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	587	].
29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	588	self error:'Invalid stream record'
29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	589
29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	590	"Created: / 30-05-2014 / 09:57:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
6 d935bc59f6f4 Removed useless MI prefix Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	591	"Modified: / 02-06-2014 / 22:21:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
3 29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	592	!
29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	593
4 62366cc0fd95 Added some events + fixed parser to parse a simple session. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	594	parseStreamRecord: eventClass
62366cc0fd95 Added some events + fixed parser to parse a simple session. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	595	\| value \|
3 29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	596
4 62366cc0fd95 Added some events + fixed parser to parse a simple session. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	597	value := self parseCString.
62366cc0fd95 Added some events + fixed parser to parse a simple session. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	598	self parseNl.
62366cc0fd95 Added some events + fixed parser to parse a simple session. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	599	^ eventClass new value: value; yourself
62366cc0fd95 Added some events + fixed parser to parse a simple session. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	600
62366cc0fd95 Added some events + fixed parser to parse a simple session. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	601	"Created: / 01-06-2014 / 23:41:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
3 29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	602	! !
29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	603
45 deb908479a37 Code refactored to use Magritte to meta-describe GDB objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 40 diff changeset	604	!GDBMIParser methodsFor:'parsing-utils'!
2 a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	605
a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	606	expect: aStringOrChar
a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	607
a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	608	\| c \|
a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	609	aStringOrChar isCharacter ifTrue:[
5 5cdb702e1bec stc fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	610	(self atEnd or:[(c := self next) ~= aStringOrChar]) ifTrue:[
5cdb702e1bec stc fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	611	self error:('Expected ''%1'' got ''%2''.' bindWith: aStringOrChar with: c).
5cdb702e1bec stc fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	612	].
5cdb702e1bec stc fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	613	^self.
2 a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	614	].
a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	615	aStringOrChar isString ifTrue:[
5 5cdb702e1bec stc fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	616	aStringOrChar do:[:expected\|
5cdb702e1bec stc fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	617	(self atEnd or:[(c := self next) ~= expected]) ifTrue:[
5cdb702e1bec stc fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	618	self error:('Expected ''%1''.' bindWith: aStringOrChar).
5cdb702e1bec stc fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	619	].
5cdb702e1bec stc fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	620	].
5cdb702e1bec stc fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	621	^self.
2 a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	622	].
a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	623
a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	624	self error:'Invalid expected value'.
a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	625
a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	626	"Created: / 19-11-2012 / 20:08:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	627	"Modified: / 28-05-2014 / 00:17:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"
a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	628	!
a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	629
a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	630	expectLineEnd
a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	631	self expect: Character cr.
a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	632
a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	633	"Created: / 19-11-2012 / 20:06:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"
a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	634	!
a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	635
a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	636	expectSpace
a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	637	self expect: Character space.
a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	638
a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	639	"Created: / 19-11-2012 / 20:06:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	640	! !
a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	641
45 deb908479a37 Code refactored to use Magritte to meta-describe GDB objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 40 diff changeset	642	!GDBMIParser methodsFor:'parsing-values'!
3 29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	643
29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	644	parseConst
29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	645	"
29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	646	const → c-string
29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	647	"
29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	648
29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	649	^ self parseCString.
29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	650
29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	651	"Created: / 30-05-2014 / 10:36:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	652	!
29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	653
29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	654	parseList
29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	655	"
29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	656	list → '[]' \| '[' value ( ',' value )* ']' \| '[' result ( ',' result )* ']'
29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	657	"
29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	658
15 65d3b4bfe871 Initial support for parsing typed values (now only booleans and integers) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	659	\| list \|
65d3b4bfe871 Initial support for parsing typed values (now only booleans and integers) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	660
3 29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	661	self expect: $[.
15 65d3b4bfe871 Initial support for parsing typed values (now only booleans and integers) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	662	list := self parseListBody.
65d3b4bfe871 Initial support for parsing typed values (now only booleans and integers) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	663	self expect: $].
65d3b4bfe871 Initial support for parsing typed values (now only booleans and integers) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	664	^ list
3 29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	665
29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	666	"Created: / 30-05-2014 / 10:36:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"
15 65d3b4bfe871 Initial support for parsing typed values (now only booleans and integers) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	667	"Modified: / 17-06-2014 / 22:14:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
65d3b4bfe871 Initial support for parsing typed values (now only booleans and integers) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	668	!
65d3b4bfe871 Initial support for parsing typed values (now only booleans and integers) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	669
65d3b4bfe871 Initial support for parsing typed values (now only booleans and integers) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	670	parseListBody
84 7913863edaa6 Improved MI parser to handle degenrated tuples (`{"c"}`) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 79 diff changeset	671	^self parseListBody: $]
7913863edaa6 Improved MI parser to handle degenrated tuples (`{"c"}`) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 79 diff changeset	672
7913863edaa6 Improved MI parser to handle degenrated tuples (`{"c"}`) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 79 diff changeset	673	"Created: / 17-06-2014 / 22:14:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"
7913863edaa6 Improved MI parser to handle degenrated tuples (`{"c"}`) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 79 diff changeset	674	"Modified: / 06-07-2017 / 08:25:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
7913863edaa6 Improved MI parser to handle degenrated tuples (`{"c"}`) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 79 diff changeset	675	!
7913863edaa6 Improved MI parser to handle degenrated tuples (`{"c"}`) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 79 diff changeset	676
7913863edaa6 Improved MI parser to handle degenrated tuples (`{"c"}`) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 79 diff changeset	677	parseListBody: terminator
15 65d3b4bfe871 Initial support for parsing typed values (now only booleans and integers) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	678	\| value object \|
65d3b4bfe871 Initial support for parsing typed values (now only booleans and integers) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	679
65d3b4bfe871 Initial support for parsing typed values (now only booleans and integers) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	680	object := OrderedCollection new.
84 7913863edaa6 Improved MI parser to handle degenrated tuples (`{"c"}`) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 79 diff changeset	681	self peek ~~ terminator ifTrue:[
17 10d696c79188 Value descroptors refactored. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	682	[
10d696c79188 Value descroptors refactored. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	683	('"{[' includes: self peek) ifFalse:[
10d696c79188 Value descroptors refactored. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	684	self parseVariable.
10d696c79188 Value descroptors refactored. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	685	self expect: $=.
10d696c79188 Value descroptors refactored. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	686	].
15 65d3b4bfe871 Initial support for parsing typed values (now only booleans and integers) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	687	value := self parseValue.
65d3b4bfe871 Initial support for parsing typed values (now only booleans and integers) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	688	object add: value.
17 10d696c79188 Value descroptors refactored. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	689	] doWhile:[
10d696c79188 Value descroptors refactored. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	690	(self peek == $,) ifTrue:[ self next. true ] ifFalse:[ false ]
15 65d3b4bfe871 Initial support for parsing typed values (now only booleans and integers) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	691	].
65d3b4bfe871 Initial support for parsing typed values (now only booleans and integers) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	692	].
65d3b4bfe871 Initial support for parsing typed values (now only booleans and integers) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	693	^ object asArray
65d3b4bfe871 Initial support for parsing typed values (now only booleans and integers) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	694
84 7913863edaa6 Improved MI parser to handle degenrated tuples (`{"c"}`) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 79 diff changeset	695	"Created: / 06-07-2017 / 08:24:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"
3 29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	696	!
29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	697
29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	698	parseTuple
29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	699	\| object \|
29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	700
29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	701	self expect: ${.
15 65d3b4bfe871 Initial support for parsing typed values (now only booleans and integers) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	702	object := self parseTupleBody.
65d3b4bfe871 Initial support for parsing typed values (now only booleans and integers) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	703	self expect: $}.
3 29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	704	^ object
29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	705
29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	706	"Created: / 30-05-2014 / 10:36:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"
15 65d3b4bfe871 Initial support for parsing typed values (now only booleans and integers) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	707	"Modified (comment): / 14-06-2014 / 02:28:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"
65d3b4bfe871 Initial support for parsing typed values (now only booleans and integers) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	708	!
65d3b4bfe871 Initial support for parsing typed values (now only booleans and integers) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	709
65d3b4bfe871 Initial support for parsing typed values (now only booleans and integers) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	710	parseTupleBody
65d3b4bfe871 Initial support for parsing typed values (now only booleans and integers) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	711	\| name value dict \|
65d3b4bfe871 Initial support for parsing typed values (now only booleans and integers) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	712
84 7913863edaa6 Improved MI parser to handle degenrated tuples (`{"c"}`) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 79 diff changeset	713	"/ Sometimes what looks like a tupple is actually
7913863edaa6 Improved MI parser to handle degenrated tuples (`{"c"}`) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 79 diff changeset	714	"/ braced array, such as in : ...,script={"line1","line2"},...
7913863edaa6 Improved MI parser to handle degenrated tuples (`{"c"}`) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 79 diff changeset	715	self peek = $" ifTrue:[
7913863edaa6 Improved MI parser to handle degenrated tuples (`{"c"}`) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 79 diff changeset	716	^ self parseListBody:$}.
7913863edaa6 Improved MI parser to handle degenrated tuples (`{"c"}`) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 79 diff changeset	717	].
7913863edaa6 Improved MI parser to handle degenrated tuples (`{"c"}`) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 79 diff changeset	718	"/ OK, a real tuple:
15 65d3b4bfe871 Initial support for parsing typed values (now only booleans and integers) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	719	dict := Dictionary new.
65d3b4bfe871 Initial support for parsing typed values (now only booleans and integers) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	720	self peek ~~ $} ifTrue:[
65d3b4bfe871 Initial support for parsing typed values (now only booleans and integers) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	721	name := self parseVariable.
65d3b4bfe871 Initial support for parsing typed values (now only booleans and integers) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	722	self expect: $=.
65d3b4bfe871 Initial support for parsing typed values (now only booleans and integers) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	723	value := self parseValue.
65d3b4bfe871 Initial support for parsing typed values (now only booleans and integers) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	724	dict at: name put: value.
65d3b4bfe871 Initial support for parsing typed values (now only booleans and integers) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	725	[ self peek == $, ] whileTrue:[
65d3b4bfe871 Initial support for parsing typed values (now only booleans and integers) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	726	self next.
65d3b4bfe871 Initial support for parsing typed values (now only booleans and integers) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	727	name := self parseVariable.
65d3b4bfe871 Initial support for parsing typed values (now only booleans and integers) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	728	self expect: $=.
65d3b4bfe871 Initial support for parsing typed values (now only booleans and integers) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	729	value := self parseValue.
65d3b4bfe871 Initial support for parsing typed values (now only booleans and integers) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	730	dict at: name put: value.
65d3b4bfe871 Initial support for parsing typed values (now only booleans and integers) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	731	].
65d3b4bfe871 Initial support for parsing typed values (now only booleans and integers) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	732	].
65d3b4bfe871 Initial support for parsing typed values (now only booleans and integers) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	733	^ dict
65d3b4bfe871 Initial support for parsing typed values (now only booleans and integers) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	734
65d3b4bfe871 Initial support for parsing typed values (now only booleans and integers) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	735	"Created: / 14-06-2014 / 02:19:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
84 7913863edaa6 Improved MI parser to handle degenrated tuples (`{"c"}`) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 79 diff changeset	736	"Modified: / 06-07-2017 / 08:25:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
3 29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	737	!
29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	738
29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	739	parseValue
29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	740	"
29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	741	value → const \| tuple \| list
29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	742	"
29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	743
5 5cdb702e1bec stc fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	744	self peek == $" ifTrue:[
5cdb702e1bec stc fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	745	^ self parseConst
3 29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	746	].
5 5cdb702e1bec stc fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	747	self peek == ${ ifTrue:[
5cdb702e1bec stc fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	748	^ self parseTuple.
3 29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	749	].
29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	750	self peek == $[ ifTrue:[
5 5cdb702e1bec stc fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	751	^ self parseList
3 29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	752	].
29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	753	self error:'Invalid value'
29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	754
29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	755	"Created: / 30-05-2014 / 10:31:12 / Jan Vrany <jan.vrany@fit.cvut.cz>"
29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	756	! !
29ea333a1811 More work on events and parsing. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	757
45 deb908479a37 Code refactored to use Magritte to meta-describe GDB objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 40 diff changeset	758	!GDBMIParser methodsFor:'parsing-values-typed'!
15 65d3b4bfe871 Initial support for parsing typed values (now only booleans and integers) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	759
73 f5fe22f56f10 MI parsing: added support for command result values as GDB objects Jan Vrany <jan.vrany@fit.cvut.cz> parents: 57 diff changeset	760	parsePropertiesFor: object describedBy: descriptor
f5fe22f56f10 MI parsing: added support for command result values as GDB objects Jan Vrany <jan.vrany@fit.cvut.cz> parents: 57 diff changeset	761	\| propertyName propertyValue propertyDescriptor \|
f5fe22f56f10 MI parsing: added support for command result values as GDB objects Jan Vrany <jan.vrany@fit.cvut.cz> parents: 57 diff changeset	762
f5fe22f56f10 MI parsing: added support for command result values as GDB objects Jan Vrany <jan.vrany@fit.cvut.cz> parents: 57 diff changeset	763	[
f5fe22f56f10 MI parsing: added support for command result values as GDB objects Jan Vrany <jan.vrany@fit.cvut.cz> parents: 57 diff changeset	764	propertyName := self parseVariable.
f5fe22f56f10 MI parsing: added support for command result values as GDB objects Jan Vrany <jan.vrany@fit.cvut.cz> parents: 57 diff changeset	765	propertyDescriptor := descriptor propertyDescriptorAt: propertyName.
f5fe22f56f10 MI parsing: added support for command result values as GDB objects Jan Vrany <jan.vrany@fit.cvut.cz> parents: 57 diff changeset	766	self expect: $=.
f5fe22f56f10 MI parsing: added support for command result values as GDB objects Jan Vrany <jan.vrany@fit.cvut.cz> parents: 57 diff changeset	767	propertyDescriptor isNil ifTrue:[
f5fe22f56f10 MI parsing: added support for command result values as GDB objects Jan Vrany <jan.vrany@fit.cvut.cz> parents: 57 diff changeset	768	propertyValue := self parseValue.
f5fe22f56f10 MI parsing: added support for command result values as GDB objects Jan Vrany <jan.vrany@fit.cvut.cz> parents: 57 diff changeset	769	] ifFalse:[
f5fe22f56f10 MI parsing: added support for command result values as GDB objects Jan Vrany <jan.vrany@fit.cvut.cz> parents: 57 diff changeset	770	propertyValue := propertyDescriptor parseUsingGDBMIParser:self.
f5fe22f56f10 MI parsing: added support for command result values as GDB objects Jan Vrany <jan.vrany@fit.cvut.cz> parents: 57 diff changeset	771	].
f5fe22f56f10 MI parsing: added support for command result values as GDB objects Jan Vrany <jan.vrany@fit.cvut.cz> parents: 57 diff changeset	772	object propertyAt: propertyName put: propertyValue
f5fe22f56f10 MI parsing: added support for command result values as GDB objects Jan Vrany <jan.vrany@fit.cvut.cz> parents: 57 diff changeset	773	] doWhile: [
f5fe22f56f10 MI parsing: added support for command result values as GDB objects Jan Vrany <jan.vrany@fit.cvut.cz> parents: 57 diff changeset	774	(self peek == $,) ifTrue:[ self next. true ] ifFalse:[ false ]
f5fe22f56f10 MI parsing: added support for command result values as GDB objects Jan Vrany <jan.vrany@fit.cvut.cz> parents: 57 diff changeset	775	].
f5fe22f56f10 MI parsing: added support for command result values as GDB objects Jan Vrany <jan.vrany@fit.cvut.cz> parents: 57 diff changeset	776	^ object
f5fe22f56f10 MI parsing: added support for command result values as GDB objects Jan Vrany <jan.vrany@fit.cvut.cz> parents: 57 diff changeset	777
f5fe22f56f10 MI parsing: added support for command result values as GDB objects Jan Vrany <jan.vrany@fit.cvut.cz> parents: 57 diff changeset	778	"Created: / 19-03-2015 / 07:52:28 / Jan Vrany <jan.vrany@fit.cvut.cz>"
f5fe22f56f10 MI parsing: added support for command result values as GDB objects Jan Vrany <jan.vrany@fit.cvut.cz> parents: 57 diff changeset	779	!
f5fe22f56f10 MI parsing: added support for command result values as GDB objects Jan Vrany <jan.vrany@fit.cvut.cz> parents: 57 diff changeset	780
15 65d3b4bfe871 Initial support for parsing typed values (now only booleans and integers) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	781	parseValueAsBoolean
65d3b4bfe871 Initial support for parsing typed values (now only booleans and integers) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	782	"
65d3b4bfe871 Initial support for parsing typed values (now only booleans and integers) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	783	bool → 'y' \| 'n' \| value
65d3b4bfe871 Initial support for parsing typed values (now only booleans and integers) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	784	"
65d3b4bfe871 Initial support for parsing typed values (now only booleans and integers) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	785
65d3b4bfe871 Initial support for parsing typed values (now only booleans and integers) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	786	self peek == $" ifTrue:[
65d3b4bfe871 Initial support for parsing typed values (now only booleans and integers) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	787	\| c \|
65d3b4bfe871 Initial support for parsing typed values (now only booleans and integers) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	788
65d3b4bfe871 Initial support for parsing typed values (now only booleans and integers) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	789	self expect: $".
65d3b4bfe871 Initial support for parsing typed values (now only booleans and integers) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	790	c := self next.
65d3b4bfe871 Initial support for parsing typed values (now only booleans and integers) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	791	(c ~~ $y and:[ c ~~ $n ]) ifTrue:[
65d3b4bfe871 Initial support for parsing typed values (now only booleans and integers) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	792	^ self parseCStringRest: c asString.
65d3b4bfe871 Initial support for parsing typed values (now only booleans and integers) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	793	].
65d3b4bfe871 Initial support for parsing typed values (now only booleans and integers) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	794	self peek ~~ $" ifTrue:[
65d3b4bfe871 Initial support for parsing typed values (now only booleans and integers) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	795	^ self parseCStringRest: c asString.
65d3b4bfe871 Initial support for parsing typed values (now only booleans and integers) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	796	].
17 10d696c79188 Value descroptors refactored. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	797	self next.
15 65d3b4bfe871 Initial support for parsing typed values (now only booleans and integers) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	798	^ c == $y
65d3b4bfe871 Initial support for parsing typed values (now only booleans and integers) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	799	].
65d3b4bfe871 Initial support for parsing typed values (now only booleans and integers) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	800	^ self parseValue
65d3b4bfe871 Initial support for parsing typed values (now only booleans and integers) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	801
65d3b4bfe871 Initial support for parsing typed values (now only booleans and integers) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	802	"Created: / 18-06-2014 / 07:33:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
17 10d696c79188 Value descroptors refactored. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	803	"Modified: / 18-06-2014 / 20:55:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10d696c79188 Value descroptors refactored. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	804	!
10d696c79188 Value descroptors refactored. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	805
45 deb908479a37 Code refactored to use Magritte to meta-describe GDB objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 40 diff changeset	806	parseValueAsInstanceOf: class
deb908479a37 Code refactored to use Magritte to meta-describe GDB objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 40 diff changeset	807	\| description \|
deb908479a37 Code refactored to use Magritte to meta-describe GDB objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 40 diff changeset	808
deb908479a37 Code refactored to use Magritte to meta-describe GDB objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 40 diff changeset	809	class == Boolean ifTrue:[
deb908479a37 Code refactored to use Magritte to meta-describe GDB objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 40 diff changeset	810	description := Magritte::MABooleanDescription new.
deb908479a37 Code refactored to use Magritte to meta-describe GDB objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 40 diff changeset	811	] ifFalse:[
deb908479a37 Code refactored to use Magritte to meta-describe GDB objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 40 diff changeset	812	class == Integer ifTrue:[
deb908479a37 Code refactored to use Magritte to meta-describe GDB objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 40 diff changeset	813	description := Magritte::MANumberDescription new
deb908479a37 Code refactored to use Magritte to meta-describe GDB objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 40 diff changeset	814	] ifFalse:[
deb908479a37 Code refactored to use Magritte to meta-describe GDB objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 40 diff changeset	815	class == String ifTrue:[
deb908479a37 Code refactored to use Magritte to meta-describe GDB objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 40 diff changeset	816	description := Magritte::MAStringDescription new
deb908479a37 Code refactored to use Magritte to meta-describe GDB objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 40 diff changeset	817	] ifFalse:[
deb908479a37 Code refactored to use Magritte to meta-describe GDB objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 40 diff changeset	818	description := class description.
deb908479a37 Code refactored to use Magritte to meta-describe GDB objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 40 diff changeset	819	]]].
deb908479a37 Code refactored to use Magritte to meta-describe GDB objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 40 diff changeset	820
deb908479a37 Code refactored to use Magritte to meta-describe GDB objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 40 diff changeset	821	^ self parseValueAsListOf: class describedBy: description.
17 10d696c79188 Value descroptors refactored. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	822
10d696c79188 Value descroptors refactored. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	823	"Created: / 18-06-2014 / 20:28:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
45 deb908479a37 Code refactored to use Magritte to meta-describe GDB objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 40 diff changeset	824	"Modified: / 23-09-2014 / 23:16:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"
17 10d696c79188 Value descroptors refactored. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	825	!
10d696c79188 Value descroptors refactored. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	826
10d696c79188 Value descroptors refactored. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	827	parseValueAsInstanceOf: class describedBy: descriptor
73 f5fe22f56f10 MI parsing: added support for command result values as GDB objects Jan Vrany <jan.vrany@fit.cvut.cz> parents: 57 diff changeset	828	\| object \|
17 10d696c79188 Value descroptors refactored. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	829
10d696c79188 Value descroptors refactored. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	830	self peek ~~ ${ ifTrue:[ ^ self parseValue ].
73 f5fe22f56f10 MI parsing: added support for command result values as GDB objects Jan Vrany <jan.vrany@fit.cvut.cz> parents: 57 diff changeset	831	self next. "/ eat {
17 10d696c79188 Value descroptors refactored. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	832	object := class new.
10d696c79188 Value descroptors refactored. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	833	self peek ~~ $} ifTrue:[
73 f5fe22f56f10 MI parsing: added support for command result values as GDB objects Jan Vrany <jan.vrany@fit.cvut.cz> parents: 57 diff changeset	834	self parsePropertiesFor: object describedBy: descriptor
17 10d696c79188 Value descroptors refactored. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	835	].
10d696c79188 Value descroptors refactored. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	836	self expect: $}.
10d696c79188 Value descroptors refactored. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	837	^ object
10d696c79188 Value descroptors refactored. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	838
10d696c79188 Value descroptors refactored. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	839	"Created: / 18-06-2014 / 20:28:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
73 f5fe22f56f10 MI parsing: added support for command result values as GDB objects Jan Vrany <jan.vrany@fit.cvut.cz> parents: 57 diff changeset	840	"Modified: / 19-03-2015 / 07:59:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"
15 65d3b4bfe871 Initial support for parsing typed values (now only booleans and integers) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	841	!
65d3b4bfe871 Initial support for parsing typed values (now only booleans and integers) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	842
65d3b4bfe871 Initial support for parsing typed values (now only booleans and integers) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	843	parseValueAsInteger
65d3b4bfe871 Initial support for parsing typed values (now only booleans and integers) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	844	"
65d3b4bfe871 Initial support for parsing typed values (now only booleans and integers) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	845	bool → ''' [0-9]+ ''' \| value
65d3b4bfe871 Initial support for parsing typed values (now only booleans and integers) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	846	"
65d3b4bfe871 Initial support for parsing typed values (now only booleans and integers) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	847
65d3b4bfe871 Initial support for parsing typed values (now only booleans and integers) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	848	self peek == $" ifTrue:[
65d3b4bfe871 Initial support for parsing typed values (now only booleans and integers) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	849	\| c v \|
65d3b4bfe871 Initial support for parsing typed values (now only booleans and integers) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	850
65d3b4bfe871 Initial support for parsing typed values (now only booleans and integers) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	851	self expect: $".
65d3b4bfe871 Initial support for parsing typed values (now only booleans and integers) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	852	c := self next.
65d3b4bfe871 Initial support for parsing typed values (now only booleans and integers) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	853	v := 0.
65d3b4bfe871 Initial support for parsing typed values (now only booleans and integers) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	854	c isDigit ifTrue:[
65d3b4bfe871 Initial support for parsing typed values (now only booleans and integers) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	855	[ c isDigit ] whileTrue:[
65d3b4bfe871 Initial support for parsing typed values (now only booleans and integers) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	856	v := (v * 10) + (c codePoint - $0 codePoint).
65d3b4bfe871 Initial support for parsing typed values (now only booleans and integers) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	857	c := self next.
65d3b4bfe871 Initial support for parsing typed values (now only booleans and integers) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	858	].
65d3b4bfe871 Initial support for parsing typed values (now only booleans and integers) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	859	c == $" ifTrue:[
65d3b4bfe871 Initial support for parsing typed values (now only booleans and integers) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	860	^ v
65d3b4bfe871 Initial support for parsing typed values (now only booleans and integers) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	861	] ifFalse:[
65d3b4bfe871 Initial support for parsing typed values (now only booleans and integers) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	862	^ self parseCStringRest:v printString , c
65d3b4bfe871 Initial support for parsing typed values (now only booleans and integers) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	863	].
65d3b4bfe871 Initial support for parsing typed values (now only booleans and integers) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	864	].
65d3b4bfe871 Initial support for parsing typed values (now only booleans and integers) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	865	^ self parseCStringRest: c asString
65d3b4bfe871 Initial support for parsing typed values (now only booleans and integers) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	866	].
65d3b4bfe871 Initial support for parsing typed values (now only booleans and integers) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	867	^ self parseValue
65d3b4bfe871 Initial support for parsing typed values (now only booleans and integers) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	868
65d3b4bfe871 Initial support for parsing typed values (now only booleans and integers) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	869	"Created: / 18-06-2014 / 07:39:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"
17 10d696c79188 Value descroptors refactored. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	870	!
10d696c79188 Value descroptors refactored. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	871
45 deb908479a37 Code refactored to use Magritte to meta-describe GDB objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 40 diff changeset	872	parseValueAsListOf: class
deb908479a37 Code refactored to use Magritte to meta-describe GDB objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 40 diff changeset	873	\| description \|
deb908479a37 Code refactored to use Magritte to meta-describe GDB objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 40 diff changeset	874
deb908479a37 Code refactored to use Magritte to meta-describe GDB objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 40 diff changeset	875	class == Boolean ifTrue:[
deb908479a37 Code refactored to use Magritte to meta-describe GDB objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 40 diff changeset	876	description := Magritte::MABooleanDescription new.
deb908479a37 Code refactored to use Magritte to meta-describe GDB objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 40 diff changeset	877	] ifFalse:[
deb908479a37 Code refactored to use Magritte to meta-describe GDB objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 40 diff changeset	878	class == Integer ifTrue:[
deb908479a37 Code refactored to use Magritte to meta-describe GDB objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 40 diff changeset	879	description := Magritte::MANumberDescription new
deb908479a37 Code refactored to use Magritte to meta-describe GDB objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 40 diff changeset	880	] ifFalse:[
deb908479a37 Code refactored to use Magritte to meta-describe GDB objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 40 diff changeset	881	class == String ifTrue:[
deb908479a37 Code refactored to use Magritte to meta-describe GDB objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 40 diff changeset	882	description := Magritte::MAStringDescription new
deb908479a37 Code refactored to use Magritte to meta-describe GDB objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 40 diff changeset	883	] ifFalse:[
deb908479a37 Code refactored to use Magritte to meta-describe GDB objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 40 diff changeset	884	description := class description.
deb908479a37 Code refactored to use Magritte to meta-describe GDB objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 40 diff changeset	885	]]].
deb908479a37 Code refactored to use Magritte to meta-describe GDB objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 40 diff changeset	886
deb908479a37 Code refactored to use Magritte to meta-describe GDB objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 40 diff changeset	887	^ self parseValueAsListOf: class describedBy: description.
17 10d696c79188 Value descroptors refactored. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	888
10d696c79188 Value descroptors refactored. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	889	"Created: / 18-06-2014 / 21:00:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"
45 deb908479a37 Code refactored to use Magritte to meta-describe GDB objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 40 diff changeset	890	"Modified: / 23-09-2014 / 23:17:03 / Jan Vrany <jan.vrany@fit.cvut.cz>"
17 10d696c79188 Value descroptors refactored. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	891	!
10d696c79188 Value descroptors refactored. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	892
10d696c79188 Value descroptors refactored. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	893	parseValueAsListOf:class describedBy:descriptor
10d696c79188 Value descroptors refactored. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	894	\| list \|
10d696c79188 Value descroptors refactored. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	895
10d696c79188 Value descroptors refactored. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	896	self peek ~~ $[ ifTrue:[ ^ self parseValue ].
10d696c79188 Value descroptors refactored. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	897	self next. "/ eat ${
10d696c79188 Value descroptors refactored. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	898	self peek ~~ $] ifTrue:[
10d696c79188 Value descroptors refactored. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	899	list := OrderedCollection new.
10d696c79188 Value descroptors refactored. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	900	[
40 0ce76b671515 Some more support for stack frames. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 33 diff changeset	901	self peek isAlphaNumeric ifTrue:[
0ce76b671515 Some more support for stack frames. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 33 diff changeset	902	self parseVariable.
0ce76b671515 Some more support for stack frames. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 33 diff changeset	903	self expect: $=.
0ce76b671515 Some more support for stack frames. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 33 diff changeset	904	].
45 deb908479a37 Code refactored to use Magritte to meta-describe GDB objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 40 diff changeset	905	list add: (descriptor parseUsingGDBMIParser:self)
17 10d696c79188 Value descroptors refactored. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	906	] doWhile: [
10d696c79188 Value descroptors refactored. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	907	(self peek == $,) ifTrue:[ self next. true ] ifFalse:[ false ]
10d696c79188 Value descroptors refactored. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	908	].
10d696c79188 Value descroptors refactored. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	909	].
10d696c79188 Value descroptors refactored. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	910	self expect: $].
10d696c79188 Value descroptors refactored. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	911	^ list
10d696c79188 Value descroptors refactored. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	912
10d696c79188 Value descroptors refactored. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	913	"Created: / 18-06-2014 / 21:00:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"
40 0ce76b671515 Some more support for stack frames. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 33 diff changeset	914	"Modified: / 17-09-2014 / 08:03:15 / Jan Vrany <jan.vrany@fit.cvut.cz>"
45 deb908479a37 Code refactored to use Magritte to meta-describe GDB objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 40 diff changeset	915	!
deb908479a37 Code refactored to use Magritte to meta-describe GDB objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 40 diff changeset	916
deb908479a37 Code refactored to use Magritte to meta-describe GDB objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 40 diff changeset	917	parseValueAsString
deb908479a37 Code refactored to use Magritte to meta-describe GDB objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 40 diff changeset	918	^ self parseCString
deb908479a37 Code refactored to use Magritte to meta-describe GDB objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 40 diff changeset	919
deb908479a37 Code refactored to use Magritte to meta-describe GDB objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 40 diff changeset	920	"Created: / 23-09-2014 / 22:22:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
15 65d3b4bfe871 Initial support for parsing typed values (now only booleans and integers) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	921	! !
65d3b4bfe871 Initial support for parsing typed values (now only booleans and integers) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	922
45 deb908479a37 Code refactored to use Magritte to meta-describe GDB objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 40 diff changeset	923	!GDBMIParser methodsFor:'streaming'!
2 a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	924
a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	925	atEnd
15 65d3b4bfe871 Initial support for parsing typed values (now only booleans and integers) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	926	^ lookahead isNil and:[ source atEnd ].
2 a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	927
a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	928	"Created: / 28-05-2014 / 00:17:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"
15 65d3b4bfe871 Initial support for parsing typed values (now only booleans and integers) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	929	"Modified: / 14-06-2014 / 02:27:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2 a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	930	!
a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	931
a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	932	next
a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	933	\| next \|
5 5cdb702e1bec stc fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	934	lookahead notNil ifTrue:[
24 98ff50f8a25d Temporary commit : initial work on session recorder (to use for simulation later) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 20 diff changeset	935	next := lookahead.
98ff50f8a25d Temporary commit : initial work on session recorder (to use for simulation later) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 20 diff changeset	936	lookahead := nil.
98ff50f8a25d Temporary commit : initial work on session recorder (to use for simulation later) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 20 diff changeset	937	^ next.
2 a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	938	].
24 98ff50f8a25d Temporary commit : initial work on session recorder (to use for simulation later) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 20 diff changeset	939	next := source next.
98ff50f8a25d Temporary commit : initial work on session recorder (to use for simulation later) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 20 diff changeset	940	recorder notNil ifTrue:[
98ff50f8a25d Temporary commit : initial work on session recorder (to use for simulation later) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 20 diff changeset	941	recorder recordResponseChar: next.
98ff50f8a25d Temporary commit : initial work on session recorder (to use for simulation later) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 20 diff changeset	942	].
98ff50f8a25d Temporary commit : initial work on session recorder (to use for simulation later) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 20 diff changeset	943	^ next
2 a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	944
a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	945	"Created: / 23-10-2012 / 10:57:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
24 98ff50f8a25d Temporary commit : initial work on session recorder (to use for simulation later) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 20 diff changeset	946	"Modified: / 22-06-2014 / 21:56:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2 a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	947	!
a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	948
a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	949	nextLine
24 98ff50f8a25d Temporary commit : initial work on session recorder (to use for simulation later) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 20 diff changeset	950	\| line \|
27 e7e01078d9c4 Temporary commit - more on process simulator Jan Vrany <jan.vrany@fit.cvut.cz> parents: 25 diff changeset	951
e7e01078d9c4 Temporary commit - more on process simulator Jan Vrany <jan.vrany@fit.cvut.cz> parents: 25 diff changeset	952	line := lookahead notNil
55 437ee6413c74 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: 52 diff changeset	953	ifTrue:[ lookahead asString , (source nextLine ? '') ]
437ee6413c74 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: 52 diff changeset	954	ifFalse:[ source nextLine ? ''].
2 a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	955	lookahead := nil.
24 98ff50f8a25d Temporary commit : initial work on session recorder (to use for simulation later) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 20 diff changeset	956	recorder notNil ifTrue:[
98ff50f8a25d Temporary commit : initial work on session recorder (to use for simulation later) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 20 diff changeset	957	recorder recordResponse: line.
98ff50f8a25d Temporary commit : initial work on session recorder (to use for simulation later) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 20 diff changeset	958	].
98ff50f8a25d Temporary commit : initial work on session recorder (to use for simulation later) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 20 diff changeset	959	^ line
2 a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	960
a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	961	"Created: / 23-10-2012 / 11:05:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"
55 437ee6413c74 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: 52 diff changeset	962	"Modified: / 27-02-2015 / 15:05:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2 a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	963	!
a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	964
a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	965	peek
5 5cdb702e1bec stc fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	966	lookahead notNil ifTrue:[
24 98ff50f8a25d Temporary commit : initial work on session recorder (to use for simulation later) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 20 diff changeset	967	^ lookahead
2 a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	968	].
24 98ff50f8a25d Temporary commit : initial work on session recorder (to use for simulation later) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 20 diff changeset	969	lookahead := source next.
98ff50f8a25d Temporary commit : initial work on session recorder (to use for simulation later) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 20 diff changeset	970	recorder notNil ifTrue:[
98ff50f8a25d Temporary commit : initial work on session recorder (to use for simulation later) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 20 diff changeset	971	lookahead notNil ifTrue:[
98ff50f8a25d Temporary commit : initial work on session recorder (to use for simulation later) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 20 diff changeset	972	recorder recordResponseChar: lookahead.
98ff50f8a25d Temporary commit : initial work on session recorder (to use for simulation later) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 20 diff changeset	973	].
98ff50f8a25d Temporary commit : initial work on session recorder (to use for simulation later) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 20 diff changeset	974	].
98ff50f8a25d Temporary commit : initial work on session recorder (to use for simulation later) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 20 diff changeset	975	^ lookahead
2 a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	976
a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	977	"Created: / 28-05-2014 / 00:18:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
24 98ff50f8a25d Temporary commit : initial work on session recorder (to use for simulation later) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 20 diff changeset	978	"Modified: / 23-06-2014 / 09:34:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2 a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	979	!
a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	980
a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	981	peekOrNil
a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	982	lookahead notNil ifTrue:[ ^ lookahead ].
a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	983	source atEnd ifTrue:[ ^ nil ].
a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	984	^ self peek
a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	985
a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	986	"Created: / 28-05-2014 / 00:15:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	987	!
a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	988
a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	989	skipSeparators
27 e7e01078d9c4 Temporary commit - more on process simulator Jan Vrany <jan.vrany@fit.cvut.cz> parents: 25 diff changeset	990	[ self peek notNil and:[ self peek isSeparator ] ] whileTrue:[ self next ]
2 a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	991
a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	992	"Created: / 19-11-2012 / 20:05:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
27 e7e01078d9c4 Temporary commit - more on process simulator Jan Vrany <jan.vrany@fit.cvut.cz> parents: 25 diff changeset	993	"Modified: / 24-06-2014 / 23:31:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2 a96eb336dbd3 More work reading.writing GDB events/commands Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	994	! !
6 d935bc59f6f4 Removed useless MI prefix Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	995
52 0618438f6ba5 Report async execution event immediately. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 45 diff changeset	996	!GDBMIParser class methodsFor:'documentation'!
0618438f6ba5 Report async execution event immediately. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 45 diff changeset	997
0618438f6ba5 Report async execution event immediately. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 45 diff changeset	998	version_HG
0618438f6ba5 Report async execution event immediately. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 45 diff changeset	999
0618438f6ba5 Report async execution event immediately. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 45 diff changeset	1000	^ '$Changeset: <not expanded> $'
0618438f6ba5 Report async execution event immediately. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 45 diff changeset	1001	! !
0618438f6ba5 Report async execution event immediately. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 45 diff changeset	1002

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Fri, 07 Jul 2017 11:28:44 +0200
changeset 87	50e80d25ea6f
parent 85	6fea1000a2a5
child 89	ba62d486014f
permissions	-rw-r--r--