[Pkg] Installer: Installer-Core-mtf.334.mcz
squeak-dev-noreply at lists.squeakfoundation.org
squeak-dev-noreply at lists.squeakfoundation.org
Thu Feb 4 15:11:46 UTC 2010
A new version of Installer-Core was added to project Installer:
http://www.squeaksource.com/Installer/Installer-Core-mtf.334.mcz
==================== Summary ====================
Name: Installer-Core-mtf.334
Author: mtf
Time: 4 February 2010, 10:11:32 am
UUID: 72ceac05-63ef-4c23-a7f4-dd15e74d959e
Ancestors: Installer-Core-mtf.333, Installer-Core-nice.92
merged Installer-core-nice.92 from trunk.
Name: Installer-Core-nice.92
Author: nice
Time: 27 December 2009, 8:54:47 am
UUID: 8b0c6ca0-63ee-4725-825e-bc3a82a14784
Ancestors: Installer-Core-ul.91
Cosmetic: move or remove a few temps inside closures
=============== Diff against Installer-Core-mtf.333 ===============
Item was changed:
----- Method: Installer>>newChangeSetFromStream:named: (in category 'mantis') -----
newChangeSetFromStream: aStream named: aName
"This code is based upon ChangeSet-c-#newChangesFromStream:named: which is in 3.9,
implemented here for previous versions. The second branch is for 3.8, where ChangeSets
are loaded by ChangeSorter. "
+ | oldChanges newName newSet |
- | oldChanges newName newSet newStream |
(self classChangeSet respondsTo: #newChangesFromStream:named:)
ifTrue: [ ^self classChangeSet newChangesFromStream: aStream named:aName ].
(self classChangeSorter respondsTo: #newChangesFromStream:named:)
ifTrue: [ ^self classChangeSorter newChangesFromStream: aStream named: aName ].
oldChanges := ChangeSet current.
"so a Bumper update can find it"
newName := aName sansPeriodSuffix.
newSet := self classChangeSet basicNewNamed: newName.
+ [ | newStream |
+ newSet
- [newSet
ifNotNil: [(aStream respondsTo: #converter:)
ifTrue: [newStream := aStream]
ifFalse: [newStream := self classMultiByteBinaryOrTextStream with: aStream contentsOfEntireFile.
newStream reset].
self classChangeSet newChanges: newSet.
newStream setConverterForCode.
newStream fileInAnnouncing: 'Loading ' , newName , '...'.
Transcript cr; show: 'File ' , aName , ' successfully filed in to change set ' , newName].
aStream close]
ensure: [self classChangeSet newChanges: oldChanges].
^ newSet!
More information about the Packages
mailing list