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