The Trunk: MonticelloConfigurations-bf.104.mcz

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
-
- !