author | Jan Vrany <jan.vrany@fit.cvut.cz> |
Wed, 28 May 2014 09:42:40 +0100 | |
changeset 2 | a96eb336dbd3 |
parent 1 | da21f8614c2d |
child 7 | 7a51f98e7162 |
permissions | -rw-r--r-- |
0 | 1 |
"{ Package: 'jv:libgdbs' }" |
2 |
||
3 |
Object subclass:#GDB |
|
2
a96eb336dbd3
More work reading.writing GDB events/commands
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1
diff
changeset
|
4 |
instanceVariableNames:'driver' |
0 | 5 |
classVariableNames:'' |
6 |
poolDictionaries:'' |
|
7 |
category:'GDB-Core' |
|
8 |
! |
|
9 |
||
10 |
!GDB class methodsFor:'instance creation'! |
|
11 |
||
12 |
new |
|
13 |
"return an initialized instance" |
|
14 |
||
15 |
^ self basicNew initialize. |
|
16 |
! ! |
|
17 |
||
18 |
!GDB methodsFor:'finalization'! |
|
19 |
||
20 |
finalize |
|
21 |
self release. |
|
22 |
||
23 |
"Created: / 26-05-2014 / 21:23:28 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
24 |
! ! |
|
25 |
||
26 |
!GDB methodsFor:'initialize & release'! |
|
27 |
||
28 |
initialize |
|
1 | 29 |
self registerForFinalization. |
2
a96eb336dbd3
More work reading.writing GDB events/commands
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1
diff
changeset
|
30 |
driver := GDBLauncher startGDB. |
0 | 31 |
|
32 |
"Created: / 26-05-2014 / 21:23:04 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
33 |
! |
|
34 |
||
35 |
release |
|
2
a96eb336dbd3
More work reading.writing GDB events/commands
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1
diff
changeset
|
36 |
driver notNil ifTrue:[ |
a96eb336dbd3
More work reading.writing GDB events/commands
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1
diff
changeset
|
37 |
driver release. |
a96eb336dbd3
More work reading.writing GDB events/commands
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1
diff
changeset
|
38 |
driver := nil. |
0 | 39 |
]. |
40 |
||
41 |
"Created: / 26-05-2014 / 21:24:04 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
42 |
! ! |
|
43 |