--- a/reports/Builder__LintReport.st Thu Feb 21 19:14:15 2013 +0100
+++ b/reports/Builder__LintReport.st Fri Mar 01 10:42:50 2013 +0100
@@ -45,6 +45,22 @@
"Created: / 13-01-2012 / 12:43:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
+!LintReport methodsFor:'command line options'!
+
+cmdlineOptionRuleset
+
+ ^CmdLineOption new
+ short: $s;
+ long: 'ruleset';
+ description: 'Rule set ';
+ action:[:option |
+ self setupRulesFrom: option.
+ ];
+ yourself
+
+ "Created: / 28-02-2013 / 23:13:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
!LintReport methodsFor:'generating'!
generateClass: aClass
@@ -208,10 +224,25 @@
setUp
super setUp.
- rules := (RBCompositeLintRule rulesFor: RBBasicLintRule)
- reject: [ :each | each class name endsWith: 'SpellingRule' ]
+ rules isNil ifTrue:[
+ rules := (RBCompositeLintRule rulesFor: RBBasicLintRule)
+ reject: [ :each | each class name endsWith: 'SpellingRule' ]
+ ].
"Created: / 04-08-2011 / 14:35:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified: / 28-02-2013 / 23:18:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+setupRulesFrom: filename
+ | file |
+ file := filename asFilename.
+ file readingFileDo:[:s|
+ | spec |
+ spec := Parser parseLiteralArray: s.
+ rules := spec decodeAsLiteralArray rules.
+ ]
+
+ "Created: / 28-02-2013 / 23:17:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
!LintReport methodsFor:'testing'!
@@ -238,4 +269,5 @@
^ '§Id: Builder__LintReport.st 293 2011-11-25 21:42:31Z vranyj1 §'
! !
+
LintReport initialize!