equal
deleted
inserted
replaced
|
1 "{ Encoding: utf8 }" |
|
2 |
1 "{ Package: 'stx:goodies/builder/reports' }" |
3 "{ Package: 'stx:goodies/builder/reports' }" |
2 |
4 |
3 "{ NameSpace: Builder }" |
5 "{ NameSpace: Builder }" |
4 |
6 |
5 ReportSourceInfo subclass:#ReportExtensionsSourceInfo |
7 ReportSourceInfo subclass:#ReportExtensionsSourceInfo |
50 to do it this way. Sorry." |
52 to do it this way. Sorry." |
51 |
53 |
52 | extensions wide stream s methodsSortedByName defClass scmManagerOrNil | |
54 | extensions wide stream s methodsSortedByName defClass scmManagerOrNil | |
53 |
55 |
54 extensions := ProjectDefinition searchForExtensionsWithProject: package. |
56 extensions := ProjectDefinition searchForExtensionsWithProject: package. |
|
57 extensions isEmptyOrNil ifTrue:[ ^ self ]. |
55 wide := false. |
58 wide := false. |
56 stream := streamArg. |
59 stream := streamArg. |
57 extensions do:[:method| |
60 extensions do:[:method| |
58 wide := wide or:[method source isWideString]. |
61 wide := wide or:[method source isWideString]. |
59 ]. |
62 ]. |
89 a selector < b selector |
92 a selector < b selector |
90 ] |
93 ] |
91 ] |
94 ] |
92 ]. |
95 ]. |
93 methodsSortedByName do:[:aMethod | |
96 methodsSortedByName do:[:aMethod | |
94 |cat source privacy aStream| |
97 |cat privacy aStream| |
95 |
98 |
96 aStream := s. |
99 aStream := s. |
97 |
100 |
98 aStream nextPutChunkSeparator. |
101 aStream nextPutChunkSeparator. |
99 aMethod mclass name printOn:aStream. |
102 aMethod mclass name printOn:aStream. |
131 s space; nextPutChunkSeparator; cr. |
134 s space; nextPutChunkSeparator; cr. |
132 ]. |
135 ]. |
133 ]. |
136 ]. |
134 ]. |
137 ]. |
135 |
138 |
136 "Modified (comment): / 29-07-2013 / 17:44:52 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
139 "Modified: / 09-03-2015 / 15:55:17 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
137 ! |
140 ! |
138 |
141 |
139 validate |
142 validate |
140 | file | |
143 | extensions file | |
141 |
144 |
|
145 extensions := ProjectDefinition searchForExtensionsWithProject: package. |
142 file := (Smalltalk getPackageDirectoryForPackage: package) / 'extensions.st'. |
146 file := (Smalltalk getPackageDirectoryForPackage: package) / 'extensions.st'. |
143 ^ self validateAgainstReference: file. |
|
144 |
147 |
145 "Modified: / 29-07-2013 / 14:55:07 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
148 extensions isEmptyOrNil ifTrue:[ |
|
149 self assert: file exists not. |
|
150 ] ifFalse:[ |
|
151 self validateAgainstReference: file. |
|
152 ] |
|
153 |
|
154 "Modified: / 09-03-2015 / 15:58:25 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
146 ! ! |
155 ! ! |
147 |
156 |
148 !ReportExtensionsSourceInfo class methodsFor:'documentation'! |
157 !ReportExtensionsSourceInfo class methodsFor:'documentation'! |
149 |
158 |
150 version |
159 version |