[Vm-dev] VM Maker: Cog-eem.239.mcz
commits at source.squeak.org
commits at source.squeak.org
Tue Feb 3 21:02:23 UTC 2015
Eliot Miranda uploaded a new version of Cog to project VM Maker:
http://source.squeak.org/VMMaker/Cog-eem.239.mcz
==================== Summary ====================
Name: Cog-eem.239
Author: eem
Time: 3 February 2015, 1:02:13.213 pm
UUID: f2c5a239-5895-4b6c-a7bb-4bfc66c99bf0
Ancestors: Cog-eem.238
Spur bootstrap:
Make it an error to fail to find a suitable spur
version of the four packages in
uploadNewerSpurConfigurationsInTrunk
=============== Diff against Cog-eem.238 ===============
Item was changed:
----- Method: SpurBootstrapMonticelloPackagePatcher>>spurConfigurationOf:forRepository: (in category 'configurations') -----
spurConfigurationOf: anMCConfiguration forRepository: repo
"Answer a copy of anMCConfiguration containing the matching Spur dependencies.
If no replacements could be made (because no Spur versions exist) then answer nil."
| found clone |
found := false.
clone := Array streamContents:
[:s|
s nextPut: #name; nextPut: (anMCConfiguration name copyReplaceAll: 'update-' with: 'update.spur-');
"no location accessor!!!!"
nextPut: #repository; nextPut: {anMCConfiguration repositories first locationWithTrailingSlash allButLast}.
anMCConfiguration dependencies do:
[:dep| | info pkg ver spurVersionName |
info := dep versionInfo.
((pkg := self packages
detect: [:package| package name = dep package name]
ifNone: []) notNil
and: [spurVersionName := (info name
copyReplaceAll: pkg name
with: pkg name, '.spur'), '.mcz'.
(ver := MCCacheRepository default versionNamed: spurVersionName asMCVersionName) ifNil:
[ver := repo versionNamed: spurVersionName asMCVersionName].
ver notNil])
ifTrue: [found := true. info := ver info].
(ver isNil and: [spurVersionName notNil]) ifTrue:
+ [Transcript nextPutAll: 'failed to get ', spurVersionName, ' in ', anMCConfiguration name; cr; flush.
+ self error: 'failed to get ', spurVersionName, ' in ', anMCConfiguration name].
- [Transcript nextPutAll: 'failed to get ', spurVersionName, ' in ', anMCConfiguration name; cr; flush].
s nextPut: #dependency; nextPut: (MCConfiguration dependencyToArray: (MCVersionDependency package: dep package info: info))]].
^found ifTrue:
[MCConfiguration fromArray: clone]!
More information about the Vm-dev
mailing list