GDBStructure.st
author Jan Vrany <jan.vrany@labware.com>
Mon, 14 Aug 2023 16:36:47 +0100
changeset 272 cdd1c9ad00de
parent 259 651864c2aa29
permissions -rw-r--r--
Change class categories to facilitate Pharo port This commit changes class categories so all classes in `jv:libgdbs/tests' are in categories beggining with `GDB-Tests`. This is needed for Pharo as in Pharo (Squeak) world package membership is defined by class category string.
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
207
6865055b721f Add `GDBStructure` helper class
Jan Vrany <jan.vrany@labware.com>
parents:
diff changeset
     1
"
6865055b721f Add `GDBStructure` helper class
Jan Vrany <jan.vrany@labware.com>
parents:
diff changeset
     2
COPYRIGHT (c) 2020 LabWare
272
cdd1c9ad00de Change class categories to facilitate Pharo port
Jan Vrany <jan.vrany@labware.com>
parents: 259
diff changeset
     3
COPYRIGHT (c) 2022-2023 LabWare
207
6865055b721f Add `GDBStructure` helper class
Jan Vrany <jan.vrany@labware.com>
parents:
diff changeset
     4
jv:libgdbs - GNU Debugger Interface Library
6865055b721f Add `GDBStructure` helper class
Jan Vrany <jan.vrany@labware.com>
parents:
diff changeset
     5
259
651864c2aa29 Relicense under MIT license.
Jan Vrany <jan.vrany@labware.com>
parents: 207
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: 207
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: 207
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: 207
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: 207
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: 207
diff changeset
    11
furnished to do so, subject to the following conditions:
207
6865055b721f Add `GDBStructure` helper class
Jan Vrany <jan.vrany@labware.com>
parents:
diff changeset
    12
259
651864c2aa29 Relicense under MIT license.
Jan Vrany <jan.vrany@labware.com>
parents: 207
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: 207
diff changeset
    14
copies or substantial portions of the Software.
207
6865055b721f Add `GDBStructure` helper class
Jan Vrany <jan.vrany@labware.com>
parents:
diff changeset
    15
259
651864c2aa29 Relicense under MIT license.
Jan Vrany <jan.vrany@labware.com>
parents: 207
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: 207
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: 207
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: 207
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: 207
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: 207
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: 207
diff changeset
    22
SOFTWARE.
207
6865055b721f Add `GDBStructure` helper class
Jan Vrany <jan.vrany@labware.com>
parents:
diff changeset
    23
"
6865055b721f Add `GDBStructure` helper class
Jan Vrany <jan.vrany@labware.com>
parents:
diff changeset
    24
"{ Package: 'jv:libgdbs' }"
6865055b721f Add `GDBStructure` helper class
Jan Vrany <jan.vrany@labware.com>
parents:
diff changeset
    25
6865055b721f Add `GDBStructure` helper class
Jan Vrany <jan.vrany@labware.com>
parents:
diff changeset
    26
"{ NameSpace: Smalltalk }"
6865055b721f Add `GDBStructure` helper class
Jan Vrany <jan.vrany@labware.com>
parents:
diff changeset
    27
6865055b721f Add `GDBStructure` helper class
Jan Vrany <jan.vrany@labware.com>
parents:
diff changeset
    28
GDBObject subclass:#GDBStructure
6865055b721f Add `GDBStructure` helper class
Jan Vrany <jan.vrany@labware.com>
parents:
diff changeset
    29
	instanceVariableNames:'name description'
6865055b721f Add `GDBStructure` helper class
Jan Vrany <jan.vrany@labware.com>
parents:
diff changeset
    30
	classVariableNames:''
6865055b721f Add `GDBStructure` helper class
Jan Vrany <jan.vrany@labware.com>
parents:
diff changeset
    31
	poolDictionaries:''
272
cdd1c9ad00de Change class categories to facilitate Pharo port
Jan Vrany <jan.vrany@labware.com>
parents: 259
diff changeset
    32
	category:'GDB-Internal-Support'
207
6865055b721f Add `GDBStructure` helper class
Jan Vrany <jan.vrany@labware.com>
parents:
diff changeset
    33
!
6865055b721f Add `GDBStructure` helper class
Jan Vrany <jan.vrany@labware.com>
parents:
diff changeset
    34
6865055b721f Add `GDBStructure` helper class
Jan Vrany <jan.vrany@labware.com>
parents:
diff changeset
    35
!GDBStructure class methodsFor:'documentation'!
6865055b721f Add `GDBStructure` helper class
Jan Vrany <jan.vrany@labware.com>
parents:
diff changeset
    36
6865055b721f Add `GDBStructure` helper class
Jan Vrany <jan.vrany@labware.com>
parents:
diff changeset
    37
copyright
6865055b721f Add `GDBStructure` helper class
Jan Vrany <jan.vrany@labware.com>
parents:
diff changeset
    38
"
6865055b721f Add `GDBStructure` helper class
Jan Vrany <jan.vrany@labware.com>
parents:
diff changeset
    39
COPYRIGHT (c) 2020 LabWare
272
cdd1c9ad00de Change class categories to facilitate Pharo port
Jan Vrany <jan.vrany@labware.com>
parents: 259
diff changeset
    40
COPYRIGHT (c) 2022-2023 LabWare
207
6865055b721f Add `GDBStructure` helper class
Jan Vrany <jan.vrany@labware.com>
parents:
diff changeset
    41
jv:libgdbs - GNU Debugger Interface Library
6865055b721f Add `GDBStructure` helper class
Jan Vrany <jan.vrany@labware.com>
parents:
diff changeset
    42
259
651864c2aa29 Relicense under MIT license.
Jan Vrany <jan.vrany@labware.com>
parents: 207
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: 207
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: 207
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: 207
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: 207
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: 207
diff changeset
    48
furnished to do so, subject to the following conditions:
207
6865055b721f Add `GDBStructure` helper class
Jan Vrany <jan.vrany@labware.com>
parents:
diff changeset
    49
259
651864c2aa29 Relicense under MIT license.
Jan Vrany <jan.vrany@labware.com>
parents: 207
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: 207
diff changeset
    51
copies or substantial portions of the Software.
207
6865055b721f Add `GDBStructure` helper class
Jan Vrany <jan.vrany@labware.com>
parents:
diff changeset
    52
259
651864c2aa29 Relicense under MIT license.
Jan Vrany <jan.vrany@labware.com>
parents: 207
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: 207
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: 207
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: 207
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: 207
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: 207
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: 207
diff changeset
    59
SOFTWARE.
207
6865055b721f Add `GDBStructure` helper class
Jan Vrany <jan.vrany@labware.com>
parents:
diff changeset
    60
"
6865055b721f Add `GDBStructure` helper class
Jan Vrany <jan.vrany@labware.com>
parents:
diff changeset
    61
! !
6865055b721f Add `GDBStructure` helper class
Jan Vrany <jan.vrany@labware.com>
parents:
diff changeset
    62
6865055b721f Add `GDBStructure` helper class
Jan Vrany <jan.vrany@labware.com>
parents:
diff changeset
    63
!GDBStructure class methodsFor:'instance creation'!
6865055b721f Add `GDBStructure` helper class
Jan Vrany <jan.vrany@labware.com>
parents:
diff changeset
    64
6865055b721f Add `GDBStructure` helper class
Jan Vrany <jan.vrany@labware.com>
parents:
diff changeset
    65
new
6865055b721f Add `GDBStructure` helper class
Jan Vrany <jan.vrany@labware.com>
parents:
diff changeset
    66
    "return an initialized instance"
6865055b721f Add `GDBStructure` helper class
Jan Vrany <jan.vrany@labware.com>
parents:
diff changeset
    67
6865055b721f Add `GDBStructure` helper class
Jan Vrany <jan.vrany@labware.com>
parents:
diff changeset
    68
    ^ self basicNew initialize.
6865055b721f Add `GDBStructure` helper class
Jan Vrany <jan.vrany@labware.com>
parents:
diff changeset
    69
! !
6865055b721f Add `GDBStructure` helper class
Jan Vrany <jan.vrany@labware.com>
parents:
diff changeset
    70
6865055b721f Add `GDBStructure` helper class
Jan Vrany <jan.vrany@labware.com>
parents:
diff changeset
    71
!GDBStructure methodsFor:'accessing'!
6865055b721f Add `GDBStructure` helper class
Jan Vrany <jan.vrany@labware.com>
parents:
diff changeset
    72
6865055b721f Add `GDBStructure` helper class
Jan Vrany <jan.vrany@labware.com>
parents:
diff changeset
    73
description
6865055b721f Add `GDBStructure` helper class
Jan Vrany <jan.vrany@labware.com>
parents:
diff changeset
    74
    ^ description
6865055b721f Add `GDBStructure` helper class
Jan Vrany <jan.vrany@labware.com>
parents:
diff changeset
    75
! !
6865055b721f Add `GDBStructure` helper class
Jan Vrany <jan.vrany@labware.com>
parents:
diff changeset
    76
6865055b721f Add `GDBStructure` helper class
Jan Vrany <jan.vrany@labware.com>
parents:
diff changeset
    77
!GDBStructure methodsFor:'adding-easy shortcuts'!
6865055b721f Add `GDBStructure` helper class
Jan Vrany <jan.vrany@labware.com>
parents:
diff changeset
    78
6865055b721f Add `GDBStructure` helper class
Jan Vrany <jan.vrany@labware.com>
parents:
diff changeset
    79
define: property as: class
6865055b721f Add `GDBStructure` helper class
Jan Vrany <jan.vrany@labware.com>
parents:
diff changeset
    80
    description define: property as: class
6865055b721f Add `GDBStructure` helper class
Jan Vrany <jan.vrany@labware.com>
parents:
diff changeset
    81
6865055b721f Add `GDBStructure` helper class
Jan Vrany <jan.vrany@labware.com>
parents:
diff changeset
    82
    "Created: / 23-09-2014 / 22:20:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
6865055b721f Add `GDBStructure` helper class
Jan Vrany <jan.vrany@labware.com>
parents:
diff changeset
    83
    "Modified: / 25-04-2019 / 16:20:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
6865055b721f Add `GDBStructure` helper class
Jan Vrany <jan.vrany@labware.com>
parents:
diff changeset
    84
    "Modified: / 15-06-2020 / 12:26:46 / Jan Vrany <jan.vrany@labware.com>"
6865055b721f Add `GDBStructure` helper class
Jan Vrany <jan.vrany@labware.com>
parents:
diff changeset
    85
!
6865055b721f Add `GDBStructure` helper class
Jan Vrany <jan.vrany@labware.com>
parents:
diff changeset
    86
6865055b721f Add `GDBStructure` helper class
Jan Vrany <jan.vrany@labware.com>
parents:
diff changeset
    87
define: property as: collectionClass of: elementClass
6865055b721f Add `GDBStructure` helper class
Jan Vrany <jan.vrany@labware.com>
parents:
diff changeset
    88
    description define: property as: collectionClass of: elementClass
6865055b721f Add `GDBStructure` helper class
Jan Vrany <jan.vrany@labware.com>
parents:
diff changeset
    89
6865055b721f Add `GDBStructure` helper class
Jan Vrany <jan.vrany@labware.com>
parents:
diff changeset
    90
    "Created: / 23-09-2014 / 22:54:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"
6865055b721f Add `GDBStructure` helper class
Jan Vrany <jan.vrany@labware.com>
parents:
diff changeset
    91
    "Modified: / 25-04-2019 / 16:19:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
6865055b721f Add `GDBStructure` helper class
Jan Vrany <jan.vrany@labware.com>
parents:
diff changeset
    92
    "Modified: / 15-06-2020 / 12:27:00 / Jan Vrany <jan.vrany@labware.com>"
6865055b721f Add `GDBStructure` helper class
Jan Vrany <jan.vrany@labware.com>
parents:
diff changeset
    93
!
6865055b721f Add `GDBStructure` helper class
Jan Vrany <jan.vrany@labware.com>
parents:
diff changeset
    94
6865055b721f Add `GDBStructure` helper class
Jan Vrany <jan.vrany@labware.com>
parents:
diff changeset
    95
define: property as: collectionClass of: elementClass1 whenTaggedBy: tag1 or: elementClass2 whenTaggedBy: tag2 
6865055b721f Add `GDBStructure` helper class
Jan Vrany <jan.vrany@labware.com>
parents:
diff changeset
    96
    description define: property as: collectionClass of: elementClass1 whenTaggedBy: tag1 or: elementClass2 whenTaggedBy: tag2
6865055b721f Add `GDBStructure` helper class
Jan Vrany <jan.vrany@labware.com>
parents:
diff changeset
    97
6865055b721f Add `GDBStructure` helper class
Jan Vrany <jan.vrany@labware.com>
parents:
diff changeset
    98
    "Created: / 03-07-2018 / 17:10:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
6865055b721f Add `GDBStructure` helper class
Jan Vrany <jan.vrany@labware.com>
parents:
diff changeset
    99
    "Modified: / 25-04-2019 / 16:20:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
6865055b721f Add `GDBStructure` helper class
Jan Vrany <jan.vrany@labware.com>
parents:
diff changeset
   100
    "Modified: / 15-06-2020 / 12:27:14 / Jan Vrany <jan.vrany@labware.com>"
6865055b721f Add `GDBStructure` helper class
Jan Vrany <jan.vrany@labware.com>
parents:
diff changeset
   101
! !
6865055b721f Add `GDBStructure` helper class
Jan Vrany <jan.vrany@labware.com>
parents:
diff changeset
   102
6865055b721f Add `GDBStructure` helper class
Jan Vrany <jan.vrany@labware.com>
parents:
diff changeset
   103
!GDBStructure methodsFor:'initialization'!
6865055b721f Add `GDBStructure` helper class
Jan Vrany <jan.vrany@labware.com>
parents:
diff changeset
   104
6865055b721f Add `GDBStructure` helper class
Jan Vrany <jan.vrany@labware.com>
parents:
diff changeset
   105
initialize
6865055b721f Add `GDBStructure` helper class
Jan Vrany <jan.vrany@labware.com>
parents:
diff changeset
   106
    super initialize.
6865055b721f Add `GDBStructure` helper class
Jan Vrany <jan.vrany@labware.com>
parents:
diff changeset
   107
    description := GDBMAContainer forClass: self class.
6865055b721f Add `GDBStructure` helper class
Jan Vrany <jan.vrany@labware.com>
parents:
diff changeset
   108
6865055b721f Add `GDBStructure` helper class
Jan Vrany <jan.vrany@labware.com>
parents:
diff changeset
   109
    "Modified: / 15-06-2020 / 12:51:40 / Jan Vrany <jan.vrany@labware.com>"
6865055b721f Add `GDBStructure` helper class
Jan Vrany <jan.vrany@labware.com>
parents:
diff changeset
   110
! !
6865055b721f Add `GDBStructure` helper class
Jan Vrany <jan.vrany@labware.com>
parents:
diff changeset
   111