GDBCommandResultEvent.st
author Jan Vrany <jan.vrany@fit.cvut.cz>
Mon, 02 Mar 2015 06:14:49 +0000
changeset 59 95d6b1e90e2d
parent 9 5cc8797f6523
child 78 c24e7d8bc881
permissions -rw-r--r--
Better display string for command result
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
59
95d6b1e90e2d Better display string for command result
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 9
diff changeset
     1
"{ Encoding: utf8 }"
95d6b1e90e2d Better display string for command result
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 9
diff changeset
     2
3
29ea333a1811 More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     3
"{ Package: 'jv:libgdbs' }"
29ea333a1811 More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     4
59
95d6b1e90e2d Better display string for command result
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 9
diff changeset
     5
"{ NameSpace: Smalltalk }"
95d6b1e90e2d Better display string for command result
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 9
diff changeset
     6
6
d935bc59f6f4 Removed useless MI prefix
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3
diff changeset
     7
GDBEvent subclass:#GDBCommandResultEvent
3
29ea333a1811 More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     8
	instanceVariableNames:'result'
29ea333a1811 More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     9
	classVariableNames:''
29ea333a1811 More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    10
	poolDictionaries:''
6
d935bc59f6f4 Removed useless MI prefix
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3
diff changeset
    11
	category:'GDB-Core-Events'
3
29ea333a1811 More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    12
!
29ea333a1811 More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    13
59
95d6b1e90e2d Better display string for command result
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 9
diff changeset
    14
6
d935bc59f6f4 Removed useless MI prefix
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3
diff changeset
    15
!GDBCommandResultEvent methodsFor:'accessing'!
3
29ea333a1811 More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    16
29ea333a1811 More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    17
result
29ea333a1811 More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    18
    ^ result
29ea333a1811 More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    19
!
29ea333a1811 More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    20
29ea333a1811 More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    21
result:something
29ea333a1811 More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    22
    result := something.
9
5cc8797f6523 Make simple example with -gdb-exit command working
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
    23
!
5cc8797f6523 Make simple example with -gdb-exit command working
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
    24
5cc8797f6523 Make simple example with -gdb-exit command working
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
    25
status
5cc8797f6523 Make simple example with -gdb-exit command working
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
    26
    ^ result status
5cc8797f6523 Make simple example with -gdb-exit command working
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
    27
5cc8797f6523 Make simple example with -gdb-exit command working
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
    28
    "Created: / 04-06-2014 / 09:30:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
3
29ea333a1811 More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    29
! !
29ea333a1811 More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    30
59
95d6b1e90e2d Better display string for command result
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 9
diff changeset
    31
!GDBCommandResultEvent methodsFor:'displaying'!
95d6b1e90e2d Better display string for command result
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 9
diff changeset
    32
95d6b1e90e2d Better display string for command result
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 9
diff changeset
    33
displayString
95d6b1e90e2d Better display string for command result
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 9
diff changeset
    34
    ^ '%1 [finished, %2]' bindWith: result command asString with: result status
95d6b1e90e2d Better display string for command result
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 9
diff changeset
    35
95d6b1e90e2d Better display string for command result
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 9
diff changeset
    36
    "Created: / 01-03-2015 / 08:56:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
95d6b1e90e2d Better display string for command result
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 9
diff changeset
    37
! !
95d6b1e90e2d Better display string for command result
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 9
diff changeset
    38
6
d935bc59f6f4 Removed useless MI prefix
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3
diff changeset
    39
!GDBCommandResultEvent methodsFor:'testing'!
3
29ea333a1811 More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    40
29ea333a1811 More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    41
isCommandResultEvent
29ea333a1811 More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    42
    ^ true
29ea333a1811 More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    43
! !
29ea333a1811 More work on events and parsing.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    44
59
95d6b1e90e2d Better display string for command result
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 9
diff changeset
    45
!GDBCommandResultEvent class methodsFor:'documentation'!
95d6b1e90e2d Better display string for command result
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 9
diff changeset
    46
95d6b1e90e2d Better display string for command result
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 9
diff changeset
    47
version_HG
95d6b1e90e2d Better display string for command result
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 9
diff changeset
    48
95d6b1e90e2d Better display string for command result
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 9
diff changeset
    49
    ^ '$Changeset: <not expanded> $'
95d6b1e90e2d Better display string for command result
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 9
diff changeset
    50
! !
95d6b1e90e2d Better display string for command result
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 9
diff changeset
    51