reports/Builder__LintReport.st
changeset 267 9f55d8893118
parent 254 9272fef1d474
child 570 9c47ccc9e9b5
--- a/reports/Builder__LintReport.st	Tue Dec 16 11:42:55 2014 +0100
+++ b/reports/Builder__LintReport.st	Tue Dec 16 11:42:59 2014 +0100
@@ -56,19 +56,17 @@
 !LintReport methodsFor:'generating'!
 
 generateClass:class inPackage:package 
-    | sourceInfo  sourceName |
+    | sourceInfo |
 
     sourceInfo := ReportSourceInfo forClass:class inPackage:package.
-    sourceName := self 
-            encodeFilename:(self sourceFilenameForClass:class package:package).
-    format writeFile:sourceName
+    format writeFile:(sourceInfo pathNameAbsolute: true)
         with:[
             self generateClass:class source:sourceInfo inPackage: package.
             self generateClass:class class source:sourceInfo inPackage: package.
         ].
-    format writeSource:sourceInfo to:sourceName
 
     "Created: / 15-12-2014 / 10:46:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 16-12-2014 / 10:38:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 generateClass: aClass selector: aSelector source: sourceInfo
@@ -115,12 +113,10 @@
 !
 
 generateExtensionsInPackage:package 
-    | sourceInfo  sourceName |
+    | sourceInfo |
 
     sourceInfo := ReportSourceInfo forExtensionsInPackage:package.
-    sourceName := self 
-            encodeFilename:(self sourceFilenameForExtensionsInPackage:package).
-    format writeFile:sourceName
+    format writeFile:(sourceInfo pathNameAbsolute: true)
         with:[
             (ProjectDefinition searchForExtensionsWithProject:package) do:[:method | 
                 self 
@@ -130,9 +126,9 @@
                     inPackage: package.
             ].
         ].
-    format writeSource:sourceInfo to:sourceName
 
     "Created: / 15-12-2014 / 10:50:14 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 16-12-2014 / 10:38:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 generatePackage: package