A new version of Installer-Core was added to project Installer: http://www.squeaksource.com/Installer/Installer-Core-kph.206.mcz
==================== Summary ====================
Name: Installer-Core-kph.206 Author: kph Time: 1 July 2008, 2:57:42 am UUID: 3e19fa67-eff5-49b4-b5d1-21515d63d40a Ancestors: Installer-Core-kph.205
Added multiple packages support to Installer mc
=============== Diff against Installer-Core-kph.205 ===============
Item was added: + ----- Method: Installer>>classMCVersionLoader (in category 'class references') ----- + classMCVersionLoader + + ^Smalltalk at: #MCVersionLoader ifAbsent: [ self error: 'Monticello not present' ]!
Item was changed: ----- Method: Installer>>mcThing (in category 'monticello') ----- mcThing
+ | loader files fileToLoad version count | - | 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. - 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 ]. - [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) ifFalse:[ + version workingCopy repositoryGroup addRepository: mc]. + mc creationTemplate: mc asCreationTemplate. + self log: ' found ', version fileName, '...'.
+ loader addVersion: version. + + packages removeFirst. + ]. - version := mc versionFromFileNamed: fileToLoad. - (version isKindOf: MCConfiguration) ifFalse:[ - version workingCopy repositoryGroup addRepository: mc]. - mc creationTemplate: mc asCreationTemplate. - self log: ' found ', version fileName, '...'.
+ ^ loader + ! - ^ version!
packages@lists.squeakfoundation.org