[squeak-dev] The Trunk: Chronology-Core-bf.7.mcz
commits at source.squeak.org
commits at source.squeak.org
Fri Jul 8 09:47:49 UTC 2016
Bert Freudenberg uploaded a new version of Chronology-Core to project The Trunk:
http://source.squeak.org/trunk/Chronology-Core-bf.7.mcz
==================== Summary ====================
Name: Chronology-Core-bf.7
Author: bf
Time: 8 July 2016, 11:47:29.911394 am
UUID: de32e02b-c9bb-43b6-acd3-c42c26188e28
Ancestors: Chronology-Core-cmm.6
Do not print nanoseconds unless requested
=============== Diff against Chronology-Core-cmm.6 ===============
Item was changed:
----- Method: Time>>print24:showSeconds:on: (in category 'printing') -----
print24: hr24 showSeconds: showSeconds on: aStream
"Format is 'hh:mm:ss' or 'h:mm:ss am' or, if showSeconds is false, 'hh:mm' or 'h:mm am'"
+ ^self print24: hr24 showSeconds: showSeconds showSubseconds: false on: aStream !
- | h m s |
- h := self hour. m := self minute. s := self second.
- hr24
- ifTrue:
- [ h < 10 ifTrue: [ aStream nextPutAll: '0' ].
- h printOn: aStream ]
- ifFalse:
- [ h > 12
- ifTrue: [h - 12 printOn: aStream]
- ifFalse:
- [h < 1
- ifTrue: [ 12 printOn: aStream ]
- ifFalse: [ h printOn: aStream ]]].
-
- aStream nextPutAll: (m < 10 ifTrue: [':0'] ifFalse: [':']).
- m printOn: aStream.
-
- showSeconds ifTrue:
- [ aStream nextPutAll: (s < 10 ifTrue: [':0'] ifFalse: [':']).
- self nanoSecond = 0
- ifTrue: [s asInteger printOn: aStream]
- ifFalse: [s asInteger * NanosInSecond + self nanoSecond asInteger
- printOn: aStream asFixedPoint: NanosInSecond]].
-
- hr24 ifFalse:
- [ aStream nextPutAll: (h < 12 ifTrue: [' am'] ifFalse: [' pm']) ].
- !
Item was added:
+ ----- Method: Time>>print24:showSeconds:showSubseconds:on: (in category 'printing') -----
+ print24: hr24 showSeconds: showSeconds showSubseconds: showSubseconds on: aStream
+ "Format is 'hh:mm:ss' or 'h:mm:ss am' or, if showSeconds is false, 'hh:mm' or 'h:mm am'.
+ If showSubseconds is true and our nanoSeconds are not zero, a decimal point and subseconds are added"
+
+ | h m s |
+ h := self hour. m := self minute. s := self second.
+ hr24
+ ifTrue:
+ [ h < 10 ifTrue: [ aStream nextPutAll: '0' ].
+ h printOn: aStream ]
+ ifFalse:
+ [ h > 12
+ ifTrue: [h - 12 printOn: aStream]
+ ifFalse:
+ [h < 1
+ ifTrue: [ 12 printOn: aStream ]
+ ifFalse: [ h printOn: aStream ]]].
+
+ aStream nextPutAll: (m < 10 ifTrue: [':0'] ifFalse: [':']).
+ m printOn: aStream.
+
+ showSeconds ifTrue:
+ [ aStream nextPutAll: (s < 10 ifTrue: [':0'] ifFalse: [':']).
+ (showSubseconds not or: [self nanoSecond = 0])
+ ifTrue: [s asInteger printOn: aStream]
+ ifFalse: [s asInteger * NanosInSecond + self nanoSecond asInteger
+ printOn: aStream asFixedPoint: NanosInSecond]].
+
+ hr24 ifFalse:
+ [ aStream nextPutAll: (h < 12 ifTrue: [' am'] ifFalse: [' pm']) ].
+ !
Item was changed:
----- Method: Time>>printOn: (in category 'printing') -----
printOn: aStream
self print24: false
showSeconds: (self seconds ~= 0
or: [self nanoSecond ~= 0])
+ showSubseconds: self nanoSecond ~= 0
on: aStream!
More information about the Squeak-dev
mailing list
|