1 " |
|
2 COPYRIGHT (c) 1996-2011 by Claus Gittinger |
|
3 |
|
4 New code and modifications done at SWING Research Group [1]: |
|
5 |
|
6 COPYRIGHT (c) 2010-2011 by Jan Vrany, Jan Kurs and Marcel Hlopko |
|
7 SWING Research Group, Czech Technical University in Prague |
|
8 |
|
9 This software is furnished under a license and may be used |
|
10 only in accordance with the terms of that license and with the |
|
11 inclusion of the above copyright notice. This software may not |
|
12 be provided or otherwise made available to, or used by, any |
|
13 other person. No title to or ownership of the software is |
|
14 hereby transferred. |
|
15 |
|
16 [1] Code written at SWING Research Group contains a signature |
|
17 of one of the above copright owners. For exact set of such code, |
|
18 see the differences between this version and version stx:libjava |
|
19 as of 1.9.2010 |
|
20 " |
|
21 "{ Package: 'stx:libjava' }" |
|
22 |
|
23 JavaCodeBundle subclass:#JavaRootBundle |
|
24 instanceVariableNames:'release environment packages user' |
|
25 classVariableNames:'' |
|
26 poolDictionaries:'' |
|
27 category:'Languages-Java-Support-Libraries' |
|
28 ! |
|
29 |
|
30 JavaCodeBundle subclass:#EnvironmentBundle |
|
31 instanceVariableNames:'' |
|
32 classVariableNames:'' |
|
33 poolDictionaries:'' |
|
34 privateIn:JavaRootBundle |
|
35 ! |
|
36 |
|
37 JavaCodeBundle subclass:#PackagesBundle |
|
38 instanceVariableNames:'' |
|
39 classVariableNames:'' |
|
40 poolDictionaries:'' |
|
41 privateIn:JavaRootBundle |
|
42 ! |
|
43 |
|
44 !JavaRootBundle class methodsFor:'documentation'! |
|
45 |
|
46 copyright |
|
47 " |
|
48 COPYRIGHT (c) 1996-2011 by Claus Gittinger |
|
49 |
|
50 New code and modifications done at SWING Research Group [1]: |
|
51 |
|
52 COPYRIGHT (c) 2010-2011 by Jan Vrany, Jan Kurs and Marcel Hlopko |
|
53 SWING Research Group, Czech Technical University in Prague |
|
54 |
|
55 This software is furnished under a license and may be used |
|
56 only in accordance with the terms of that license and with the |
|
57 inclusion of the above copyright notice. This software may not |
|
58 be provided or otherwise made available to, or used by, any |
|
59 other person. No title to or ownership of the software is |
|
60 hereby transferred. |
|
61 |
|
62 [1] Code written at SWING Research Group contains a signature |
|
63 of one of the above copright owners. For exact set of such code, |
|
64 see the differences between this version and version stx:libjava |
|
65 as of 1.9.2010 |
|
66 |
|
67 " |
|
68 ! |
|
69 |
|
70 documentation |
|
71 " |
|
72 A top-level bundle representing all accessible Java code |
|
73 |
|
74 [author:] |
|
75 Jan Vrany <jan.vrany@fit.cvut.cz> |
|
76 |
|
77 [instance variables:] |
|
78 |
|
79 [class variables:] |
|
80 |
|
81 [see also:] |
|
82 |
|
83 " |
|
84 ! ! |
|
85 |
|
86 !JavaRootBundle methodsFor:'accessing'! |
|
87 |
|
88 libraries |
|
89 { |
|
90 self release. |
|
91 environment. |
|
92 packages. |
|
93 user. |
|
94 } |
|
95 |
|
96 "Created: / 15-01-2013 / 17:50:30 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
97 "Modified: / 16-01-2013 / 12:42:41 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
98 ! |
|
99 |
|
100 name |
|
101 ^ name ? '<root>' |
|
102 |
|
103 "Created: / 15-01-2013 / 17:50:40 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
104 ! |
|
105 |
|
106 release |
|
107 ^Java release codeBundle |
|
108 |
|
109 "Modified: / 15-01-2013 / 17:59:14 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
110 ! ! |
|
111 |
|
112 !JavaRootBundle methodsFor:'adding & removing'! |
|
113 |
|
114 add: libraryOrBundle |
|
115 |
|
116 self shouldNotImplement |
|
117 |
|
118 "Created: / 15-01-2013 / 17:31:43 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
119 ! |
|
120 |
|
121 remove: libraryOrBundle |
|
122 |
|
123 self shouldNotImplement |
|
124 |
|
125 "Created: / 15-01-2013 / 17:31:52 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
126 ! ! |
|
127 |
|
128 !JavaRootBundle methodsFor:'generating'! |
|
129 |
|
130 classPathOn:aStream |
|
131 "superclass JavaCodeLibraryOrBundle says that I am responsible to implement this method" |
|
132 |
|
133 self release classPathOn: aStream. |
|
134 environment classPathOn: aStream. |
|
135 packages classPathOn: aStream. |
|
136 user classPathOn: aStream. |
|
137 |
|
138 "Created: / 15-01-2013 / 17:51:19 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
139 "Modified: / 16-01-2013 / 12:42:51 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
140 ! |
|
141 |
|
142 sourcePathOn:aStream |
|
143 "superclass JavaCodeLibraryOrBundle says that I am responsible to implement this method" |
|
144 |
|
145 self release sourcePathOn: aStream. |
|
146 environment sourcePathOn: aStream. |
|
147 packages sourcePathOn: aStream. |
|
148 user sourcePathOn: aStream. |
|
149 |
|
150 "Created: / 15-01-2013 / 17:51:35 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
151 "Modified: / 16-01-2013 / 12:42:47 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
152 ! ! |
|
153 |
|
154 !JavaRootBundle methodsFor:'initialization'! |
|
155 |
|
156 initialize |
|
157 "Invoked when a new instance is created." |
|
158 |
|
159 "/ please change as required (and remove this comment) |
|
160 libraries := nil. |
|
161 environment := EnvironmentBundle new name:'CLASSPATH'. |
|
162 packages := PackagesBundle new name:'Package libraries'. |
|
163 user := JavaCodeBundle new name:'User libraries'. |
|
164 |
|
165 |
|
166 "/ super initialize. -- commented since inherited method does nothing |
|
167 |
|
168 "Created: / 15-01-2013 / 17:49:14 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
169 "Modified: / 16-01-2013 / 13:29:57 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
170 ! ! |
|
171 |
|
172 !JavaRootBundle::EnvironmentBundle class methodsFor:'documentation'! |
|
173 |
|
174 documentation |
|
175 " |
|
176 A special 'dynamic' code bundle to represent java code paths |
|
177 specified in CLASSPATH environment variable. |
|
178 |
|
179 [author:] |
|
180 Jan Vrany <jan.vrany@fit.cvut.cz> |
|
181 |
|
182 [instance variables:] |
|
183 |
|
184 [class variables:] |
|
185 |
|
186 [see also:] |
|
187 |
|
188 " |
|
189 ! ! |
|
190 |
|
191 !JavaRootBundle::EnvironmentBundle methodsFor:'adding & removing'! |
|
192 |
|
193 add: libraryOrBundle |
|
194 |
|
195 self shouldNotImplement |
|
196 |
|
197 "Created: / 15-01-2013 / 17:31:43 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
198 ! |
|
199 |
|
200 remove: libraryOrBundle |
|
201 |
|
202 self shouldNotImplement |
|
203 |
|
204 "Created: / 15-01-2013 / 17:31:52 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
205 ! ! |
|
206 |
|
207 !JavaRootBundle::PackagesBundle class methodsFor:'documentation'! |
|
208 |
|
209 documentation |
|
210 " |
|
211 A special 'dynamic' code bundle to represent all bundles |
|
212 provided by individual packages. |
|
213 |
|
214 [author:] |
|
215 Jan Vrany <jan.vrany@fit.cvut.cz> |
|
216 |
|
217 [instance variables:] |
|
218 |
|
219 [class variables:] |
|
220 |
|
221 [see also:] |
|
222 |
|
223 " |
|
224 ! ! |
|
225 |
|
226 !JavaRootBundle::PackagesBundle methodsFor:'accessing'! |
|
227 |
|
228 libraries |
|
229 |
|
230 ^ProjectDefinition allSubclasses collect:[:e|e javaBundle] thenSelect:[:e|e notNil]. |
|
231 |
|
232 " |
|
233 Java::PackagesBundle new libraries |
|
234 " |
|
235 |
|
236 "Created: / 15-01-2013 / 17:34:05 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
237 ! ! |
|
238 |
|
239 !JavaRootBundle::PackagesBundle methodsFor:'adding & removing'! |
|
240 |
|
241 add: libraryOrBundle |
|
242 |
|
243 self shouldNotImplement |
|
244 |
|
245 "Created: / 15-01-2013 / 17:31:56 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
246 ! |
|
247 |
|
248 remove: libraryOrBundle |
|
249 |
|
250 self shouldNotImplement |
|
251 |
|
252 "Created: / 15-01-2013 / 17:31:59 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
253 ! ! |
|
254 |
|
255 !JavaRootBundle class methodsFor:'documentation'! |
|
256 |
|
257 version_HG |
|
258 |
|
259 ^ '$Changeset: <not expanded> $' |
|
260 ! ! |
|