[squeak-dev] The Inbox: System-xw.1349.mcz
commits at source.squeak.org
commits at source.squeak.org
Fri May 6 00:18:37 UTC 2022
A new version of System was added to project The Inbox:
http://source.squeak.org/inbox/System-xw.1349.mcz
==================== 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."
self
cr;
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
|