Eliot Miranda uploaded a new version of 51Deprecated to project The Trunk:
http://source.squeak.org/trunk/51Deprecated-eem.14.mcz ==================== Summary ==================== Name: 51Deprecated-eem.14 Author: eem Time: 5 January 2016, 1:28:26.744217 pm UUID: 9ee28680-3763-46a9-8c2c-1c81f4d6b917 Ancestors: 51Deprecated-mt.13 Deprecates obsolete time primitives and secondsWhenClockTicks. =============== Diff against 51Deprecated-mt.13 =============== Item was added: + ----- Method: Time class>>primLocalMicrosecondClock (in category '*51Deprecated-primitives') ----- + primLocalMicrosecondClock + "Answer the local microseconds since the Smalltalk epoch. The value is derived from the Posix epoch with a constant offset corresponding to elapsed microseconds between the two epochs according to RFC 868, and with an offset duration corresponding to the current offset of local time from UTC." + + <primitive: 241> + ^0! Item was added: + ----- Method: Time class>>primMicrosecondClock (in category '*51Deprecated-primitives') ----- + primMicrosecondClock + "Answer the number of microseconds since the microsecond clock + was last reset or rolled over. Answer zero if the primitive fails." + + <primitive: 'primitiveMicrosecondClock'> + ^ 0! Item was added: + ----- Method: Time class>>primMillisecondClock (in category '*51Deprecated-primitives') ----- + primMillisecondClock + "Primitive. Answer the number of milliseconds since the millisecond clock + was last reset or rolled over. Answer zero if the primitive fails. + Optional. See Object documentation whatIsAPrimitive." + + <primitive: 135> + ^ 0! Item was added: + ----- Method: Time class>>primMillisecondClockMask (in category '*51Deprecated-primitives') ----- + primMillisecondClockMask + "Answer the mask value used for millisecond clock rollover in the + virtual machine, or nil if the VM cannot support the request." + + <primitive: 'primitiveMillisecondClockMask'> + ^nil! Item was added: + ----- Method: Time class>>primSecondsClock (in category '*51Deprecated-primitives') ----- + primSecondsClock + "Answer the number of seconds since 00:00 on the morning of + January 1, 1901 (a 32-bit unsigned number). + Essential. See Object documentation whatIsAPrimitive. " + + <primitive: 137> + self primitiveFailed! Item was added: + ----- Method: Time class>>primUTCMicrosecondClock (in category '*51Deprecated-primitives') ----- + primUTCMicrosecondClock + "Answer the UTC microseconds since the Smalltalk epoch. The value is derived from the Posix epoch with a constant offset corresponding to elapsed microseconds between the two epochs according to RFC 868." + + <primitive: 240> + ^0! Item was added: + ----- Method: Time class>>secondsWhenClockTicks (in category '*51Deprecated-primitives') ----- + secondsWhenClockTicks + + "waits for the moment when a new second begins" + + | lastSecond delay | + + delay := Delay forMilliseconds: 1. + lastSecond := self primSecondsClock. + [ lastSecond = self primSecondsClock ] whileTrue: [ delay wait ]. + + ^ lastSecond + 1! |
Free forum by Nabble | Edit this page |