The Trunk: MonticelloConfigurations-bf.147.mcz

Previous Topic Next Topic
 
classic Classic list List threaded Threaded
1 message Options
Reply | Threaded
Open this post in threaded view
|

The Trunk: MonticelloConfigurations-bf.147.mcz

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

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

Name: MonticelloConfigurations-bf.147
Author: bf
Time: 19 October 2016, 9:30:22.470476 pm
UUID: b1d019c1-7569-4ea8-8f6a-aac4b395beca
Ancestors: MonticelloConfigurations-pre.146

During update, log error instead of stopping.

=============== Diff against MonticelloConfigurations-pre.146 ===============

Item was changed:
  ----- Method: MCConfiguration>>depsSatisfying:versionDo:displayingProgress: (in category 'private') -----
  depsSatisfying: selectBlock versionDo: verBlock displayingProgress: progressString
  | count selectedVersions cleanWorkingCopies |
  self cacheAllFileNamesDuring: [
  self repositories do: [ :eachRepository |
  MCRepositoryGroup default addRepository: eachRepository ].
  "First, download selected versions"
  count := 0.
  selectedVersions := OrderedCollection new.
  self withProgress: progressString in: self dependencies do: [ :dep | | verName repo |
  verName := dep versionInfo name.
  self class extraProgressInfo ifTrue:
  [ ProgressNotification signal: '' extra: 'Downloading ' , verName ].
  repo := self repositories
  detect: [ :eachRepository | eachRepository includesVersionNamed: verName ]
  ifNone: [ self logError: 'Version ' , verName , ' not found in any repository'.
  self logError: 'Aborting'.
  ^ count ].
  (selectBlock value: dep) ifTrue: [ | version |
  version := self versionNamed: verName for: dep from: repo.
  version ifNil: [ self logError: 'Could not download version ' , verName , ' from ' , repo description.
  self logError: 'Aborting'.
  ^ count ].
  dep package workingCopy newRepositoryGroupIfDefault. "fix old working copies"
  dep package workingCopy repositoryGroup addRepository: repo.
  selectedVersions add: version]].
  "Then, process only those definitions that moved from one package to another, to avoid order dependence"
  cleanWorkingCopies := MCWorkingCopy allManagers reject: [ :wc | wc modified ].
  MCReorganizationPreloader preloadMovesBetween: selectedVersions.
  "Finally, load/merge selected versions"
  self withProgress: progressString in: selectedVersions do: [ :version |
  self logUpdate: version package with: version.
  self class extraProgressInfo ifTrue:
  [ ProgressNotification signal: '' extra: 'Installing ' , version info name ].
  verBlock value: version.
  count := count + 1 ].
  "Clean up packages made dirty by MCReorganizationPreloader"
+ cleanWorkingCopies do: [ :wc | wc modified ifTrue: [[wc checkModified] on: Error do: [:ex | self logWarning: ex description] ]].
- cleanWorkingCopies do: [ :wc | wc modified ifTrue: [wc checkModified] ].
  ].
  ^ count!