author | Jan Vrany <jan.vrany@fit.cvut.cz> |
Sun, 23 Jun 2019 12:29:15 +0100 | |
changeset 196 | 80ab1ba7990a |
parent 159 | 5a364902a0fa |
child 235 | 51f916ee4111 |
permissions | -rw-r--r-- |
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 |
|
91
472a4841a8b6
License this package under 'GNU Lesser General Public License'
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
89
diff
changeset
|
3 |
" |
472a4841a8b6
License this package under 'GNU Lesser General Public License'
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
89
diff
changeset
|
4 |
jv:libgdbs - GNU Debugger Interface Library |
472a4841a8b6
License this package under 'GNU Lesser General Public License'
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
89
diff
changeset
|
5 |
Copyright (C) 2015-now Jan Vrany |
472a4841a8b6
License this package under 'GNU Lesser General Public License'
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
89
diff
changeset
|
6 |
|
472a4841a8b6
License this package under 'GNU Lesser General Public License'
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
89
diff
changeset
|
7 |
This library is free software; you can redistribute it and/or |
472a4841a8b6
License this package under 'GNU Lesser General Public License'
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
89
diff
changeset
|
8 |
modify it under the terms of the GNU Lesser General Public |
472a4841a8b6
License this package under 'GNU Lesser General Public License'
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
89
diff
changeset
|
9 |
License as published by the Free Software Foundation; either |
472a4841a8b6
License this package under 'GNU Lesser General Public License'
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
89
diff
changeset
|
10 |
version 2.1 of the License. |
472a4841a8b6
License this package under 'GNU Lesser General Public License'
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
89
diff
changeset
|
11 |
|
472a4841a8b6
License this package under 'GNU Lesser General Public License'
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
89
diff
changeset
|
12 |
This library is distributed in the hope that it will be useful, |
472a4841a8b6
License this package under 'GNU Lesser General Public License'
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
89
diff
changeset
|
13 |
but WITHOUT ANY WARRANTY; without even the implied warranty of |
472a4841a8b6
License this package under 'GNU Lesser General Public License'
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
89
diff
changeset
|
14 |
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU |
472a4841a8b6
License this package under 'GNU Lesser General Public License'
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
89
diff
changeset
|
15 |
Lesser General Public License for more details. |
472a4841a8b6
License this package under 'GNU Lesser General Public License'
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
89
diff
changeset
|
16 |
|
472a4841a8b6
License this package under 'GNU Lesser General Public License'
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
89
diff
changeset
|
17 |
You should have received a copy of the GNU Lesser General Public |
472a4841a8b6
License this package under 'GNU Lesser General Public License'
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
89
diff
changeset
|
18 |
License along with this library; if not, write to the Free Software |
472a4841a8b6
License this package under 'GNU Lesser General Public License'
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
89
diff
changeset
|
19 |
Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA |
472a4841a8b6
License this package under 'GNU Lesser General Public License'
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
89
diff
changeset
|
20 |
" |
2
a96eb336dbd3
More work reading.writing GDB events/commands
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
21 |
"{ Package: 'jv:libgdbs' }" |
a96eb336dbd3
More work reading.writing GDB events/commands
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
22 |
|
55
437ee6413c74
Initial support for variables
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
52
diff
changeset
|
23 |
"{ NameSpace: Smalltalk }" |
437ee6413c74
Initial support for variables
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
52
diff
changeset
|
24 |
|
45
deb908479a37
Code refactored to use Magritte to meta-describe GDB objects.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
40
diff
changeset
|
25 |
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
|
26 |
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
|
27 |
classVariableNames:'' |
6 | 28 |
poolDictionaries:'GDBCommandStatus' |
3
29ea333a1811
More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2
diff
changeset
|
29 |
category:'GDB-Private' |
2
a96eb336dbd3
More work reading.writing GDB events/commands
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
30 |
! |
a96eb336dbd3
More work reading.writing GDB events/commands
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
31 |
|
85
6fea1000a2a5
Implemented proper quoting of MI commands
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
84
diff
changeset
|
32 |
!GDBMIParser class methodsFor:'documentation'! |
6fea1000a2a5
Implemented proper quoting of MI commands
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
84
diff
changeset
|
33 |
|
91
472a4841a8b6
License this package under 'GNU Lesser General Public License'
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
89
diff
changeset
|
34 |
copyright |
472a4841a8b6
License this package under 'GNU Lesser General Public License'
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
89
diff
changeset
|
35 |
" |
472a4841a8b6
License this package under 'GNU Lesser General Public License'
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
89
diff
changeset
|
36 |
jv:libgdbs - GNU Debugger Interface Library |
472a4841a8b6
License this package under 'GNU Lesser General Public License'
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
89
diff
changeset
|
37 |
Copyright (C) 2015-now Jan Vrany |
472a4841a8b6
License this package under 'GNU Lesser General Public License'
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
89
diff
changeset
|
38 |
|
472a4841a8b6
License this package under 'GNU Lesser General Public License'
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
89
diff
changeset
|
39 |
This library is free software; you can redistribute it and/or |
472a4841a8b6
License this package under 'GNU Lesser General Public License'
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
89
diff
changeset
|
40 |
modify it under the terms of the GNU Lesser General Public |
472a4841a8b6
License this package under 'GNU Lesser General Public License'
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
89
diff
changeset
|
41 |
License as published by the Free Software Foundation; either |
472a4841a8b6
License this package under 'GNU Lesser General Public License'
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
89
diff
changeset
|
42 |
version 2.1 of the License. |
472a4841a8b6
License this package under 'GNU Lesser General Public License'
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
89
diff
changeset
|
43 |
|
472a4841a8b6
License this package under 'GNU Lesser General Public License'
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
89
diff
changeset
|
44 |
This library is distributed in the hope that it will be useful, |
472a4841a8b6
License this package under 'GNU Lesser General Public License'
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
89
diff
changeset
|
45 |
but WITHOUT ANY WARRANTY; without even the implied warranty of |
472a4841a8b6
License this package under 'GNU Lesser General Public License'
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
89
diff
changeset
|
46 |
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU |
472a4841a8b6
License this package under 'GNU Lesser General Public License'
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
89
diff
changeset
|
47 |
Lesser General Public License for more details. |
472a4841a8b6
License this package under 'GNU Lesser General Public License'
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
89
diff
changeset
|
48 |
|
472a4841a8b6
License this package under 'GNU Lesser General Public License'
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
89
diff
changeset
|
49 |
You should have received a copy of the GNU Lesser General Public |
472a4841a8b6
License this package under 'GNU Lesser General Public License'
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
89
diff
changeset
|
50 |
License along with this library; if not, write to the Free Software |
472a4841a8b6
License this package under 'GNU Lesser General Public License'
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
89
diff
changeset
|
51 |
Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA |
472a4841a8b6
License this package under 'GNU Lesser General Public License'
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
89
diff
changeset
|
52 |
" |
472a4841a8b6
License this package under 'GNU Lesser General Public License'
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
89
diff
changeset
|
53 |
! |
472a4841a8b6
License this package under 'GNU Lesser General Public License'
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
89
diff
changeset
|
54 |
|
85
6fea1000a2a5
Implemented proper quoting of MI commands
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
84
diff
changeset
|
55 |
documentation |
6fea1000a2a5
Implemented proper quoting of MI commands
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
84
diff
changeset
|
56 |
" |
6fea1000a2a5
Implemented proper quoting of MI commands
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
84
diff
changeset
|
57 |
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
|
58 |
and converts them to objects. |
6fea1000a2a5
Implemented proper quoting of MI commands
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
84
diff
changeset
|
59 |
|
6fea1000a2a5
Implemented proper quoting of MI commands
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
84
diff
changeset
|
60 |
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
|
61 |
|
6fea1000a2a5
Implemented proper quoting of MI commands
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
84
diff
changeset
|
62 |
[author:] |
6fea1000a2a5
Implemented proper quoting of MI commands
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
84
diff
changeset
|
63 |
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
|
64 |
|
6fea1000a2a5
Implemented proper quoting of MI commands
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
84
diff
changeset
|
65 |
[instance variables:] |
6fea1000a2a5
Implemented proper quoting of MI commands
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
84
diff
changeset
|
66 |
|
6fea1000a2a5
Implemented proper quoting of MI commands
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
84
diff
changeset
|
67 |
[class variables:] |
6fea1000a2a5
Implemented proper quoting of MI commands
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
84
diff
changeset
|
68 |
|
6fea1000a2a5
Implemented proper quoting of MI commands
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
84
diff
changeset
|
69 |
[see also:] |
6fea1000a2a5
Implemented proper quoting of MI commands
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
84
diff
changeset
|
70 |
[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
|
71 |
|
6fea1000a2a5
Implemented proper quoting of MI commands
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
84
diff
changeset
|
72 |
" |
6fea1000a2a5
Implemented proper quoting of MI commands
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
84
diff
changeset
|
73 |
! ! |
52
0618438f6ba5
Report async execution event immediately.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
45
diff
changeset
|
74 |
|
45
deb908479a37
Code refactored to use Magritte to meta-describe GDB objects.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
40
diff
changeset
|
75 |
!GDBMIParser class methodsFor:'instance creation'! |
2
a96eb336dbd3
More work reading.writing GDB events/commands
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
76 |
|
5 | 77 |
on: aStringOrStream |
2
a96eb336dbd3
More work reading.writing GDB events/commands
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
78 |
^ self new on: aStringOrStream |
a96eb336dbd3
More work reading.writing GDB events/commands
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
79 |
|
a96eb336dbd3
More work reading.writing GDB events/commands
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
80 |
"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
|
81 |
! ! |
a96eb336dbd3
More work reading.writing GDB events/commands
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
82 |
|
45
deb908479a37
Code refactored to use Magritte to meta-describe GDB objects.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
40
diff
changeset
|
83 |
!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
|
84 |
|
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
|
85 |
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
|
86 |
^ 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
|
87 |
! |
98ff50f8a25d
Temporary commit : initial work on session recorder (to use for simulation later)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
20
diff
changeset
|
88 |
|
98ff50f8a25d
Temporary commit : initial work on session recorder (to use for simulation later)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
20
diff
changeset
|
89 |
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
|
90 |
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
|
91 |
! |
98ff50f8a25d
Temporary commit : initial work on session recorder (to use for simulation later)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
20
diff
changeset
|
92 |
|
18
6bf3d5c400d1
Make GDBEvent and GDBCommandResult also described by value descriptor...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17
diff
changeset
|
93 |
token2CommandMappingBlock: aBlock |
6bf3d5c400d1
Make GDBEvent and GDBCommandResult also described by value descriptor...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17
diff
changeset
|
94 |
token2CommandMappingBlock := aBlock. |
6bf3d5c400d1
Make GDBEvent and GDBCommandResult also described by value descriptor...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17
diff
changeset
|
95 |
|
6bf3d5c400d1
Make GDBEvent and GDBCommandResult also described by value descriptor...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17
diff
changeset
|
96 |
"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
|
97 |
! ! |
6bf3d5c400d1
Make GDBEvent and GDBCommandResult also described by value descriptor...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17
diff
changeset
|
98 |
|
45
deb908479a37
Code refactored to use Magritte to meta-describe GDB objects.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
40
diff
changeset
|
99 |
!GDBMIParser methodsFor:'initialization'! |
2
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 |
on: aStringOrStream |
a96eb336dbd3
More work reading.writing GDB events/commands
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
102 |
source := aStringOrStream readStream |
a96eb336dbd3
More work reading.writing GDB events/commands
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
103 |
|
a96eb336dbd3
More work reading.writing GDB events/commands
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
104 |
"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
|
105 |
! ! |
a96eb336dbd3
More work reading.writing GDB events/commands
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
106 |
|
45
deb908479a37
Code refactored to use Magritte to meta-describe GDB objects.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
40
diff
changeset
|
107 |
!GDBMIParser methodsFor:'parsing'! |
2
a96eb336dbd3
More work reading.writing GDB events/commands
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
108 |
|
126
fb73b0af430b
Added initial support for disassembling
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
106
diff
changeset
|
109 |
parseByte |
fb73b0af430b
Added initial support for disassembling
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
106
diff
changeset
|
110 |
| c1 c2 | |
fb73b0af430b
Added initial support for disassembling
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
106
diff
changeset
|
111 |
|
fb73b0af430b
Added initial support for disassembling
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
106
diff
changeset
|
112 |
c1 := self next. |
fb73b0af430b
Added initial support for disassembling
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
106
diff
changeset
|
113 |
c1 isHexDigit ifFalse:[ |
fb73b0af430b
Added initial support for disassembling
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
106
diff
changeset
|
114 |
self error: 'hex digit expected'. |
fb73b0af430b
Added initial support for disassembling
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
106
diff
changeset
|
115 |
]. |
fb73b0af430b
Added initial support for disassembling
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
106
diff
changeset
|
116 |
c2 := self next. |
fb73b0af430b
Added initial support for disassembling
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
106
diff
changeset
|
117 |
c2 isHexDigit ifFalse:[ |
fb73b0af430b
Added initial support for disassembling
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
106
diff
changeset
|
118 |
self error: 'hex digit expected'. |
fb73b0af430b
Added initial support for disassembling
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
106
diff
changeset
|
119 |
]. |
159
5a364902a0fa
Portability: use `#digitValue` instead of `#digitValueRadix`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
156
diff
changeset
|
120 |
^ (c1 digitValue bitShift: 4) bitOr:c2 digitValue |
126
fb73b0af430b
Added initial support for disassembling
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
106
diff
changeset
|
121 |
|
fb73b0af430b
Added initial support for disassembling
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
106
diff
changeset
|
122 |
"Created: / 22-06-2018 / 11:27:35 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
159
5a364902a0fa
Portability: use `#digitValue` instead of `#digitValueRadix`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
156
diff
changeset
|
123 |
"Modified: / 30-10-2018 / 20:03:22 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
126
fb73b0af430b
Added initial support for disassembling
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
106
diff
changeset
|
124 |
! |
fb73b0af430b
Added initial support for disassembling
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
106
diff
changeset
|
125 |
|
fb73b0af430b
Added initial support for disassembling
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
106
diff
changeset
|
126 |
parseByteArray |
fb73b0af430b
Added initial support for disassembling
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
106
diff
changeset
|
127 |
| bytes | |
fb73b0af430b
Added initial support for disassembling
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
106
diff
changeset
|
128 |
self expect: $". |
fb73b0af430b
Added initial support for disassembling
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
106
diff
changeset
|
129 |
self skipSeparators. |
fb73b0af430b
Added initial support for disassembling
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
106
diff
changeset
|
130 |
bytes := ByteArray new writeStream. |
fb73b0af430b
Added initial support for disassembling
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
106
diff
changeset
|
131 |
[ self peek ~~ $" ] whileTrue:[ |
fb73b0af430b
Added initial support for disassembling
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
106
diff
changeset
|
132 |
bytes nextPut: self parseByte. |
fb73b0af430b
Added initial support for disassembling
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
106
diff
changeset
|
133 |
self skipSeparators. |
fb73b0af430b
Added initial support for disassembling
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
106
diff
changeset
|
134 |
]. |
fb73b0af430b
Added initial support for disassembling
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
106
diff
changeset
|
135 |
self next. "/ eat $" |
fb73b0af430b
Added initial support for disassembling
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
106
diff
changeset
|
136 |
^ bytes contents |
fb73b0af430b
Added initial support for disassembling
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
106
diff
changeset
|
137 |
|
fb73b0af430b
Added initial support for disassembling
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
106
diff
changeset
|
138 |
"Created: / 22-06-2018 / 11:24:48 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
fb73b0af430b
Added initial support for disassembling
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
106
diff
changeset
|
139 |
! |
fb73b0af430b
Added initial support for disassembling
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
106
diff
changeset
|
140 |
|
2
a96eb336dbd3
More work reading.writing GDB events/commands
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
141 |
parseCString |
a96eb336dbd3
More work reading.writing GDB events/commands
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
142 |
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
|
143 |
^ self parseCStringRest: ''. |
2
a96eb336dbd3
More work reading.writing GDB events/commands
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
144 |
|
a96eb336dbd3
More work reading.writing GDB events/commands
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
145 |
"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
|
146 |
"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
|
147 |
! |
a96eb336dbd3
More work reading.writing GDB events/commands
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
148 |
|
a96eb336dbd3
More work reading.writing GDB events/commands
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
149 |
parseCStringEscape: char |
a96eb336dbd3
More work reading.writing GDB events/commands
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
150 |
|ascii c | |
a96eb336dbd3
More work reading.writing GDB events/commands
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
151 |
|
a96eb336dbd3
More work reading.writing GDB events/commands
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
152 |
char == $" ifTrue:[ |
5 | 153 |
^ $". |
2
a96eb336dbd3
More work reading.writing GDB events/commands
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
154 |
]. |
a96eb336dbd3
More work reading.writing GDB events/commands
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
155 |
|
a96eb336dbd3
More work reading.writing GDB events/commands
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
156 |
char == $b ifTrue:[ |
5 | 157 |
^ Character backspace |
2
a96eb336dbd3
More work reading.writing GDB events/commands
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
158 |
]. |
a96eb336dbd3
More work reading.writing GDB events/commands
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
159 |
char == $t ifTrue:[ |
5 | 160 |
^ Character tab |
2
a96eb336dbd3
More work reading.writing GDB events/commands
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
161 |
]. |
a96eb336dbd3
More work reading.writing GDB events/commands
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
162 |
char == $n ifTrue:[ |
5 | 163 |
^ Character cr |
2
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 |
char == $r ifTrue:[ |
5 | 166 |
^ Character return |
2
a96eb336dbd3
More work reading.writing GDB events/commands
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
167 |
]. |
a96eb336dbd3
More work reading.writing GDB events/commands
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
168 |
char == $f ifTrue:[ |
5 | 169 |
^ Character newPage |
2
a96eb336dbd3
More work reading.writing GDB events/commands
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
170 |
]. |
a96eb336dbd3
More work reading.writing GDB events/commands
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
171 |
|
a96eb336dbd3
More work reading.writing GDB events/commands
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
172 |
"/ char == $u ifTrue:[ |
a96eb336dbd3
More work reading.writing GDB events/commands
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
173 |
"/ ascii := 0. |
a96eb336dbd3
More work reading.writing GDB events/commands
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
174 |
"/ c := source peekOrNil. |
a96eb336dbd3
More work reading.writing GDB events/commands
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
175 |
"/ 4 timesRepeat:[ |
a96eb336dbd3
More work reading.writing GDB events/commands
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
176 |
"/ (c isDigitRadix:16) ifFalse:[ |
a96eb336dbd3
More work reading.writing GDB events/commands
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
177 |
"/ self syntaxError:'invalid hex character constant' |
a96eb336dbd3
More work reading.writing GDB events/commands
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
178 |
"/ 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
|
179 |
"/ ^ Character value:ascii |
a96eb336dbd3
More work reading.writing GDB events/commands
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
180 |
"/ ]. |
a96eb336dbd3
More work reading.writing GDB events/commands
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
181 |
"/ ascii := (ascii bitShift:4). |
a96eb336dbd3
More work reading.writing GDB events/commands
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
182 |
"/ ascii := ascii + c digitValue. |
a96eb336dbd3
More work reading.writing GDB events/commands
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
183 |
"/ source next. c := source peekOrNil. |
a96eb336dbd3
More work reading.writing GDB events/commands
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
184 |
"/ ]. |
a96eb336dbd3
More work reading.writing GDB events/commands
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
185 |
"/ ^ Character value:ascii |
a96eb336dbd3
More work reading.writing GDB events/commands
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
186 |
"/ ]. |
a96eb336dbd3
More work reading.writing GDB events/commands
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
187 |
char == $x ifTrue:[ |
5 | 188 |
ascii := 0. |
189 |
c := self peekOrNil. |
|
190 |
2 timesRepeat:[ |
|
191 |
(c isDigitRadix:16) ifFalse:[ |
|
192 |
self error:'Invalid hex character escape'. |
|
193 |
^ Character value:ascii |
|
194 |
]. |
|
195 |
ascii := (ascii bitShift:4). |
|
196 |
ascii := ascii + c digitValue. |
|
197 |
self next. c := self peekOrNil. |
|
198 |
]. |
|
199 |
^ Character value:ascii |
|
2
a96eb336dbd3
More work reading.writing GDB events/commands
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
200 |
]. |
a96eb336dbd3
More work reading.writing GDB events/commands
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
201 |
"OctalEscape ::= \ OctalDigit | |
5 | 202 |
\ OctalDigit OctalDigit |
203 |
\ ZeroToThree OctalDigit OctalDigit" |
|
2
a96eb336dbd3
More work reading.writing GDB events/commands
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
204 |
|
a96eb336dbd3
More work reading.writing GDB events/commands
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
205 |
(char between:$0 and:$3) ifTrue:[ |
5 | 206 |
ascii := char digitValue. |
207 |
c := self peekOrNil. |
|
208 |
(c between: $0 and: $7) ifTrue:[ |
|
209 |
self next. |
|
210 |
ascii := (ascii bitShift:3). |
|
211 |
ascii := ascii + c digitValue. |
|
212 |
]. |
|
213 |
c := self peekOrNil. |
|
214 |
(c between: $0 and: $7) ifTrue:[ |
|
215 |
self next. |
|
216 |
ascii := (ascii bitShift:3). |
|
217 |
ascii := ascii + c digitValue. |
|
218 |
]. |
|
219 |
^ Character value:ascii |
|
2
a96eb336dbd3
More work reading.writing GDB events/commands
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
220 |
]. |
a96eb336dbd3
More work reading.writing GDB events/commands
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
221 |
(char between:$4 and: $7) ifTrue:[ |
5 | 222 |
ascii := char digitValue. |
223 |
c := self peekOrNil. |
|
224 |
(c between: $0 and: $7) ifTrue:[ |
|
225 |
self next. |
|
226 |
ascii := (ascii bitShift:3). |
|
227 |
ascii := ascii + c digitValue. |
|
228 |
]. |
|
229 |
^ Character value:ascii |
|
2
a96eb336dbd3
More work reading.writing GDB events/commands
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
230 |
]. |
a96eb336dbd3
More work reading.writing GDB events/commands
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
231 |
|
a96eb336dbd3
More work reading.writing GDB events/commands
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
232 |
^ char |
a96eb336dbd3
More work reading.writing GDB events/commands
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
233 |
|
a96eb336dbd3
More work reading.writing GDB events/commands
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
234 |
"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
|
235 |
! |
a96eb336dbd3
More work reading.writing GDB events/commands
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
236 |
|
15
65d3b4bfe871
Initial support for parsing typed values (now only booleans and integers)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
13
diff
changeset
|
237 |
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
|
238 |
| 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
|
239 |
|
65d3b4bfe871
Initial support for parsing typed values (now only booleans and integers)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
13
diff
changeset
|
240 |
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
|
241 |
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
|
242 |
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
|
243 |
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
|
244 |
[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
|
245 |
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
|
246 |
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
|
247 |
]. |
65d3b4bfe871
Initial support for parsing typed values (now only booleans and integers)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
13
diff
changeset
|
248 |
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
|
249 |
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
|
250 |
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
|
251 |
] ifFalse:[ |
65d3b4bfe871
Initial support for parsing typed values (now only booleans and integers)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
13
diff
changeset
|
252 |
(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
|
253 |
(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
|
254 |
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
|
255 |
] ifFalse:[ |
65d3b4bfe871
Initial support for parsing typed values (now only booleans and integers)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
13
diff
changeset
|
256 |
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
|
257 |
] |
65d3b4bfe871
Initial support for parsing typed values (now only booleans and integers)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
13
diff
changeset
|
258 |
]. |
65d3b4bfe871
Initial support for parsing typed values (now only booleans and integers)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
13
diff
changeset
|
259 |
]. |
65d3b4bfe871
Initial support for parsing typed values (now only booleans and integers)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
13
diff
changeset
|
260 |
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
|
261 |
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
|
262 |
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
|
263 |
] |
65d3b4bfe871
Initial support for parsing typed values (now only booleans and integers)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
13
diff
changeset
|
264 |
]. |
65d3b4bfe871
Initial support for parsing typed values (now only booleans and integers)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
13
diff
changeset
|
265 |
^ 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
|
266 |
|
65d3b4bfe871
Initial support for parsing typed values (now only booleans and integers)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
13
diff
changeset
|
267 |
"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
|
268 |
! |
65d3b4bfe871
Initial support for parsing typed values (now only booleans and integers)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
13
diff
changeset
|
269 |
|
3
29ea333a1811
More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2
diff
changeset
|
270 |
parseNl |
29ea333a1811
More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2
diff
changeset
|
271 |
| c | |
29ea333a1811
More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2
diff
changeset
|
272 |
|
29ea333a1811
More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2
diff
changeset
|
273 |
c := self peek. |
95
f417138e9c48
Win32: initial support for Windows
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
91
diff
changeset
|
274 |
c == Character return"CR" ifTrue:[ |
f417138e9c48
Win32: initial support for Windows
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
91
diff
changeset
|
275 |
self next. |
f417138e9c48
Win32: initial support for Windows
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
91
diff
changeset
|
276 |
c := self peek. |
f417138e9c48
Win32: initial support for Windows
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
91
diff
changeset
|
277 |
]. |
f417138e9c48
Win32: initial support for Windows
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
91
diff
changeset
|
278 |
c == Character lf"LF" ifTrue:[ |
f417138e9c48
Win32: initial support for Windows
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
91
diff
changeset
|
279 |
self next |
3
29ea333a1811
More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2
diff
changeset
|
280 |
]. |
29ea333a1811
More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2
diff
changeset
|
281 |
|
29ea333a1811
More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2
diff
changeset
|
282 |
"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
|
283 |
"Modified: / 31-05-2014 / 00:38:17 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
95
f417138e9c48
Win32: initial support for Windows
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
91
diff
changeset
|
284 |
"Modified: / 12-01-2018 / 08:56:40 / jv" |
3
29ea333a1811
More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2
diff
changeset
|
285 |
! |
29ea333a1811
More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2
diff
changeset
|
286 |
|
27
e7e01078d9c4
Temporary commit - more on process simulator
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
25
diff
changeset
|
287 |
parseNonBlankSequence |
e7e01078d9c4
Temporary commit - more on process simulator
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
25
diff
changeset
|
288 |
^ String streamContents:[ :buffer | |
e7e01078d9c4
Temporary commit - more on process simulator
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
25
diff
changeset
|
289 |
[ 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
|
290 |
buffer nextPut: self next. |
e7e01078d9c4
Temporary commit - more on process simulator
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
25
diff
changeset
|
291 |
] |
e7e01078d9c4
Temporary commit - more on process simulator
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
25
diff
changeset
|
292 |
] |
e7e01078d9c4
Temporary commit - more on process simulator
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
25
diff
changeset
|
293 |
|
e7e01078d9c4
Temporary commit - more on process simulator
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
25
diff
changeset
|
294 |
"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
|
295 |
! |
e7e01078d9c4
Temporary commit - more on process simulator
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
25
diff
changeset
|
296 |
|
3
29ea333a1811
More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2
diff
changeset
|
297 |
parseOutput |
29ea333a1811
More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2
diff
changeset
|
298 |
" |
29ea333a1811
More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2
diff
changeset
|
299 |
output → ( out-of-band-record )* [ result-record ] '(gdb)' nl |
5 | 300 |
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
|
301 |
|
3
29ea333a1811
More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2
diff
changeset
|
302 |
" |
29ea333a1811
More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2
diff
changeset
|
303 |
|
4
62366cc0fd95
Added some events + fixed parser to parse a simple session.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
3
diff
changeset
|
304 |
| peek events | |
3
29ea333a1811
More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2
diff
changeset
|
305 |
|
6 | 306 |
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
|
307 |
|
7f4882e2562a
More work on basic example. GDB exiting not yet working.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
7
diff
changeset
|
308 |
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
|
309 |
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
|
310 |
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
|
311 |
peek == Character cr ifTrue:[ self next ]. |
5 | 312 |
[ |
33
7abcdaaa5229
Fixed parsing of command - reset token before parsing new response.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
313 |
token := nil. |
6 | 314 |
peek := self peek. |
9
5cc8797f6523
Make simple example with -gdb-exit command working
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
8
diff
changeset
|
315 |
peek isNil ifTrue:[ |
5cc8797f6523
Make simple example with -gdb-exit command working
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
8
diff
changeset
|
316 |
source atEnd ifTrue:[ ^ events ]. |
5cc8797f6523
Make simple example with -gdb-exit command working
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
8
diff
changeset
|
317 |
]. |
6 | 318 |
peek isDigit ifTrue:[ self parseToken. peek := self peek ]. |
319 |
peek ~~ $( |
|
5 | 320 |
] whileTrue:[ |
6 | 321 |
('*+=' includes: self peek) ifTrue:[ |
52
0618438f6ba5
Report async execution event immediately.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
45
diff
changeset
|
322 |
| event | |
0618438f6ba5
Report async execution event immediately.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
45
diff
changeset
|
323 |
|
0618438f6ba5
Report async execution event immediately.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
45
diff
changeset
|
324 |
event := self parseAsyncRecord. |
0618438f6ba5
Report async execution event immediately.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
45
diff
changeset
|
325 |
events add: event. |
0618438f6ba5
Report async execution event immediately.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
45
diff
changeset
|
326 |
"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
|
327 |
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
|
328 |
Thus, report any execution record immediately" |
87
50e80d25ea6f
Added initial support for breakppints.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
85
diff
changeset
|
329 |
event isAsyncEvent ifTrue:[ |
52
0618438f6ba5
Report async execution event immediately.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
45
diff
changeset
|
330 |
events last token: token. |
0618438f6ba5
Report async execution event immediately.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
45
diff
changeset
|
331 |
recorder notNil ifTrue:[ |
0618438f6ba5
Report async execution event immediately.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
45
diff
changeset
|
332 |
recorder recordResponseEnd. |
0618438f6ba5
Report async execution event immediately.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
45
diff
changeset
|
333 |
]. |
0618438f6ba5
Report async execution event immediately.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
45
diff
changeset
|
334 |
^ events |
0618438f6ba5
Report async execution event immediately.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
45
diff
changeset
|
335 |
]. |
6 | 336 |
] ifFalse:[ |
337 |
('~@&' includes: self peek) ifTrue:[ |
|
338 |
events add: self parseStreamRecord. |
|
339 |
] ifFalse:[ |
|
340 |
peek == $^ ifTrue:[ |
|
341 |
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
|
342 |
"/ 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
|
343 |
"/ 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
|
344 |
"/ 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
|
345 |
(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
|
346 |
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
|
347 |
recorder notNil ifTrue:[ |
303c4edc75ad
`GDBProcess` refatored to have console interpreter on STDIN/STDOUT
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
73
diff
changeset
|
348 |
recorder recordResponseEnd. |
303c4edc75ad
`GDBProcess` refatored to have console interpreter on STDIN/STDOUT
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
73
diff
changeset
|
349 |
]. |
303c4edc75ad
`GDBProcess` refatored to have console interpreter on STDIN/STDOUT
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
73
diff
changeset
|
350 |
^ events |
303c4edc75ad
`GDBProcess` refatored to have console interpreter on STDIN/STDOUT
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
73
diff
changeset
|
351 |
]. |
6 | 352 |
] ifFalse:[ |
353 |
self error:'Invalid MI record'. |
|
354 |
]. |
|
355 |
]. |
|
356 |
]. |
|
8
7f4882e2562a
More work on basic example. GDB exiting not yet working.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
7
diff
changeset
|
357 |
events last token: token. |
3
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 |
self expect: '(gdb)'. |
25
58e042a191a9
More work on GDB session recorder.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
24
diff
changeset
|
360 |
[ 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
|
361 |
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
|
362 |
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
|
363 |
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
|
364 |
]. |
3
29ea333a1811
More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2
diff
changeset
|
365 |
^ events |
29ea333a1811
More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2
diff
changeset
|
366 |
|
29ea333a1811
More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2
diff
changeset
|
367 |
"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
|
368 |
"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
|
369 |
! |
29ea333a1811
More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2
diff
changeset
|
370 |
|
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
|
371 |
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
|
372 |
" |
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
|
373 |
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
|
374 |
./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
|
375 |
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
|
376 |
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
|
377 |
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
|
378 |
|
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
|
379 |
=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
|
380 |
(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
|
381 |
|
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
|
382 |
" |
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
|
383 |
|
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
|
384 |
| 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
|
385 |
|
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
|
386 |
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
|
387 |
[ |
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
|
388 |
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
|
389 |
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
|
390 |
] 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
|
391 |
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
|
392 |
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
|
393 |
]. |
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
|
394 |
|
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
|
395 |
"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
|
396 |
! |
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
|
397 |
|
3
29ea333a1811
More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2
diff
changeset
|
398 |
parseResultClass |
29ea333a1811
More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2
diff
changeset
|
399 |
" |
29ea333a1811
More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2
diff
changeset
|
400 |
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
|
401 |
" |
29ea333a1811
More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2
diff
changeset
|
402 |
| c1 c2 | |
29ea333a1811
More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2
diff
changeset
|
403 |
|
29ea333a1811
More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2
diff
changeset
|
404 |
c1 := self peek. |
5 | 405 |
c1 == $d ifTrue:[ |
406 |
self expect: 'done'. |
|
407 |
^ CommandStatusDone. |
|
3
29ea333a1811
More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2
diff
changeset
|
408 |
]. |
5 | 409 |
c1 == $r ifTrue:[ |
410 |
self expect: 'running'. |
|
411 |
^ CommandStatusDone. |
|
3
29ea333a1811
More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2
diff
changeset
|
412 |
]. |
5 | 413 |
c1 == $c ifTrue:[ |
414 |
self expect: 'connected'. |
|
415 |
^ CommandStatusConnected. |
|
3
29ea333a1811
More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2
diff
changeset
|
416 |
]. |
5 | 417 |
c1 == $e ifTrue:[ |
418 |
self next. |
|
419 |
c2 := self peek. |
|
420 |
c2 == $x ifTrue:[ |
|
421 |
self expect: 'xit'. |
|
422 |
^ CommandStatusExit. |
|
423 |
]. |
|
424 |
c2 == $r ifTrue:[ |
|
425 |
self expect: 'rror'. |
|
426 |
^ CommandStatusError. |
|
427 |
]. |
|
3
29ea333a1811
More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2
diff
changeset
|
428 |
]. |
29ea333a1811
More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2
diff
changeset
|
429 |
^ self error:'Unsupported result class' |
29ea333a1811
More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2
diff
changeset
|
430 |
|
29ea333a1811
More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2
diff
changeset
|
431 |
"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
|
432 |
"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
|
433 |
! |
29ea333a1811
More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2
diff
changeset
|
434 |
|
29ea333a1811
More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2
diff
changeset
|
435 |
parseResultRecord |
29ea333a1811
More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2
diff
changeset
|
436 |
" |
29ea333a1811
More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2
diff
changeset
|
437 |
result-record → '^' result-class ( ',' result )* nl |
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 |
|
99
56b66436a713
Fixed MI parser to correctly parse command error responses
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
95
diff
changeset
|
440 |
| command result status descriptor propertyName propertyDescriptor propertyValue | |
3
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 |
self expect: $^. |
6 | 443 |
result := GDBCommandResult new. |
99
56b66436a713
Fixed MI parser to correctly parse command error responses
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
95
diff
changeset
|
444 |
status := self parseResultClass. |
56b66436a713
Fixed MI parser to correctly parse command error responses
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
95
diff
changeset
|
445 |
result status: status. |
45
deb908479a37
Code refactored to use Magritte to meta-describe GDB objects.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
40
diff
changeset
|
446 |
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
|
447 |
(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
|
448 |
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
|
449 |
command notNil ifTrue:[ |
6bf3d5c400d1
Make GDBEvent and GDBCommandResult also described by value descriptor...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17
diff
changeset
|
450 |
result command: command. |
99
56b66436a713
Fixed MI parser to correctly parse command error responses
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
95
diff
changeset
|
451 |
status ~~ CommandStatusError ifTrue:[ |
56b66436a713
Fixed MI parser to correctly parse command error responses
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
95
diff
changeset
|
452 |
descriptor := command resultDescription. |
56b66436a713
Fixed MI parser to correctly parse command error responses
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
95
diff
changeset
|
453 |
]. |
18
6bf3d5c400d1
Make GDBEvent and GDBCommandResult also described by value descriptor...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17
diff
changeset
|
454 |
]. |
3
29ea333a1811
More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2
diff
changeset
|
455 |
]. |
73
f5fe22f56f10
MI parsing: added support for command result values as GDB objects
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
57
diff
changeset
|
456 |
|
f5fe22f56f10
MI parsing: added support for command result values as GDB objects
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
57
diff
changeset
|
457 |
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
|
458 |
"/ 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
|
459 |
[ 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
|
460 |
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
|
461 |
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
|
462 |
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
|
463 |
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
|
464 |
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
|
465 |
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
|
466 |
] ifFalse:[ |
f5fe22f56f10
MI parsing: added support for command result values as GDB objects
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
57
diff
changeset
|
467 |
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
|
468 |
]. |
f5fe22f56f10
MI parsing: added support for command result values as GDB objects
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
57
diff
changeset
|
469 |
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
|
470 |
]. |
f5fe22f56f10
MI parsing: added support for command result values as GDB objects
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
57
diff
changeset
|
471 |
] ifFalse:[ |
f5fe22f56f10
MI parsing: added support for command result values as GDB objects
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
57
diff
changeset
|
472 |
"/ 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
|
473 |
"/ 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
|
474 |
| object | |
f5fe22f56f10
MI parsing: added support for command result values as GDB objects
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
57
diff
changeset
|
475 |
|
f5fe22f56f10
MI parsing: added support for command result values as GDB objects
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
57
diff
changeset
|
476 |
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
|
477 |
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
|
478 |
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
|
479 |
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
|
480 |
]. |
f5fe22f56f10
MI parsing: added support for command result values as GDB objects
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
57
diff
changeset
|
481 |
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
|
482 |
]. |
3
29ea333a1811
More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2
diff
changeset
|
483 |
self parseNl. |
6 | 484 |
^ GDBCommandResultEvent new result: result. |
3
29ea333a1811
More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2
diff
changeset
|
485 |
|
29ea333a1811
More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2
diff
changeset
|
486 |
"Created: / 30-05-2014 / 09:52:35 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
99
56b66436a713
Fixed MI parser to correctly parse command error responses
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
95
diff
changeset
|
487 |
"Modified: / 02-02-2018 / 09:35: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
|
488 |
! |
29ea333a1811
More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2
diff
changeset
|
489 |
|
2
a96eb336dbd3
More work reading.writing GDB events/commands
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
490 |
parseToken |
8
7f4882e2562a
More work on basic example. GDB exiting not yet working.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
7
diff
changeset
|
491 |
token := 0. |
7f4882e2562a
More work on basic example. GDB exiting not yet working.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
7
diff
changeset
|
492 |
[ 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
|
493 |
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
|
494 |
]. |
2
a96eb336dbd3
More work reading.writing GDB events/commands
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
495 |
|
a96eb336dbd3
More work reading.writing GDB events/commands
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
496 |
"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
|
497 |
"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
|
498 |
! ! |
a96eb336dbd3
More work reading.writing GDB events/commands
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
499 |
|
45
deb908479a37
Code refactored to use Magritte to meta-describe GDB objects.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
40
diff
changeset
|
500 |
!GDBMIParser methodsFor:'parsing-async events'! |
3
29ea333a1811
More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2
diff
changeset
|
501 |
|
29ea333a1811
More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2
diff
changeset
|
502 |
parseAsyncRecord |
29ea333a1811
More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2
diff
changeset
|
503 |
" |
29ea333a1811
More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2
diff
changeset
|
504 |
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
|
505 |
" |
5 | 506 |
self peek == $* ifTrue:[ |
6 | 507 |
self next. |
508 |
^ self parseAsyncRecord: GDBExecutionEvent. |
|
3
29ea333a1811
More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2
diff
changeset
|
509 |
]. |
5 | 510 |
self peek == $+ ifTrue:[ |
6 | 511 |
self next. |
512 |
^ self parseAsyncRecord: GDBStatusEvent . |
|
3
29ea333a1811
More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2
diff
changeset
|
513 |
]. |
5 | 514 |
self peek == $= ifTrue:[ |
6 | 515 |
self next. |
516 |
^ self parseAsyncRecord: GDBNotificationEvent. |
|
3
29ea333a1811
More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2
diff
changeset
|
517 |
]. |
29ea333a1811
More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2
diff
changeset
|
518 |
|
29ea333a1811
More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2
diff
changeset
|
519 |
^ self error: 'Invalid async-record' |
29ea333a1811
More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2
diff
changeset
|
520 |
|
29ea333a1811
More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2
diff
changeset
|
521 |
"Created: / 30-05-2014 / 09:57:30 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
6 | 522 |
"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
|
523 |
! |
29ea333a1811
More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2
diff
changeset
|
524 |
|
13
45ec9353003f
Added classes for each async event type.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
9
diff
changeset
|
525 |
parseAsyncRecord: eventClassBase |
3
29ea333a1811
More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2
diff
changeset
|
526 |
" |
4
62366cc0fd95
Added some events + fixed parser to parse a simple session.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
3
diff
changeset
|
527 |
async-output → async-class ( ',' result )* nl |
5 | 528 |
" |
3
29ea333a1811
More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2
diff
changeset
|
529 |
|
18
6bf3d5c400d1
Make GDBEvent and GDBCommandResult also described by value descriptor...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17
diff
changeset
|
530 |
| 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
|
531 |
|
4
62366cc0fd95
Added some events + fixed parser to parse a simple session.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
3
diff
changeset
|
532 |
type := self parseString. |
13
45ec9353003f
Added classes for each async event type.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
9
diff
changeset
|
533 |
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
|
534 |
event := eventClass new. |
6bf3d5c400d1
Make GDBEvent and GDBCommandResult also described by value descriptor...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17
diff
changeset
|
535 |
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
|
536 |
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
|
537 |
[ self peek == $, ] whileTrue:[ |
6bf3d5c400d1
Make GDBEvent and GDBCommandResult also described by value descriptor...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17
diff
changeset
|
538 |
self next. "/ eat $, |
6bf3d5c400d1
Make GDBEvent and GDBCommandResult also described by value descriptor...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17
diff
changeset
|
539 |
propertyName := self parseVariable. |
6bf3d5c400d1
Make GDBEvent and GDBCommandResult also described by value descriptor...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17
diff
changeset
|
540 |
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
|
541 |
self expect: $=. |
6bf3d5c400d1
Make GDBEvent and GDBCommandResult also described by value descriptor...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17
diff
changeset
|
542 |
propertyDescriptor isNil ifTrue:[ |
6bf3d5c400d1
Make GDBEvent and GDBCommandResult also described by value descriptor...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17
diff
changeset
|
543 |
propertyValue := self parseValue. |
6bf3d5c400d1
Make GDBEvent and GDBCommandResult also described by value descriptor...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17
diff
changeset
|
544 |
] ifFalse:[ |
45
deb908479a37
Code refactored to use Magritte to meta-describe GDB objects.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
40
diff
changeset
|
545 |
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
|
546 |
]. |
6bf3d5c400d1
Make GDBEvent and GDBCommandResult also described by value descriptor...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17
diff
changeset
|
547 |
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
|
548 |
]. |
62366cc0fd95
Added some events + fixed parser to parse a simple session.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
3
diff
changeset
|
549 |
self parseNl. |
3
29ea333a1811
More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2
diff
changeset
|
550 |
|
18
6bf3d5c400d1
Make GDBEvent and GDBCommandResult also described by value descriptor...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17
diff
changeset
|
551 |
^ event |
3
29ea333a1811
More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2
diff
changeset
|
552 |
|
4
62366cc0fd95
Added some events + fixed parser to parse a simple session.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
3
diff
changeset
|
553 |
"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
|
554 |
"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
|
555 |
! ! |
29ea333a1811
More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2
diff
changeset
|
556 |
|
45
deb908479a37
Code refactored to use Magritte to meta-describe GDB objects.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
40
diff
changeset
|
557 |
!GDBMIParser methodsFor:'parsing-commands'! |
27
e7e01078d9c4
Temporary commit - more on process simulator
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
25
diff
changeset
|
558 |
|
e7e01078d9c4
Temporary commit - more on process simulator
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
25
diff
changeset
|
559 |
parseCommand |
e7e01078d9c4
Temporary commit - more on process simulator
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
25
diff
changeset
|
560 |
|
e7e01078d9c4
Temporary commit - more on process simulator
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
25
diff
changeset
|
561 |
self peek isDigit ifTrue:[ |
e7e01078d9c4
Temporary commit - more on process simulator
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
25
diff
changeset
|
562 |
self parseToken |
e7e01078d9c4
Temporary commit - more on process simulator
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
25
diff
changeset
|
563 |
]. |
e7e01078d9c4
Temporary commit - more on process simulator
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
25
diff
changeset
|
564 |
|
e7e01078d9c4
Temporary commit - more on process simulator
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
25
diff
changeset
|
565 |
^ self peek == $- ifTrue:[ |
e7e01078d9c4
Temporary commit - more on process simulator
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
25
diff
changeset
|
566 |
self parseCommandMI |
e7e01078d9c4
Temporary commit - more on process simulator
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
25
diff
changeset
|
567 |
] ifFalse:[ |
e7e01078d9c4
Temporary commit - more on process simulator
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
25
diff
changeset
|
568 |
self parseCommandCLI |
e7e01078d9c4
Temporary commit - more on process simulator
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
25
diff
changeset
|
569 |
]. |
e7e01078d9c4
Temporary commit - more on process simulator
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
25
diff
changeset
|
570 |
|
e7e01078d9c4
Temporary commit - more on process simulator
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
25
diff
changeset
|
571 |
"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
|
572 |
! |
e7e01078d9c4
Temporary commit - more on process simulator
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
25
diff
changeset
|
573 |
|
e7e01078d9c4
Temporary commit - more on process simulator
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
25
diff
changeset
|
574 |
parseCommandCLI |
e7e01078d9c4
Temporary commit - more on process simulator
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
25
diff
changeset
|
575 |
"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
|
576 |
|
e7e01078d9c4
Temporary commit - more on process simulator
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
25
diff
changeset
|
577 |
^ GDBCLICommand new |
e7e01078d9c4
Temporary commit - more on process simulator
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
25
diff
changeset
|
578 |
token: token; |
e7e01078d9c4
Temporary commit - more on process simulator
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
25
diff
changeset
|
579 |
value: self nextLine; |
e7e01078d9c4
Temporary commit - more on process simulator
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
25
diff
changeset
|
580 |
yourself |
e7e01078d9c4
Temporary commit - more on process simulator
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
25
diff
changeset
|
581 |
|
e7e01078d9c4
Temporary commit - more on process simulator
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
25
diff
changeset
|
582 |
"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
|
583 |
! |
e7e01078d9c4
Temporary commit - more on process simulator
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
25
diff
changeset
|
584 |
|
e7e01078d9c4
Temporary commit - more on process simulator
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
25
diff
changeset
|
585 |
parseCommandMI |
e7e01078d9c4
Temporary commit - more on process simulator
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
25
diff
changeset
|
586 |
"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
|
587 |
|
e7e01078d9c4
Temporary commit - more on process simulator
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
25
diff
changeset
|
588 |
| operation className class args | |
e7e01078d9c4
Temporary commit - more on process simulator
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
25
diff
changeset
|
589 |
|
e7e01078d9c4
Temporary commit - more on process simulator
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
25
diff
changeset
|
590 |
self next. "/ eat $-. |
e7e01078d9c4
Temporary commit - more on process simulator
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
25
diff
changeset
|
591 |
operation := self parseVariable. |
e7e01078d9c4
Temporary commit - more on process simulator
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
25
diff
changeset
|
592 |
className := ('GDBMI_' , (operation copyReplaceAll: $- with: $_)) asSymbol. |
e7e01078d9c4
Temporary commit - more on process simulator
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
25
diff
changeset
|
593 |
class := Smalltalk at: className. |
e7e01078d9c4
Temporary commit - more on process simulator
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
25
diff
changeset
|
594 |
args := OrderedCollection new. |
e7e01078d9c4
Temporary commit - more on process simulator
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
25
diff
changeset
|
595 |
[ 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
|
596 |
self skipSeparators. |
e7e01078d9c4
Temporary commit - more on process simulator
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
25
diff
changeset
|
597 |
self peek == $" ifTrue:[ |
e7e01078d9c4
Temporary commit - more on process simulator
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
25
diff
changeset
|
598 |
args add: self parseCString |
e7e01078d9c4
Temporary commit - more on process simulator
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
25
diff
changeset
|
599 |
] ifFalse:[ |
e7e01078d9c4
Temporary commit - more on process simulator
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
25
diff
changeset
|
600 |
args add: self parseNonBlankSequence |
e7e01078d9c4
Temporary commit - more on process simulator
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
25
diff
changeset
|
601 |
]. |
e7e01078d9c4
Temporary commit - more on process simulator
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
25
diff
changeset
|
602 |
]. |
e7e01078d9c4
Temporary commit - more on process simulator
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
25
diff
changeset
|
603 |
self next. "/ eat CR. |
32
d9c96b33afd6
Temporary commit: more work on simulator...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
27
diff
changeset
|
604 |
^ (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
|
605 |
|
e7e01078d9c4
Temporary commit - more on process simulator
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
25
diff
changeset
|
606 |
"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
|
607 |
"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
|
608 |
! ! |
e7e01078d9c4
Temporary commit - more on process simulator
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
25
diff
changeset
|
609 |
|
45
deb908479a37
Code refactored to use Magritte to meta-describe GDB objects.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
40
diff
changeset
|
610 |
!GDBMIParser methodsFor:'parsing-misc'! |
3
29ea333a1811
More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2
diff
changeset
|
611 |
|
29ea333a1811
More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2
diff
changeset
|
612 |
parseResult |
29ea333a1811
More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2
diff
changeset
|
613 |
" |
29ea333a1811
More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2
diff
changeset
|
614 |
result → variable = value |
29ea333a1811
More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2
diff
changeset
|
615 |
" |
29ea333a1811
More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2
diff
changeset
|
616 |
|
29ea333a1811
More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2
diff
changeset
|
617 |
| name value | |
29ea333a1811
More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2
diff
changeset
|
618 |
|
29ea333a1811
More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2
diff
changeset
|
619 |
name := self parseVariable. |
29ea333a1811
More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2
diff
changeset
|
620 |
self expect: $=. |
29ea333a1811
More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2
diff
changeset
|
621 |
value := self parseValue. |
29ea333a1811
More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2
diff
changeset
|
622 |
^ name -> value |
29ea333a1811
More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2
diff
changeset
|
623 |
|
29ea333a1811
More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2
diff
changeset
|
624 |
"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
|
625 |
"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
|
626 |
! |
29ea333a1811
More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2
diff
changeset
|
627 |
|
29ea333a1811
More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2
diff
changeset
|
628 |
parseString |
29ea333a1811
More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2
diff
changeset
|
629 |
^ String streamContents:[:s| |
27
e7e01078d9c4
Temporary commit - more on process simulator
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
25
diff
changeset
|
630 |
[ 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
|
631 |
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
|
632 |
] |
3
29ea333a1811
More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2
diff
changeset
|
633 |
]. |
29ea333a1811
More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2
diff
changeset
|
634 |
|
29ea333a1811
More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2
diff
changeset
|
635 |
"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
|
636 |
"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
|
637 |
! |
29ea333a1811
More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2
diff
changeset
|
638 |
|
29ea333a1811
More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2
diff
changeset
|
639 |
parseVariable |
29ea333a1811
More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2
diff
changeset
|
640 |
" |
29ea333a1811
More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2
diff
changeset
|
641 |
variable → string |
29ea333a1811
More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2
diff
changeset
|
642 |
" |
29ea333a1811
More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2
diff
changeset
|
643 |
^ self parseString |
29ea333a1811
More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2
diff
changeset
|
644 |
|
29ea333a1811
More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2
diff
changeset
|
645 |
"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
|
646 |
! ! |
29ea333a1811
More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2
diff
changeset
|
647 |
|
45
deb908479a37
Code refactored to use Magritte to meta-describe GDB objects.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
40
diff
changeset
|
648 |
!GDBMIParser methodsFor:'parsing-stream output'! |
3
29ea333a1811
More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2
diff
changeset
|
649 |
|
29ea333a1811
More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2
diff
changeset
|
650 |
parseStreamRecord |
29ea333a1811
More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2
diff
changeset
|
651 |
" |
29ea333a1811
More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2
diff
changeset
|
652 |
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
|
653 |
" |
29ea333a1811
More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2
diff
changeset
|
654 |
|
4
62366cc0fd95
Added some events + fixed parser to parse a simple session.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
3
diff
changeset
|
655 |
self peek == $~ ifTrue:[ |
6 | 656 |
self next. |
657 |
^ self parseStreamRecord: GDBConsoleOutputEvent. |
|
3
29ea333a1811
More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2
diff
changeset
|
658 |
]. |
5 | 659 |
self peek == $@ ifTrue:[ |
6 | 660 |
self next. |
661 |
^ self parseStreamRecord: GDBTargetOutputEvent. |
|
3
29ea333a1811
More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2
diff
changeset
|
662 |
]. |
5 | 663 |
self peek == $& ifTrue:[ |
6 | 664 |
self next. |
665 |
^ self parseStreamRecord: GDBLogOutputEvent. |
|
3
29ea333a1811
More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2
diff
changeset
|
666 |
]. |
29ea333a1811
More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2
diff
changeset
|
667 |
self error:'Invalid stream record' |
29ea333a1811
More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2
diff
changeset
|
668 |
|
29ea333a1811
More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2
diff
changeset
|
669 |
"Created: / 30-05-2014 / 09:57:31 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
6 | 670 |
"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
|
671 |
! |
29ea333a1811
More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2
diff
changeset
|
672 |
|
4
62366cc0fd95
Added some events + fixed parser to parse a simple session.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
3
diff
changeset
|
673 |
parseStreamRecord: eventClass |
62366cc0fd95
Added some events + fixed parser to parse a simple session.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
3
diff
changeset
|
674 |
| value | |
3
29ea333a1811
More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2
diff
changeset
|
675 |
|
4
62366cc0fd95
Added some events + fixed parser to parse a simple session.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
3
diff
changeset
|
676 |
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
|
677 |
self parseNl. |
62366cc0fd95
Added some events + fixed parser to parse a simple session.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
3
diff
changeset
|
678 |
^ 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
|
679 |
|
62366cc0fd95
Added some events + fixed parser to parse a simple session.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
3
diff
changeset
|
680 |
"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
|
681 |
! ! |
29ea333a1811
More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2
diff
changeset
|
682 |
|
45
deb908479a37
Code refactored to use Magritte to meta-describe GDB objects.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
40
diff
changeset
|
683 |
!GDBMIParser methodsFor:'parsing-utils'! |
2
a96eb336dbd3
More work reading.writing GDB events/commands
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
684 |
|
a96eb336dbd3
More work reading.writing GDB events/commands
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
685 |
expect: aStringOrChar |
a96eb336dbd3
More work reading.writing GDB events/commands
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
686 |
|
a96eb336dbd3
More work reading.writing GDB events/commands
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
687 |
| c | |
a96eb336dbd3
More work reading.writing GDB events/commands
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
688 |
aStringOrChar isCharacter ifTrue:[ |
5 | 689 |
(self atEnd or:[(c := self next) ~= aStringOrChar]) ifTrue:[ |
690 |
self error:('Expected ''%1'' got ''%2''.' bindWith: aStringOrChar with: c). |
|
691 |
]. |
|
692 |
^self. |
|
2
a96eb336dbd3
More work reading.writing GDB events/commands
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
693 |
]. |
a96eb336dbd3
More work reading.writing GDB events/commands
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
694 |
aStringOrChar isString ifTrue:[ |
5 | 695 |
aStringOrChar do:[:expected| |
696 |
(self atEnd or:[(c := self next) ~= expected]) ifTrue:[ |
|
697 |
self error:('Expected ''%1''.' bindWith: aStringOrChar). |
|
698 |
]. |
|
699 |
]. |
|
700 |
^self. |
|
2
a96eb336dbd3
More work reading.writing GDB events/commands
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
701 |
]. |
a96eb336dbd3
More work reading.writing GDB events/commands
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
702 |
|
a96eb336dbd3
More work reading.writing GDB events/commands
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
703 |
self error:'Invalid expected value'. |
a96eb336dbd3
More work reading.writing GDB events/commands
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
704 |
|
a96eb336dbd3
More work reading.writing GDB events/commands
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
705 |
"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
|
706 |
"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
|
707 |
! |
a96eb336dbd3
More work reading.writing GDB events/commands
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
708 |
|
a96eb336dbd3
More work reading.writing GDB events/commands
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
709 |
expectLineEnd |
a96eb336dbd3
More work reading.writing GDB events/commands
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
710 |
self expect: Character cr. |
a96eb336dbd3
More work reading.writing GDB events/commands
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
711 |
|
a96eb336dbd3
More work reading.writing GDB events/commands
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
712 |
"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
|
713 |
! |
a96eb336dbd3
More work reading.writing GDB events/commands
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
714 |
|
a96eb336dbd3
More work reading.writing GDB events/commands
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
715 |
expectSpace |
a96eb336dbd3
More work reading.writing GDB events/commands
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
716 |
self expect: Character space. |
a96eb336dbd3
More work reading.writing GDB events/commands
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
717 |
|
a96eb336dbd3
More work reading.writing GDB events/commands
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
718 |
"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
|
719 |
! ! |
a96eb336dbd3
More work reading.writing GDB events/commands
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
720 |
|
45
deb908479a37
Code refactored to use Magritte to meta-describe GDB objects.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
40
diff
changeset
|
721 |
!GDBMIParser methodsFor:'parsing-values'! |
3
29ea333a1811
More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2
diff
changeset
|
722 |
|
29ea333a1811
More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2
diff
changeset
|
723 |
parseConst |
29ea333a1811
More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2
diff
changeset
|
724 |
" |
29ea333a1811
More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2
diff
changeset
|
725 |
const → c-string |
29ea333a1811
More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2
diff
changeset
|
726 |
" |
29ea333a1811
More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2
diff
changeset
|
727 |
|
29ea333a1811
More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2
diff
changeset
|
728 |
^ self parseCString. |
29ea333a1811
More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2
diff
changeset
|
729 |
|
29ea333a1811
More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2
diff
changeset
|
730 |
"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
|
731 |
! |
29ea333a1811
More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2
diff
changeset
|
732 |
|
29ea333a1811
More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2
diff
changeset
|
733 |
parseList |
29ea333a1811
More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2
diff
changeset
|
734 |
" |
29ea333a1811
More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2
diff
changeset
|
735 |
list → '[]' | '[' value ( ',' value )* ']' | '[' result ( ',' result )* ']' |
29ea333a1811
More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2
diff
changeset
|
736 |
" |
29ea333a1811
More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2
diff
changeset
|
737 |
|
15
65d3b4bfe871
Initial support for parsing typed values (now only booleans and integers)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
13
diff
changeset
|
738 |
| list | |
65d3b4bfe871
Initial support for parsing typed values (now only booleans and integers)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
13
diff
changeset
|
739 |
|
3
29ea333a1811
More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2
diff
changeset
|
740 |
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
|
741 |
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
|
742 |
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
|
743 |
^ list |
3
29ea333a1811
More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2
diff
changeset
|
744 |
|
29ea333a1811
More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2
diff
changeset
|
745 |
"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
|
746 |
"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
|
747 |
! |
65d3b4bfe871
Initial support for parsing typed values (now only booleans and integers)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
13
diff
changeset
|
748 |
|
65d3b4bfe871
Initial support for parsing typed values (now only booleans and integers)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
13
diff
changeset
|
749 |
parseListBody |
84
7913863edaa6
Improved MI parser to handle degenrated tuples (`{"c"}`)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
79
diff
changeset
|
750 |
^self parseListBody: $] |
7913863edaa6
Improved MI parser to handle degenrated tuples (`{"c"}`)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
79
diff
changeset
|
751 |
|
7913863edaa6
Improved MI parser to handle degenrated tuples (`{"c"}`)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
79
diff
changeset
|
752 |
"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
|
753 |
"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
|
754 |
! |
7913863edaa6
Improved MI parser to handle degenrated tuples (`{"c"}`)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
79
diff
changeset
|
755 |
|
7913863edaa6
Improved MI parser to handle degenrated tuples (`{"c"}`)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
79
diff
changeset
|
756 |
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
|
757 |
| 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
|
758 |
|
65d3b4bfe871
Initial support for parsing typed values (now only booleans and integers)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
13
diff
changeset
|
759 |
object := OrderedCollection new. |
84
7913863edaa6
Improved MI parser to handle degenrated tuples (`{"c"}`)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
79
diff
changeset
|
760 |
self peek ~~ terminator ifTrue:[ |
156
ab92b6dd1c9a
Portability: transform `[...] doWhile: [...]` to `[...] whileTrue`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
126
diff
changeset
|
761 |
[ "do..." |
17
10d696c79188
Value descroptors refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15
diff
changeset
|
762 |
('"{[' includes: self peek) ifFalse:[ |
10d696c79188
Value descroptors refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15
diff
changeset
|
763 |
self parseVariable. |
10d696c79188
Value descroptors refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15
diff
changeset
|
764 |
self expect: $=. |
10d696c79188
Value descroptors refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15
diff
changeset
|
765 |
]. |
15
65d3b4bfe871
Initial support for parsing typed values (now only booleans and integers)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
13
diff
changeset
|
766 |
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
|
767 |
object add: value. |
156
ab92b6dd1c9a
Portability: transform `[...] doWhile: [...]` to `[...] whileTrue`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
126
diff
changeset
|
768 |
"...while..." |
17
10d696c79188
Value descroptors refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15
diff
changeset
|
769 |
(self peek == $,) ifTrue:[ self next. true ] ifFalse:[ false ] |
156
ab92b6dd1c9a
Portability: transform `[...] doWhile: [...]` to `[...] whileTrue`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
126
diff
changeset
|
770 |
] 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
|
771 |
]. |
65d3b4bfe871
Initial support for parsing typed values (now only booleans and integers)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
13
diff
changeset
|
772 |
^ 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
|
773 |
|
84
7913863edaa6
Improved MI parser to handle degenrated tuples (`{"c"}`)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
79
diff
changeset
|
774 |
"Created: / 06-07-2017 / 08:24:54 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
156
ab92b6dd1c9a
Portability: transform `[...] doWhile: [...]` to `[...] whileTrue`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
126
diff
changeset
|
775 |
"Modified: / 30-10-2018 / 14:29:58 / 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
|
776 |
! |
29ea333a1811
More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2
diff
changeset
|
777 |
|
29ea333a1811
More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2
diff
changeset
|
778 |
parseTuple |
29ea333a1811
More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2
diff
changeset
|
779 |
| object | |
29ea333a1811
More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2
diff
changeset
|
780 |
|
29ea333a1811
More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2
diff
changeset
|
781 |
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
|
782 |
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
|
783 |
self expect: $}. |
3
29ea333a1811
More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2
diff
changeset
|
784 |
^ object |
29ea333a1811
More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2
diff
changeset
|
785 |
|
29ea333a1811
More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2
diff
changeset
|
786 |
"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
|
787 |
"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
|
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 |
|
65d3b4bfe871
Initial support for parsing typed values (now only booleans and integers)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
13
diff
changeset
|
790 |
parseTupleBody |
65d3b4bfe871
Initial support for parsing typed values (now only booleans and integers)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
13
diff
changeset
|
791 |
| 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
|
792 |
|
84
7913863edaa6
Improved MI parser to handle degenrated tuples (`{"c"}`)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
79
diff
changeset
|
793 |
"/ 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
|
794 |
"/ 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
|
795 |
self peek = $" ifTrue:[ |
7913863edaa6
Improved MI parser to handle degenrated tuples (`{"c"}`)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
79
diff
changeset
|
796 |
^ self parseListBody:$}. |
7913863edaa6
Improved MI parser to handle degenrated tuples (`{"c"}`)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
79
diff
changeset
|
797 |
]. |
7913863edaa6
Improved MI parser to handle degenrated tuples (`{"c"}`)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
79
diff
changeset
|
798 |
"/ 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
|
799 |
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
|
800 |
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
|
801 |
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
|
802 |
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
|
803 |
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
|
804 |
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
|
805 |
[ 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
|
806 |
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
|
807 |
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
|
808 |
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
|
809 |
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
|
810 |
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
|
811 |
]. |
65d3b4bfe871
Initial support for parsing typed values (now only booleans and integers)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
13
diff
changeset
|
812 |
]. |
65d3b4bfe871
Initial support for parsing typed values (now only booleans and integers)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
13
diff
changeset
|
813 |
^ dict |
65d3b4bfe871
Initial support for parsing typed values (now only booleans and integers)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
13
diff
changeset
|
814 |
|
65d3b4bfe871
Initial support for parsing typed values (now only booleans and integers)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
13
diff
changeset
|
815 |
"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
|
816 |
"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
|
817 |
! |
29ea333a1811
More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2
diff
changeset
|
818 |
|
29ea333a1811
More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2
diff
changeset
|
819 |
parseValue |
29ea333a1811
More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2
diff
changeset
|
820 |
" |
29ea333a1811
More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2
diff
changeset
|
821 |
value → const | tuple | list |
29ea333a1811
More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2
diff
changeset
|
822 |
" |
29ea333a1811
More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2
diff
changeset
|
823 |
|
5 | 824 |
self peek == $" ifTrue:[ |
825 |
^ self parseConst |
|
3
29ea333a1811
More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2
diff
changeset
|
826 |
]. |
5 | 827 |
self peek == ${ ifTrue:[ |
828 |
^ self parseTuple. |
|
3
29ea333a1811
More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2
diff
changeset
|
829 |
]. |
29ea333a1811
More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2
diff
changeset
|
830 |
self peek == $[ ifTrue:[ |
5 | 831 |
^ self parseList |
3
29ea333a1811
More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2
diff
changeset
|
832 |
]. |
29ea333a1811
More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2
diff
changeset
|
833 |
self error:'Invalid value' |
29ea333a1811
More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2
diff
changeset
|
834 |
|
29ea333a1811
More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2
diff
changeset
|
835 |
"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
|
836 |
! ! |
29ea333a1811
More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2
diff
changeset
|
837 |
|
45
deb908479a37
Code refactored to use Magritte to meta-describe GDB objects.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
40
diff
changeset
|
838 |
!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
|
839 |
|
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 |
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
|
841 |
| 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
|
842 |
|
f5fe22f56f10
MI parsing: added support for command result values as GDB objects
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
57
diff
changeset
|
843 |
[ |
156
ab92b6dd1c9a
Portability: transform `[...] doWhile: [...]` to `[...] whileTrue`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
126
diff
changeset
|
844 |
"do..." |
73
f5fe22f56f10
MI parsing: added support for command result values as GDB objects
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
57
diff
changeset
|
845 |
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
|
846 |
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
|
847 |
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
|
848 |
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
|
849 |
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
|
850 |
] ifFalse:[ |
f5fe22f56f10
MI parsing: added support for command result values as GDB objects
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
57
diff
changeset
|
851 |
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
|
852 |
]. |
156
ab92b6dd1c9a
Portability: transform `[...] doWhile: [...]` to `[...] whileTrue`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
126
diff
changeset
|
853 |
object propertyAt: propertyName put: propertyValue. |
ab92b6dd1c9a
Portability: transform `[...] doWhile: [...]` to `[...] whileTrue`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
126
diff
changeset
|
854 |
"...while..." |
73
f5fe22f56f10
MI parsing: added support for command result values as GDB objects
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
57
diff
changeset
|
855 |
(self peek == $,) ifTrue:[ self next. true ] ifFalse:[ false ] |
156
ab92b6dd1c9a
Portability: transform `[...] doWhile: [...]` to `[...] whileTrue`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
126
diff
changeset
|
856 |
] whileTrue. |
73
f5fe22f56f10
MI parsing: added support for command result values as GDB objects
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
57
diff
changeset
|
857 |
^ object |
f5fe22f56f10
MI parsing: added support for command result values as GDB objects
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
57
diff
changeset
|
858 |
|
f5fe22f56f10
MI parsing: added support for command result values as GDB objects
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
57
diff
changeset
|
859 |
"Created: / 19-03-2015 / 07:52:28 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
156
ab92b6dd1c9a
Portability: transform `[...] doWhile: [...]` to `[...] whileTrue`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
126
diff
changeset
|
860 |
"Modified: / 30-10-2018 / 14:30:44 / 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
|
861 |
! |
f5fe22f56f10
MI parsing: added support for command result values as GDB objects
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
57
diff
changeset
|
862 |
|
15
65d3b4bfe871
Initial support for parsing typed values (now only booleans and integers)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
13
diff
changeset
|
863 |
parseValueAsBoolean |
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 |
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
|
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 |
|
65d3b4bfe871
Initial support for parsing typed values (now only booleans and integers)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
13
diff
changeset
|
868 |
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
|
869 |
| c | |
65d3b4bfe871
Initial support for parsing typed values (now only booleans and integers)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
13
diff
changeset
|
870 |
|
65d3b4bfe871
Initial support for parsing typed values (now only booleans and integers)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
13
diff
changeset
|
871 |
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
|
872 |
c := self next. |
106
12c96f17fc53
Variable objects: invalidate variable object when thread on inferior terminates
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
101
diff
changeset
|
873 |
(c ~~ $y and:[ c ~~ $n and:[ c ~~ $1 and:[ c ~~ $0 ]]] ) ifTrue:[ |
12c96f17fc53
Variable objects: invalidate variable object when thread on inferior terminates
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
101
diff
changeset
|
874 |
| s | |
12c96f17fc53
Variable objects: invalidate variable object when thread on inferior terminates
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
101
diff
changeset
|
875 |
|
12c96f17fc53
Variable objects: invalidate variable object when thread on inferior terminates
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
101
diff
changeset
|
876 |
s := self parseCStringRest: c asString. |
12c96f17fc53
Variable objects: invalidate variable object when thread on inferior terminates
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
101
diff
changeset
|
877 |
s = 'true' ifTrue:[ ^ true ]. |
12c96f17fc53
Variable objects: invalidate variable object when thread on inferior terminates
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
101
diff
changeset
|
878 |
s = 'false' ifTrue:[ ^ false ]. |
12c96f17fc53
Variable objects: invalidate variable object when thread on inferior terminates
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
101
diff
changeset
|
879 |
^ s |
12c96f17fc53
Variable objects: invalidate variable object when thread on inferior terminates
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
101
diff
changeset
|
880 |
|
15
65d3b4bfe871
Initial support for parsing typed values (now only booleans and integers)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
13
diff
changeset
|
881 |
]. |
65d3b4bfe871
Initial support for parsing typed values (now only booleans and integers)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
13
diff
changeset
|
882 |
self peek ~~ $" ifTrue:[ |
106
12c96f17fc53
Variable objects: invalidate variable object when thread on inferior terminates
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
101
diff
changeset
|
883 |
| s | |
12c96f17fc53
Variable objects: invalidate variable object when thread on inferior terminates
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
101
diff
changeset
|
884 |
|
12c96f17fc53
Variable objects: invalidate variable object when thread on inferior terminates
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
101
diff
changeset
|
885 |
s := self parseCStringRest: c asString. |
12c96f17fc53
Variable objects: invalidate variable object when thread on inferior terminates
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
101
diff
changeset
|
886 |
s = 'true' ifTrue:[ ^ true ]. |
12c96f17fc53
Variable objects: invalidate variable object when thread on inferior terminates
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
101
diff
changeset
|
887 |
s = 'false' ifTrue:[ ^ false ]. |
12c96f17fc53
Variable objects: invalidate variable object when thread on inferior terminates
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
101
diff
changeset
|
888 |
^ s |
15
65d3b4bfe871
Initial support for parsing typed values (now only booleans and integers)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
13
diff
changeset
|
889 |
]. |
17
10d696c79188
Value descroptors refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15
diff
changeset
|
890 |
self next. |
101
d8fee2af20b2
Variable objects: added support for composite types
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
99
diff
changeset
|
891 |
^ (c == $y) or:[ c == $1 ] |
15
65d3b4bfe871
Initial support for parsing typed values (now only booleans and integers)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
13
diff
changeset
|
892 |
]. |
65d3b4bfe871
Initial support for parsing typed values (now only booleans and integers)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
13
diff
changeset
|
893 |
^ 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
|
894 |
|
65d3b4bfe871
Initial support for parsing typed values (now only booleans and integers)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
13
diff
changeset
|
895 |
"Created: / 18-06-2014 / 07:33:59 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
106
12c96f17fc53
Variable objects: invalidate variable object when thread on inferior terminates
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
101
diff
changeset
|
896 |
"Modified: / 12-02-2018 / 22:21:04 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
17
10d696c79188
Value descroptors refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15
diff
changeset
|
897 |
! |
10d696c79188
Value descroptors refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15
diff
changeset
|
898 |
|
126
fb73b0af430b
Added initial support for disassembling
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
106
diff
changeset
|
899 |
parseValueAsByteArray |
fb73b0af430b
Added initial support for disassembling
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
106
diff
changeset
|
900 |
^ self parseByteArray |
fb73b0af430b
Added initial support for disassembling
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
106
diff
changeset
|
901 |
|
fb73b0af430b
Added initial support for disassembling
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
106
diff
changeset
|
902 |
"Created: / 22-06-2018 / 11:18:51 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
fb73b0af430b
Added initial support for disassembling
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
106
diff
changeset
|
903 |
! |
fb73b0af430b
Added initial support for disassembling
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
106
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 |
parseValueAsInstanceOf: class |
deb908479a37
Code refactored to use Magritte to meta-describe GDB objects.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
40
diff
changeset
|
906 |
| description | |
deb908479a37
Code refactored to use Magritte to meta-describe GDB objects.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
40
diff
changeset
|
907 |
|
deb908479a37
Code refactored to use Magritte to meta-describe GDB objects.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
40
diff
changeset
|
908 |
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
|
909 |
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
|
910 |
] ifFalse:[ |
deb908479a37
Code refactored to use Magritte to meta-describe GDB objects.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
40
diff
changeset
|
911 |
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
|
912 |
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
|
913 |
] ifFalse:[ |
deb908479a37
Code refactored to use Magritte to meta-describe GDB objects.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
40
diff
changeset
|
914 |
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
|
915 |
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
|
916 |
] ifFalse:[ |
deb908479a37
Code refactored to use Magritte to meta-describe GDB objects.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
40
diff
changeset
|
917 |
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
|
918 |
]]]. |
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 |
^ self parseValueAsListOf: class describedBy: description. |
17
10d696c79188
Value descroptors refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15
diff
changeset
|
921 |
|
10d696c79188
Value descroptors refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15
diff
changeset
|
922 |
"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
|
923 |
"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
|
924 |
! |
10d696c79188
Value descroptors refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15
diff
changeset
|
925 |
|
10d696c79188
Value descroptors refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15
diff
changeset
|
926 |
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
|
927 |
| object | |
17
10d696c79188
Value descroptors refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15
diff
changeset
|
928 |
|
10d696c79188
Value descroptors refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15
diff
changeset
|
929 |
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
|
930 |
self next. "/ eat { |
17
10d696c79188
Value descroptors refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15
diff
changeset
|
931 |
object := class new. |
10d696c79188
Value descroptors refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15
diff
changeset
|
932 |
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
|
933 |
self parsePropertiesFor: object describedBy: descriptor |
17
10d696c79188
Value descroptors refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15
diff
changeset
|
934 |
]. |
10d696c79188
Value descroptors refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15
diff
changeset
|
935 |
self expect: $}. |
10d696c79188
Value descroptors refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15
diff
changeset
|
936 |
^ object |
10d696c79188
Value descroptors refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15
diff
changeset
|
937 |
|
10d696c79188
Value descroptors refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15
diff
changeset
|
938 |
"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
|
939 |
"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
|
940 |
! |
65d3b4bfe871
Initial support for parsing typed values (now only booleans and integers)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
13
diff
changeset
|
941 |
|
65d3b4bfe871
Initial support for parsing typed values (now only booleans and integers)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
13
diff
changeset
|
942 |
parseValueAsInteger |
65d3b4bfe871
Initial support for parsing typed values (now only booleans and integers)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
13
diff
changeset
|
943 |
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
|
944 |
| 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
|
945 |
|
65d3b4bfe871
Initial support for parsing typed values (now only booleans and integers)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
13
diff
changeset
|
946 |
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
|
947 |
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
|
948 |
v := 0. |
126
fb73b0af430b
Added initial support for disassembling
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
106
diff
changeset
|
949 |
c isDigit ifTrue:[ |
fb73b0af430b
Added initial support for disassembling
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
106
diff
changeset
|
950 |
(c == $0 and:[ self peek == $x ]) ifTrue:[ |
fb73b0af430b
Added initial support for disassembling
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
106
diff
changeset
|
951 |
"/ Find 0x prefix, parse hex number (address or alike) |
fb73b0af430b
Added initial support for disassembling
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
106
diff
changeset
|
952 |
self next. "/ eat $x |
15
65d3b4bfe871
Initial support for parsing typed values (now only booleans and integers)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
13
diff
changeset
|
953 |
c := self next. |
126
fb73b0af430b
Added initial support for disassembling
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
106
diff
changeset
|
954 |
[ c isHexDigit ] whileTrue:[ |
fb73b0af430b
Added initial support for disassembling
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
106
diff
changeset
|
955 |
v := (v << 4) + (c digitValue). |
fb73b0af430b
Added initial support for disassembling
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
106
diff
changeset
|
956 |
c := self next. |
fb73b0af430b
Added initial support for disassembling
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
106
diff
changeset
|
957 |
]. |
fb73b0af430b
Added initial support for disassembling
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
106
diff
changeset
|
958 |
] ifFalse:[ |
fb73b0af430b
Added initial support for disassembling
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
106
diff
changeset
|
959 |
"/ Parse decimal number |
fb73b0af430b
Added initial support for disassembling
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
106
diff
changeset
|
960 |
[ c isDigit ] whileTrue:[ |
fb73b0af430b
Added initial support for disassembling
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
106
diff
changeset
|
961 |
v := (v * 10) + (c digitValue). |
fb73b0af430b
Added initial support for disassembling
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
106
diff
changeset
|
962 |
c := self next. |
fb73b0af430b
Added initial support for disassembling
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
106
diff
changeset
|
963 |
]. |
15
65d3b4bfe871
Initial support for parsing typed values (now only booleans and integers)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
13
diff
changeset
|
964 |
]. |
65d3b4bfe871
Initial support for parsing typed values (now only booleans and integers)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
13
diff
changeset
|
965 |
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
|
966 |
^ v |
65d3b4bfe871
Initial support for parsing typed values (now only booleans and integers)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
13
diff
changeset
|
967 |
] ifFalse:[ |
65d3b4bfe871
Initial support for parsing typed values (now only booleans and integers)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
13
diff
changeset
|
968 |
^ 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
|
969 |
]. |
65d3b4bfe871
Initial support for parsing typed values (now only booleans and integers)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
13
diff
changeset
|
970 |
]. |
65d3b4bfe871
Initial support for parsing typed values (now only booleans and integers)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
13
diff
changeset
|
971 |
^ 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
|
972 |
]. |
65d3b4bfe871
Initial support for parsing typed values (now only booleans and integers)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
13
diff
changeset
|
973 |
^ 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
|
974 |
|
65d3b4bfe871
Initial support for parsing typed values (now only booleans and integers)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
13
diff
changeset
|
975 |
"Created: / 18-06-2014 / 07:39:22 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
126
fb73b0af430b
Added initial support for disassembling
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
106
diff
changeset
|
976 |
"Modified: / 03-07-2018 / 14:50:15 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
17
10d696c79188
Value descroptors refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15
diff
changeset
|
977 |
! |
10d696c79188
Value descroptors refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15
diff
changeset
|
978 |
|
89
ba62d486014f
Initial support for breakpoints with multiple locations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
87
diff
changeset
|
979 |
parseValueAsListElementDescribedBy:descriptor |
126
fb73b0af430b
Added initial support for disassembling
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
106
diff
changeset
|
980 |
| tag | |
89
ba62d486014f
Initial support for breakpoints with multiple locations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
87
diff
changeset
|
981 |
self peek isAlphaNumeric ifTrue:[ |
126
fb73b0af430b
Added initial support for disassembling
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
106
diff
changeset
|
982 |
tag := self parseVariable. |
89
ba62d486014f
Initial support for breakpoints with multiple locations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
87
diff
changeset
|
983 |
self expect: $=. |
ba62d486014f
Initial support for breakpoints with multiple locations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
87
diff
changeset
|
984 |
]. |
126
fb73b0af430b
Added initial support for disassembling
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
106
diff
changeset
|
985 |
^ descriptor parseUsingGDBMIParser:self taggedAs: tag. |
89
ba62d486014f
Initial support for breakpoints with multiple locations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
87
diff
changeset
|
986 |
|
ba62d486014f
Initial support for breakpoints with multiple locations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
87
diff
changeset
|
987 |
"Created: / 11-11-2017 / 12:19:08 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
126
fb73b0af430b
Added initial support for disassembling
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
106
diff
changeset
|
988 |
"Modified: / 03-07-2018 / 16:22:34 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
89
ba62d486014f
Initial support for breakpoints with multiple locations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
87
diff
changeset
|
989 |
! |
ba62d486014f
Initial support for breakpoints with multiple locations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
87
diff
changeset
|
990 |
|
45
deb908479a37
Code refactored to use Magritte to meta-describe GDB objects.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
40
diff
changeset
|
991 |
parseValueAsListOf: class |
deb908479a37
Code refactored to use Magritte to meta-describe GDB objects.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
40
diff
changeset
|
992 |
| description | |
deb908479a37
Code refactored to use Magritte to meta-describe GDB objects.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
40
diff
changeset
|
993 |
|
deb908479a37
Code refactored to use Magritte to meta-describe GDB objects.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
40
diff
changeset
|
994 |
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
|
995 |
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
|
996 |
] ifFalse:[ |
deb908479a37
Code refactored to use Magritte to meta-describe GDB objects.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
40
diff
changeset
|
997 |
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
|
998 |
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
|
999 |
] ifFalse:[ |
deb908479a37
Code refactored to use Magritte to meta-describe GDB objects.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
40
diff
changeset
|
1000 |
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
|
1001 |
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
|
1002 |
] ifFalse:[ |
deb908479a37
Code refactored to use Magritte to meta-describe GDB objects.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
40
diff
changeset
|
1003 |
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
|
1004 |
]]]. |
deb908479a37
Code refactored to use Magritte to meta-describe GDB objects.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
40
diff
changeset
|
1005 |
|
deb908479a37
Code refactored to use Magritte to meta-describe GDB objects.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
40
diff
changeset
|
1006 |
^ self parseValueAsListOf: class describedBy: description. |
17
10d696c79188
Value descroptors refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15
diff
changeset
|
1007 |
|
10d696c79188
Value descroptors refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15
diff
changeset
|
1008 |
"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
|
1009 |
"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
|
1010 |
! |
10d696c79188
Value descroptors refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15
diff
changeset
|
1011 |
|
10d696c79188
Value descroptors refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15
diff
changeset
|
1012 |
parseValueAsListOf:class describedBy:descriptor |
89
ba62d486014f
Initial support for breakpoints with multiple locations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
87
diff
changeset
|
1013 |
^ self parseValueAsListOf:class describedBy:descriptor allowOmmitedBrackets: false |
ba62d486014f
Initial support for breakpoints with multiple locations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
87
diff
changeset
|
1014 |
|
ba62d486014f
Initial support for breakpoints with multiple locations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
87
diff
changeset
|
1015 |
"Created: / 18-06-2014 / 21:00:08 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
ba62d486014f
Initial support for breakpoints with multiple locations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
87
diff
changeset
|
1016 |
"Modified: / 11-11-2017 / 12:14:50 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
ba62d486014f
Initial support for breakpoints with multiple locations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
87
diff
changeset
|
1017 |
! |
ba62d486014f
Initial support for breakpoints with multiple locations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
87
diff
changeset
|
1018 |
|
ba62d486014f
Initial support for breakpoints with multiple locations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
87
diff
changeset
|
1019 |
parseValueAsListOf:class describedBy:descriptor allowOmmitedBrackets: allowOmmitedBrackets |
ba62d486014f
Initial support for breakpoints with multiple locations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
87
diff
changeset
|
1020 |
| list bracketsOmmited | |
ba62d486014f
Initial support for breakpoints with multiple locations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
87
diff
changeset
|
1021 |
|
ba62d486014f
Initial support for breakpoints with multiple locations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
87
diff
changeset
|
1022 |
self peek == $[ ifTrue:[ |
ba62d486014f
Initial support for breakpoints with multiple locations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
87
diff
changeset
|
1023 |
self next. "/ eat $[ |
ba62d486014f
Initial support for breakpoints with multiple locations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
87
diff
changeset
|
1024 |
bracketsOmmited := false. |
ba62d486014f
Initial support for breakpoints with multiple locations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
87
diff
changeset
|
1025 |
] ifFalse:[ |
ba62d486014f
Initial support for breakpoints with multiple locations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
87
diff
changeset
|
1026 |
allowOmmitedBrackets ifFalse:[ |
ba62d486014f
Initial support for breakpoints with multiple locations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
87
diff
changeset
|
1027 |
^ self parseValue |
ba62d486014f
Initial support for breakpoints with multiple locations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
87
diff
changeset
|
1028 |
]. |
ba62d486014f
Initial support for breakpoints with multiple locations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
87
diff
changeset
|
1029 |
bracketsOmmited := true. |
ba62d486014f
Initial support for breakpoints with multiple locations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
87
diff
changeset
|
1030 |
]. |
ba62d486014f
Initial support for breakpoints with multiple locations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
87
diff
changeset
|
1031 |
|
ba62d486014f
Initial support for breakpoints with multiple locations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
87
diff
changeset
|
1032 |
list := OrderedCollection new. |
ba62d486014f
Initial support for breakpoints with multiple locations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
87
diff
changeset
|
1033 |
bracketsOmmited ifTrue:[ |
17
10d696c79188
Value descroptors refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15
diff
changeset
|
1034 |
[ |
156
ab92b6dd1c9a
Portability: transform `[...] doWhile: [...]` to `[...] whileTrue`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
126
diff
changeset
|
1035 |
"do..." |
89
ba62d486014f
Initial support for breakpoints with multiple locations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
87
diff
changeset
|
1036 |
list add: (self parseValueAsListElementDescribedBy: descriptor). |
156
ab92b6dd1c9a
Portability: transform `[...] doWhile: [...]` to `[...] whileTrue`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
126
diff
changeset
|
1037 |
"...while..." |
89
ba62d486014f
Initial support for breakpoints with multiple locations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
87
diff
changeset
|
1038 |
(self peek == $,) ifTrue:[ self next ]. |
ba62d486014f
Initial support for breakpoints with multiple locations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
87
diff
changeset
|
1039 |
self peek == ${ |
156
ab92b6dd1c9a
Portability: transform `[...] doWhile: [...]` to `[...] whileTrue`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
126
diff
changeset
|
1040 |
] whileTrue. |
89
ba62d486014f
Initial support for breakpoints with multiple locations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
87
diff
changeset
|
1041 |
] ifFalse:[ |
ba62d486014f
Initial support for breakpoints with multiple locations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
87
diff
changeset
|
1042 |
self peek ~~ $] ifTrue:[ |
ba62d486014f
Initial support for breakpoints with multiple locations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
87
diff
changeset
|
1043 |
[ |
156
ab92b6dd1c9a
Portability: transform `[...] doWhile: [...]` to `[...] whileTrue`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
126
diff
changeset
|
1044 |
"do..." |
89
ba62d486014f
Initial support for breakpoints with multiple locations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
87
diff
changeset
|
1045 |
list add: (self parseValueAsListElementDescribedBy: descriptor). |
156
ab92b6dd1c9a
Portability: transform `[...] doWhile: [...]` to `[...] whileTrue`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
126
diff
changeset
|
1046 |
"...while..." |
89
ba62d486014f
Initial support for breakpoints with multiple locations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
87
diff
changeset
|
1047 |
(self peek == $,) ifTrue:[ self next. true ] ifFalse:[ false ] |
156
ab92b6dd1c9a
Portability: transform `[...] doWhile: [...]` to `[...] whileTrue`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
126
diff
changeset
|
1048 |
] whileTrue. |
17
10d696c79188
Value descroptors refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15
diff
changeset
|
1049 |
]. |
10d696c79188
Value descroptors refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15
diff
changeset
|
1050 |
]. |
10d696c79188
Value descroptors refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15
diff
changeset
|
1051 |
|
89
ba62d486014f
Initial support for breakpoints with multiple locations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
87
diff
changeset
|
1052 |
bracketsOmmited ifFalse:[ |
ba62d486014f
Initial support for breakpoints with multiple locations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
87
diff
changeset
|
1053 |
self expect: $]. "/ eats $] |
ba62d486014f
Initial support for breakpoints with multiple locations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
87
diff
changeset
|
1054 |
]. |
ba62d486014f
Initial support for breakpoints with multiple locations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
87
diff
changeset
|
1055 |
^ list asNilIfEmpty. |
ba62d486014f
Initial support for breakpoints with multiple locations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
87
diff
changeset
|
1056 |
|
ba62d486014f
Initial support for breakpoints with multiple locations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
87
diff
changeset
|
1057 |
"Created: / 11-11-2017 / 12:14:23 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
156
ab92b6dd1c9a
Portability: transform `[...] doWhile: [...]` to `[...] whileTrue`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
126
diff
changeset
|
1058 |
"Modified: / 30-10-2018 / 14:31:59 / 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
|
1059 |
! |
deb908479a37
Code refactored to use Magritte to meta-describe GDB objects.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
40
diff
changeset
|
1060 |
|
deb908479a37
Code refactored to use Magritte to meta-describe GDB objects.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
40
diff
changeset
|
1061 |
parseValueAsString |
deb908479a37
Code refactored to use Magritte to meta-describe GDB objects.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
40
diff
changeset
|
1062 |
^ self parseCString |
deb908479a37
Code refactored to use Magritte to meta-describe GDB objects.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
40
diff
changeset
|
1063 |
|
deb908479a37
Code refactored to use Magritte to meta-describe GDB objects.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
40
diff
changeset
|
1064 |
"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
|
1065 |
! ! |
65d3b4bfe871
Initial support for parsing typed values (now only booleans and integers)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
13
diff
changeset
|
1066 |
|
45
deb908479a37
Code refactored to use Magritte to meta-describe GDB objects.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
40
diff
changeset
|
1067 |
!GDBMIParser methodsFor:'streaming'! |
2
a96eb336dbd3
More work reading.writing GDB events/commands
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1068 |
|
a96eb336dbd3
More work reading.writing GDB events/commands
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1069 |
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
|
1070 |
^ lookahead isNil and:[ source atEnd ]. |
2
a96eb336dbd3
More work reading.writing GDB events/commands
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1071 |
|
a96eb336dbd3
More work reading.writing GDB events/commands
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1072 |
"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
|
1073 |
"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
|
1074 |
! |
a96eb336dbd3
More work reading.writing GDB events/commands
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1075 |
|
a96eb336dbd3
More work reading.writing GDB events/commands
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1076 |
next |
a96eb336dbd3
More work reading.writing GDB events/commands
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1077 |
| next | |
5 | 1078 |
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
|
1079 |
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
|
1080 |
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
|
1081 |
^ next. |
2
a96eb336dbd3
More work reading.writing GDB events/commands
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1082 |
]. |
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
|
1083 |
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
|
1084 |
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
|
1085 |
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
|
1086 |
]. |
98ff50f8a25d
Temporary commit : initial work on session recorder (to use for simulation later)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
20
diff
changeset
|
1087 |
^ next |
2
a96eb336dbd3
More work reading.writing GDB events/commands
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1088 |
|
a96eb336dbd3
More work reading.writing GDB events/commands
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1089 |
"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
|
1090 |
"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
|
1091 |
! |
a96eb336dbd3
More work reading.writing GDB events/commands
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1092 |
|
a96eb336dbd3
More work reading.writing GDB events/commands
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1093 |
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
|
1094 |
| line | |
27
e7e01078d9c4
Temporary commit - more on process simulator
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
25
diff
changeset
|
1095 |
|
e7e01078d9c4
Temporary commit - more on process simulator
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
25
diff
changeset
|
1096 |
line := lookahead notNil |
55
437ee6413c74
Initial support for variables
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
52
diff
changeset
|
1097 |
ifTrue:[ lookahead asString , (source nextLine ? '') ] |
437ee6413c74
Initial support for variables
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
52
diff
changeset
|
1098 |
ifFalse:[ source nextLine ? '']. |
2
a96eb336dbd3
More work reading.writing GDB events/commands
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1099 |
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
|
1100 |
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
|
1101 |
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
|
1102 |
]. |
98ff50f8a25d
Temporary commit : initial work on session recorder (to use for simulation later)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
20
diff
changeset
|
1103 |
^ line |
2
a96eb336dbd3
More work reading.writing GDB events/commands
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1104 |
|
a96eb336dbd3
More work reading.writing GDB events/commands
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1105 |
"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
|
1106 |
"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
|
1107 |
! |
a96eb336dbd3
More work reading.writing GDB events/commands
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1108 |
|
a96eb336dbd3
More work reading.writing GDB events/commands
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1109 |
peek |
5 | 1110 |
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
|
1111 |
^ lookahead |
2
a96eb336dbd3
More work reading.writing GDB events/commands
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1112 |
]. |
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
|
1113 |
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
|
1114 |
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
|
1115 |
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
|
1116 |
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
|
1117 |
]. |
98ff50f8a25d
Temporary commit : initial work on session recorder (to use for simulation later)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
20
diff
changeset
|
1118 |
]. |
98ff50f8a25d
Temporary commit : initial work on session recorder (to use for simulation later)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
20
diff
changeset
|
1119 |
^ lookahead |
2
a96eb336dbd3
More work reading.writing GDB events/commands
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1120 |
|
a96eb336dbd3
More work reading.writing GDB events/commands
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1121 |
"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
|
1122 |
"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
|
1123 |
! |
a96eb336dbd3
More work reading.writing GDB events/commands
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1124 |
|
a96eb336dbd3
More work reading.writing GDB events/commands
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1125 |
peekOrNil |
a96eb336dbd3
More work reading.writing GDB events/commands
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1126 |
lookahead notNil ifTrue:[ ^ lookahead ]. |
a96eb336dbd3
More work reading.writing GDB events/commands
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1127 |
source atEnd ifTrue:[ ^ nil ]. |
a96eb336dbd3
More work reading.writing GDB events/commands
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1128 |
^ self peek |
a96eb336dbd3
More work reading.writing GDB events/commands
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1129 |
|
a96eb336dbd3
More work reading.writing GDB events/commands
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1130 |
"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
|
1131 |
! |
a96eb336dbd3
More work reading.writing GDB events/commands
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1132 |
|
a96eb336dbd3
More work reading.writing GDB events/commands
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1133 |
skipSeparators |
27
e7e01078d9c4
Temporary commit - more on process simulator
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
25
diff
changeset
|
1134 |
[ 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
|
1135 |
|
a96eb336dbd3
More work reading.writing GDB events/commands
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1136 |
"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
|
1137 |
"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
|
1138 |
! ! |
6 | 1139 |
|
52
0618438f6ba5
Report async execution event immediately.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
45
diff
changeset
|
1140 |
!GDBMIParser class methodsFor:'documentation'! |
0618438f6ba5
Report async execution event immediately.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
45
diff
changeset
|
1141 |
|
0618438f6ba5
Report async execution event immediately.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
45
diff
changeset
|
1142 |
version_HG |
0618438f6ba5
Report async execution event immediately.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
45
diff
changeset
|
1143 |
|
0618438f6ba5
Report async execution event immediately.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
45
diff
changeset
|
1144 |
^ '$Changeset: <not expanded> $' |
0618438f6ba5
Report async execution event immediately.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
45
diff
changeset
|
1145 |
! ! |
0618438f6ba5
Report async execution event immediately.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
45
diff
changeset
|
1146 |