GDBMITraceResponseRecord.st
author Jan Vrany <jan.vrany@labware.com>
Mon, 04 Sep 2023 14:00:57 +0100
changeset 314 4a2ef5a087f0
parent 272 cdd1c9ad00de
permissions -rw-r--r--
Add MI parser test This commit add test to parse real-world frament which failed to Pharo properly at some point. It is encoded here as bytearray to make sure all the characters are preserved exactly as they were.
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
151
7a2a98fe63e2 Portability: get rid of private classes and make them public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     1
"
7a2a98fe63e2 Portability: get rid of private classes and make them public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     2
jv:libgdbs - GNU Debugger Interface Library
7a2a98fe63e2 Portability: get rid of private classes and make them public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     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) 2022-2023 LabWare
151
7a2a98fe63e2 Portability: get rid of private classes and make them public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     5
259
651864c2aa29 Relicense under MIT license.
Jan Vrany <jan.vrany@labware.com>
parents: 151
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: 151
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: 151
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: 151
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: 151
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: 151
diff changeset
    11
furnished to do so, subject to the following conditions:
151
7a2a98fe63e2 Portability: get rid of private classes and make them public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    12
259
651864c2aa29 Relicense under MIT license.
Jan Vrany <jan.vrany@labware.com>
parents: 151
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: 151
diff changeset
    14
copies or substantial portions of the Software.
151
7a2a98fe63e2 Portability: get rid of private classes and make them public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    15
259
651864c2aa29 Relicense under MIT license.
Jan Vrany <jan.vrany@labware.com>
parents: 151
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: 151
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: 151
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: 151
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: 151
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: 151
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: 151
diff changeset
    22
SOFTWARE.
151
7a2a98fe63e2 Portability: get rid of private classes and make them public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    23
"
7a2a98fe63e2 Portability: get rid of private classes and make them public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    24
"{ Package: 'jv:libgdbs' }"
7a2a98fe63e2 Portability: get rid of private classes and make them public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    25
7a2a98fe63e2 Portability: get rid of private classes and make them public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    26
"{ NameSpace: Smalltalk }"
7a2a98fe63e2 Portability: get rid of private classes and make them public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    27
7a2a98fe63e2 Portability: get rid of private classes and make them public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    28
Object subclass:#GDBMITraceResponseRecord
7a2a98fe63e2 Portability: get rid of private classes and make them public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    29
	instanceVariableNames:'string'
7a2a98fe63e2 Portability: get rid of private classes and make them public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    30
	classVariableNames:''
7a2a98fe63e2 Portability: get rid of private classes and make them public
Jan Vrany <jan.vrany@fit.cvut.cz>
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-MI Trace'
151
7a2a98fe63e2 Portability: get rid of private classes and make them public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    33
!
7a2a98fe63e2 Portability: get rid of private classes and make them public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    34
7a2a98fe63e2 Portability: get rid of private classes and make them public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    35
!GDBMITraceResponseRecord class methodsFor:'documentation'!
7a2a98fe63e2 Portability: get rid of private classes and make them public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    36
7a2a98fe63e2 Portability: get rid of private classes and make them public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    37
copyright
7a2a98fe63e2 Portability: get rid of private classes and make them public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    38
"
7a2a98fe63e2 Portability: get rid of private classes and make them public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    39
jv:libgdbs - GNU Debugger Interface Library
7a2a98fe63e2 Portability: get rid of private classes and make them public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    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) 2022-2023 LabWare
151
7a2a98fe63e2 Portability: get rid of private classes and make them public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    42
259
651864c2aa29 Relicense under MIT license.
Jan Vrany <jan.vrany@labware.com>
parents: 151
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: 151
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: 151
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: 151
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: 151
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: 151
diff changeset
    48
furnished to do so, subject to the following conditions:
151
7a2a98fe63e2 Portability: get rid of private classes and make them public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    49
259
651864c2aa29 Relicense under MIT license.
Jan Vrany <jan.vrany@labware.com>
parents: 151
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: 151
diff changeset
    51
