"

jv:vdb - Visual / VM Debugger

Copyright (C) 2015-now Jan Vrany

This software is licensed under 'Creative Commons Attribution-NonCommercial 4.0 International License'

You may find a full license text in LICENSE.txt or at http://creativecommons.org/licenses/by-nc/4.0/

"

"{ Package: 'jv:vdb' }"

"{ NameSpace: Smalltalk }"

VDBAbstractTreeApplication subclass:#VDBInstructionListApplication

	instanceVariableNames:'instructionListHolder instructionBasicBlocks

		selectedInstructionHolder selectedInstructionBranchTargetAddress

		selectedInstructionBasicBlock frameHolder'

	classVariableNames:''

	poolDictionaries:''

	category:'VDB-UI-Others'

!

!VDBInstructionListApplication class methodsFor:'documentation'!

copyright

"

jv:vdb - Visual / VM Debugger

Copyright (C) 2015-now Jan Vrany

This software is licensed under 'Creative Commons Attribution-NonCommercial 4.0 International License'

You may find a full license text in LICENSE.txt or at http://creativecommons.org/licenses/by-nc/4.0/

"

! !

!VDBInstructionListApplication class methodsFor:'accessing'!

windowTitle

    ^ self resources string: 'Assembly'

    "Created: / 22-06-2018 / 12:25:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!VDBInstructionListApplication class methodsFor:'utilities'!

instructions: aCollection title: aString

    ^ self new  

        instructionList: aCollection;

        title: aString;

        yourself

    "Created: / 26-06-2018 / 11:03:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!VDBInstructionListApplication methodsFor:'accessing'!

frame

    ^ self frameHolder value

    "Created: / 06-08-2018 / 13:24:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

frame: aGDBFrame

    self frameHolder value: aGDBFrame

    "Created: / 06-08-2018 / 13:22:14 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

instructionList

    ^ self instructionListHolder value

    "Created: / 07-08-2018 / 13:27:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

instructionList: aCollection

    self instructionListHolder value: aCollection

    "Created: / 22-06-2018 / 12:48:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!VDBInstructionListApplication methodsFor:'aspects'!

backgroundColorFor: aVDBPresenter

    (frameHolder value notNil and:[aVDBPresenter isInstructionPresenter]) ifTrue:[ 

        frameHolder value address == aVDBPresenter address ifTrue:[ 

            ^ Color green.

        ].

    ].

    selectedInstructionBranchTargetAddress notNil ifTrue:[ 

        aVDBPresenter isInstructionPresenter ifTrue:[ 

            aVDBPresenter instruction address = selectedInstructionBranchTargetAddress ifTrue:[ 

                ^ Color blue lighter lighter

            ].

        ].

        selectedInstructionBasicBlock notNil ifTrue:[ 

            | successor2 |

            successor2 := selectedInstructionBasicBlock successor2.

            (successor2 notNil and:[ successor2 includesAddress: aVDBPresenter address] ) ifTrue:[

                ^ Color blue lighter lighter lighter

            ].

        ].

    ].

    selectedInstructionBasicBlock notNil ifTrue:[ 

        (selectedInstructionBasicBlock includesAddress: aVDBPresenter address) ifTrue:[ 

            ^ Color yellow lighter lighter

        ].

    ].

    ^ nil

    "Created: / 26-06-2018 / 11:26:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 16-08-2018 / 11:50:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

foregroundColorFor: aVDBAbstractPresenter

    ^ aVDBAbstractPresenter isInstructionsAndSourcePresenter 

        ifTrue:[ Color gray ]

        ifFalse:[ nil ]

    "Created: / 26-06-2018 / 13:07:12 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

frameHolder

    "return/create the 'frameHolder' value holder (automatically generated)"

    frameHolder isNil ifTrue:[

        frameHolder := ValueHolder new.

        frameHolder addDependent:self.

    ].

    ^ frameHolder

!

frameHolder:something

    "set the 'frameHolder' value holder (automatically generated)"

    |oldValue newValue|

    frameHolder notNil ifTrue:[

        oldValue := frameHolder value.

        frameHolder removeDependent:self.

    ].

    frameHolder := something.

    frameHolder notNil ifTrue:[

        frameHolder addDependent:self.

    ].

    newValue := frameHolder value.

    oldValue ~~ newValue ifTrue:[

        self update:#value with:newValue from:frameHolder.

    ].

!

instructionListHolder

    "return/create the 'instructionListHolder' value holder (automatically generated)"

    instructionListHolder isNil ifTrue:[

        instructionListHolder := ValueHolder new.

        instructionListHolder addDependent:self.

    ].

    ^ instructionListHolder

!

instructionListHolder:valueModel

    "set the 'instructionListHolder' value holder (automatically generated)"

    |oldValue newValue|

    instructionListHolder notNil ifTrue:[

        oldValue := instructionListHolder value.

        instructionListHolder removeDependent:self.

    ].

    instructionListHolder := valueModel.

    instructionListHolder notNil ifTrue:[

        instructionListHolder addDependent:self.

    ].

    newValue := instructionListHolder value.

    oldValue ~~ newValue ifTrue:[

        self update:#value with:newValue from:instructionListHolder.

    ].

!

selectedInstructionHolder

    "return/create the 'selectedInstructionHolder' value holder (automatically generated)"

    selectedInstructionHolder isNil ifTrue:[

        selectedInstructionHolder := ValueHolder new.

        selectedInstructionHolder addDependent:self.

    ].

    ^ selectedInstructionHolder

!

