--- a/GDBDriver.st Mon Jun 09 10:28:46 2014 +0100
+++ b/GDBDriver.st Mon Jun 09 21:28:52 2014 +0100
@@ -1,9 +1,9 @@
"{ Package: 'jv:libgdbs' }"
Object subclass:#GDBDriver
- instanceVariableNames:'pid debuggerInput debuggerOutput inferiorInput inferiorOutput
- eventAnnouncer eventQueue eventQueueLock eventQueueNotifier
- eventDispatchProcess eventPumpProcess'
+ instanceVariableNames:'pid debuggerInput debuggerOutput inferiorPTY eventAnnouncer
+ eventQueue eventQueueLock eventQueueNotifier eventDispatchProcess
+ eventPumpProcess'
classVariableNames:''
poolDictionaries:'GDBDebugFlags'
category:'GDB-Private'
@@ -12,16 +12,13 @@
!GDBDriver class methodsFor:'instance creation'!
-debuggerPid:pidArg debuggerInput:inputArg debuggerOutput:outputArg inferiorInput:inferiorInputArg inferiorOutput:inferiorOutputArg
+pid:pidArg input:inputArg output:outputArg
^ self new
- initializeWithDebuggerPid:pidArg
- debuggerInput:inputArg
- debuggerOutput:outputArg
- inferiorInput:inferiorInputArg
- inferiorOutput:inferiorOutputArg
+ initializeWithPid:pidArg
+ input:inputArg
+ output:outputArg
- "Created: / 26-05-2014 / 13:35:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
- "Modified: / 09-06-2014 / 09:20:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Created: / 09-06-2014 / 18:20:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
!GDBDriver methodsFor:'accessing'!
@@ -30,12 +27,8 @@
^ eventAnnouncer
!
-inferiorInput
- ^ inferiorInput
-!
-
-inferiorOutput
- ^ inferiorOutput
+inferiorPTY
+ ^ inferiorPTY
! !
!GDBDriver methodsFor:'event dispatching'!
@@ -234,12 +227,11 @@
!GDBDriver methodsFor:'initialize & release'!
-initializeWithDebuggerPid:pidArg debuggerInput:inputArg debuggerOutput:outputArg inferiorInput:inferiorInputArg inferiorOutput:inferiorOutputArg
+initializeWithPid:pidArg input:inputArg output:outputArg
pid := pidArg.
debuggerInput := inputArg.
debuggerOutput := outputArg.
- inferiorInput := inferiorInputArg.
- inferiorOutput := inferiorOutputArg.
+ inferiorPTY := GDBPTY new.
eventQueue := OrderedCollection new.
eventQueueLock := RecursionLock new.
eventQueueNotifier := Semaphore new.
@@ -249,8 +241,7 @@
send:#onCommand:
to:self.
- "Created: / 26-05-2014 / 13:35:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"
- "Modified: / 09-06-2014 / 09:14:14 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Created: / 09-06-2014 / 18:21:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
release
@@ -285,9 +276,10 @@
debuggerOutput close.
debuggerOutput := nil.
].
+ inferiorPTY release.
"Created: / 26-05-2014 / 21:31:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"
- "Modified: / 04-06-2014 / 09:20:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified: / 09-06-2014 / 18:26:12 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
!GDBDriver class methodsFor:'documentation'!