[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