"{ Encoding: utf8 }"

"{ Package: 'jv:libgdbs' }"

"{ NameSpace: Smalltalk }"

GDBDebuggerObject subclass:#GDBThreadGroup

	instanceVariableNames:'id type executable running pid exit_code threads'

	classVariableNames:''

	poolDictionaries:'GDBCommandStatus'

	category:'GDB-Core'

!

!GDBThreadGroup class methodsFor:'instance creation'!

new

    "return an initialized instance"

    ^ self basicNew initialize.

!

newWithDebugger: debugger id: aString

    ^ self new setDebugger: debugger; setId: aString; yourself

    "Created: / 07-09-2014 / 21:18:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!GDBThreadGroup class methodsFor:'accessing - GDB value descriptors'!

description

    ^ (super description)

        define:#id as:String;

        define:#pid as:Integer;

        yourself.

    "

    self description

    "

    "Created: / 06-09-2014 / 02:21:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified (comment): / 01-10-2014 / 01:29:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

descriptionType

    ^ Magritte::MASingleOptionDescription new

        optionsAndLabels: (Array with: 

            GDBThreadGroupTypeProcess -> 'process'  

        );

        accessor: (GDBMAPropertyAccessor forPropertyNamed: 'type');

        label: 'type';

        comment: 'The type of the thread group. At present, only ‘process’ is a valid type.';

        yourself.

    "Created: / 01-10-2014 / 01:29:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 17-11-2017 / 20:08:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!GDBThreadGroup methodsFor:'accessing'!

executable

    (executable isNil and:[ pid notNil ]) ifTrue:[

        | result tg |

        result := debugger send: GDBMI_list_thread_groups new.

        result status ~~ CommandStatusDone ifTrue:[ 

            self error: 'Failed to send command.'

        ].

        tg := (result propertyAt: 'groups') detect: [: each | each id = id ].

        executable := tg executable.

    ].

    ^ executable

    "Created: / 06-06-2017 / 00:04:43 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

exitCode

    ^ exit_code

    "Created: / 07-09-2014 / 12:34:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

id

    ^ id

!

pid

    ^ pid

!

threadWithId: tid

    ^ threads ? #() detect:[:e | e isDead not and:[ e id = tid ] ] ifNone:[

        self error: ('No thread with id ''%1'' found!!' bindWith: tid)        

    ].

    "Created: / 07-09-2014 / 21:37:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 22-09-2014 / 01:23:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

threads

    threads isNil ifTrue:[ 

        threads := List new.

    ]. 

    ^ threads

    "Modified: / 06-09-2014 / 02:23:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified (format): / 07-09-2014 / 21:42:28 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

type

    ^ type

! !

!GDBThreadGroup methodsFor:'event handling'!

onThreadCreatedEvent:aGDBThreadCreatedEvent 

    | thread |

    threads isNil ifTrue:[

        threads := List new.

    ].

    thread := GDBThread 

            newWithDebugger:debugger

            id:aGDBThreadCreatedEvent threadId

            group:self.

    threads add:thread.

    aGDBThreadCreatedEvent setThread:thread.

    "Created: / 07-09-2014 / 21:25:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

onThreadExitedEvent:aGDBThreadExitedEvent 

    | thread |

    thread := self threadWithId:aGDBThreadExitedEvent threadId.

    thread setStatus: GDBThreadStateTerminated theOneAndOnlyInstance.

    aGDBThreadExitedEvent setThread:thread.

    "Created: / 07-09-2014 / 21:25:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 12-07-2017 / 13:42:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!GDBThreadGroup methodsFor:'initialization'!

initialize

    "Invoked when a new instance is created."

    running := false.

    "Modified: / 06-06-2017 / 00:25:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

setExitCode: anInteger

    exit_code := anInteger.

    running := false.

    threads removeAll.

    "Created: / 06-09-2014 / 02:33:14 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 06-06-2017 / 00:24:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

setId: aString

    id := aString.

    "Created: / 06-09-2014 / 02:32:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

setPid: anInteger

    pid := anInteger.

    exit_code := nil.

    executable := nil.

    running := true.

    "Created: / 06-09-2014 / 02:32:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 06-06-2017 / 00:24:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!GDBThreadGroup methodsFor:'printing & storing'!

printOn:aStream

    "append a printed representation if the receiver to the argument, aStream"

    super printOn: aStream.

    aStream nextPutAll:'(id '.

    id printOn:aStream.

    aStream nextPutAll:', pid '.

    pid printOn:aStream.

    aStream nextPutAll:')'.

    "Modified: / 02-03-2015 / 07:10:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!GDBThreadGroup methodsFor:'private'!

threadAdd: aGDBThread

    self threads add: aGDBThread

    "Created: / 06-09-2014 / 02:23:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

threadRemove: aGDBThread

    self threads remove: aGDBThread

    "Created: / 06-09-2014 / 02:23:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!GDBThreadGroup methodsFor:'testing'!

isDead

    "Return true if program finished, either normally or abruptly (usng `kill` command).

     To tell whether is has finished normally or it has been terminated see

     #isFinished and / or #isTerminated"

    ^ self isRunning not and:[ pid notNil ]

    "Created: / 06-09-2014 / 02:38:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 06-06-2017 / 09:22:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

isFinished

    "Return true if program finished its execution normally (as opposed to be

     terminated by the debugger), false otherwise. 

     @see also #isTerminated

     @see also #isDead

    "

    ^ self isDead  and:[ exit_code notNil ]

    "Created: / 06-06-2017 / 09:23:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

isRunning

    "Return true, if program is currently running, false otherwise.

     Note, that program is running even of it's stopped byt the debugger.

     See #isStopped"

    ^ running

    "Created: / 06-09-2014 / 02:38:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 06-06-2017 / 00:25:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

isStopped

    ^ threads notEmptyOrNil and:[ threads anySatisfy: [:t | t isStopped ] ].

    "Created: / 30-09-2014 / 00:49:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

isTerminated

    "Return true if program has been terminated (as opposed to finishing normally),

     false otherwise.

     @see also #isFinished

     @see also #isDead

    "

    ^ self isDead and:[ exit_code isNil ]

    "Created: / 06-06-2017 / 09:26:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!GDBThreadGroup class methodsFor:'documentation'!

version_HG

    ^ '$Changeset: <not expanded> $'

! !