selectedInstructionHolder:valueModel

    "set the 'selectedInstructionHolder' value holder (automatically generated)"

    |oldValue newValue|

    selectedInstructionHolder notNil ifTrue:[

        oldValue := selectedInstructionHolder value.

        selectedInstructionHolder removeDependent:self.

    ].

    selectedInstructionHolder := valueModel.

    selectedInstructionHolder notNil ifTrue:[

        selectedInstructionHolder addDependent:self.

    ].

    newValue := selectedInstructionHolder value.

    oldValue ~~ newValue ifTrue:[

        self update:#value with:newValue from:selectedInstructionHolder.

    ].

! !

!VDBInstructionListApplication methodsFor:'change & update'!

enqueueDelayedUpdateBasicBlocks

    self enqueueDelayedUpdate: #delayedUpdateBasicBlocks

    "Created: / 26-06-2018 / 12:20:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

update:aspect with:param from:sender

    "Invoked when an object that I depend upon sends a change notification."

    sender == instructionListHolder ifTrue:[ 

         self enqueueDelayedUpdateInternalList.

         ^ self.

    ].

    sender == frameHolder ifTrue:[ 

         self updateAfterFrameChanged.

         ^ self.

    ].

    sender == selectedInstructionHolder ifTrue:[ 

        self updateAfterSelectedInstructionChanged.

    ].

    super update:aspect with:param from:sender

    "Modified: / 06-08-2018 / 13:23:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

updateAfterFrameChanged

    self debugger: self frame debugger

    "Created: / 06-08-2018 / 13:24:28 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

updateAfterSelectedInstructionChanged

    | selected |

    selected := self selectedInstructionHolder value.

    selected notNil ifTrue:[

        selected isBranch ifTrue:[ 

            selectedInstructionBranchTargetAddress := selected branchTarget.

        ] ifFalse:[ 

            selectedInstructionBranchTargetAddress := nil.

        ].

        instructionBasicBlocks size > 1 ifTrue:[

            selectedInstructionBasicBlock := instructionBasicBlocks detect:[:e | e includesAddress: selected address ] ifNone: [ nil ]

        ] ifFalse:[ 

            selectedInstructionBasicBlock := nil.

        ].

    ] ifFalse:[ 

        selectedInstructionBranchTargetAddress := nil.

        selectedInstructionBasicBlock := nil.

    ].

    self enqueueDelayedInvalidateInternalList.

    "Created: / 26-06-2018 / 11:33:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 03-07-2018 / 14:56:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!VDBInstructionListApplication methodsFor:'change & update-delayed'!

delayedUpdateBasicBlocks

    | instructions |

    instructions := OrderedCollection new.

    self instructionsDo: [ :e | instructions add: e ].

    instructionBasicBlocks := VDBInstructionBasicBlock analyze: instructions.

    self enqueueDelayedInvalidateInternalList.

    "Created: / 26-06-2018 / 12:20:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 16-08-2018 / 11:33:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

delayedUpdateInternalList

    | root |

    root := self internalListHolder root.

    root children:

            (model isKindOf: GDBInstructionsAndSourceLine) ifTrue:[

                (VDBInstructionsAndSourcePresenter new) setInstructionsAndSource: model;

                    parent:root;

                    yourself

            ] ifFalse:[ 

                (VDBInstructionPresenter new) setInstruction: model;

                    parent:root;

                    yourself

            ].

        ]).

    root expand.

    root children do:[:each | each expand ].

    self frame notNil ifTrue:[ 

        self scrollToAddress: self frame address.

    ].

    internalListView notNil ifTrue:[

        internalListView invalidate.

    ].

    self enqueueDelayedUpdateBasicBlocks.

    "Created: / 27-02-2015 / 15:47:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

delayedUpdateSelection

    | internalSelection |

    internalSelection := self internalSelectionHolder value.

    internalSelection notNil ifTrue:[

        self selectedInstructionHolder value: internalSelection instruction

    ] ifFalse:[ 

        self selectedInstructionHolder value: nil

    ].

    "Modified: / 22-06-2018 / 15:08:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!VDBInstructionListApplication methodsFor:'event handling'!

onStoppedEvent: aGDBStoppedEvent

    self frame notNil ifTrue:[ 

        self enqueueDelayedInvalidateInternalList

    ].

    "Created: / 06-08-2018 / 14:45:03 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!VDBInstructionListApplication methodsFor:'initialization & release'!

subscribe   

    "Register for debugger events. To be overrided by subclasses"

    debugger announcer 

        when: GDBStoppedEvent send: #onStoppedEvent: to: self.

    "Created: / 06-08-2018 / 14:44:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!VDBInstructionListApplication methodsFor:'private'!

instructionPresentersDo: aBlock

    self internalListHolder root children do:[:each |

        each isInstructionPresenter ifTrue:[ 

            aBlock value: each

        ] ifFalse:[ 

            each children do: aBlock

        ].

    ]

    "Created: / 26-06-2018 / 12:30:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

instructionsDo: aBlock

    self instructionListHolder value ? #() do:[:each |

        each instructionsDo: aBlock

    ]

    "Created: / 16-08-2018 / 11:32:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!VDBInstructionListApplication methodsFor:'queries'!

canSelect: anItem

    ^ anItem isInstructionPresenter

    "Created: / 22-06-2018 / 15:07:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!VDBInstructionListApplication methodsFor:'scrolling'!

scrollToAddress: address

    internalListView isNil ifTrue:[ ^ self ].

    (self frame notNil and:[ self instructionList notEmptyOrNil ]) ifTrue:[ 

        self instructionPresentersDo:[ :each |

            each address = address ifTrue:[ 

                self scrollToListItem: each.

            ].

        ]

    ].

    "Created: / 07-08-2018 / 13:36:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!VDBInstructionListApplication class methodsFor:'documentation'!

version_HG

    ^ '$Changeset: <not expanded> $'

! !