Do not use annotations as stc crashes when compiling them
authorvrany
Wed, 11 Jan 2012 19:56:12 +0100
changeset 2716 9a74597bcd4b
parent 2715 8c3c13f13dba
child 2717 45a75154a883
Do not use annotations as stc crashes when compiling them
ProjectChecker.st
--- a/ProjectChecker.st	Wed Jan 11 19:27:30 2012 +0100
+++ b/ProjectChecker.st	Wed Jan 11 19:56:12 2012 +0100
@@ -89,8 +89,6 @@
     "Checks whether all classes listed in #classNamesAndAttributes are present
     and if all present classes are listed"
 
-    <check: #package>
-
     |classesInImage classesInDescription missingPools onlyInImage onlyInDescription|
     "WARNING: Copy/paste of ProjectDefinition>>validateDescription"
 
@@ -182,26 +180,11 @@
              severity: #error.
         ^self    
     ].
+    self checkClassListConsistency.
+    "add more here..."
 
-    self checksForScope: #package do:[:selector|
-        self perform: selector withOptionalArgument: package.    
-    ]
 
     "Created: / 11-01-2012 / 16:55:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-
-checksForScope: scope do: block
-    "Iterates over all checks for given scope and evaluates block with
-     check selector"    
-    self class selectorsAndMethodsDo:[:sel :mth|
-        | annotation |
-        annotation := mth annotationAt:#check:.
-        (annotation notNil and:[(annotation argumentAt: 1) == scope]) ifTrue:[
-            block value: sel
-        ]
-    ]
-
-    "Created: / 11-01-2012 / 17:07:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !ProjectChecker methodsFor:'reporting'!
@@ -265,9 +248,9 @@
 !ProjectChecker class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/ProjectChecker.st,v 1.1 2012-01-11 18:20:41 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/ProjectChecker.st,v 1.2 2012-01-11 18:56:12 vrany Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/ProjectChecker.st,v 1.1 2012-01-11 18:20:41 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/ProjectChecker.st,v 1.2 2012-01-11 18:56:12 vrany Exp $'
 ! !