[Pkg] The Trunk: Monticello-cmm.457.mcz
commits at source.squeak.org
commits at source.squeak.org
Wed Apr 20 02:35:22 UTC 2011
Chris Muller uploaded a new version of Monticello to project The Trunk:
http://source.squeak.org/trunk/Monticello-cmm.457.mcz
==================== Summary ====================
Name: Monticello-cmm.457
Author: cmm
Time: 19 April 2011, 9:34:53.13 pm
UUID: 19252cd0-0adb-4cbe-8cb1-5a03cdd5fc4e
Ancestors: Monticello-kb.456
Utility methods for copying missing ancestry to a repository.
=============== Diff against Monticello-kb.456 ===============
Item was added:
+ ----- Method: MCRepository>>missingAncestryDo: (in category 'versions') -----
+ missingAncestryDo: oneArgBlock
+ "Value oneArgBlock with each of the MCVersionInfo ancestry that is missing from this repository."
+ self cacheAllFileNamesDuring:
+ [ self allPackageNames do:
+ [ : each | self
+ missingAncestryForPackageNamed: each
+ do: oneArgBlock ] ]!
Item was added:
+ ----- Method: MCRepository>>missingAncestryForPackageNamed:do: (in category 'versions') -----
+ missingAncestryForPackageNamed: packageName do: oneArgBlock
+ | start |
+ self cacheAllFileNamesDuring:
+ [ start := self versionNamed: (self highestNumberedVersionNameForPackageNamed: packageName).
+ self cacheAllFileNamesDuring:
+ [ start info allAncestorsDo:
+ [ : each | (self includesVersionNamed: each versionName) ifFalse: [ oneArgBlock value: each ] ] ] ]!
Item was added:
+ ----- Method: MCRepository>>obtainMissingAncestryFrom: (in category 'versions') -----
+ obtainMissingAncestryFrom: sourceRepository
+ self cacheAllFileNamesDuring:
+ [ self missingAncestryDo:
+ [ : each | (sourceRepository includesVersionNamed: each versionName)
+ ifTrue: [ self storeVersion: each ]
+ ifFalse: [ Notification signal: each versionName , ' not present in ' , sourceRepository asString ] ] ]!
More information about the Packages
mailing list