copies or substantial portions of the Software.
151
7a2a98fe63e2 Portability: get rid of private classes and make them public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    52
259
651864c2aa29 Relicense under MIT license.
Jan Vrany <jan.vrany@labware.com>
parents: 151
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: 151
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: 151
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: 151
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: 151
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: 151
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: 151
diff changeset
    59
SOFTWARE.
151
7a2a98fe63e2 Portability: get rid of private classes and make them public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    60
"
7a2a98fe63e2 Portability: get rid of private classes and make them public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    61
! !
7a2a98fe63e2 Portability: get rid of private classes and make them public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    62
7a2a98fe63e2 Portability: get rid of private classes and make them public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    63
!GDBMITraceResponseRecord methodsFor:'accessing'!
7a2a98fe63e2 Portability: get rid of private classes and make them public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    64
7a2a98fe63e2 Portability: get rid of private classes and make them public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    65
string
7a2a98fe63e2 Portability: get rid of private classes and make them public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    66
    ^ string
7a2a98fe63e2 Portability: get rid of private classes and make them public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    67
!
7a2a98fe63e2 Portability: get rid of private classes and make them public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    68
7a2a98fe63e2 Portability: get rid of private classes and make them public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    69
string:something
7a2a98fe63e2 Portability: get rid of private classes and make them public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    70
    string := something.
7a2a98fe63e2 Portability: get rid of private classes and make them public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    71
! !
7a2a98fe63e2 Portability: get rid of private classes and make them public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    72
7a2a98fe63e2 Portability: get rid of private classes and make them public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    73
!GDBMITraceResponseRecord methodsFor:'printing & storing'!
7a2a98fe63e2 Portability: get rid of private classes and make them public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    74
7a2a98fe63e2 Portability: get rid of private classes and make them public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    75
printOn:aStream
7a2a98fe63e2 Portability: get rid of private classes and make them public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    76
    "append a printed representation if the receiver to the argument, aStream"
7a2a98fe63e2 Portability: get rid of private classes and make them public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    77
7a2a98fe63e2 Portability: get rid of private classes and make them public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    78
    aStream nextPutLine: '<<<'.
7a2a98fe63e2 Portability: get rid of private classes and make them public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    79
    string printOn: aStream.
7a2a98fe63e2 Portability: get rid of private classes and make them public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    80
    aStream cr.
7a2a98fe63e2 Portability: get rid of private classes and make them public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    81
7a2a98fe63e2 Portability: get rid of private classes and make them public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    82
    "Modified: / 24-06-2014 / 00:08:28 / Jan Vrany <jan.vrany@fit.cvut.cz>"
7a2a98fe63e2 Portability: get rid of private classes and make them public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    83
! !
7a2a98fe63e2 Portability: get rid of private classes and make them public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    84
7a2a98fe63e2 Portability: get rid of private classes and make them public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    85
!GDBMITraceResponseRecord methodsFor:'testing'!
7a2a98fe63e2 Portability: get rid of private classes and make them public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    86
7a2a98fe63e2 Portability: get rid of private classes and make them public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    87
isCommand
7a2a98fe63e2 Portability: get rid of private classes and make them public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    88
    ^ false
7a2a98fe63e2 Portability: get rid of private classes and make them public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    89
7a2a98fe63e2 Portability: get rid of private classes and make them public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    90
    "Created: / 24-06-2014 / 00:41:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"
7a2a98fe63e2 Portability: get rid of private classes and make them public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    91
!
7a2a98fe63e2 Portability: get rid of private classes and make them public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    92
7a2a98fe63e2 Portability: get rid of private classes and make them public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    93
isResponse
7a2a98fe63e2 Portability: get rid of private classes and make them public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    94
    ^ true
7a2a98fe63e2 Portability: get rid of private classes and make them public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    95
7a2a98fe63e2 Portability: get rid of private classes and make them public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    96
    "Created: / 24-06-2014 / 00:41:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"
7a2a98fe63e2 Portability: get rid of private classes and make them public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    97
! !
7a2a98fe63e2 Portability: get rid of private classes and make them public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    98