author | Jan Vrany <jan.vrany@labware.com> |
Fri, 08 Sep 2023 12:40:22 +0100 | |
changeset 317 | 7f63737e0374 |
parent 272 | cdd1c9ad00de |
permissions | -rw-r--r-- |
97 | 1 |
" |
2 |
jv:libgdbs - GNU Debugger Interface Library |
|
3 |
Copyright (C) 2015-now Jan Vrany |
|
272
cdd1c9ad00de
Change class categories to facilitate Pharo port
Jan Vrany <jan.vrany@labware.com>
parents:
259
diff
changeset
|
4 |
Copyright (C) 2020-2023 LabWare |
97 | 5 |
|
259
651864c2aa29
Relicense under MIT license.
Jan Vrany <jan.vrany@labware.com>
parents:
224
diff
changeset
|
6 |
Permission is hereby granted, free of charge, to any person obtaining a copy |
651864c2aa29
Relicense under MIT license.
Jan Vrany <jan.vrany@labware.com>
parents:
224
diff
changeset
|
7 |
of this software and associated documentation files (the 'Software'), to deal |
651864c2aa29
Relicense under MIT license.
Jan Vrany <jan.vrany@labware.com>
parents:
224
diff
changeset
|
8 |
in the Software without restriction, including without limitation the rights |
651864c2aa29
Relicense under MIT license.
Jan Vrany <jan.vrany@labware.com>
parents:
224
diff
changeset
|
9 |
to use, copy, modify, merge, publish, distribute, sublicense, and/or sell |
651864c2aa29
Relicense under MIT license.
Jan Vrany <jan.vrany@labware.com>
parents:
224
diff
changeset
|
10 |
copies of the Software, and to permit persons to whom the Software is |
651864c2aa29
Relicense under MIT license.
Jan Vrany <jan.vrany@labware.com>
parents:
224
diff
changeset
|
11 |
furnished to do so, subject to the following conditions: |
97 | 12 |
|
259
651864c2aa29
Relicense under MIT license.
Jan Vrany <jan.vrany@labware.com>
parents:
224
diff
changeset
|
13 |
The above copyright notice and this permission notice shall be included in all |
651864c2aa29
Relicense under MIT license.
Jan Vrany <jan.vrany@labware.com>
parents:
224
diff
changeset
|
14 |
copies or substantial portions of the Software. |
97 | 15 |
|
259
651864c2aa29
Relicense under MIT license.
Jan Vrany <jan.vrany@labware.com>
parents:
224
diff
changeset
|
16 |
THE SOFTWARE IS PROVIDED 'AS IS', WITHOUT WARRANTY OF ANY KIND, EXPRESS OR |
651864c2aa29
Relicense under MIT license.
Jan Vrany <jan.vrany@labware.com>
parents:
224
diff
changeset
|
17 |
IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, |
651864c2aa29
Relicense under MIT license.
Jan Vrany <jan.vrany@labware.com>
parents:
224
diff
changeset
|
18 |
FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE |
651864c2aa29
Relicense under MIT license.
Jan Vrany <jan.vrany@labware.com>
parents:
224
diff
changeset
|
19 |
AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER |
651864c2aa29
Relicense under MIT license.
Jan Vrany <jan.vrany@labware.com>
parents:
224
diff
changeset
|
20 |
LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, |
651864c2aa29
Relicense under MIT license.
Jan Vrany <jan.vrany@labware.com>
parents:
224
diff
changeset
|
21 |
OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE |
651864c2aa29
Relicense under MIT license.
Jan Vrany <jan.vrany@labware.com>
parents:
224
diff
changeset
|
22 |
SOFTWARE. |
97 | 23 |
" |
24 |
"{ Package: 'jv:libgdbs' }" |
|
25 |
||
26 |
"{ NameSpace: Smalltalk }" |
|
27 |
||
28 |
Object subclass:#GDBOutputFormat |
|
29 |
instanceVariableNames:'format name description' |
|
224
34a835fad1c8
Introduce new pool `GDBOutputFormats`
Jan Vrany <jan.vrany@labware.com>
parents:
211
diff
changeset
|
30 |
classVariableNames:'' |
34a835fad1c8
Introduce new pool `GDBOutputFormats`
Jan Vrany <jan.vrany@labware.com>
parents:
211
diff
changeset
|
31 |
poolDictionaries:'GDBOutputFormats' |
272
cdd1c9ad00de
Change class categories to facilitate Pharo port
Jan Vrany <jan.vrany@labware.com>
parents:
259
diff
changeset
|
32 |
category:'GDB' |
97 | 33 |
! |
34 |
||
35 |
!GDBOutputFormat class methodsFor:'documentation'! |
|
36 |
||
37 |
copyright |
|
38 |
" |
|
39 |
jv:libgdbs - GNU Debugger Interface Library |
|
40 |
Copyright (C) 2015-now Jan Vrany |
|
272
cdd1c9ad00de
Change class categories to facilitate Pharo port
Jan Vrany <jan.vrany@labware.com>
parents:
259
diff
changeset
|
41 |
Copyright (C) 2020-2023 LabWare |
97 | 42 |
|
259
651864c2aa29
Relicense under MIT license.
Jan Vrany <jan.vrany@labware.com>
parents:
224
diff
changeset
|
43 |
Permission is hereby granted, free of charge, to any person obtaining a copy |
651864c2aa29
Relicense under MIT license.
Jan Vrany <jan.vrany@labware.com>
parents:
224
diff
changeset
|
44 |
of this software and associated documentation files (the 'Software'), to deal |
651864c2aa29
Relicense under MIT license.
Jan Vrany <jan.vrany@labware.com>
parents:
224
diff
changeset
|
45 |
in the Software without restriction, including without limitation the rights |
651864c2aa29
Relicense under MIT license.
Jan Vrany <jan.vrany@labware.com>
parents:
224
diff
changeset
|
46 |
to use, copy, modify, merge, publish, distribute, sublicense, and/or sell |
651864c2aa29
Relicense under MIT license.
Jan Vrany <jan.vrany@labware.com>
parents:
224
diff
changeset
|
47 |
copies of the Software, and to permit persons to whom the Software is |
651864c2aa29
Relicense under MIT license.
Jan Vrany <jan.vrany@labware.com>
parents:
224
diff
changeset
|
48 |
furnished to do so, subject to the following conditions: |
97 | 49 |
|
259
651864c2aa29
Relicense under MIT license.
Jan Vrany <jan.vrany@labware.com>
parents:
224
diff
changeset
|
50 |
The above copyright notice and this permission notice shall be included in all |
651864c2aa29
Relicense under MIT license.
Jan Vrany <jan.vrany@labware.com>
parents:
224
diff
changeset
|
51 |
copies or substantial portions of the Software. |
97 | 52 |
|
259
651864c2aa29
Relicense under MIT license.
Jan Vrany <jan.vrany@labware.com>
parents:
224
diff
changeset
|
53 |
THE SOFTWARE IS PROVIDED 'AS IS', WITHOUT WARRANTY OF ANY KIND, EXPRESS OR |
651864c2aa29
Relicense under MIT license.
Jan Vrany <jan.vrany@labware.com>
parents:
224
diff
changeset
|
54 |
IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, |
651864c2aa29
Relicense under MIT license.
Jan Vrany <jan.vrany@labware.com>
parents:
224
diff
changeset
|
55 |
FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE |
651864c2aa29
Relicense under MIT license.
Jan Vrany <jan.vrany@labware.com>
parents:
224
diff
changeset
|
56 |
AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER |
651864c2aa29
Relicense under MIT license.
Jan Vrany <jan.vrany@labware.com>
parents:
224
diff
changeset
|
57 |
LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, |
651864c2aa29
Relicense under MIT license.
Jan Vrany <jan.vrany@labware.com>
parents:
224
diff
changeset
|
58 |
OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE |
651864c2aa29
Relicense under MIT license.
Jan Vrany <jan.vrany@labware.com>
parents:
224
diff
changeset
|
59 |
SOFTWARE. |
97 | 60 |
" |
61 |
! |
|
62 |
||
63 |
documentation |
|
64 |
" |
|
65 |
GDBOutputFormat is a reification of one of output formats |
|
66 |
defined by GDB. |
|
67 |
||
68 |
Do not use this class directly in user code, use constants |
|
69 |
defined `GDBOutputFormats` |
|
70 |
||
71 |
[author:] |
|
72 |
Jan Vrany <jan.vrany@fit.cvut.cz> |
|
73 |
||
74 |
[instance variables:] |
|
75 |
||
76 |
[class variables:] |
|
77 |
||
78 |
[see also:] |
|
79 |
GDBOutputFormats |
|
80 |
https://sourceware.org/gdb/onlinedocs/gdb/Output-Formats.html#Output-Formats |
|
81 |
||
82 |
" |
|
83 |
! ! |
|
84 |
||
154
abd4d9bdec0e
Portability: remove `GDBOutputFormats` pool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
97
diff
changeset
|
85 |
!GDBOutputFormat class methodsFor:'initialization'! |
abd4d9bdec0e
Portability: remove `GDBOutputFormats` pool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
97
diff
changeset
|
86 |
|
abd4d9bdec0e
Portability: remove `GDBOutputFormats` pool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
97
diff
changeset
|
87 |
initialize |
abd4d9bdec0e
Portability: remove `GDBOutputFormats` pool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
97
diff
changeset
|
88 |
"Invoked at system start or when the class is dynamically loaded." |
abd4d9bdec0e
Portability: remove `GDBOutputFormats` pool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
97
diff
changeset
|
89 |
|
224
34a835fad1c8
Introduce new pool `GDBOutputFormats`
Jan Vrany <jan.vrany@labware.com>
parents:
211
diff
changeset
|
90 |
"/ Following hack is here to allow loading from source and from compiled class lib. |
34a835fad1c8
Introduce new pool `GDBOutputFormats`
Jan Vrany <jan.vrany@labware.com>
parents:
211
diff
changeset
|
91 |
"/ When loading from source, GDBOutputFormats is not yet initialized |
34a835fad1c8
Introduce new pool `GDBOutputFormats`
Jan Vrany <jan.vrany@labware.com>
parents:
211
diff
changeset
|
92 |
"/ since it requires this class. So we initialize it now when this |
34a835fad1c8
Introduce new pool `GDBOutputFormats`
Jan Vrany <jan.vrany@labware.com>
parents:
211
diff
changeset
|
93 |
"/ class is definitely present. |
34a835fad1c8
Introduce new pool `GDBOutputFormats`
Jan Vrany <jan.vrany@labware.com>
parents:
211
diff
changeset
|
94 |
"/ |
34a835fad1c8
Introduce new pool `GDBOutputFormats`
Jan Vrany <jan.vrany@labware.com>
parents:
211
diff
changeset
|
95 |
"/ When loading from binary, classes are initialize after all of them |
34a835fad1c8
Introduce new pool `GDBOutputFormats`
Jan Vrany <jan.vrany@labware.com>
parents:
211
diff
changeset
|
96 |
"/ are present, therefore we do not need to call initialize again. |
34a835fad1c8
Introduce new pool `GDBOutputFormats`
Jan Vrany <jan.vrany@labware.com>
parents:
211
diff
changeset
|
97 |
"/ Hence the condition. |
34a835fad1c8
Introduce new pool `GDBOutputFormats`
Jan Vrany <jan.vrany@labware.com>
parents:
211
diff
changeset
|
98 |
FormatHexadecimal isNil ifTrue: [ |
34a835fad1c8
Introduce new pool `GDBOutputFormats`
Jan Vrany <jan.vrany@labware.com>
parents:
211
diff
changeset
|
99 |
GDBOutputFormats initialize. |
34a835fad1c8
Introduce new pool `GDBOutputFormats`
Jan Vrany <jan.vrany@labware.com>
parents:
211
diff
changeset
|
100 |
]. |
154
abd4d9bdec0e
Portability: remove `GDBOutputFormats` pool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
97
diff
changeset
|
101 |
|
abd4d9bdec0e
Portability: remove `GDBOutputFormats` pool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
97
diff
changeset
|
102 |
"Modified: / 25-01-2018 / 09:29:51 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
224
34a835fad1c8
Introduce new pool `GDBOutputFormats`
Jan Vrany <jan.vrany@labware.com>
parents:
211
diff
changeset
|
103 |
"Modified (comment): / 26-03-2021 / 13:29:20 / Jan Vrany <jan.vrany@labware.com>" |
154
abd4d9bdec0e
Portability: remove `GDBOutputFormats` pool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
97
diff
changeset
|
104 |
! ! |
abd4d9bdec0e
Portability: remove `GDBOutputFormats` pool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
97
diff
changeset
|
105 |
|
97 | 106 |
!GDBOutputFormat class methodsFor:'instance creation'! |
107 |
||
108 |
format:formatArg name:nameArg description:descriptionArg |
|
109 |
^ self new format:formatArg name:nameArg description:descriptionArg |
|
110 |
! ! |
|
111 |
||
154
abd4d9bdec0e
Portability: remove `GDBOutputFormats` pool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
97
diff
changeset
|
112 |
!GDBOutputFormat class methodsFor:'accessing'! |
abd4d9bdec0e
Portability: remove `GDBOutputFormats` pool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
97
diff
changeset
|
113 |
|
162
e56b2f6369af
Add methods for accessing individual output formats
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
154
diff
changeset
|
114 |
address |
e56b2f6369af
Add methods for accessing individual output formats
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
154
diff
changeset
|
115 |
^ FormatAddress |
e56b2f6369af
Add methods for accessing individual output formats
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
154
diff
changeset
|
116 |
|
e56b2f6369af
Add methods for accessing individual output formats
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
154
diff
changeset
|
117 |
"Created: / 28-11-2018 / 14:00:46 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
e56b2f6369af
Add methods for accessing individual output formats
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
154
diff
changeset
|
118 |
! |
e56b2f6369af
Add methods for accessing individual output formats
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
154
diff
changeset
|
119 |
|
154
abd4d9bdec0e
Portability: remove `GDBOutputFormats` pool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
97
diff
changeset
|
120 |
all |
224
34a835fad1c8
Introduce new pool `GDBOutputFormats`
Jan Vrany <jan.vrany@labware.com>
parents:
211
diff
changeset
|
121 |
^ GDBOutputFormats all |
162
e56b2f6369af
Add methods for accessing individual output formats
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
154
diff
changeset
|
122 |
! |
e56b2f6369af
Add methods for accessing individual output formats
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
154
diff
changeset
|
123 |
|
e56b2f6369af
Add methods for accessing individual output formats
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
154
diff
changeset
|
124 |
binary |
e56b2f6369af
Add methods for accessing individual output formats
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
154
diff
changeset
|
125 |
^ FormatBinary |
e56b2f6369af
Add methods for accessing individual output formats
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
154
diff
changeset
|
126 |
|
e56b2f6369af
Add methods for accessing individual output formats
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
154
diff
changeset
|
127 |
"Created: / 28-11-2018 / 14:00:58 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
e56b2f6369af
Add methods for accessing individual output formats
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
154
diff
changeset
|
128 |
! |
e56b2f6369af
Add methods for accessing individual output formats
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
154
diff
changeset
|
129 |
|
e56b2f6369af
Add methods for accessing individual output formats
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
154
diff
changeset
|
130 |
characterConstant |
e56b2f6369af
Add methods for accessing individual output formats
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
154
diff
changeset
|
131 |
^ FormatCharacterConstant |
e56b2f6369af
Add methods for accessing individual output formats
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
154
diff
changeset
|
132 |
|
e56b2f6369af
Add methods for accessing individual output formats
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
154
diff
changeset
|
133 |
"Created: / 28-11-2018 / 14:01:12 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
e56b2f6369af
Add methods for accessing individual output formats
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
154
diff
changeset
|
134 |
! |
e56b2f6369af
Add methods for accessing individual output formats
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
154
diff
changeset
|
135 |
|
e56b2f6369af
Add methods for accessing individual output formats
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
154
diff
changeset
|
136 |
floatingPoint |
e56b2f6369af
Add methods for accessing individual output formats
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
154
diff
changeset
|
137 |
^ FormatFloatingPoint |
e56b2f6369af
Add methods for accessing individual output formats
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
154
diff
changeset
|
138 |
|
e56b2f6369af
Add methods for accessing individual output formats
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
154
diff
changeset
|
139 |
"Created: / 28-11-2018 / 14:01:20 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
e56b2f6369af
Add methods for accessing individual output formats
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
154
diff
changeset
|
140 |
! |
e56b2f6369af
Add methods for accessing individual output formats
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
154
diff
changeset
|
141 |
|
e56b2f6369af
Add methods for accessing individual output formats
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
154
diff
changeset
|
142 |
hexadecimal |
e56b2f6369af
Add methods for accessing individual output formats
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
154
diff
changeset
|
143 |
^ FormatHexadecimal |
e56b2f6369af
Add methods for accessing individual output formats
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
154
diff
changeset
|
144 |
|
e56b2f6369af
Add methods for accessing individual output formats
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
154
diff
changeset
|
145 |
"Created: / 28-11-2018 / 14:01:35 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
e56b2f6369af
Add methods for accessing individual output formats
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
154
diff
changeset
|
146 |
! |
e56b2f6369af
Add methods for accessing individual output formats
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
154
diff
changeset
|
147 |
|
e56b2f6369af
Add methods for accessing individual output formats
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
154
diff
changeset
|
148 |
octal |
e56b2f6369af
Add methods for accessing individual output formats
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
154
diff
changeset
|
149 |
^ FormatOctal |
e56b2f6369af
Add methods for accessing individual output formats
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
154
diff
changeset
|
150 |
|
e56b2f6369af
Add methods for accessing individual output formats
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
154
diff
changeset
|
151 |
"Created: / 28-11-2018 / 14:01:47 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
e56b2f6369af
Add methods for accessing individual output formats
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
154
diff
changeset
|
152 |
! |
e56b2f6369af
Add methods for accessing individual output formats
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
154
diff
changeset
|
153 |
|
e56b2f6369af
Add methods for accessing individual output formats
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
154
diff
changeset
|
154 |
paddedHexadecimal |
e56b2f6369af
Add methods for accessing individual output formats
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
154
diff
changeset
|
155 |
^ FormatPaddedHexadecimal |
e56b2f6369af
Add methods for accessing individual output formats
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
154
diff
changeset
|
156 |
|
e56b2f6369af
Add methods for accessing individual output formats
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
154
diff
changeset
|
157 |
"Created: / 28-11-2018 / 13:07:31 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
e56b2f6369af
Add methods for accessing individual output formats
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
154
diff
changeset
|
158 |
! |
e56b2f6369af
Add methods for accessing individual output formats
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
154
diff
changeset
|
159 |
|
e56b2f6369af
Add methods for accessing individual output formats
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
154
diff
changeset
|
160 |
raw |
e56b2f6369af
Add methods for accessing individual output formats
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
154
diff
changeset
|
161 |
^ FormatRaw |
e56b2f6369af
Add methods for accessing individual output formats
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
154
diff
changeset
|
162 |
|
e56b2f6369af
Add methods for accessing individual output formats
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
154
diff
changeset
|
163 |
"Created: / 28-11-2018 / 14:01:58 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
e56b2f6369af
Add methods for accessing individual output formats
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
154
diff
changeset
|
164 |
! |
e56b2f6369af
Add methods for accessing individual output formats
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
154
diff
changeset
|
165 |
|
e56b2f6369af
Add methods for accessing individual output formats
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
154
diff
changeset
|
166 |
signedDecimal |
e56b2f6369af
Add methods for accessing individual output formats
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
154
diff
changeset
|
167 |
^ FormatSignedDecimal |
e56b2f6369af
Add methods for accessing individual output formats
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
154
diff
changeset
|
168 |
|
e56b2f6369af
Add methods for accessing individual output formats
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
154
diff
changeset
|
169 |
"Created: / 28-11-2018 / 14:02:10 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
e56b2f6369af
Add methods for accessing individual output formats
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
154
diff
changeset
|
170 |
! |
e56b2f6369af
Add methods for accessing individual output formats
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
154
diff
changeset
|
171 |
|
e56b2f6369af
Add methods for accessing individual output formats
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
154
diff
changeset
|
172 |
string |
e56b2f6369af
Add methods for accessing individual output formats
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
154
diff
changeset
|
173 |
^ FormatString |
e56b2f6369af
Add methods for accessing individual output formats
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
154
diff
changeset
|
174 |
|
e56b2f6369af
Add methods for accessing individual output formats
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
154
diff
changeset
|
175 |
"Created: / 28-11-2018 / 14:02:20 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
e56b2f6369af
Add methods for accessing individual output formats
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
154
diff
changeset
|
176 |
! |
e56b2f6369af
Add methods for accessing individual output formats
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
154
diff
changeset
|
177 |
|
e56b2f6369af
Add methods for accessing individual output formats
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
154
diff
changeset
|
178 |
unsignedDecimal |
e56b2f6369af
Add methods for accessing individual output formats
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
154
diff
changeset
|
179 |
^ FormatUnsignedDecimal |
e56b2f6369af
Add methods for accessing individual output formats
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
154
diff
changeset
|
180 |
|
e56b2f6369af
Add methods for accessing individual output formats
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
154
diff
changeset
|
181 |
"Created: / 28-11-2018 / 14:02:35 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
154
abd4d9bdec0e
Portability: remove `GDBOutputFormats` pool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
97
diff
changeset
|
182 |
! ! |
abd4d9bdec0e
Portability: remove `GDBOutputFormats` pool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
97
diff
changeset
|
183 |
|
97 | 184 |
!GDBOutputFormat methodsFor:'accessing'! |
185 |
||
186 |
description |
|
187 |
^ description |
|
188 |
! |
|
189 |
||
190 |
format |
|
191 |
^ format |
|
192 |
! |
|
193 |
||
194 |
name |
|
195 |
^ name |
|
196 |
! ! |
|
197 |
||
198 |
!GDBOutputFormat methodsFor:'displaying'! |
|
199 |
||
200 |
displayString |
|
201 |
^ name |
|
202 |
||
203 |
"Created: / 26-01-2018 / 00:46:10 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
204 |
! ! |
|
205 |
||
206 |
!GDBOutputFormat methodsFor:'initialization'! |
|
207 |
||
208 |
format:formatArg name:nameArg description:descriptionArg |
|
209 |
format := formatArg. |
|
210 |
name := nameArg. |
|
211 |
description := descriptionArg. |
|
212 |
! ! |
|
213 |
||
162
e56b2f6369af
Add methods for accessing individual output formats
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
154
diff
changeset
|
214 |
!GDBOutputFormat methodsFor:'printing & storing'! |
e56b2f6369af
Add methods for accessing individual output formats
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
154
diff
changeset
|
215 |
|
e56b2f6369af
Add methods for accessing individual output formats
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
154
diff
changeset
|
216 |
printOn:aStream |
e56b2f6369af
Add methods for accessing individual output formats
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
154
diff
changeset
|
217 |
"append a printed representation of the receiver to the argument, aStream" |
e56b2f6369af
Add methods for accessing individual output formats
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
154
diff
changeset
|
218 |
|
e56b2f6369af
Add methods for accessing individual output formats
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
154
diff
changeset
|
219 |
super printOn:aStream. |
e56b2f6369af
Add methods for accessing individual output formats
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
154
diff
changeset
|
220 |
aStream nextPutAll:'('. |
e56b2f6369af
Add methods for accessing individual output formats
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
154
diff
changeset
|
221 |
format printOn:aStream. |
e56b2f6369af
Add methods for accessing individual output formats
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
154
diff
changeset
|
222 |
aStream nextPutAll:')'. |
e56b2f6369af
Add methods for accessing individual output formats
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
154
diff
changeset
|
223 |
|
e56b2f6369af
Add methods for accessing individual output formats
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
154
diff
changeset
|
224 |
"Modified: / 28-11-2018 / 13:05:45 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
e56b2f6369af
Add methods for accessing individual output formats
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
154
diff
changeset
|
225 |
! ! |
e56b2f6369af
Add methods for accessing individual output formats
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
154
diff
changeset
|
226 |
|
e56b2f6369af
Add methods for accessing individual output formats
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
154
diff
changeset
|
227 |
!GDBOutputFormat class methodsFor:'documentation'! |
e56b2f6369af
Add methods for accessing individual output formats
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
154
diff
changeset
|
228 |
|
e56b2f6369af
Add methods for accessing individual output formats
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
154
diff
changeset
|
229 |
version_HG |
e56b2f6369af
Add methods for accessing individual output formats
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
154
diff
changeset
|
230 |
|
e56b2f6369af
Add methods for accessing individual output formats
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
154
diff
changeset
|
231 |
^ '$Changeset: <not expanded> $' |
e56b2f6369af
Add methods for accessing individual output formats
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
154
diff
changeset
|
232 |
! ! |
e56b2f6369af
Add methods for accessing individual output formats
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
154
diff
changeset
|
233 |
|
154
abd4d9bdec0e
Portability: remove `GDBOutputFormats` pool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
97
diff
changeset
|
234 |
|
abd4d9bdec0e
Portability: remove `GDBOutputFormats` pool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
97
diff
changeset
|
235 |
GDBOutputFormat initialize! |