25313 smalllintCheck:anEnvironment against:ruleSetSymbol |
25313 smalllintCheck:anEnvironment against:ruleSetSymbol |
25314 "this is exected by an async task!!" |
25314 "this is exected by an async task!!" |
25315 |
25315 |
25316 |rule| |
25316 |rule| |
25317 |
25317 |
25318 self |
25318 self assert:(#( #smalllintRulesAll #smalllintRulesFromUser #smalllintRules ) includes:ruleSetSymbol). |
25319 assert:(#( #smalllintRulesAll #smalllintRulesFromUser #smalllintRules ) includes:ruleSetSymbol). |
|
25320 |
25319 |
25321 rule := self perform:ruleSetSymbol asSymbol. |
25320 rule := self perform:ruleSetSymbol asSymbol. |
25322 rule isNil ifTrue:[ ^ self ]. |
25321 rule isNil ifTrue:[ ^ self ]. |
25323 "/ cg: that is wrong implemented in RBxxxRule: isEmpty has two meanings: |
25322 "/ cg: that is wrong implemented in RBxxxRule: isEmpty has two meanings: |
25324 "/ for composite: has sub-rules |
25323 "/ for composite: has sub-rules |
25332 ] |
25331 ] |
25333 ]. |
25332 ]. |
25334 |
25333 |
25335 self showMessage:'Checking code...' |
25334 self showMessage:'Checking code...' |
25336 while:[ |
25335 while:[ |
|
25336 |showResult| |
|
25337 |
25337 self smalllintRunRule:rule onEnvironment:anEnvironment. |
25338 self smalllintRunRule:rule onEnvironment:anEnvironment. |
25338 (rule isEmpty not or:[ (Dialog confirm:'Nothing found.\\Press OK to add result viewer anyway.' withCRs) ]) |
25339 showResult := true. |
25339 ifTrue:[ |
25340 [rule isEmpty] whileTrue:[ |
25340 self |
25341 (Dialog confirm:'Nothing special found.\\Proceed to select more/different lint rules.' withCRs) ifTrue:[ |
25341 spawnSmalllintBrowserByRuleFor:rule |
25342 rule := self smalllintRulesFromUser. |
25342 in:#newBuffer |
25343 rule notNil ifTrue:[ |
25343 label:'SmallLint results for ' , anEnvironment label |
25344 self smalllintRunRule:rule onEnvironment:anEnvironment. |
25344 ] |
25345 ]. |
|
25346 ]. |
|
25347 ]. |
|
25348 self |
|
25349 spawnSmalllintBrowserByRuleFor:rule |
|
25350 in:#newBuffer |
|
25351 label:'SmallLint results for ' , anEnvironment label |
25345 ]. |
25352 ]. |
25346 |
25353 |
25347 "Modified: / 15-12-2008 / 18:51:43 / Josef Grega <gregaj1@fel.cvut.cz>" |
25354 "Modified: / 15-12-2008 / 18:51:43 / Josef Grega <gregaj1@fel.cvut.cz>" |
25348 "Modified: / 28-12-2008 / 14:40:01 / bazantj <enter your email here>" |
25355 "Modified: / 28-12-2008 / 14:40:01 / bazantj <enter your email here>" |
25349 "Created: / 24-02-2009 / 11:02:57 / Jan Vrany <vranyj1@fel.cvut.cz>" |
25356 "Created: / 24-02-2009 / 11:02:57 / Jan Vrany <vranyj1@fel.cvut.cz>" |
25350 "Modified: / 22-07-2009 / 14:38:30 / Jan Vrany <vranyj1@fel.cvut.cz>" |
25357 "Modified: / 22-07-2009 / 14:38:30 / Jan Vrany <vranyj1@fel.cvut.cz>" |
25351 "Modified: / 28-08-2010 / 20:45:52 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
25358 "Modified: / 28-08-2010 / 20:45:52 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
25352 "Modified: / 01-03-2012 / 19:06:05 / cg" |
25359 "Modified: / 01-03-2012 / 20:20:28 / cg" |
25353 ! |
25360 ! |
25354 |
25361 |
25355 smalllintRules |
25362 smalllintRules |
25356 |
25363 |
25357 ^LastLintRules |
25364 ^LastLintRules |
56096 ! ! |
56103 ! ! |
56097 |
56104 |
56098 !NewSystemBrowser class methodsFor:'documentation'! |
56105 !NewSystemBrowser class methodsFor:'documentation'! |
56099 |
56106 |
56100 version |
56107 version |
56101 ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1723 2012-03-01 19:05:04 cg Exp $' |
56108 ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1724 2012-03-01 19:21:02 cg Exp $' |
56102 ! |
56109 ! |
56103 |
56110 |
56104 version_CVS |
56111 version_CVS |
56105 ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1723 2012-03-01 19:05:04 cg Exp $' |
56112 ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1724 2012-03-01 19:21:02 cg Exp $' |
56106 ! |
56113 ! |
56107 |
56114 |
56108 version_SVN |
56115 version_SVN |
56109 ^ '§Id: Tools__NewSystemBrowser.st 7817 2011-08-18 09:38:28Z vranyj1 §' |
56116 ^ '§Id: Tools__NewSystemBrowser.st 7817 2011-08-18 09:38:28Z vranyj1 §' |
56110 ! ! |
56117 ! ! |