165 updateList |
165 updateList |
166 |inGenerator filterS inRules root| |
166 |inGenerator filterS inRules root| |
167 |
167 |
168 inGenerator := self inGeneratorHolder value. |
168 inGenerator := self inGeneratorHolder value. |
169 filterS := self filterHolder value. |
169 filterS := self filterHolder value. |
170 filterS isNilOrEmptyCollection ifFalse: |
170 filterS notEmptyOrNil ifTrue:[ |
171 [(filterS startsWith: $*) ifFalse:[filterS := '*' , filterS]. |
171 (filterS startsWith: $*) ifFalse:[filterS := '*' , filterS]. |
172 (filterS endsWith: $*) ifFalse:[filterS := filterS , '*']]. |
172 (filterS endsWith: $*) ifFalse:[filterS := filterS , '*'] |
|
173 ]. |
173 (inGenerator isNil and: [self mode == #display]) |
174 (inGenerator isNil and: [self mode == #display]) |
174 ifTrue:[inGenerator := RBCompositeLintRule allRules rules ]. |
175 ifTrue:[inGenerator := RBCompositeLintRule allRules rules ]. |
175 inRules := OrderedCollection new. |
176 inRules := OrderedCollection new. |
176 filterS isNilOrEmptyCollection |
177 filterS isEmptyOrNil |
177 ifTrue: |
178 ifTrue: |
178 [inGenerator do:[:rule | inRules add:rule ]] |
179 [inGenerator do:[:rule | inRules add:rule ]] |
179 ifFalse: |
180 ifFalse: |
180 [inGenerator do: |
181 [inGenerator do: |
181 [:rule| |
182 [:rule| |
182 rule flattened do: |
183 rule flattened do: |
183 [:each| |
184 [:each| |
184 (filterS isNilOrEmptyCollection |
185 (filterS isEmptyOrNil |
185 or:[each name matches: filterS]) |
186 or:[each name matches: filterS]) |
186 ifTrue: |
187 ifTrue: |
187 [inRules add: each]]]]. |
188 [inRules add: each]]]]. |
188 root := (self |
189 root := (self |
189 listEntryFor:(RBCompositeLintRule rules:inRules name:'Rules')) |
190 listEntryFor:(RBCompositeLintRule rules:inRules name:'Rules')) |
197 listValid := true. |
198 listValid := true. |
198 |
199 |
199 "Created: / 15-04-2010 / 20:39:30 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
200 "Created: / 15-04-2010 / 20:39:30 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
200 "Modified: / 16-04-2010 / 09:51:44 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
201 "Modified: / 16-04-2010 / 09:51:44 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
201 "Modified: / 25-08-2010 / 11:56:39 / Jan Vrany <enter your email here>" |
202 "Modified: / 25-08-2010 / 11:56:39 / Jan Vrany <enter your email here>" |
|
203 "Modified: / 04-08-2011 / 21:21:05 / cg" |
202 ! ! |
204 ! ! |
203 |
205 |
204 !HierarchicalLintRuleList class methodsFor:'documentation'! |
206 !HierarchicalLintRuleList class methodsFor:'documentation'! |
205 |
207 |
206 version_CVS |
208 version_CVS |
207 ^ '$Header: /cvs/stx/stx/libtool/Tools__HierarchicalLintRuleList.st,v 1.2 2011-07-03 18:10:13 cg Exp $' |
209 ^ '$Header: /cvs/stx/stx/libtool/Tools__HierarchicalLintRuleList.st,v 1.3 2011-08-04 19:21:13 cg Exp $' |
208 ! |
210 ! |
209 |
211 |
210 version_SVN |
212 version_SVN |
211 ^ '§Id: Tools__HierarchicalLintRuleList.st 7617 2010-08-25 12:56:19Z vranyj1 §' |
213 ^ '§Id: Tools__HierarchicalLintRuleList.st 7617 2010-08-25 12:56:19Z vranyj1 §' |
212 ! ! |
214 ! ! |