[prev in list] [next in list] [prev in thread] [next in thread]
List: squeak-vm-dev
Subject: [Vm-dev] VM Maker: VMMakerUI-eem.60.mcz
From: commits () source ! squeak ! org
Date: 2023-10-11 0:35:01
Message-ID: 20231011003503.CA5C558261C () mail ! squeak ! org
[Download RAW message or body]
Eliot Miranda uploaded a new version of VMMakerUI to project VM Maker:
http://source.squeak.org/VMMaker/VMMakerUI-eem.60.mcz
==================== Summary ====================
Name: VMMakerUI-eem.60
Author: eem
Time: 10 October 2023, 5:34:59.96815 pm
UUID: af5ad4ea-b3fb-45ba-aae2-416b5f11cdfd
Ancestors: VMMakerUI-eem.59
Avoid updateVMMaker from promting to save a VMMaker if the package is modified. i.e. \
avoid using currentVersionInfo
=============== Diff against VMMakerUI-eem.59 ===============
Item was changed:
----- Method: TheWorldMainDockingBar>>updateVMMaker (in category \
'*VMMakerUI-updater') ----- updateVMMaker
<updater: 'Update VMMaker'>
| branch updateMap updater history message |
+ branch := (PackageInfo named: #VMMaker) workingCopy ancestry \
ancestorStringWithout: ''.
- branch := (PackageInfo named: #VMMaker) workingCopy currentVersionInfo name.
updateMap := branch first: (branch indexOf: $- ifAbsent: [branch size + 1]) - 1.
updateMap := 'update', (updateMap allButFirst: #VMMaker size).
updater := MCMcmUpdater
updateMapNamed: updateMap
repository: 'http://source.squeak.org/VMMaker'.
updater lastUpdateMap ifEmpty: [
"If this is the first time that you use the updater, start at 5.mcm to avoid \
loading old code." updater lastUpdateMap at: updater repository put: 5].
history := updater dependentPackages
collect: [:package | package name -> (package workingCopy ancestors
"N.B. the first version in a package's history will have empty ancestors."
ifEmpty: [nil] ifNotEmpty: [:ancestors| ancestors first])]
as: OrderedDictionary.
updater doUpdate: false.
"Set update history to the packages that actually changed."
updater dependentPackages do: [:package | | oldVersionInfo newVersionInfo |
oldVersionInfo := history at: package name ifAbsent: [].
newVersionInfo := package workingCopy ancestors first.
(oldVersionInfo ifNil: [0] ifNotNil: [oldVersionInfo versionNumber]) < \
newVersionInfo versionNumber
ifTrue: [history at: package name put: {oldVersionInfo. newVersionInfo}]
ifFalse: [history removeKey: package name]].
"Prepare message, including the update history and OSVM ci badges."
message := String streamContents: [:s |
s nextPutAll: 'VMMaker update succesful.<br><br>'.
history
ifEmpty: [s nextPutAll: 'All packages were already up-to-date.']
ifNotEmpty: [s nextPutAll: 'Updated packages:'].
history keysAndValuesDo: [:packageName :updateInfo |
s nextPutAll: '<br> - '.
s nextPutAll: packageName; space.
updateInfo isArray
ifFalse: [s nextPutAll: '*removed*' translated]
ifTrue: [
updateInfo first
ifNil: [s nextPutAll: '*added*' translated]
ifNotNil: [s print: updateInfo first versionNumber].
s nextPutAll: ' -> <b>'.
s print: updateInfo second versionNumber.
s nextPutAll: '</b>']].
s nextPutAll: ('<br><br>Url: <a href="{1}">{1}</a>' format: {updater \
repository}). s nextPutAll: '<br>Map: '; print: updater updateMapName.
s nextPutAll: '<br>'.
#('macOS (x86)' macos
'macOS (ARM)' 'macos-arm'
'Windows' win
'Linux (x86)' linux
'Linux (ARM)' 'linux-arm')
groupsDo: [:label :workflow |
s nextPutAll: ('<br><a href="{2}"><img src="{3}" /> {4}</a> {1}'
format: {
label.
self osvm_GitHubActions_statusPageUrl: workflow.
self osvm_GitHubActions_statusBadgeUrl: workflow.
self osvm_GitHubActions_statusTimestamp: workflow})].
s nextPutAll: ('<br><br>Note that updated platform sources might be available, \
too: <a href="{1}">{1}</a>' format: \
{'https://github.com/OpenSmalltalk/opensmalltalk-vm'}).
].
self inform: message asTextFromHtml.!
[prev in list] [next in list] [prev in thread] [next in thread]
Configure |
About |
News |
Add a list |
Sponsored by KoreLogic