[Pkg] Installer: Installer-Core-kph.206.mcz

[squeaksource-noreply at iam.unibe.ch]

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!