--- a/ChangeSet.st Sun Mar 03 23:00:03 2019 +0100
+++ b/ChangeSet.st Sun Mar 03 23:09:11 2019 +0100
@@ -4410,67 +4410,68 @@
| methodsSortedByName |
- stream nextPutAll:'"{ Package: '''.
- stream nextPutAll:packageName asString.
- stream nextPutAll:''' }"'; nextPutChunkSeparator; cr; cr.
+ stream nextPutAll:'"{ Package: '''.
+ stream nextPutAll:packageName asString.
+ stream nextPutAll:''' }"'; nextPutChunkSeparator; cr; cr.
"/ s nextPutAll:(Smalltalk timeStamp).
"/ s nextPutChunkSeparator.
"/ s cr; cr.
- "/ sort them by name (to avoid conflict due to CVS merge)
- methodsSortedByName := changeSetBeingSaved.
- methodsSortedByName sort:[:a :b |
- |clsA clsB|
-
- clsA := a className.
- clsB := b className.
- clsA < clsB ifTrue:[
- true
- ] ifFalse:[
- clsA > clsB ifTrue:[
- false
- ] ifFalse:[
- a selector < b selector
- ]
- ]
- ].
- methodsSortedByName do:[:aMethod |
- |cat source privacy|
-
- self assert: aMethod package = packageName.
- "/self assert: aMethod programmingLanguage isSmalltalk.
-
-
- stream nextPutChunkSeparator.
- aMethod className printOn: stream.
-
- (privacy := aMethod privacy) ~~ #public ifTrue:[
- stream space; nextPutAll:privacy; nextPutAll:'MethodsFor:'.
- ] ifFalse:[
- stream nextPutAll:' methodsFor:'.
- ].
-
- cat := aMethod category ? ''.
- stream nextPutAll:cat asString storeString.
- stream nextPutChunkSeparator; cr; cr.
-
- source := aMethod source.
- source isNil ifTrue:[
- "FileOutErrorSignal"Error
- raiseRequestWith:self
- errorString:(' - no source for method: ' ,
- self className , '>>' ,
- aMethod selector)
- ] ifFalse:[
- stream nextChunkPut:source.
- ].
- stream space.
- stream nextPutChunkSeparator.
- stream cr.
- ].
+ "/ sort them by name (to avoid conflict due to CVS merge)
+ methodsSortedByName := changeSetBeingSaved.
+ methodsSortedByName sort:[:a :b |
+ |clsA clsB|
+
+ clsA := a className.
+ clsB := b className.
+ clsA < clsB ifTrue:[
+ true
+ ] ifFalse:[
+ clsA > clsB ifTrue:[
+ false
+ ] ifFalse:[
+ a selector < b selector
+ ]
+ ]
+ ].
+ methodsSortedByName do:[:aMethod |
+ |cat source privacy|
+
+ self assert: aMethod package = packageName.
+ "/self assert: aMethod programmingLanguage isSmalltalk.
+
+
+ stream nextPutChunkSeparator.
+ aMethod className printOn: stream.
+
+ (privacy := aMethod privacy) ~~ #public ifTrue:[
+ stream space; nextPutAll:privacy; nextPutAll:'MethodsFor:'.
+ ] ifFalse:[
+ stream nextPutAll:' methodsFor:'.
+ ].
+
+ cat := aMethod category ? '* no category *'.
+ stream nextPutAll:cat asString storeString.
+ stream nextPutChunkSeparator; cr; cr.
+
+ source := aMethod source.
+ source isNil ifTrue:[
+ "FileOutErrorSignal"Error
+ raiseRequestWith:self
+ errorString:(' - no source for method: ' ,
+ self className , '>>' ,
+ aMethod selector)
+ ] ifFalse:[
+ stream nextChunkPut:source.
+ ].
+ stream space.
+ stream nextPutChunkSeparator.
+ stream cr.
+ ].
"Created: / 30-01-2013 / 09:35:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified: / 03-03-2019 / 22:25:24 / Claus Gittinger"
!
fileOutPrimitiveSpecsOf: nonMeta on:aStream