Hi,
if we remove Monticello package X, we should firstly remove packages that
extend the package X. I tried to play with a code that could give me such
order. Here it is:
all := (MCWorkingCopy allManagers collect: #packageName).
deps := Dictionary new.
all do: [:packageName |
| package |
package := (RPackageSet named: packageName).
deps at: packageName put: (package extensionMethods groupedBy: [ :m |
(Smalltalk classOrTraitNamed: m className) package packageName ]) keys ].
depsList := deps associations asOrderedCollection.
resolveBlock := [:a | a value isEmpty ].
hasResolved := depsList select: resolveBlock.
notResolved := depsList reject: resolveBlock.
ordered := hasResolved collect: [:a | a key ].
[ foundDeps := notResolved select: [ :a | ordered includesAll: a value ].
notResolved := notResolved copyWithoutAll: foundDeps.
ordered addAll: (foundDeps collect: [:a | a key]).
foundDeps isEmpty ] whileFalse.
ordered.
However, a lot of packages (156) cannot be removed because of cyclic
dependencies. You can see them together with count of references from other
packages with this code:
notResolvedNames := (notResolved collect: [:a | a key ]).
((notResolved collect: [:a | a key ->
(notResolved select: [:b | b value includes: a key]) size])
asSortedCollection:[:a :b | a value <= b value])
The result is that we need to remove cyclic dependencies for this packages:
'Kernel' 'Morphic-Base' 'Polymorph-Widgets' 'Tools'
Then the removing order can be computed. To check that try to modify
previous code:
resolveBlock := [:a | a value isEmpty or:[#('Kernel' 'Morphic-Base'
'Polymorph-Widgets' 'Tools') includes: a key] ].
I think we should add it as a release test too.
Cheers,
-- Pavel
