Hello,
I use to do perform this code to get the installed version from a
ConfigurationOfDrGeo:
drgeoVersion
^ 'Installed version: ', ConfigurationOfDrGeo new project
currentVersion versionNumber versionString
It does not work anymore, and produce the following error stack
Any idea?
Hilaire
MetacelloMCVersionSpec(Object)>>error:
[ ^ self error: 'Name not found: ' , aString ] in
MetacelloMCVersionSpec(MetacelloVersionSpec)>>resolveToLoadableSpec:forLoad:forMap:packages:
in Block: [ ^ self error: 'Name not found: ' , aString ]
[ (self importArray notNil or: [ self import notNil ])
ifTrue:
[ "expect the 'missing' name to be satisfied within context of
imported project"
importArray
ifNotNil: [ importArray
do: [ :assoc |
((assoc value includes: aString) and: [ map
includesKey: assoc key ])
ifTrue: [ importSpec := (map at: assoc key)
mergeImportLoads: {aString};
yourself ] ].
importSpec ifNotNil: [ ^ importSpec ] ].
(importSpec isNil and: [ self import notNil ])
ifTrue: [ ^ (map at: self import ifAbsent: absentBlock)
mergeImportLoads: {aString};
yourself ] ].
(aString = 'default' or: [ aString = 'ALL' ])
ifTrue: [ self project groupSpec
name: aString;
includes: self packageNames;
yourself ]
ifFalse: [ absentBlock value ] ] in
MetacelloMCVersionSpec(MetacelloVersionSpec)>>packageNamed:forLoad:forMap:ifAbsent:
in Block: [ (self importArray notNil or: [ self import notNi...etc...
Dictionary>>at:ifAbsent:
MetacelloMCVersionSpec(MetacelloVersionSpec)>>packageNamed:forLoad:forMap:ifAbsent:
MetacelloMCVersionSpec(MetacelloVersionSpec)>>resolveToLoadableSpec:forLoad:forMap:packages:
[ :req |
(self
resolveToLoadableSpec: req
forLoad: forLoad
forMap: map
packages: packageMap)
do: [ :loadableSpec |
newReqd addAll: loadableSpec requires.
newReqd addAll: loadableSpec includes ] ] in
MetacelloMCVersionSpec(MetacelloVersionSpec)>>resolveToLoadableSpecs:forLoad:map:
in Block: [ :req | ...
Set>>do:
MetacelloMCVersionSpec(MetacelloVersionSpec)>>resolveToLoadableSpecs:forLoad:map:
MetacelloMCVersionSpec(MetacelloVersionSpec)>>resolveToLoadableSpecs:
[ :cache |
names := (self resolveToLoadableSpecs: nameList)
collect: [ :spec | spec name ].
cache at: cacheKey put: names ] in
MetacelloMCVersionSpec(MetacelloVersionSpec)>>expandToLoadableSpecNames:
in Block: [ :cache | ...
[ :dict |
| cache |
cache := dict at: cacheName ifAbsent: [ ].
cache ~~ nil
ifTrue: [ | value hasEntry |
hasEntry := true.
value := cache at: key ifAbsent: [ hasEntry := false ].
hasEntry
ifTrue: [ ^ value ] ]
ifFalse: [ cache := cacheClass new.
dict at: cacheName put: cache ].
^ aBlock value: cache ] in
IceMetacelloPharoPlatform(MetacelloPlatform)>>stackCacheFor:cacheClass:at:doing:
in Block: [ :dict | ...
[ ^ aBlock value: dict ] in
IceMetacelloPharoPlatform(MetacelloPlatform)>>useStackCacheDuring:defaultDictionary:
in Block: [ ^ aBlock value: dict ]
BlockClosure>>on:do:
IceMetacelloPharoPlatform(MetacelloPlatform)>>useStackCacheDuring:defaultDictionary:
IceMetacelloPharoPlatform(MetacelloPlatform)>>stackCacheFor:cacheClass:at:doing:
IceMetacelloPharoPlatform(MetacelloPlatform)>>stackCacheFor:at:doing:
MetacelloMCVersionSpec(MetacelloVersionSpec)>>expandToLoadableSpecNames:
MetacelloMCVersionSpec>>isPartiallyCurrent
[ :version |
| status matchBlock |
status := resolvedPackageAndProjectNames isNil
ifTrue: [ version spec isPartiallyCurrent ]
ifFalse: [ version spec
isPartiallyCurrentAgainst: resolvedPackageAndProjectNames ].
matchBlock := [ :matchStatus |
cv := version copy.
cv versionStatus: matchStatus.
^ cache at: cacheKey put: cv ].
status isAllLoadedToSpec: matchBlock.
status isLoadedToSpec: matchBlock.
status isLoadedMatchConstraints: matchBlock.
status
isSomethingLoaded: [ :matchStatus |
latestSomethingLoaded isNil
ifTrue: [ cv := version copy.
cv versionStatus: matchStatus.
latestSomethingLoaded := cv ] ] ] in [ :cache |
| cv versions latestSomethingLoaded |
cv := nil.
versions := self sortedAndFilteredVersions.
versions
do: [ :version |
| status matchBlock |
status := resolvedPackageAndProjectNames isNil
ifTrue: [ version spec isPartiallyCurrent ]
ifFalse: [ version spec
isPartiallyCurrentAgainst:
resolvedPackageAndProjectNames ].
matchBlock := [ :matchStatus |
cv := version copy.
cv versionStatus: matchStatus.
^ cache at: cacheKey put: cv ].
status isAllLoadedToSpec: matchBlock.
status isLoadedToSpec: matchBlock.
status isLoadedMatchConstraints: matchBlock.
status
isSomethingLoaded: [ :matchStatus |
latestSomethingLoaded isNil
ifTrue: [ cv := version copy.
cv versionStatus: matchStatus.
latestSomethingLoaded := cv ] ] ].
latestSomethingLoaded
ifNotNil: [ ^ cache at: cacheKey put: latestSomethingLoaded ].
^ cache at: cacheKey put: nil ] in
MetacelloMCProject(MetacelloProject)>>currentVersionAgainst: in Block: [
:version | ...
Array(SequenceableCollection)>>do:
[ :cache |
| cv versions latestSomethingLoaded |
cv := nil.
versions := self sortedAndFilteredVersions.
versions
do: [ :version |
| status matchBlock |
status := resolvedPackageAndProjectNames isNil
ifTrue: [ version spec isPartiallyCurrent ]
ifFalse: [ version spec
isPartiallyCurrentAgainst:
resolvedPackageAndProjectNames ].
matchBlock := [ :matchStatus |
cv := version copy.
cv versionStatus: matchStatus.
^ cache at: cacheKey put: cv ].
status isAllLoadedToSpec: matchBlock.
status isLoadedToSpec: matchBlock.
status isLoadedMatchConstraints: matchBlock.
status
isSomethingLoaded: [ :matchStatus |
latestSomethingLoaded isNil
ifTrue: [ cv := version copy.
cv versionStatus: matchStatus.
latestSomethingLoaded := cv ] ] ].
latestSomethingLoaded
ifNotNil: [ ^ cache at: cacheKey put: latestSomethingLoaded ].
^ cache at: cacheKey put: nil ] in
MetacelloMCProject(MetacelloProject)>>currentVersionAgainst: in Block: [
:cache | ...
[ :dict |
| cache |
cache := dict at: cacheName ifAbsent: [ ].
cache ~~ nil
ifTrue: [ | value hasEntry |
hasEntry := true.
value := cache at: key ifAbsent: [ hasEntry := false ].
hasEntry
ifTrue: [ ^ value ] ]
ifFalse: [ cache := cacheClass new.
dict at: cacheName put: cache ].
^ aBlock value: cache ] in
IceMetacelloPharoPlatform(MetacelloPlatform)>>stackCacheFor:cacheClass:at:doing:
in Block: [ :dict | ...
[ ^ aBlock value: dict ] in
IceMetacelloPharoPlatform(MetacelloPlatform)>>useStackCacheDuring:defaultDictionary:
in Block: [ ^ aBlock value: dict ]
BlockClosure>>on:do:
IceMetacelloPharoPlatform(MetacelloPlatform)>>useStackCacheDuring:defaultDictionary:
IceMetacelloPharoPlatform(MetacelloPlatform)>>stackCacheFor:cacheClass:at:doing:
IceMetacelloPharoPlatform(MetacelloPlatform)>>stackCacheFor:at:doing:
MetacelloMCProject(MetacelloProject)>>currentVersionAgainst:
[ :cache |
cv := self currentVersionAgainst: nil.
^ cache at: cacheKey put: cv ] in
MetacelloMCProject(MetacelloProject)>>currentVersion in Block: [ :cache
| ...
--
Dr. Geo
http://drgeo.eu
