equal
deleted
inserted
replaced
160 ((name size >= (i + prefix size)) |
160 ((name size >= (i + prefix size)) |
161 and:[(name at: i + 1) == prefix first |
161 and:[(name at: i + 1) == prefix first |
162 and:[(name at: i + prefix size) == prefix last |
162 and:[(name at: i + prefix size) == prefix last |
163 and:[(2 to: prefix size - 1) allSatisfy:[:o| (name at: i + o) == (prefix at: o)]]]]) |
163 and:[(2 to: prefix size - 1) allSatisfy:[:o| (name at: i + o) == (prefix at: o)]]]]) |
164 ifTrue:[ |
164 ifTrue:[ |
165 result add: (ClassPO new subject: cls). |
165 result add: (PO forClass: cls). |
166 ]. |
166 ]. |
167 ]. |
167 ]. |
168 |
168 |
169 "Created: / 03-10-2013 / 11:16:08 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
169 "Created: / 03-10-2013 / 11:16:08 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
170 "Modified: / 20-10-2013 / 01:27:59 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
170 "Modified: / 20-05-2014 / 09:57:52 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
171 ! |
171 ! |
172 |
172 |
173 addFieldsStartingWith: prefix |
173 addFieldsStartingWith: prefix |
174 | klass | |
174 | klass | |
175 |
175 |
201 self javaClassesDo:[:cls| |
201 self javaClassesDo:[:cls| |
202 | name i | |
202 | name i | |
203 |
203 |
204 name := cls javaName. |
204 name := cls javaName. |
205 (cls isPublic and:[name startsWith: prefix]) ifTrue:[ |
205 (cls isPublic and:[name startsWith: prefix]) ifTrue:[ |
206 result add: (JavaImportPO new subject: name; klass: cls; yourself). |
206 result add: (JavaImportPO new import: name; klass: cls; yourself). |
207 packages add: cls javaPackage. |
207 packages add: cls javaPackage. |
208 ]. |
208 ]. |
209 ]. |
209 ]. |
210 "/ Package imports... |
210 "/ Package imports... |
211 packages do:[:each | |
211 packages do:[:each | |
212 result add: (JavaImportPO new subject: (each , '.*')) |
212 result add: (JavaImportPO new import: (each , '.*')) |
213 ]. |
213 ]. |
214 |
214 |
215 "Created: / 19-10-2013 / 17:54:25 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
215 "Created: / 19-10-2013 / 17:54:25 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
216 "Modified: / 20-10-2013 / 00:35:26 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
216 "Modified: / 20-05-2014 / 10:10:48 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
217 ! |
217 ! |
218 |
218 |
219 addLocalsStartingWith: prefix |
219 addLocalsStartingWith: prefix |
220 | queue | |
220 | queue | |
221 |
221 |