|
1 " |
|
2 jv:vdb - Visual / VM Debugger |
|
3 Copyright (C) 2015-now Jan Vrany |
|
4 |
|
5 This software is licensed under 'Creative Commons Attribution-NonCommercial 4.0 International License' |
|
6 |
|
7 You may find a full license text in LICENSE.txt or at http://creativecommons.org/licenses/by-nc/4.0/ |
|
8 " |
|
9 "{ Package: 'jv:vdb' }" |
|
10 |
|
11 "{ NameSpace: Smalltalk }" |
|
12 |
|
13 Object subclass:#VDBEvaluator |
|
14 instanceVariableNames:'debugger' |
|
15 classVariableNames:'' |
|
16 poolDictionaries:'' |
|
17 category:'VDB-Tools' |
|
18 ! |
|
19 |
|
20 !VDBEvaluator class methodsFor:'documentation'! |
|
21 |
|
22 copyright |
|
23 " |
|
24 jv:vdb - Visual / VM Debugger |
|
25 Copyright (C) 2015-now Jan Vrany |
|
26 |
|
27 This software is licensed under 'Creative Commons Attribution-NonCommercial 4.0 International License' |
|
28 |
|
29 You may find a full license text in LICENSE.txt or at http://creativecommons.org/licenses/by-nc/4.0/ |
|
30 " |
|
31 ! ! |
|
32 |
|
33 !VDBEvaluator methodsFor:'accessing - mimicry'! |
|
34 |
|
35 currentNameSpace: ignored |
|
36 self assert: ignored isNil |
|
37 |
|
38 "Created: / 21-03-2018 / 22:40:50 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
39 ! |
|
40 |
|
41 moreSharedPools:ignored |
|
42 self assert: ignored isNil |
|
43 |
|
44 "Created: / 21-03-2018 / 22:41:21 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
45 ! ! |
|
46 |
|
47 !VDBEvaluator methodsFor:'evaluation'! |
|
48 |
|
49 evaluate:aString in: context receiver: receiver notifying: requestor logged:logged ifFail:failBlock |
|
50 ^ debugger evaluate: aString |
|
51 |
|
52 "Created: / 21-03-2018 / 22:41:41 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
53 ! ! |
|
54 |
|
55 !VDBEvaluator methodsFor:'initialization'! |
|
56 |
|
57 setDebugger: aGDBDebugger |
|
58 debugger := aGDBDebugger |
|
59 |
|
60 "Created: / 21-03-2018 / 22:14:27 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
61 ! ! |
|
62 |
|
63 !VDBEvaluator methodsFor:'instance creation'! |
|
64 |
|
65 new |
|
66 |
|
67 "/ This is hack to overcome the fact that TextView and other expect |
|
68 "/ class that they instantiate themselves. This is indeed weird interface, |
|
69 "/ but well, we cannot change that easily due to backward compatibility. |
|
70 "/ See |
|
71 "/ |
|
72 "/ Workspace >> #executeDoIt: |
|
73 "/ |
|
74 ^ self |
|
75 |
|
76 "Created: / 21-03-2018 / 22:36:13 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
77 ! ! |
|
78 |