GDBDriver.st
changeset 11 474fbb650afe
parent 10 f04a22c9b16c
child 18 6bf3d5c400d1
--- 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'!