1322 !

  1323 

  1324 fileOutMethod:aMethod on:aStream

  1325     "file out aMethod onto aStream. Used for example to write individual changeChunks"

  1326 

  1327     "/ WARNING: will be obsoleted by SmalltalkChunkFileSourceWriter

  1328 

  1329     |cat source privacy|

  1330 

  1331     aStream nextPutChunkSeparator.

  1332     aStream nextPutAll: 'JAVA'.

  1333     (self name tokensBasedOn: $/) do:[:each|

  1334         aStream space; nextPutAll: each.        

  1335     ].

  1336     (privacy := aMethod privacy) ~~ #public ifTrue:[

  1337         aStream space; nextPutAll:privacy; nextPutAll:'MethodsFor:'.

  1338     ] ifFalse:[

  1339         aStream nextPutAll:' methodsFor:'.

  1340     ].

  1341 

  1342     cat := aMethod category ? ''.

  1343     aStream nextPutAll:cat asString storeString.

  1344     aStream nextPutChunkSeparator; cr; cr.

  1345 

  1346     source := aMethod source.

  1347     source isNil ifTrue:[

  1348         FileOutErrorSignal

  1349             raiseRequestWith:self

  1350             errorString:(' - no source for method: ' ,

  1351                          self name , '>>' ,

  1352                          (self selectorAtMethod:aMethod))

  1353     ] ifFalse:[

  1354         aStream nextChunkPut:source.

  1355     ].

  1356     aStream space.

  1357     aStream nextPutChunkSeparator.

  1358     aStream cr

  1359 

  1360     "Created: / 05-09-2012 / 00:01:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"