[squeak-dev] The Trunk: System-ul.454.mcz
commits at source.squeak.org
commits at source.squeak.org
Wed Oct 5 08:52:15 UTC 2011
Levente Uzonyi uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-ul.454.mcz
==================== Summary ====================
Name: System-ul.454
Author: ul
Time: 21 September 2011, 12:20:55.326 am
UUID: 5682b4d1-1432-ea44-abc0-9f79b87e9f1b
Ancestors: System-ul.453
Use #copyReplaceAll:with: instead of #copyReplaceAll:with:asTokens:.
=============== Diff against System-ul.453 ===============
Item was changed:
----- Method: SARInstaller>>fileInPackageNamed: (in category 'client services') -----
fileInPackageNamed: memberName
"This is to be used from preamble/postscript code to file in zip
members as DVS packages."
| member current new baseName imagePackageLoader packageInfo streamPackageLoader packageManager |
member := self zip memberNamed: memberName.
member ifNil: [ ^self errorNoSuchMember: memberName ].
imagePackageLoader := Smalltalk at: #ImagePackageLoader ifAbsent: [].
streamPackageLoader := Smalltalk at: #StreamPackageLoader ifAbsent: [].
packageInfo := Smalltalk at: #PackageInfo ifAbsent: [].
packageManager := Smalltalk at: #FilePackageManager ifAbsent: [].
"If DVS isn't present, do a simple file-in"
(packageInfo isNil or: [imagePackageLoader isNil or: [streamPackageLoader isNil]])
ifTrue: [ ^ self fileInMemberNamed: memberName ].
+ baseName := memberName copyReplaceAll: '.st' with: ''.
- baseName := memberName copyReplaceAll: '.st' with: '' asTokens: false.
(packageManager allManagers anySatisfy: [ :pm | pm packageName = baseName ])
ifTrue: [
current := imagePackageLoader new package: (packageInfo named: baseName).
new := streamPackageLoader new stream: member contentStream ascii.
(new changesFromBase: current) fileIn ]
ifFalse: [ self class fileIntoChangeSetNamed: baseName fromStream: member contentStream ascii setConverterForCode. ].
packageManager registerPackage: baseName.
self installed: member.!
More information about the Squeak-dev
mailing list
|