author | Jan Vrany <jan.vrany@fit.cvut.cz> |
Mon, 25 Feb 2019 17:55:20 +0000 | |
changeset 177 | e7bd05df3d6b |
parent 164 | a16705f64a64 |
child 236 | e36e28215fd9 |
permissions | -rw-r--r-- |
17
10d696c79188
Value descroptors refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1 |
"{ Package: 'jv:libgdbs' }"! |
10d696c79188
Value descroptors refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2 |
|
126
fb73b0af430b
Added initial support for disassembling
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
119
diff
changeset
|
3 |
!ByteArray methodsFor:'printing & storing'! |
fb73b0af430b
Added initial support for disassembling
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
119
diff
changeset
|
4 |
|
fb73b0af430b
Added initial support for disassembling
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
119
diff
changeset
|
5 |
pythonOn: aStream |
fb73b0af430b
Added initial support for disassembling
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
119
diff
changeset
|
6 |
"Prints Python-escaped representation on `aStream`. |
fb73b0af430b
Added initial support for disassembling
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
119
diff
changeset
|
7 |
|
fb73b0af430b
Added initial support for disassembling
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
119
diff
changeset
|
8 |
This may be useful when copu-pasting ByteArray values to |
fb73b0af430b
Added initial support for disassembling
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
119
diff
changeset
|
9 |
Python code." |
fb73b0af430b
Added initial support for disassembling
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
119
diff
changeset
|
10 |
|
fb73b0af430b
Added initial support for disassembling
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
119
diff
changeset
|
11 |
self do:[:byte | |
fb73b0af430b
Added initial support for disassembling
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
119
diff
changeset
|
12 |
(byte between: $0 codePoint and: $z codePoint) ifTrue:[ |
fb73b0af430b
Added initial support for disassembling
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
119
diff
changeset
|
13 |
aStream nextPut: (Character codePoint: byte) |
fb73b0af430b
Added initial support for disassembling
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
119
diff
changeset
|
14 |
] ifFalse:[ |
fb73b0af430b
Added initial support for disassembling
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
119
diff
changeset
|
15 |
aStream nextPutAll: '\x'. |
fb73b0af430b
Added initial support for disassembling
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
119
diff
changeset
|
16 |
byte printOn:aStream base:16 size:2 fill:$0 |
fb73b0af430b
Added initial support for disassembling
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
119
diff
changeset
|
17 |
]. |
fb73b0af430b
Added initial support for disassembling
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
119
diff
changeset
|
18 |
]. |
fb73b0af430b
Added initial support for disassembling
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
119
diff
changeset
|
19 |
|
fb73b0af430b
Added initial support for disassembling
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
119
diff
changeset
|
20 |
" |
fb73b0af430b
Added initial support for disassembling
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
119
diff
changeset
|
21 |
#[46 0 1 1 0 41 0 1 1 0 36 0 0 0 0 0 1 0 28 0 1 25 0 97 83 101 113 117 101 110 99 101 97 98 108 101 67 111 108 108 101 99 116 105 111 110] pythonString |
fb73b0af430b
Added initial support for disassembling
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
119
diff
changeset
|
22 |
" |
fb73b0af430b
Added initial support for disassembling
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
119
diff
changeset
|
23 |
|
fb73b0af430b
Added initial support for disassembling
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
119
diff
changeset
|
24 |
"Created: / 22-06-2018 / 09:30:22 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
fb73b0af430b
Added initial support for disassembling
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
119
diff
changeset
|
25 |
! ! |
fb73b0af430b
Added initial support for disassembling
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
119
diff
changeset
|
26 |
|
fb73b0af430b
Added initial support for disassembling
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
119
diff
changeset
|
27 |
!ByteArray methodsFor:'printing & storing'! |
fb73b0af430b
Added initial support for disassembling
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
119
diff
changeset
|
28 |
|
fb73b0af430b
Added initial support for disassembling
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
119
diff
changeset
|
29 |
pythonString |
fb73b0af430b
Added initial support for disassembling
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
119
diff
changeset
|
30 |
"Returns Python-escaped representation of self as String`. |
fb73b0af430b
Added initial support for disassembling
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
119
diff
changeset
|
31 |
|
fb73b0af430b
Added initial support for disassembling
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
119
diff
changeset
|
32 |
This may be useful when copu-pasting ByteArray values to |
fb73b0af430b
Added initial support for disassembling
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
119
diff
changeset
|
33 |
Python code." |
fb73b0af430b
Added initial support for disassembling
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
119
diff
changeset
|
34 |
|
fb73b0af430b
Added initial support for disassembling
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
119
diff
changeset
|
35 |
^ String streamContents:[ :s | self pythonOn: s ] |
fb73b0af430b
Added initial support for disassembling
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
119
diff
changeset
|
36 |
|
fb73b0af430b
Added initial support for disassembling
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
119
diff
changeset
|
37 |
" |
fb73b0af430b
Added initial support for disassembling
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
119
diff
changeset
|
38 |
#[46 0 1 1 0 41 0 1 1 0 36 0 0 0 0 0 1 0 28 0 1 25 0 97 83 101 113 117 101 110 99 101 97 98 108 101 67 111 108 108 101 99 116 105 111 110] pythonString |
fb73b0af430b
Added initial support for disassembling
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
119
diff
changeset
|
39 |
" |
fb73b0af430b
Added initial support for disassembling
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
119
diff
changeset
|
40 |
|
fb73b0af430b
Added initial support for disassembling
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
119
diff
changeset
|
41 |
"Created: / 22-06-2018 / 09:31:17 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
fb73b0af430b
Added initial support for disassembling
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
119
diff
changeset
|
42 |
! ! |
fb73b0af430b
Added initial support for disassembling
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
119
diff
changeset
|
43 |
|
119
258bf0b2317c
Fixed `GDBDebugger >> directories` to work on Windows
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
100
diff
changeset
|
44 |
!Filename methodsFor:'queries-path & name'! |
258bf0b2317c
Fixed `GDBDebugger >> directories` to work on Windows
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
100
diff
changeset
|
45 |
|
258bf0b2317c
Fixed `GDBDebugger >> directories` to work on Windows
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
100
diff
changeset
|
46 |
cygName |
258bf0b2317c
Fixed `GDBDebugger >> directories` to work on Windows
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
100
diff
changeset
|
47 |
" |
258bf0b2317c
Fixed `GDBDebugger >> directories` to work on Windows
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
100
diff
changeset
|
48 |
Return the pathname as used by Cygwin. |
258bf0b2317c
Fixed `GDBDebugger >> directories` to work on Windows
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
100
diff
changeset
|
49 |
See http://cygwin.com/cygwin-ug-net/cygpath.html |
258bf0b2317c
Fixed `GDBDebugger >> directories` to work on Windows
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
100
diff
changeset
|
50 |
" |
258bf0b2317c
Fixed `GDBDebugger >> directories` to work on Windows
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
100
diff
changeset
|
51 |
| cygName | |
258bf0b2317c
Fixed `GDBDebugger >> directories` to work on Windows
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
100
diff
changeset
|
52 |
|
258bf0b2317c
Fixed `GDBDebugger >> directories` to work on Windows
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
100
diff
changeset
|
53 |
cygName := self pathName. |
258bf0b2317c
Fixed `GDBDebugger >> directories` to work on Windows
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
100
diff
changeset
|
54 |
(cygName includes: $\) ifTrue:[ |
258bf0b2317c
Fixed `GDBDebugger >> directories` to work on Windows
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
100
diff
changeset
|
55 |
cygName := cygName copyReplaceAll: $\ with: $/. |
258bf0b2317c
Fixed `GDBDebugger >> directories` to work on Windows
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
100
diff
changeset
|
56 |
(cygName size > 1 and:[cygName first isLetter and: [cygName second == $:]]) ifTrue:[ |
258bf0b2317c
Fixed `GDBDebugger >> directories` to work on Windows
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
100
diff
changeset
|
57 |
cygName |
258bf0b2317c
Fixed `GDBDebugger >> directories` to work on Windows
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
100
diff
changeset
|
58 |
at: 2 put: cygName first asLowercase; |
258bf0b2317c
Fixed `GDBDebugger >> directories` to work on Windows
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
100
diff
changeset
|
59 |
at: 1 put: $/ |
258bf0b2317c
Fixed `GDBDebugger >> directories` to work on Windows
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
100
diff
changeset
|
60 |
]. |
258bf0b2317c
Fixed `GDBDebugger >> directories` to work on Windows
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
100
diff
changeset
|
61 |
]. |
258bf0b2317c
Fixed `GDBDebugger >> directories` to work on Windows
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
100
diff
changeset
|
62 |
^ cygName |
258bf0b2317c
Fixed `GDBDebugger >> directories` to work on Windows
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
100
diff
changeset
|
63 |
|
258bf0b2317c
Fixed `GDBDebugger >> directories` to work on Windows
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
100
diff
changeset
|
64 |
" |
258bf0b2317c
Fixed `GDBDebugger >> directories` to work on Windows
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
100
diff
changeset
|
65 |
Filename currentDirectory cygName |
258bf0b2317c
Fixed `GDBDebugger >> directories` to work on Windows
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
100
diff
changeset
|
66 |
'C:\' asFilename cygName |
258bf0b2317c
Fixed `GDBDebugger >> directories` to work on Windows
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
100
diff
changeset
|
67 |
" |
258bf0b2317c
Fixed `GDBDebugger >> directories` to work on Windows
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
100
diff
changeset
|
68 |
|
258bf0b2317c
Fixed `GDBDebugger >> directories` to work on Windows
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
100
diff
changeset
|
69 |
"Created: / 03-04-2018 / 17:05:50 / jv" |
258bf0b2317c
Fixed `GDBDebugger >> directories` to work on Windows
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
100
diff
changeset
|
70 |
! ! |
258bf0b2317c
Fixed `GDBDebugger >> directories` to work on Windows
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
100
diff
changeset
|
71 |
|
258bf0b2317c
Fixed `GDBDebugger >> directories` to work on Windows
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
100
diff
changeset
|
72 |
!Filename class methodsFor:'instance creation'! |
258bf0b2317c
Fixed `GDBDebugger >> directories` to work on Windows
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
100
diff
changeset
|
73 |
|
258bf0b2317c
Fixed `GDBDebugger >> directories` to work on Windows
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
100
diff
changeset
|
74 |
cygNamed:aString |
258bf0b2317c
Fixed `GDBDebugger >> directories` to work on Windows
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
100
diff
changeset
|
75 |
" |
258bf0b2317c
Fixed `GDBDebugger >> directories` to work on Windows
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
100
diff
changeset
|
76 |
Return a Filename instance for given Cygwin path. |
258bf0b2317c
Fixed `GDBDebugger >> directories` to work on Windows
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
100
diff
changeset
|
77 |
See http://cygwin.com/cygwin-ug-net/cygpath.html, option -w |
258bf0b2317c
Fixed `GDBDebugger >> directories` to work on Windows
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
100
diff
changeset
|
78 |
" |
258bf0b2317c
Fixed `GDBDebugger >> directories` to work on Windows
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
100
diff
changeset
|
79 |
| winName | |
258bf0b2317c
Fixed `GDBDebugger >> directories` to work on Windows
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
100
diff
changeset
|
80 |
|
258bf0b2317c
Fixed `GDBDebugger >> directories` to work on Windows
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
100
diff
changeset
|
81 |
winName := aString. |
258bf0b2317c
Fixed `GDBDebugger >> directories` to work on Windows
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
100
diff
changeset
|
82 |
self concreteClass == PCFilename ifTrue:[ |
258bf0b2317c
Fixed `GDBDebugger >> directories` to work on Windows
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
100
diff
changeset
|
83 |
winName := winName copyReplaceAll: $/ with: $\. |
258bf0b2317c
Fixed `GDBDebugger >> directories` to work on Windows
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
100
diff
changeset
|
84 |
(winName first == $\ and: [winName second isLetter and:[ winName third = $\]]) ifTrue:[ |
258bf0b2317c
Fixed `GDBDebugger >> directories` to work on Windows
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
100
diff
changeset
|
85 |
winName |
258bf0b2317c
Fixed `GDBDebugger >> directories` to work on Windows
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
100
diff
changeset
|
86 |
at: 1 put: (winName at: 2) asUppercase; |
258bf0b2317c
Fixed `GDBDebugger >> directories` to work on Windows
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
100
diff
changeset
|
87 |
at: 2 put: $:. |
258bf0b2317c
Fixed `GDBDebugger >> directories` to work on Windows
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
100
diff
changeset
|
88 |
]. |
258bf0b2317c
Fixed `GDBDebugger >> directories` to work on Windows
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
100
diff
changeset
|
89 |
]. |
258bf0b2317c
Fixed `GDBDebugger >> directories` to work on Windows
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
100
diff
changeset
|
90 |
^ self named: winName. |
258bf0b2317c
Fixed `GDBDebugger >> directories` to work on Windows
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
100
diff
changeset
|
91 |
" |
258bf0b2317c
Fixed `GDBDebugger >> directories` to work on Windows
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
100
diff
changeset
|
92 |
Filename cygNamed: '/C/temp' |
258bf0b2317c
Fixed `GDBDebugger >> directories` to work on Windows
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
100
diff
changeset
|
93 |
Filename cygNamed: 'C:\temp' |
258bf0b2317c
Fixed `GDBDebugger >> directories` to work on Windows
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
100
diff
changeset
|
94 |
Filename cygNamed:'/c/temp') |
258bf0b2317c
Fixed `GDBDebugger >> directories` to work on Windows
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
100
diff
changeset
|
95 |
Filename cygNamed: Filename currentDirectory cygName |
258bf0b2317c
Fixed `GDBDebugger >> directories` to work on Windows
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
100
diff
changeset
|
96 |
|
258bf0b2317c
Fixed `GDBDebugger >> directories` to work on Windows
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
100
diff
changeset
|
97 |
" |
258bf0b2317c
Fixed `GDBDebugger >> directories` to work on Windows
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
100
diff
changeset
|
98 |
|
258bf0b2317c
Fixed `GDBDebugger >> directories` to work on Windows
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
100
diff
changeset
|
99 |
"Created: / 03-04-2018 / 17:12:29 / jv" |
258bf0b2317c
Fixed `GDBDebugger >> directories` to work on Windows
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
100
diff
changeset
|
100 |
! ! |
258bf0b2317c
Fixed `GDBDebugger >> directories` to work on Windows
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
100
diff
changeset
|
101 |
|
45
deb908479a37
Code refactored to use Magritte to meta-describe GDB objects.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17
diff
changeset
|
102 |
!Magritte::MABooleanDescription methodsFor:'parsing-GDB/MI'! |
deb908479a37
Code refactored to use Magritte to meta-describe GDB objects.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17
diff
changeset
|
103 |
|
deb908479a37
Code refactored to use Magritte to meta-describe GDB objects.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17
diff
changeset
|
104 |
parseUsingGDBMIParser: aGDBMIParser |
deb908479a37
Code refactored to use Magritte to meta-describe GDB objects.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17
diff
changeset
|
105 |
^ aGDBMIParser parseValueAsBoolean |
17
10d696c79188
Value descroptors refactored.
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:
17
diff
changeset
|
107 |
"Created: / 23-09-2014 / 22:23:56 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
deb908479a37
Code refactored to use Magritte to meta-describe GDB objects.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17
diff
changeset
|
108 |
! ! |
deb908479a37
Code refactored to use Magritte to meta-describe GDB objects.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17
diff
changeset
|
109 |
|
deb908479a37
Code refactored to use Magritte to meta-describe GDB objects.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17
diff
changeset
|
110 |
!Magritte::MADescription methodsFor:'parsing-GDB/MI'! |
17
10d696c79188
Value descroptors refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
111 |
|
45
deb908479a37
Code refactored to use Magritte to meta-describe GDB objects.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17
diff
changeset
|
112 |
parseUsingGDBMIParser: aGDBMIParser |
deb908479a37
Code refactored to use Magritte to meta-describe GDB objects.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17
diff
changeset
|
113 |
^ self subclassResponsibility |
deb908479a37
Code refactored to use Magritte to meta-describe GDB objects.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17
diff
changeset
|
114 |
|
deb908479a37
Code refactored to use Magritte to meta-describe GDB objects.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17
diff
changeset
|
115 |
"Created: / 23-09-2014 / 22:23:36 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
17
10d696c79188
Value descroptors refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
116 |
! ! |
10d696c79188
Value descroptors refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
117 |
|
126
fb73b0af430b
Added initial support for disassembling
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
119
diff
changeset
|
118 |
!Magritte::MADescription methodsFor:'parsing-GDB/MI'! |
fb73b0af430b
Added initial support for disassembling
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
119
diff
changeset
|
119 |
|
fb73b0af430b
Added initial support for disassembling
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
119
diff
changeset
|
120 |
parseUsingGDBMIParser: aGDBMIParser taggedAs: aString |
fb73b0af430b
Added initial support for disassembling
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
119
diff
changeset
|
121 |
^ self parseUsingGDBMIParser: aGDBMIParser |
fb73b0af430b
Added initial support for disassembling
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
119
diff
changeset
|
122 |
|
fb73b0af430b
Added initial support for disassembling
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
119
diff
changeset
|
123 |
"Created: / 03-07-2018 / 16:23:01 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
fb73b0af430b
Added initial support for disassembling
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
119
diff
changeset
|
124 |
! ! |
fb73b0af430b
Added initial support for disassembling
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
119
diff
changeset
|
125 |
|
45
deb908479a37
Code refactored to use Magritte to meta-describe GDB objects.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17
diff
changeset
|
126 |
!Magritte::MANumberDescription methodsFor:'parsing-GDB/MI'! |
17
10d696c79188
Value descroptors refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
127 |
|
45
deb908479a37
Code refactored to use Magritte to meta-describe GDB objects.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17
diff
changeset
|
128 |
parseUsingGDBMIParser: aGDBMIParser |
deb908479a37
Code refactored to use Magritte to meta-describe GDB objects.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17
diff
changeset
|
129 |
^ aGDBMIParser parseValueAsInteger |
17
10d696c79188
Value descroptors refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
130 |
|
45
deb908479a37
Code refactored to use Magritte to meta-describe GDB objects.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17
diff
changeset
|
131 |
"Created: / 23-09-2014 / 22:24:37 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
17
10d696c79188
Value descroptors refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
132 |
! ! |
10d696c79188
Value descroptors refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
133 |
|
47
4f5d75acecb0
Added support for parsing enums using MAOptionDescription
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
45
diff
changeset
|
134 |
!Magritte::MASingleOptionDescription methodsFor:'parsing-GDB/MI'! |
4f5d75acecb0
Added support for parsing enums using MAOptionDescription
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
45
diff
changeset
|
135 |
|
4f5d75acecb0
Added support for parsing enums using MAOptionDescription
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
45
diff
changeset
|
136 |
parseUsingGDBMIParser:aGDBMIParser |
4f5d75acecb0
Added support for parsing enums using MAOptionDescription
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
45
diff
changeset
|
137 |
| stringValue | |
4f5d75acecb0
Added support for parsing enums using MAOptionDescription
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
45
diff
changeset
|
138 |
|
4f5d75acecb0
Added support for parsing enums using MAOptionDescription
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
45
diff
changeset
|
139 |
stringValue := aGDBMIParser parseValueAsString. |
4f5d75acecb0
Added support for parsing enums using MAOptionDescription
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
45
diff
changeset
|
140 |
(self propertyAt: #labels ifAbsent: [ #() ]) |
4f5d75acecb0
Added support for parsing enums using MAOptionDescription
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
45
diff
changeset
|
141 |
keysAndValuesDo:[ :key :value | value = stringValue ifTrue:[ ^ key ] ]. |
4f5d75acecb0
Added support for parsing enums using MAOptionDescription
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
45
diff
changeset
|
142 |
self options |
4f5d75acecb0
Added support for parsing enums using MAOptionDescription
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
45
diff
changeset
|
143 |
do:[:key | key printString = stringValue ifTrue:[ ^ key ] ]. |
4f5d75acecb0
Added support for parsing enums using MAOptionDescription
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
45
diff
changeset
|
144 |
MAReadError new signal: 'No option found for string value ''', stringValue , ''''. |
4f5d75acecb0
Added support for parsing enums using MAOptionDescription
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
45
diff
changeset
|
145 |
|
4f5d75acecb0
Added support for parsing enums using MAOptionDescription
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
45
diff
changeset
|
146 |
"Created: / 25-09-2014 / 08:35:24 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
4f5d75acecb0
Added support for parsing enums using MAOptionDescription
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
45
diff
changeset
|
147 |
! ! |
4f5d75acecb0
Added support for parsing enums using MAOptionDescription
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
45
diff
changeset
|
148 |
|
45
deb908479a37
Code refactored to use Magritte to meta-describe GDB objects.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17
diff
changeset
|
149 |
!Magritte::MAStringDescription methodsFor:'parsing-GDB/MI'! |
17
10d696c79188
Value descroptors refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
150 |
|
45
deb908479a37
Code refactored to use Magritte to meta-describe GDB objects.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17
diff
changeset
|
151 |
parseUsingGDBMIParser: aGDBMIParser |
deb908479a37
Code refactored to use Magritte to meta-describe GDB objects.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17
diff
changeset
|
152 |
^ aGDBMIParser parseValueAsString |
17
10d696c79188
Value descroptors refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
153 |
|
45
deb908479a37
Code refactored to use Magritte to meta-describe GDB objects.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17
diff
changeset
|
154 |
"Created: / 23-09-2014 / 22:24:58 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
17
10d696c79188
Value descroptors refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
155 |
! ! |
10d696c79188
Value descroptors refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
156 |
|
89
ba62d486014f
Initial support for breakpoints with multiple locations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
47
diff
changeset
|
157 |
!Magritte::MAToManyRelationDescription methodsFor:'accessing-properties'! |
ba62d486014f
Initial support for breakpoints with multiple locations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
47
diff
changeset
|
158 |
|
ba62d486014f
Initial support for breakpoints with multiple locations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
47
diff
changeset
|
159 |
allowOmmitedBrackets |
ba62d486014f
Initial support for breakpoints with multiple locations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
47
diff
changeset
|
160 |
^ self propertyAt: #allowOmmitedBrackets ifAbsent: [ self class defaultAllowOmmitedBrackets ] |
ba62d486014f
Initial support for breakpoints with multiple locations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
47
diff
changeset
|
161 |
|
ba62d486014f
Initial support for breakpoints with multiple locations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
47
diff
changeset
|
162 |
"Created: / 11-11-2017 / 12:11:13 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
ba62d486014f
Initial support for breakpoints with multiple locations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
47
diff
changeset
|
163 |
! ! |
ba62d486014f
Initial support for breakpoints with multiple locations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
47
diff
changeset
|
164 |
|
ba62d486014f
Initial support for breakpoints with multiple locations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
47
diff
changeset
|
165 |
!Magritte::MAToManyRelationDescription methodsFor:'accessing-properties'! |
ba62d486014f
Initial support for breakpoints with multiple locations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
47
diff
changeset
|
166 |
|
ba62d486014f
Initial support for breakpoints with multiple locations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
47
diff
changeset
|
167 |
allowOmmitedBrackets: aBoolean |
ba62d486014f
Initial support for breakpoints with multiple locations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
47
diff
changeset
|
168 |
self propertyAt: #allowOmmitedBrackets put: aBoolean |
ba62d486014f
Initial support for breakpoints with multiple locations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
47
diff
changeset
|
169 |
|
ba62d486014f
Initial support for breakpoints with multiple locations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
47
diff
changeset
|
170 |
"Created: / 11-11-2017 / 12:11:23 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
ba62d486014f
Initial support for breakpoints with multiple locations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
47
diff
changeset
|
171 |
! ! |
ba62d486014f
Initial support for breakpoints with multiple locations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
47
diff
changeset
|
172 |
|
45
deb908479a37
Code refactored to use Magritte to meta-describe GDB objects.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17
diff
changeset
|
173 |
!Magritte::MAToManyRelationDescription methodsFor:'parsing-GDB/MI'! |
17
10d696c79188
Value descroptors refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
174 |
|
45
deb908479a37
Code refactored to use Magritte to meta-describe GDB objects.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17
diff
changeset
|
175 |
parseUsingGDBMIParser: aGDBMIParser |
89
ba62d486014f
Initial support for breakpoints with multiple locations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
47
diff
changeset
|
176 |
^ aGDBMIParser parseValueAsListOf: classes anElement describedBy: reference allowOmmitedBrackets: self allowOmmitedBrackets |
17
10d696c79188
Value descroptors refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
177 |
|
45
deb908479a37
Code refactored to use Magritte to meta-describe GDB objects.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17
diff
changeset
|
178 |
"Created: / 23-09-2014 / 23:04:43 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
126
fb73b0af430b
Added initial support for disassembling
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
119
diff
changeset
|
179 |
"Modified: / 03-07-2018 / 17:15:37 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
89
ba62d486014f
Initial support for breakpoints with multiple locations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
47
diff
changeset
|
180 |
! ! |
ba62d486014f
Initial support for breakpoints with multiple locations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
47
diff
changeset
|
181 |
|
ba62d486014f
Initial support for breakpoints with multiple locations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
47
diff
changeset
|
182 |
!Magritte::MAToManyRelationDescription class methodsFor:'accessing-defaults'! |
ba62d486014f
Initial support for breakpoints with multiple locations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
47
diff
changeset
|
183 |
|
ba62d486014f
Initial support for breakpoints with multiple locations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
47
diff
changeset
|
184 |
defaultAllowOmmitedBrackets |
ba62d486014f
Initial support for breakpoints with multiple locations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
47
diff
changeset
|
185 |
^ false |
ba62d486014f
Initial support for breakpoints with multiple locations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
47
diff
changeset
|
186 |
|
ba62d486014f
Initial support for breakpoints with multiple locations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
47
diff
changeset
|
187 |
"Created: / 11-11-2017 / 12:11:40 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
17
10d696c79188
Value descroptors refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
188 |
! ! |
10d696c79188
Value descroptors refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
189 |
|
100
aab8dd376f29
Fixed SubscriptionCollection >> value:
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
89
diff
changeset
|
190 |
!SubscriptionCollection methodsFor:'private'! |
aab8dd376f29
Fixed SubscriptionCollection >> value:
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
89
diff
changeset
|
191 |
|
aab8dd376f29
Fixed SubscriptionCollection >> value:
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
89
diff
changeset
|
192 |
value: anAnnouncement |
aab8dd376f29
Fixed SubscriptionCollection >> value:
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
89
diff
changeset
|
193 |
|
aab8dd376f29
Fixed SubscriptionCollection >> value:
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
89
diff
changeset
|
194 |
self do: [ :each | each notNil ifTrue:[each value: anAnnouncement]] |
aab8dd376f29
Fixed SubscriptionCollection >> value:
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
89
diff
changeset
|
195 |
|
aab8dd376f29
Fixed SubscriptionCollection >> value:
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
89
diff
changeset
|
196 |
"Modified: / 03-02-2018 / 21:26:34 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
aab8dd376f29
Fixed SubscriptionCollection >> value:
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
89
diff
changeset
|
197 |
! ! |
aab8dd376f29
Fixed SubscriptionCollection >> value:
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
89
diff
changeset
|
198 |
|
149
0db2ccc6da7b
Refactor configuration and autodetection of gdb executable
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
126
diff
changeset
|
199 |
!UserPreferences methodsFor:'accessing-vdb'! |
0db2ccc6da7b
Refactor configuration and autodetection of gdb executable
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
126
diff
changeset
|
200 |
|
164
a16705f64a64
Add support for arbitrary (shell) command to launch GDB.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
149
diff
changeset
|
201 |
gdbCommand |
a16705f64a64
Add support for arbitrary (shell) command to launch GDB.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
149
diff
changeset
|
202 |
"Return (shell) command to launch GDB. Returns `nil` if not |
a16705f64a64
Add support for arbitrary (shell) command to launch GDB.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
149
diff
changeset
|
203 |
configured, system will then try to use (some) suitable default. |
a16705f64a64
Add support for arbitrary (shell) command to launch GDB.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
149
diff
changeset
|
204 |
" |
149
0db2ccc6da7b
Refactor configuration and autodetection of gdb executable
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
126
diff
changeset
|
205 |
|
164
a16705f64a64
Add support for arbitrary (shell) command to launch GDB.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
149
diff
changeset
|
206 |
^ self at: #gdbCommand ifAbsent: [ nil ] |
149
0db2ccc6da7b
Refactor configuration and autodetection of gdb executable
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
126
diff
changeset
|
207 |
|
0db2ccc6da7b
Refactor configuration and autodetection of gdb executable
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
126
diff
changeset
|
208 |
" |
164
a16705f64a64
Add support for arbitrary (shell) command to launch GDB.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
149
diff
changeset
|
209 |
UserPreferences current gdbCommand. |
a16705f64a64
Add support for arbitrary (shell) command to launch GDB.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
149
diff
changeset
|
210 |
UserPreferences current gdbCommand: '/usr/bin/gdb'. |
a16705f64a64
Add support for arbitrary (shell) command to launch GDB.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
149
diff
changeset
|
211 |
UserPreferences current gdbCommand: nil |
149
0db2ccc6da7b
Refactor configuration and autodetection of gdb executable
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
126
diff
changeset
|
212 |
" |
0db2ccc6da7b
Refactor configuration and autodetection of gdb executable
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
126
diff
changeset
|
213 |
|
164
a16705f64a64
Add support for arbitrary (shell) command to launch GDB.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
149
diff
changeset
|
214 |
"Created: / 13-12-2018 / 11:29:51 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
a16705f64a64
Add support for arbitrary (shell) command to launch GDB.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
149
diff
changeset
|
215 |
! ! |
a16705f64a64
Add support for arbitrary (shell) command to launch GDB.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
149
diff
changeset
|
216 |
|
a16705f64a64
Add support for arbitrary (shell) command to launch GDB.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
149
diff
changeset
|
217 |
!UserPreferences methodsFor:'accessing-vdb'! |
a16705f64a64
Add support for arbitrary (shell) command to launch GDB.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
149
diff
changeset
|
218 |
|
a16705f64a64
Add support for arbitrary (shell) command to launch GDB.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
149
diff
changeset
|
219 |
gdbCommand: aString |
a16705f64a64
Add support for arbitrary (shell) command to launch GDB.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
149
diff
changeset
|
220 |
"Set (shell) command to launch GDB. Set to `nil` to reset to default" |
a16705f64a64
Add support for arbitrary (shell) command to launch GDB.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
149
diff
changeset
|
221 |
|
a16705f64a64
Add support for arbitrary (shell) command to launch GDB.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
149
diff
changeset
|
222 |
^ self at: #gdbCommand put: aString |
a16705f64a64
Add support for arbitrary (shell) command to launch GDB.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
149
diff
changeset
|
223 |
|
a16705f64a64
Add support for arbitrary (shell) command to launch GDB.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
149
diff
changeset
|
224 |
" |
a16705f64a64
Add support for arbitrary (shell) command to launch GDB.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
149
diff
changeset
|
225 |
UserPreferences current gdbCommand. |
a16705f64a64
Add support for arbitrary (shell) command to launch GDB.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
149
diff
changeset
|
226 |
UserPreferences current gdbCommand: '/usr/bin/gdb'. |
a16705f64a64
Add support for arbitrary (shell) command to launch GDB.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
149
diff
changeset
|
227 |
UserPreferences current gdbCommand: nil |
a16705f64a64
Add support for arbitrary (shell) command to launch GDB.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
149
diff
changeset
|
228 |
" |
a16705f64a64
Add support for arbitrary (shell) command to launch GDB.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
149
diff
changeset
|
229 |
|
a16705f64a64
Add support for arbitrary (shell) command to launch GDB.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
149
diff
changeset
|
230 |
"Created: / 13-12-2018 / 11:29:59 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
a16705f64a64
Add support for arbitrary (shell) command to launch GDB.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
149
diff
changeset
|
231 |
! ! |
a16705f64a64
Add support for arbitrary (shell) command to launch GDB.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
149
diff
changeset
|
232 |
|
a16705f64a64
Add support for arbitrary (shell) command to launch GDB.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
149
diff
changeset
|
233 |
!UserPreferences methodsFor:'accessing-vdb'! |
a16705f64a64
Add support for arbitrary (shell) command to launch GDB.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
149
diff
changeset
|
234 |
|
a16705f64a64
Add support for arbitrary (shell) command to launch GDB.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
149
diff
changeset
|
235 |
gdbExecutable |
a16705f64a64
Add support for arbitrary (shell) command to launch GDB.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
149
diff
changeset
|
236 |
<resource: #obsolete> |
a16705f64a64
Add support for arbitrary (shell) command to launch GDB.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
149
diff
changeset
|
237 |
|
a16705f64a64
Add support for arbitrary (shell) command to launch GDB.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
149
diff
changeset
|
238 |
self obsoleteFeatureWarning: 'Renamed to #gdbCommand'. |
a16705f64a64
Add support for arbitrary (shell) command to launch GDB.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
149
diff
changeset
|
239 |
^ self gdbCommand |
a16705f64a64
Add support for arbitrary (shell) command to launch GDB.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
149
diff
changeset
|
240 |
|
a16705f64a64
Add support for arbitrary (shell) command to launch GDB.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
149
diff
changeset
|
241 |
"Created: / 01-03-2015 / 08:07:03 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
a16705f64a64
Add support for arbitrary (shell) command to launch GDB.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
149
diff
changeset
|
242 |
"Modified (comment): / 07-10-2018 / 07:59:57 / jv" |
a16705f64a64
Add support for arbitrary (shell) command to launch GDB.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
149
diff
changeset
|
243 |
"Modified: / 13-12-2018 / 11:33:35 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
149
0db2ccc6da7b
Refactor configuration and autodetection of gdb executable
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
126
diff
changeset
|
244 |
! ! |
0db2ccc6da7b
Refactor configuration and autodetection of gdb executable
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
126
diff
changeset
|
245 |
|
0db2ccc6da7b
Refactor configuration and autodetection of gdb executable
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
126
diff
changeset
|
246 |
!UserPreferences methodsFor:'accessing-vdb'! |
0db2ccc6da7b
Refactor configuration and autodetection of gdb executable
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
126
diff
changeset
|
247 |
|
0db2ccc6da7b
Refactor configuration and autodetection of gdb executable
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
126
diff
changeset
|
248 |
gdbExecutable: aString |
164
a16705f64a64
Add support for arbitrary (shell) command to launch GDB.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
149
diff
changeset
|
249 |
<resource: #obsolete> |
149
0db2ccc6da7b
Refactor configuration and autodetection of gdb executable
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
126
diff
changeset
|
250 |
|
164
a16705f64a64
Add support for arbitrary (shell) command to launch GDB.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
149
diff
changeset
|
251 |
self obsoleteFeatureWarning: 'Renamed to #gdbCommand'. |
a16705f64a64
Add support for arbitrary (shell) command to launch GDB.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
149
diff
changeset
|
252 |
self gdbCommand: aString |
149
0db2ccc6da7b
Refactor configuration and autodetection of gdb executable
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
126
diff
changeset
|
253 |
|
164
a16705f64a64
Add support for arbitrary (shell) command to launch GDB.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
149
diff
changeset
|
254 |
"Created: / 01-03-2015 / 08:07:20 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
a16705f64a64
Add support for arbitrary (shell) command to launch GDB.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
149
diff
changeset
|
255 |
"Modified: / 13-12-2018 / 11:33:56 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
149
0db2ccc6da7b
Refactor configuration and autodetection of gdb executable
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
126
diff
changeset
|
256 |
! ! |
0db2ccc6da7b
Refactor configuration and autodetection of gdb executable
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
126
diff
changeset
|
257 |
|
17
10d696c79188
Value descroptors refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
258 |
!jv_libgdbs class methodsFor:'documentation'! |
10d696c79188
Value descroptors refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
259 |
|
10d696c79188
Value descroptors refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
260 |
extensionsVersion_HG |
10d696c79188
Value descroptors refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
261 |
|
10d696c79188
Value descroptors refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
262 |
^ '$Changeset: <not expanded> $' |
10d696c79188
Value descroptors refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
263 |
! ! |