-
-
Save lukego/ab105c257457e7b9a53f6378425df9a8 to your computer and use it in GitHub Desktop.
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Could not resolve: ConfigurationOfNeoJSON [ConfigurationOfNeoJSON] in /nix/store/7db7xyi3vqsmyxs91rabvwbq63h70saz-package/pharo-local/package-cache http://smalltalkhub.com/mc/Pharo/MetaRepoForPharo30/main/ ERROR: 'GoferRepositoryError: Could not access http://smalltalkhub.com/mc/Pharo/MetaRepoForPharo30/main/: NameLookupFailure: cannot resolve ''smalltalkhub.com''' | |
MetacelloFetchingMCSpecLoader(MetacelloCommonMCSpecLoader)>>retryingResolvePackageSpecReferences:gofer: | |
[ | references nearestReference cachedReference externalReference mcVersion loadedVersionInfos | | |
"check to see if mcz file is already in cacheRepository" | |
cachedReference := self | |
resolvePackageSpec: packageSpec | |
cachedGofer: self loaderPolicy cacheGofer. | |
(cachedReference ~~ nil and: [ packageSpec getFile ~~ nil ]) | |
ifTrue: [ cachedReference name = packageSpec file | |
ifTrue: | |
[ "exact match between packageSpec file and cache" ^ self scheduleFetchFor: packageSpec cachedReference: cachedReference ] ]. "look up mcz file" | |
references := self | |
retryingResolvePackageSpecReferences: packageSpec | |
gofer: gofer. | |
nearestReference := references last | |
asMetacelloCachingResolvedReference. "If the mcz is already in the cacheRepository, no need to copy" | |
(cachedReference ~~ nil | |
and: [ cachedReference name = nearestReference name ]) | |
ifTrue: [ "latest reference in repository matches cachedReference ... " | |
^ self | |
scheduleFetchFor: packageSpec | |
nearestReference: nearestReference ]. "If the mcz is already loaded into the image, no need to copy" | |
(self ignoreImage not | |
and: [ (loadedVersionInfos := self ancestorsFor: packageSpec) ~~ nil ]) | |
ifTrue: [ loadedVersionInfos | |
do: [ :info | | |
info name = nearestReference name | |
ifTrue: [ | spc | | |
spc := packageSpec copy. | |
spc file: info name. | |
(MetacelloIgnorePackageLoaded signal: spc) | |
ifFalse: [ ^ self ] ] ] ]. | |
externalReference := (references | |
select: [ :ref | ref name = nearestReference name ]) first | |
asMetacelloCachingResolvedReference. | |
self repositoryMap | |
at: externalReference name | |
put: externalReference repository. | |
(self | |
resolveDependencies: externalReference | |
nearest: nearestReference | |
into: (OrderedCollection with: nearestReference)) | |
do: [ :reference | | |
| pSpec l | | |
mcVersion := reference version. | |
(l := (GoferVersionReference name: reference name) | |
resolveAllWith: self loaderPolicy cacheGofer) isEmpty | |
ifTrue: [ self cacheRepository storeVersion: mcVersion. | |
reference == nearestReference | |
ifTrue: [ pSpec := packageSpec ] | |
ifFalse: [ pSpec := packageSpec project packageSpec. | |
pSpec name: mcVersion package name ]. | |
self loadData | |
addVersion: mcVersion | |
versionInfo: mcVersion info | |
resolvedReference: reference | |
packageSpec: pSpec ] ]. | |
self | |
scheduleFetchFor: packageSpec | |
externalReference: externalReference ] in MetacelloFetchingMCSpecLoader>>linearLoadPackageSpec:gofer: in Block: [ | references nearestReference cachedReference ex...etc... | |
IceMetacelloPharoPlatform(MetacelloPlatform)>>do:displaying: | |
MetacelloFetchingMCSpecLoader>>linearLoadPackageSpec:gofer: | |
MetacelloPackageSpec>>loadUsing:gofer: | |
[ :pkg | pkg loadUsing: self gofer: gofer ] in MetacelloFetchingMCSpecLoader(MetacelloCommonMCSpecLoader)>>linearLoadPackageSpecs:repositories: in Block: [ :pkg | pkg loadUsing: self gofer: gofer ] | |
Array(SequenceableCollection)>>do: | |
MetacelloFetchingMCSpecLoader(MetacelloCommonMCSpecLoader)>>linearLoadPackageSpecs:repositories: | |
[ super | |
linearLoadPackageSpecs: packageSpecs | |
repositories: repositories ] in MetacelloFetchingMCSpecLoader>>explicitLoadPackageSpecs:repositories: in Block: [ super... | |
BlockClosure>>ensure: | |
MetacelloLoaderPolicy>>pushLoadDirective:during: | |
MetacelloLoaderPolicy>>pushExplicitLoadDirectivesDuring:for: | |
MetacelloFetchingMCSpecLoader>>explicitLoadPackageSpecs:repositories: | |
MetacelloPackageSpec>>explicitLoadUsing: | |
MetacelloPackageSpec>>load | |
MetacelloScriptEngine>>getConfigurationUnconditionalLoad: | |
MetacelloScriptEngine>>getConfigurationProjectUnconditionalLoad: | |
MetacelloMCProject>>projectForScriptEngine:unconditionalLoad: | |
MetacelloMCProject(MetacelloProject)>>projectForScriptEngine: | |
MetacelloMCConfigurationOfProjectSpec(MetacelloMCProjectSpec)>>versionForScriptEngine: | |
[ | version loadedSpec | | |
self setDefaultsAndValidateProjectSpec. | |
[ loadedSpec := (self lookupProjectSpecFor: self projectSpec) copy ] | |
on: MetacelloAllowProjectDowngrade , MetacelloAllowProjectUpgrade | |
do: | |
[ :ex | ex handleOnDownGrade: onDownGradeBlock onUpgrade: onUpgradeBlock ]. | |
version := loadedSpec versionForScriptEngine: self. | |
self | |
root: | |
(required isEmpty | |
ifTrue: [ version load ] | |
ifFalse: [ version load: required ]) loadDirective. | |
loadedSpec loads: required. | |
MetacelloProjectRegistration | |
registrationForProjectSpec: loadedSpec | |
ifAbsent: [ :new | | |
new | |
loadedInImage: true; | |
registerProject ] | |
ifPresent: [ :existing :new | | |
existing | |
copyOnWrite: [ :existingCopy | | |
existingCopy | |
loadedInImage: true; | |
merge: new ] ] ] in [ self | |
handleNotificationsForAction: [ | version loadedSpec | | |
self setDefaultsAndValidateProjectSpec. | |
[ loadedSpec := (self lookupProjectSpecFor: self projectSpec) copy ] | |
on: MetacelloAllowProjectDowngrade , MetacelloAllowProjectUpgrade | |
do: | |
[ :ex | ex handleOnDownGrade: onDownGradeBlock onUpgrade: onUpgradeBlock ]. | |
version := loadedSpec versionForScriptEngine: self. | |
self | |
root: | |
(required isEmpty | |
ifTrue: [ version load ] | |
ifFalse: [ version load: required ]) loadDirective. | |
loadedSpec loads: required. | |
MetacelloProjectRegistration | |
registrationForProjectSpec: loadedSpec | |
ifAbsent: [ :new | | |
new | |
loadedInImage: true; | |
registerProject ] | |
ifPresent: [ :existing :new | | |
existing | |
copyOnWrite: [ :existingCopy | | |
existingCopy | |
loadedInImage: true; | |
merge: new ] ] ] ] in MetacelloScriptEngine>>load:onProjectDownGrade:onProjectUpgrade: in Block: [ | version loadedSpec |... | |
BlockClosure>>on:do: | |
[ actionBlock | |
on: | |
MetacelloLookupProjectSpec , MetacelloLookupProjectSpecForLoad | |
, MetacelloProjectSpecLoadedNotification | |
, MetacelloScriptEnsureProjectLoadedForDevelopment | |
, MetacelloLookupBaselineSpecForEnsureLoad | |
do: | |
[ :ex | "lookup and registration handlers need to be innermost set of handlers ...they may throw option notifications" ex handleResolutionFor: self ] ] in [ [ actionBlock | |
on: | |
MetacelloLookupProjectSpec , MetacelloLookupProjectSpecForLoad | |
, MetacelloProjectSpecLoadedNotification | |
, MetacelloScriptEnsureProjectLoadedForDevelopment | |
, MetacelloLookupBaselineSpecForEnsureLoad | |
do: | |
[ :ex | "lookup and registration handlers need to be innermost set of handlers ...they may throw option notifications" ex handleResolutionFor: self ] ] | |
on: | |
MetacelloAllowProjectDowngrade , MetacelloAllowProjectUpgrade | |
, MetacelloAllowConflictingProjectUpgrade | |
do: | |
[ :ex | "option handlers need to be outermost set of handlers ... last line of defense before users are involved" ex handleResolutionFor: self ] ] in [ [ [ actionBlock | |
on: | |
MetacelloLookupProjectSpec , MetacelloLookupProjectSpecForLoad | |
, MetacelloProjectSpecLoadedNotification | |
, MetacelloScriptEnsureProjectLoadedForDevelopment | |
, MetacelloLookupBaselineSpecForEnsureLoad | |
do: | |
[ :ex | "lookup and registration handlers need to be innermost set of handlers ...they may throw option notifications" ex handleResolutionFor: self ] ] | |
on: | |
MetacelloAllowProjectDowngrade , MetacelloAllowProjectUpgrade | |
, MetacelloAllowConflictingProjectUpgrade | |
do: | |
[ :ex | "option handlers need to be outermost set of handlers ... last line of defense before users are involved" ex handleResolutionFor: self ] ] | |
on: MetacelloAllowLockedProjectChange | |
do: | |
[ :ex | "MetacelloAllowLockedProjectChange need to be outermost handler ... since it is signaled from second line of handlers" ex handleResolutionFor: self ] ] in MetacelloScriptEngine>>handleNotificationsForAction: in Block: [ actionBlock... | |
BlockClosure>>on:do: | |
[ [ actionBlock | |
on: | |
MetacelloLookupProjectSpec , MetacelloLookupProjectSpecForLoad | |
, MetacelloProjectSpecLoadedNotification | |
, MetacelloScriptEnsureProjectLoadedForDevelopment | |
, MetacelloLookupBaselineSpecForEnsureLoad | |
do: | |
[ :ex | "lookup and registration handlers need to be innermost set of handlers ...they may throw option notifications" ex handleResolutionFor: self ] ] | |
on: | |
MetacelloAllowProjectDowngrade , MetacelloAllowProjectUpgrade | |
, MetacelloAllowConflictingProjectUpgrade | |
do: | |
[ :ex | "option handlers need to be outermost set of handlers ... last line of defense before users are involved" ex handleResolutionFor: self ] ] in [ [ [ actionBlock | |
on: | |
MetacelloLookupProjectSpec , MetacelloLookupProjectSpecForLoad | |
, MetacelloProjectSpecLoadedNotification | |
, MetacelloScriptEnsureProjectLoadedForDevelopment | |
, MetacelloLookupBaselineSpecForEnsureLoad | |
do: | |
[ :ex | "lookup and registration handlers need to be innermost set of handlers ...they may throw option notifications" ex handleResolutionFor: self ] ] | |
on: | |
MetacelloAllowProjectDowngrade , MetacelloAllowProjectUpgrade | |
, MetacelloAllowConflictingProjectUpgrade | |
do: | |
[ :ex | "option handlers need to be outermost set of handlers ... last line of defense before users are involved" ex handleResolutionFor: self ] ] | |
on: MetacelloAllowLockedProjectChange | |
do: | |
[ :ex | "MetacelloAllowLockedProjectChange need to be outermost handler ... since it is signaled from second line of handlers" ex handleResolutionFor: self ] ] in MetacelloScriptEngine>>handleNotificationsForAction: in Block: [ [ actionBlock... | |
BlockClosure>>on:do: | |
[ [ [ actionBlock | |
on: | |
MetacelloLookupProjectSpec , MetacelloLookupProjectSpecForLoad | |
, MetacelloProjectSpecLoadedNotification | |
, MetacelloScriptEnsureProjectLoadedForDevelopment | |
, MetacelloLookupBaselineSpecForEnsureLoad | |
do: | |
[ :ex | "lookup and registration handlers need to be innermost set of handlers ...they may throw option notifications" ex handleResolutionFor: self ] ] | |
on: | |
MetacelloAllowProjectDowngrade , MetacelloAllowProjectUpgrade | |
, MetacelloAllowConflictingProjectUpgrade | |
do: | |
[ :ex | "option handlers need to be outermost set of handlers ... last line of defense before users are involved" ex handleResolutionFor: self ] ] | |
on: MetacelloAllowLockedProjectChange | |
do: | |
[ :ex | "MetacelloAllowLockedProjectChange need to be outermost handler ... since it is signaled from second line of handlers" ex handleResolutionFor: self ] ] in MetacelloScriptEngine>>handleNotificationsForAction: in Block: [ [ [ actionBlock... | |
BlockClosure>>on:do: | |
MetacelloScriptEngine>>handleNotificationsForAction: | |
[ self | |
handleNotificationsForAction: [ | version loadedSpec | | |
self setDefaultsAndValidateProjectSpec. | |
[ loadedSpec := (self lookupProjectSpecFor: self projectSpec) copy ] | |
on: MetacelloAllowProjectDowngrade , MetacelloAllowProjectUpgrade | |
do: | |
[ :ex | ex handleOnDownGrade: onDownGradeBlock onUpgrade: onUpgradeBlock ]. | |
version := loadedSpec versionForScriptEngine: self. | |
self | |
root: | |
(required isEmpty | |
ifTrue: [ version load ] | |
ifFalse: [ version load: required ]) loadDirective. | |
loadedSpec loads: required. | |
MetacelloProjectRegistration | |
registrationForProjectSpec: loadedSpec | |
ifAbsent: [ :new | | |
new | |
loadedInImage: true; | |
registerProject ] | |
ifPresent: [ :existing :new | | |
existing | |
copyOnWrite: [ :existingCopy | | |
existingCopy | |
loadedInImage: true; | |
merge: new ] ] ] ] in MetacelloScriptEngine>>load:onProjectDownGrade:onProjectUpgrade: in Block: [ self... |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment