equal
deleted
inserted
replaced
22 "return an initialized instance" |
22 "return an initialized instance" |
23 |
23 |
24 ^ self basicNew initialize. |
24 ^ self basicNew initialize. |
25 ! ! |
25 ! ! |
26 |
26 |
|
27 !TNamespaceBinding methodsFor:'accessing'! |
|
28 |
|
29 type |
|
30 ^ self shouldNotImplement |
|
31 |
|
32 "Created: / 14-09-2015 / 14:13:00 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
33 ! ! |
|
34 |
27 !TNamespaceBinding methodsFor:'initialization'! |
35 !TNamespaceBinding methodsFor:'initialization'! |
28 |
36 |
29 initializeWithNamespace: aTNamespaceDefinition |
37 initializeWithNamespace: aTNamespaceDefinition |
30 "Invoked when a new instance is created." |
38 "Invoked when a new instance is created." |
31 |
39 |
34 "Created: / 02-09-2015 / 15:59:35 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
42 "Created: / 02-09-2015 / 15:59:35 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
35 ! ! |
43 ! ! |
36 |
44 |
37 !TNamespaceBinding methodsFor:'lookup'! |
45 !TNamespaceBinding methodsFor:'lookup'! |
38 |
46 |
|
47 lookupClassBoolean |
|
48 ^ self lookupClassNamed: 'tBoolean' |
|
49 |
|
50 "Created: / 14-09-2015 / 14:13:22 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
51 ! |
|
52 |
39 lookupClassNamed: name |
53 lookupClassNamed: name |
40 | class | |
54 | class | |
41 |
55 |
42 class := definition classNamed: name. |
56 class := definition classNamed: name. |
43 class notNil ifTrue:[ |
57 class notNil ifTrue:[ |
45 ]. |
59 ]. |
46 self error:('Could not resolve class named %1' bindWith: name) |
60 self error:('Could not resolve class named %1' bindWith: name) |
47 |
61 |
48 "Created: / 02-09-2015 / 11:09:33 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
62 "Created: / 02-09-2015 / 11:09:33 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
49 "Modified (format): / 02-09-2015 / 16:00:49 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
63 "Modified (format): / 02-09-2015 / 16:00:49 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
64 ! |
|
65 |
|
66 lookupClassPointer |
|
67 ^ self lookupClassNamed: 'tPointer' |
|
68 |
|
69 "Created: / 14-09-2015 / 14:14:04 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
70 ! |
|
71 |
|
72 lookupClassSIntegerW |
|
73 ^ self lookupClassNamed: 'tSIntegerW' |
|
74 |
|
75 "Created: / 14-09-2015 / 14:13:46 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
76 ! |
|
77 |
|
78 lookupClassUIntegerW |
|
79 ^ self lookupClassNamed: 'tUIntegerW' |
|
80 |
|
81 "Created: / 14-09-2015 / 14:13:54 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
50 ! ! |
82 ! ! |
51 |
83 |
52 !TNamespaceBinding class methodsFor:'documentation'! |
84 !TNamespaceBinding class methodsFor:'documentation'! |
53 |
85 |
54 version_HG |
86 version_HG |