[squeak-dev] The Trunk: System-xw.1349.mcz

commits at source.squeak.org commits at source.squeak.org
Fri May 6 08:51:22 UTC 2022

Marcel Taeumel uploaded a new version of System to project The Trunk:

==================== Summary ====================

Name: System-xw.1349
Author: xw
Time: 6 May 2022, 8:18:22.062762 am
UUID: bb902c1b-a21e-9947-9757-e9ddfd17b77f
Ancestors: System-mt.1348

Preserve timestamps for classes with unicode names when filing out

=============== Diff against System-mt.1348 ===============

Item was changed:
  ----- Method: PositionableStream>>copyPreamble:from:at: (in category '*System-Changes-fileIn/Out') -----
  copyPreamble: preamble from: aStream at: pos 
  	"Look for a changeStamp for this method by peeking backward.
  	Write a method preamble, with that stamp if found."
  	| terminator last50 stamp i |
  	terminator := $!!.
  	"Look back to find stamp in old preamble, such as...
  	Polygon methodsFor: 'private' stamp: 'di 6/25/97 21:42' prior: 34957598!! "
  	aStream position: pos.
  	aStream backChunk.	"to beginning of method"
+ 	[(last50 := aStream backChunk) beginsWith: ']lang['] whileTrue.	"to get preamble"
- 	last50 := aStream backChunk.	"to get preamble"
  	aStream position: pos.
  	stamp := String new.
  	(i := last50 
  		findLastOccurrenceOfString: 'stamp:'
  		startingAt: 1) > 0 ifTrue: 
  		[ stamp := (last50 
  			copyFrom: i + 8
  			to: last50 size) copyUpTo: $' ].
  	"Write the new preamble, with old stamp if any."
  		nextPut: terminator.
  	self nextChunkPut: (String streamContents: 
  			[ :strm | 
  			strm nextPutAll: preamble.
  			stamp size > 0 ifTrue: 
  				[ strm
  					nextPutAll: ' stamp: ';
  					print: stamp ] ]).
  	self cr!

More information about the Squeak-dev mailing list