[squeak-dev] The Inbox: Installer-Core-cmm.345.mcz
commits at source.squeak.org
commits at source.squeak.org
Tue Mar 8 21:27:57 UTC 2011
A new version of Installer-Core was added to project The Inbox:
http://source.squeak.org/inbox/Installer-Core-cmm.345.mcz
==================== Summary ====================
Name: Installer-Core-cmm.345
Author: cmm
Time: 7 March 2011, 2:35:15.79 pm
UUID: 6bd957c1-78d6-4e74-a5a3-25cdee3bd02d
Ancestors: Installer-Core-cmm.344
Fixed two more FileBasedRepository dependencies.
=============== Diff against Installer-Core-mtf.343 ===============
Item was changed:
----- Method: InstallerMonticello>>basicAvailablePackages (in category 'basic interface') -----
basicAvailablePackages
+ ^ self mc allPackageNames!
- ^ self mc allFileNames!
Item was removed:
- ----- Method: InstallerMonticello>>mcDetectFileBlock: (in category 'monticello') -----
- mcDetectFileBlock: pkg
-
- pkg isString ifTrue: [ ^ [ :aFile | aFile beginsWith: pkg ] ].
-
- (pkg isKindOf: Array)
- ifTrue: [ ^ [ :aFile | (pkg detect: [ :item | aFile beginsWith: item ] ifNone: [ false ]) ~= false ] ].
-
- pkg isBlock ifTrue: [ ^ pkg ].
-
- !
Item was changed:
----- Method: InstallerMonticello>>mcThing (in category 'monticello') -----
mcThing
+ | loader |
- | loader files count |
-
loader := self classMCVersionLoader new.
+ self logCR: 'reading ' , mc description , '...'.
+ "several attempts to read files - repository readableFileNames sometimes fails"
+ self packages do:
+ [ : pkg | | fileToLoad version |
+ fileToLoad := mc highestNumberedVersionNameForPackageNamed: pkg.
+ version := mc versionNamed: fileToLoad.
+ (version isKindOf: MCConfiguration)
-
- count := 0. files := nil.
- self logCR: 'reading ', mc description, '...'.
- "several attempts to read files - repository readableFileNames sometimes fails"
- [ count := count + 1.
- (files = nil) and:[ count < 5 ] ]
- whileTrue: [files := mc readableFileNames sort: self mcSortFileBlock ].
- files ifNil: [ Warning signal: 'Repository not readable: ', mc description. ^ nil ].
-
- self packages do: [ :pkg |
- | fileToLoad version |
-
- self log: 'finding ', pkg asString, '...'.
-
- fileToLoad := files detect: (self mcDetectFileBlock: pkg) ifNone: [ nil ].
-
- version := mc versionFromFileNamed: fileToLoad.
- (version isKindOf: MCConfiguration)
ifTrue: [ ^ version ]
+ ifFalse:
+ [ MCRepositoryGroup default addRepository: self normalizedRepository.
- ifFalse:[
- MCRepositoryGroup default addRepository: self normalizedRepository.
version workingCopy repositoryGroup addRepository: self normalizedRepository.
loader addVersion: version ].
+ self logCR: ' found ' , version fileName , '...' ].
-
- self logCR: ' found ', version fileName, '...'.
- ].
-
^ loader!
More information about the Squeak-dev
mailing list
|