GDB.st
changeset 0 0b9e93821620
child 1 da21f8614c2d
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/GDB.st	Tue May 27 09:24:51 2014 +0100
@@ -0,0 +1,51 @@
+"{ Package: 'jv:libgdbs' }"
+
+Object subclass:#GDB
+	instanceVariableNames:'controller'
+	classVariableNames:''
+	poolDictionaries:''
+	category:'GDB-Core'
+!
+
+
+!GDB class methodsFor:'instance creation'!
+
+new
+    "return an initialized instance"
+
+    ^ self basicNew initialize.
+! !
+
+!GDB methodsFor:'finalization'!
+
+finalize
+    self release.
+
+    "Created: / 26-05-2014 / 21:23:28 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
+!GDB methodsFor:'initialize & release'!
+
+initialize
+    controller := GDBLauncher startGDB.
+    self registerForFinalization.
+
+    "Created: / 26-05-2014 / 21:23:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+release
+    controller notNil ifTrue:[ 
+        controller release.
+        controller := nil.
+    ].
+
+    "Created: / 26-05-2014 / 21:24:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
+!GDB class methodsFor:'documentation'!
+
+version_HG
+
+    ^ '$Changeset: <not expanded> $'
+! !
+