Marcel Taeumel uploaded a new version of ReleaseBuilder to project The Trunk:
http://source.squeak.org/trunk/ReleaseBuilder-mt.156.mcz==================== Summary ====================
Name: ReleaseBuilder-mt.156
Author: mt
Time: 15 August 2016, 4:28:52.546884 pm
UUID: 142d5783-4c1c-0949-b0d7-ccc8918668c3
Ancestors: ReleaseBuilder-mt.155
Small fix for getting the changes between releases. Account for a broken MC acenstry.
=============== Diff against ReleaseBuilder-mt.155 ===============
Item was changed:
----- Method: ReleaseBuilder class>>changesBetween:and: (in category 'scripts - support') -----
changesBetween: startConfiguration and: endConfiguration
| a b d |
a := startConfiguration.
b := endConfiguration.
d := OrderedDictionary new.
b dependencies do: [:dep |
| begin end finished started |
finished := false. started := false.
begin := a dependencies
detect: [:ea | ea package = dep package]
ifFound: [:x | x versionInfo]
ifNone: [nil].
end := dep versionInfo.
d at: dep package put: OrderedDictionary new.
dep package workingCopy ancestry allAncestorsDo: [:ver |
+ started := started or: [(ver name findTokens: '.') last asNumber <= (end name findTokens: '.') last asNumber].
+ finished := finished or: [begin notNil and: [(ver name findTokens: '.') last asNumber <= (begin name findTokens: '.') last asNumber]].
- started := started or: [ver name = end name].
- finished := finished or: [begin notNil and: [ver name = begin name]].
started & finished not ifTrue: [(d at: dep package) at: ver put: ver message]]].
^ d!
Item was changed:
----- Method: ReleaseBuilder class>>fileOutChangesBetweenReleases (in category 'scripts - support') -----
fileOutChangesBetweenReleases
"Generate mark-down files with all commit messages by release. To be used to write release notes."
| fileNames |
fileNames := OrderedCollection new.
self changesBetweenReleases keysAndValuesDo: [:location :c |
fileNames add: ('commits-{1}.md' format: {(location findTokens: '/') last}).
+ FileStream forceNewFileNamed: fileNames last do: [:strm |
- FileStream fileNamed: fileNames last do: [:strm |
c keysAndValuesDo: [:pkg :changes |
strm nextPutAll: '# '; nextPutAll: pkg name; cr.
changes keysAndValuesDo: [:ver :msg |
msg linesDo: [:line | line withBlanksTrimmed ifNotEmpty: [:m |
(m first isDigit or: [{$*. $-} includes: m first])
ifTrue: [strm nextPutAll: ' ', m]
ifFalse: [strm nextPutAll: ' - ', m].
strm cr]]]]]].
self inform: 'Files written:\' withCRs, (fileNames joinSeparatedBy: String cr).!
Locked
