equal
deleted
inserted
replaced
18 "Modified: / 08-04-2011 / 17:31:14 / Marcel Hlopko <hlopkmar@fel.cvut.cz>" |
18 "Modified: / 08-04-2011 / 17:31:14 / Marcel Hlopko <hlopkmar@fel.cvut.cz>" |
19 ! ! |
19 ! ! |
20 |
20 |
21 !JavaClassRef2 methodsFor:'accessing'! |
21 !JavaClassRef2 methodsFor:'accessing'! |
22 |
22 |
|
23 classLoader |
|
24 owner ifNil:[^nil] ifNotNil:[^owner classLoader]. |
|
25 |
|
26 "Created: / 11-04-2011 / 21:52:06 / Marcel Hlopko <hlopkmar@fel.cvut.cz>" |
|
27 ! |
|
28 |
23 javaClassName |
29 javaClassName |
24 "return java class name as written in java programs e.g. java.util.String |
30 "return java class name as written in java programs e.g. java.util.String |
25 in case of array, return class name without square brackets" |
31 in case of array, return class name without square brackets" |
26 |tmp| |
32 |
27 tmp := (name replaceAll:'[' with: ''). |
33 | tmp | |
28 ^ tmp copyFrom: 2 to: tmp size. |
34 |
|
35 tmp := (name replaceAll: '[' with: ''). |
|
36 ^ tmp copyFrom: 2 to: tmp size -1. |
29 |
37 |
30 "Created: / 08-04-2011 / 18:30:44 / Marcel Hlopko <hlopkmar@fel.cvut.cz>" |
38 "Created: / 08-04-2011 / 18:30:44 / Marcel Hlopko <hlopkmar@fel.cvut.cz>" |
|
39 "Modified: / 11-04-2011 / 19:23:49 / Marcel Hlopko <hlopkmar@fel.cvut.cz>" |
31 ! |
40 ! |
32 |
41 |
33 name |
42 name |
34 ^ name. |
43 ^ name. |
35 |
44 |
76 "Modified: / 08-04-2011 / 17:30:11 / Marcel Hlopko <hlopkmar@fel.cvut.cz>" |
85 "Modified: / 08-04-2011 / 17:30:11 / Marcel Hlopko <hlopkmar@fel.cvut.cz>" |
77 ! ! |
86 ! ! |
78 |
87 |
79 !JavaClassRef2 methodsFor:'private - resolving'! |
88 !JavaClassRef2 methodsFor:'private - resolving'! |
80 |
89 |
|
90 findResolvedStaticValue |
|
91 "Resolving static inner classes is not different from resolving any other class, it's only done in different circumstances" |
|
92 |
|
93 ^ self findResolvedValue. |
|
94 |
|
95 "Created: / 28-04-2011 / 21:57:46 / Marcel Hlopko <hlopkmar@fel.cvut.cz>" |
|
96 ! |
|
97 |
81 findResolvedValue |
98 findResolvedValue |
82 "Resolve reference and set valueCache." |
99 "Resolve reference and set valueCache." |
83 |
100 |
84 valueCache := JavaResolver uniqueInstance |
101 valueCache := JavaResolver uniqueInstance |
85 resolveClassIndentifiedByRef: self. |
102 resolveClassIndentifiedByRef: self. |
86 |
103 |
87 "Modified: / 08-04-2011 / 17:39:03 / Marcel Hlopko <hlopkmar@fel.cvut.cz>" |
104 "Modified: / 08-04-2011 / 17:39:03 / Marcel Hlopko <hlopkmar@fel.cvut.cz>" |
|
105 ! ! |
|
106 |
|
107 !JavaClassRef2 methodsFor:'queries'! |
|
108 |
|
109 isJavaClassRef |
|
110 ^true. |
|
111 |
|
112 "Created: / 11-04-2011 / 19:10:00 / Marcel Hlopko <hlopkmar@fel.cvut.cz>" |
88 ! ! |
113 ! ! |
89 |
114 |
90 !JavaClassRef2 methodsFor:'resolving'! |
115 !JavaClassRef2 methodsFor:'resolving'! |
91 |
116 |
92 invalidateForClass: internalJavaClassName |
117 invalidateForClass: internalJavaClassName |
103 |
128 |
104 version_SVN |
129 version_SVN |
105 ^ '$Id$' |
130 ^ '$Id$' |
106 ! ! |
131 ! ! |
107 |
132 |
|
133 |