The Trunk: System-mt.849.mcz

Marcel Taeumel uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-mt.849.mcz

==================== Summary ====================

Name: System-mt.849
Author: mt
Time: 29 July 2016, 3:48:10.227103 pm
UUID: 5adcb3ba-a052-e84f-9b7b-a176d4acff98
Ancestors: System-mt.848

Adds some convenience methods to get more information about the current system version.

=============== Diff against System-mt.848 ===============

Item was added:
+ ----- Method: SystemVersion>>isAlpha (in category 'testing') -----
+ isAlpha
+ ^ (version endsWith: #alpha)!

Item was added:
+ ----- Method: SystemVersion>>isCodeFreeze (in category 'testing') -----
+ isCodeFreeze
+ ^ self isFeatureFreeze and: [(version endsWith: #beta) not]!

Item was added:
+ ----- Method: SystemVersion>>isFeatureFreeze (in category 'testing') -----
+ isFeatureFreeze
+ ^ self isAlpha not!

Item was added:
+ ----- Method: SystemVersion>>isRelease (in category 'testing') -----
+ isRelease
+ ^ self isReleaseCandidate not and: [version last isDigit]!

Item was added:
+ ----- Method: SystemVersion>>isReleaseCandidate (in category 'testing') -----
+ isReleaseCandidate
+ ^ (version findTokens: 'rc') size > 1!

Item was added:
+ ----- Method: SystemVersion>>majorVersionNumber (in category 'accessing') -----
+ majorVersionNumber
+
+ ^ (version copyFrom: 'Squeak' size to: (version indexOf: $.)) asInteger!

Item was added:
+ ----- Method: SystemVersion>>minorVersionNumber (in category 'accessing') -----
+ minorVersionNumber
+
+ | pointIndex |
+ pointIndex := version indexOf: $..
+ ^ (version
+ copyFrom: pointIndex
+ to: (self isRelease
+ "e.g. Squeak5.1"
+ ifTrue: [version size]
+ "e.g. Squeak5.1rc5"
+ ifFalse: [(pointIndex+1 to: version size) detect: [:ea | (version at: ea) isDigit not]])) asInteger!

Item was added:
+ ----- Method: SystemVersion>>releaseCandidateNumber (in category 'accessing') -----
+ releaseCandidateNumber
+ ^ self isReleaseCandidate
+ ifFalse: [0]
+ ifTrue: [(version findTokens: 'rc') last asInteger]!