[squeak-dev] The Trunk: MonticelloConfigurations-bf.104.mcz

commits at source.squeak.org commits at source.squeak.org
Fri Jun 22 16:09:59 UTC 2012


Bert Freudenberg uploaded a new version of MonticelloConfigurations to project The Trunk:
http://source.squeak.org/trunk/MonticelloConfigurations-bf.104.mcz

==================== Summary ====================

Name: MonticelloConfigurations-bf.104
Author: bf
Time: 22 June 2012, 6:09:47.667 pm
UUID: 2db39507-78c7-425f-84d9-f7c43468703d
Ancestors: MonticelloConfigurations-nice.103

Cache filenames during load operations

=============== Diff against MonticelloConfigurations-nice.103 ===============

Item was added:
+ ----- Method: MCConfiguration>>cacheAllFileNamesDuring: (in category 'private') -----
+ cacheAllFileNamesDuring: aBlock
+ 	^ (repositories
+ 		inject: aBlock
+ 		into: [ :innerBlock :repository |
+ 			[ repository cacheAllFileNamesDuring: innerBlock ]
+ 		]) value
+ 	
+ !

Item was changed:
  ----- Method: MCConfiguration>>depsSatisfying:versionDo:displayingProgress: (in category 'private') -----
  depsSatisfying: selectBlock versionDo: verBlock displayingProgress: progressString 
  	| count action |
+ 	self cacheAllFileNamesDuring: [
  	count := 0.
  	self repositories do: [ : eachRepository | MCRepositoryGroup default addRepository: eachRepository ].
  	action := [ : dep | | ver repo |
  	ver := dep versionInfo name.
  	repo := self repositories
  		detect:
  			[ : eachRepository | eachRepository includesVersionNamed: ver ]
  		ifNone:
  			[ self logError: 'Version ' , ver , ' not found in any repository'.
  			self logError: 'Aborting'.
  			^ count ].
  	(selectBlock value: dep) ifTrue:
  		[ | new |
  		new := self
  			versionNamed: ver
  			for: dep
  			from: repo.
  		new
  			ifNil:
  				[ self logError: 'Could not download version ' , ver , ' from ' , repo description.
  				self logError: 'Aborting'.
  				^ count ]
  			ifNotNil:
  				[ self
  					logUpdate: dep package
  					with: new.
  				self class extraProgressInfo ifTrue:
  					[ ProgressNotification
  						signal: ''
  						extra: 'Installing ' , ver ].
  				verBlock value: new.
  				count := count + 1 ] ].
  	dep package workingCopy newRepositoryGroupIfDefault. "fix old working copies"
  	dep package workingCopy repositoryGroup addRepository: repo ].
  	self class extraProgressInfo
  		ifTrue:
  			[ self dependencies
  				do: action
  				displayingProgress: progressString ]
  		ifFalse: [ self dependencies do: action ].
+ 	].
  	^ count!

Item was changed:
  ----- Method: MCConfiguration>>updateFromRepositories (in category 'updating') -----
  updateFromRepositories
  
+ 	self cacheAllFileNamesDuring: [ self updateFromRepositoriesWithoutCaching ]!
- 	(repositories
- 		inject: [ self updateFromRepositoriesWithoutCaching ]
- 		into: [ :innerBlock :repository |
- 			[ repository cacheAllFileNamesDuring: innerBlock ] ]) value
- 	
- !

Item was changed:
  ----- Method: MCConfiguration>>updateFromRepositories: (in category 'updating') -----
  updateFromRepositories: packageIndex
  
+ 	self cacheAllFileNamesDuring: [ self updateFromRepositoriesWithoutCaching: packageIndex ]!
- 	(repositories
- 		inject: [ self updateFromRepositoriesWithoutCaching: packageIndex ]
- 		into: [ :innerBlock :repository |
- 			[ repository cacheAllFileNamesDuring: innerBlock ] ]) value
- 	
- !



More information about the Squeak-dev mailing list