<div dir="ltr"><div>One of the main benefits of converting former Chronology's internal 3-element Array to an Integer should be to be able to easily translate back-and-forth between Integer and object (DateAndTime) representations. With this, when creating log entries, you can simply access Time class>>#microsecondClock, which creates no garbage. Then, to display the log, DateAndTime class>>#fromMicroseconds: will instantiate the proper instance of that time.</div><div><br></div><div>The "utc" prefix seems to be related to the name that Dave gave his alternative version of Chronology, and retained some of it when it was integrated into trunk. I don't recall whether Time>>#utcMicrosecond was part of that, but if we can be willing to drop the prefix for that one selector, the API won't have this ambiguity that confused me for an evening.</div><div><br></div><div>Best,</div><div> Chris</div><div><br></div></div><br><div class="gmail_quote"><div dir="ltr" class="gmail_attr">On Wed, Apr 29, 2020 at 6:51 PM <<a href="mailto:commits@source.squeak.org">commits@source.squeak.org</a>> wrote:<br></div><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex">Chris Muller uploaded a new version of Chronology-Core to project The Inbox:<br>
<a href="http://source.squeak.org/inbox/Chronology-Core-cmm.53.mcz" rel="noreferrer" target="_blank">http://source.squeak.org/inbox/Chronology-Core-cmm.53.mcz</a><br>
<br>
==================== Summary ====================<br>
<br>
Name: Chronology-Core-cmm.53<br>
Author: cmm<br>
Time: 29 April 2020, 6:51:53.53317 pm<br>
UUID: b930b208-c85e-4c6b-8254-2837493384bd<br>
Ancestors: Chronology-Core-nice.52<br>
<br>
- Extend the API to allow an integral representation of DateAndTime's, by introducing<br>
<br>
DateAndTime class>>#fromMicroseconds:<br>
DateAndTime>>#asMicroseconds<br>
<br>
which go along with the existing API:<br>
<br>
DateAndTime class>>#fromSeconds:<br>
DateAndTime>>#asSeconds<br>
<br>
- Every Squeak with the substring "utcMicrosecond" in the selector name refers to the number of microseconds since the POSIX epoch (1/1/1971@00:00:00.000), __except for one__: Time utcMicroseconds. Therefore, to avoid astonishment when using it with the "utc" API of DateAndTime, rename it without the "utc" prefix.<br>
<br>
=============== Diff against Chronology-Core-nice.52 ===============<br>
<br>
Item was added:<br>
+ ----- Method: DateAndTime class>>fromMicroseconds: (in category 'smalltalk-80') -----<br>
+ fromMicroseconds: anInteger <br>
+ "Answer a DateAndTime anInteger microseconds since the Squeak epoch: 1 January 1901."<br>
+ ^ self<br>
+ utcMicroseconds: anInteger - (self epochOffset * 1000000)<br>
+ offset: self localOffsetSeconds!<br>
<br>
Item was added:<br>
+ ----- Method: DateAndTime>>asMicroseconds (in category 'smalltalk-80') -----<br>
+ asMicroseconds<br>
+ "Return the number of microseconds since the Squeak epoch, 1/1/1901 @ 00:00:00."<br>
+ ^ utcMicroseconds + self class epochOffsetMicros!<br>
<br>
Item was changed:<br>
----- Method: Time class>>estimateHighResClockTicksPerMillisecond (in category 'clock') -----<br>
estimateHighResClockTicksPerMillisecond<br>
<br>
| t0 t1 t2 t3 |<br>
<br>
"Count the ticks ellapsed during a 10ms busy loop"<br>
+ t0 := Time microsecondClock + 200.<br>
+ [Time microsecondClock >= t0] whileFalse.<br>
- t0 := Time utcMicrosecondClock + 200.<br>
- [Time utcMicrosecondClock >= t0] whileFalse.<br>
t1 := self highResClock.<br>
+ [Time microsecondClock >= (t0 + 10000)] whileFalse.<br>
+ t1 := self highResClock - t1 * 1000 // (Time microsecondClock - t0).<br>
- [Time utcMicrosecondClock >= (t0 + 10000)] whileFalse.<br>
- t1 := self highResClock - t1 * 1000 // (Time utcMicrosecondClock - t0).<br>
<br>
"Count the ticks ellapsed during a 20ms busy loop"<br>
+ t0 := Time microsecondClock + 200.<br>
+ [Time microsecondClock >= t0] whileFalse.<br>
- t0 := Time utcMicrosecondClock + 200.<br>
- [Time utcMicrosecondClock >= t0] whileFalse.<br>
t2 := self highResClock.<br>
+ [Time microsecondClock >= (t0 + 20000)] whileFalse.<br>
+ t2 := self highResClock - t2 * 1000 // (Time microsecondClock - t0).<br>
- [Time utcMicrosecondClock >= (t0 + 20000)] whileFalse.<br>
- t2 := self highResClock - t2 * 1000 // (Time utcMicrosecondClock - t0).<br>
<br>
"Count the ticks ellapsed during a 30ms busy loop"<br>
+ t0 := Time microsecondClock + 200.<br>
+ [Time microsecondClock >= t0] whileFalse.<br>
- t0 := Time utcMicrosecondClock + 200.<br>
- [Time utcMicrosecondClock >= t0] whileFalse.<br>
t3 := self highResClock.<br>
+ [Time microsecondClock >= (t0 + 30000)] whileFalse.<br>
+ t3 := self highResClock - t3 * 1000 // (Time microsecondClock - t0).<br>
- [Time utcMicrosecondClock >= (t0 + 30000)] whileFalse.<br>
- t3 := self highResClock - t3 * 1000 // (Time utcMicrosecondClock - t0).<br>
<br>
"Take the median of the 3 estimates as the best"<br>
^ t1 <= t2<br>
ifTrue: [t2 <= t3<br>
ifTrue: [t2]<br>
ifFalse: [t1 <= t3<br>
ifTrue: [t3]<br>
ifFalse: [t1]]]<br>
ifFalse: [t1 <= t3<br>
ifTrue: [t1]<br>
ifFalse: [t2 <= t3<br>
ifTrue: [t3]<br>
ifFalse: [t2]]]!<br>
<br>
Item was changed:<br>
----- Method: Time class>>localMicrosecondClock (in category 'clock') -----<br>
localMicrosecondClock<br>
"Answer the local microseconds since the Smalltalk epoch (January 1st 1901, the start of the 20th century).<br>
The value is derived from the current UTC wallclock time and the image's current notion of time zone."<br>
+ ^self microsecondClock + (DateAndTime localOffset asSeconds * 1000000)!<br>
- ^self utcMicrosecondClock + (DateAndTime localOffset asSeconds * 1000000)!<br>
<br>
Item was added:<br>
+ ----- Method: Time class>>microsecondClock (in category 'clock') -----<br>
+ microsecondClock<br>
+ "Answer the UTC microseconds since the Smalltalk epoch (January 1st 1901, the start of the 20th century).<br>
+ The value is derived from the Posix epoch with a constant offset corresponding to elapsed microseconds<br>
+ between the two epochs according to RFC 868."<br>
+ <primitive: 240><br>
+ ^0!<br>
<br>
Item was changed:<br>
----- Method: Time class>>microsecondsToRun: (in category 'general inquiries') -----<br>
microsecondsToRun: timedBlock <br>
"Answer the number of microseconds timedBlock takes to return its value."<br>
<br>
| startUsecs |<br>
(self useHighResClockForTiming and: [self highResClock ~= 0])<br>
ifTrue: [ ^(self nanosecondsToRunHighRes: timedBlock) + 500 // 1000].<br>
+ startUsecs := self microsecondClock.<br>
- startUsecs := self utcMicrosecondClock.<br>
timedBlock value.<br>
+ ^self microsecondClock - startUsecs!<br>
- ^self utcMicrosecondClock - startUsecs!<br>
<br>
Item was changed:<br>
----- Method: Time class>>millisecondClockValue (in category 'general inquiries') -----<br>
millisecondClockValue<br>
"Answer the value of the millisecond clock."<br>
<br>
+ ^self microsecondClock // 1000!<br>
- ^self utcMicrosecondClock // 1000!<br>
<br>
Item was changed:<br>
----- Method: Time class>>nanosecondsToRun: (in category 'general inquiries') -----<br>
nanosecondsToRun: timedBlock<br>
"Answer the number of nanoseconds timedBlock takes to return its value.<br>
Use high resolution clock if available and preferred."<br>
<br>
| startUsecs |<br>
(self useHighResClockForTiming and: [self highResClock ~= 0])<br>
ifTrue: [ ^(self nanosecondsToRunHighRes: timedBlock)].<br>
"Fallback to microseconds clock"<br>
+ startUsecs := self microsecondClock.<br>
- startUsecs := self utcMicrosecondClock.<br>
timedBlock value.<br>
+ ^self microsecondClock - startUsecs * 1000!<br>
- ^self utcMicrosecondClock - startUsecs * 1000!<br>
<br>
Item was added:<br>
+ ----- Method: Time class>>totalMicroSeconds (in category 'smalltalk-80') -----<br>
+ totalMicroSeconds<br>
+ "Answer the total seconds since the Squeak epoch: 1 January 1901, in local time."<br>
+ <br>
+ ^self localMicrosecondClock // 1000000!<br>
<br>
Item was changed:<br>
----- Method: Time class>>utcMicrosecondClock (in category 'clock') -----<br>
utcMicrosecondClock<br>
"Answer the UTC microseconds since the Smalltalk epoch (January 1st 1901, the start of the 20th century).<br>
The value is derived from the Posix epoch with a constant offset corresponding to elapsed microseconds<br>
between the two epochs according to RFC 868."<br>
<primitive: 240><br>
+ self deprecated: 'Use #microsecondClock'.<br>
^0!<br>
<br>
<br>
</blockquote></div>