[Pkg] Installer: Installer-Core-kph.223.mcz
squeak-dev-noreply at lists.squeakfoundation.org
squeak-dev-noreply at lists.squeakfoundation.org
Tue Sep 16 22:40:51 UTC 2008
A new version of Installer-Core was added to project Installer:
http://www.squeaksource.com/Installer/Installer-Core-kph.223.mcz
==================== Summary ====================
Name: Installer-Core-kph.223
Author: kph
Time: 16 September 2008, 11:40:46 pm
UUID: b40fa3cb-9010-4b6a-8df4-3771bf03dea4
Ancestors: Installer-Core-kph.222
Fix to load mcm's from a repository. Thanks to David Schaffer
=============== Diff against Installer-Core-kph.222 ===============
Item was changed:
----- Method: Installer>>mcThing (in category 'monticello') -----
mcThing
| loader files fileToLoad version count |
loader := self classMCVersionLoader new.
1 to: self packages size do: [ :n |
self logCR: 'finding ', self package asString, '...'.
"several attempts to read files - repository readableFileNames sometimes fails"
count := 0. fileToLoad := nil.
[count := count + 1.
(fileToLoad = nil) and:[ count < 5 ] ]
whileTrue: [
files := mc readableFileNames asSortedCollection: self mcSortFileBlock.
fileToLoad := files detect: self mcDetectFileBlock ifNone: [ nil ].
].
version := mc versionFromFileNamed: fileToLoad.
+ (version isKindOf: MCConfiguration)
+ ifTrue: [^version]
+ ifFalse:[version workingCopy repositoryGroup addRepository: mc].
- (version isKindOf: MCConfiguration) ifFalse:[
- version workingCopy repositoryGroup addRepository: mc].
self log: ' found ', version fileName, '...'.
loader addVersion: version.
packages removeFirst.
].
+ ^ loader!
- ^ loader
- !
More information about the Packages
mailing list