Squeak-dev March 2016

squeak-dev@lists.squeakfoundation.org

31 participants
150 discussions

The Trunk: Kernel-ul.1006.mcz
by commits＠source.squeak.org 20 Mar '16

20 Mar '16

Levente Uzonyi uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-ul.1006.mcz ==================== Summary ==================== Name: Kernel-ul.1006 Author: ul Time: 19 March 2016, 1:28:42.41382 pm UUID: 0883d257-21c1-4bac-bc57-a6cfc1b423e4 Ancestors: Kernel-eem.1005 - 10% faster SmallInteger >> #decimalDigitLength on 64-bit VM - added a comment to SmallInteger >> #numberOfDigitsInBase: - reformatted and tweaked Number >> #raisedToInteger: =============== Diff against Kernel-eem.1005 =============== Item was changed: ----- Method: Number>>raisedToInteger: (in category 'mathematical functions') ----- raisedToInteger: anInteger - "The 0 raisedToInteger: 0 is an special case. In some contexts must be 1 and in others must be handled as an indeterminate form. I take the first context because that's the way that was previously handled. Maybe further discussion is required on this topic." + | bitProbe result | - |bitProbe result| - anInteger negative ifTrue: [^(self raisedToInteger: anInteger negated) reciprocal]. bitProbe := 1 bitShift: anInteger highBit - 1. + result := self class one. + [ + (anInteger bitAnd: bitProbe) > 0 ifTrue: [ result := result * self ]. + (bitProbe := bitProbe bitShift: -1) > 0 ] + whileTrue: [ result := result * result ]. - result := self class one. - [ - (anInteger bitAnd: bitProbe) = 0 ifFalse: [result := result * self]. - bitProbe := bitProbe bitShift: -1. - bitProbe > 0 ] - whileTrue: [result := result * result]. - ^result! Item was changed: ----- Method: SmallInteger>>decimalDigitLength (in category 'printing') ----- decimalDigitLength "Answer the number of digits printed out in base 10. Note that this only works for positive SmallIntegers up to 64-bits." + self < 10000 ifTrue: [ + self < 100 ifTrue: [ + self < 10 ifTrue: [ ^1]. + ^2 ]. + self < 1000 ifTrue: [ ^3 ]. + ^4 ]. + self < 100000000 ifTrue: [ + self < 1000000 ifTrue: [ + self < 100000 ifTrue: [ ^5]. + ^6 ]. + self < 10000000 ifTrue: [ ^7 ]. + ^8 ]. + self < 1000000000000 ifTrue: [ + self < 10000000000 ifTrue: [ + self < 1000000000 ifTrue: [ ^9 ]. + ^10 ]. + self < 100000000000 ifTrue: [ ^11 ]. + ^12 ]. + self < 10000000000000000 ifTrue: [ + self < 100000000000000 ifTrue: [ + self < 10000000000000 ifTrue: [ ^13 ]. + ^14 ]. + self < 1000000000000000 ifTrue: [ ^15 ]. + ^16 ]. + self < 1000000000000000000 ifTrue: [ + self < 100000000000000000 ifTrue: [ ^17 ]. + ^18 ]. + self < 10000000000000000000 ifTrue: [ ^19 ]. + ^20! - ^self < 10000 - ifTrue: - [self < 100 - ifTrue: - [self < 10 ifTrue: [1] ifFalse: [2]] - ifFalse: - [self < 1000 ifTrue: [3] ifFalse: [4]]] - ifFalse: - [self < 100000000 - ifTrue: - [self < 1000000 - ifTrue: [self < 100000 ifTrue: [5] ifFalse: [6]] - ifFalse: [self < 10000000 ifTrue: [7] ifFalse: [8]]] - ifFalse: - [self < 1000000000000 - ifTrue: - [self < 10000000000 - ifTrue: [self < 1000000000 ifTrue: [9] ifFalse: [10]] - ifFalse: [self < 100000000000 ifTrue: [11] ifFalse: [12]]] - ifFalse: - [self < 10000000000000000 - ifTrue: - [self < 100000000000000 - ifTrue: [self < 10000000000000 ifTrue: [13] ifFalse: [14]] - ifFalse: [self < 1000000000000000 ifTrue: [15] ifFalse: [16]]] - ifFalse: - [self < 1000000000000000000 - ifTrue: [self < 100000000000000000 ifTrue: [17] ifFalse: [18]] - ifFalse: [self < 10000000000000000000 ifTrue: [19] ifFalse: [20]]]]]]! Item was changed: ----- Method: SmallInteger>>numberOfDigitsInBase: (in category 'printing') ----- numberOfDigitsInBase: b "Return how many digits are necessary to print this number in base b. Mostly same as super but an optimized version for base 10 case" b = 10 ifFalse: [^super numberOfDigitsInBase: b]. + self < 0 ifTrue: [^self negated numberOfDigitsInBase: b]. "We can't use #decimalDigitLength here, because the receiver might be SmallInteger minVal." - self < 0 ifTrue: [^self negated numberOfDigitsInBase: b]. ^self decimalDigitLength!

1 0

Daily Commit Log
by commits＠source.squeak.org 19 Mar '16

19 Mar '16

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2016-March/009494.html Name: Chronology-Core-bf.4 Ancestors: Chronology-Core-cmm.3 Make "DateAndTime now" respect its localOffset - it will be the same UTC time but different local time. Make "Time now" respect that same offset. Make "Time millisecondClockValue" use the UTC clock. Do not use posix time primitive anymore. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-March/009495.html Name: Chronology-Core-bf.5 Ancestors: Chronology-Core-bf.4 Re-enable the automaticTimezone preference when restoring the (previously saved) LT timezone. =============================================

1 0

Re: [squeak-dev] Status of date problem
by Max Leske 19 Mar '16

19 Mar '16

Thanks Bert, I’ll check but I’m pretty sure I am. I’ll take a look at the test cases in question too to make sure its not the tests. > On 13 Mar 2016, at 23:24, squeak-dev-request(a)lists.squeakfoundation.org wrote: > > Are you using the latest trunk image? It should be fixed. > > - Bert - > > >> On 12.03.2016, at 09:45, Max Leske <maxleske(a)gmail.com <mailto:maxleske@gmail.com>> wrote: >> >> Hi, >> >> The Fuel builds for trunk are still failing because our tests with dates and timezones fail due to the recently diagnosed problem with date and time in the image (the topic was “trunk thinks it’s tomorrow”). >> >> I haven’t seen any activity on that front in the last couple of days. What is the status? When can I expect this to be fixed? Or was it already fixed? >> >> Cheers, >> Max

5 19

Re: [squeak-dev] Status of date problem
by Max Leske 19 Mar '16

19 Mar '16

> On 19 Mar 2016, at 08:49, squeak-dev-request(a)lists.squeakfoundation.org wrote: > > I just fixed this one. By setting the time zone (localOffset) now the local time appears to jump. UTC is continuous, as it should be. > > A side effect is that the clock in our tool bar now shows that adjusted local time. > > To ensure the millisecondClock is continuous, it now follows UTC. > > All tests are still green so I hope it’s good. > > And Max’s tests might work again, too, without manual preference fiddling. Yes, that fixes my problem. I still needed to make a small adaptation to reset the value of #automaticTimezone to the value used before the tests but that’s no issue. Thanks for the fix. Great response time :) Cheers, Max > >> Do you know whether this bug affects any API besides #now? > > I think the comments in DateAndTime>>offset: and utcOffset: could use updating. They both claim to return an “equivalent” but they’re not: > > x := DateAndTime now. > x = (x offset: 0) > ==> false > > x = (x utcOffset: 0) > ==> true > > Since “utcOffset:" appears to do the right thing I’d actually prefer it to the “nowAtOffset:” you just introduced. E.g. to get the current time in LA you could simply use > > DateAndTime now utcOffset: -7 hours > > No need for a new message. Arguably this is what “offset:” should do, and it would if the implementation was utc-based (as is David’s) rather than local-time based. > > - Bert -

2 3

The Trunk: Chronology-Core-bf.5.mcz
by commits＠source.squeak.org 19 Mar '16

19 Mar '16

Bert Freudenberg uploaded a new version of Chronology-Core to project The Trunk: http://source.squeak.org/trunk/Chronology-Core-bf.5.mcz ==================== Summary ==================== Name: Chronology-Core-bf.5 Author: bf Time: 19 March 2016, 4:19:17.403839 pm UUID: 00a9ac14-9291-42a5-be53-027008c4aef1 Ancestors: Chronology-Core-bf.4 Re-enable the automaticTimezone preference when restoring the (previously saved) LT timezone. =============== Diff against Chronology-Core-bf.4 =============== Item was changed: ----- Method: DateAndTime class>>localOffset: (in category 'squeak protocol') ----- localOffset: aDuration + "Override the local time zone (for testing). This disables the #automaticTimezone: preference" + self localTimeZone: (TimeZone offset: aDuration name: 'Local Time (override)' abbreviation: 'LTO'). - "Set the duration we are offset from UTC (done automatically in #now)" - self localTimeZone: (TimeZone offset: aDuration name: 'Local Time' abbreviation: 'LT'). ! Item was changed: ----- Method: DateAndTime class>>localTimeZone: (in category 'accessing') ----- localTimeZone: aTimeZone "Set the local time zone" " DateAndTime localTimeZone: (TimeZone offset: 0 hours name: 'Universal Time' abbreviation: 'UTC'). DateAndTime localTimeZone: (TimeZone offset: -8 hours name: 'Pacific Standard Time' abbreviation: 'PST'). " LocalTimeZone := aTimeZone. + self automaticTimezone: (aTimeZone abbreviation = 'LT')! - self automaticTimezone: false! Item was changed: ----- Method: DateAndTime class>>startUp: (in category 'system startup') ----- startUp: startingAfresh "Set local timezone" + startingAfresh & self automaticTimezone ifTrue: [self now]. - startingAfresh ifTrue: [self now]. !

1 0

Re: [squeak-dev] The Trunk: Chronology-Core-bf.4.mcz
by Chris Muller 19 Mar '16

19 Mar '16

Could you please tell us if this is going to affect applications with existing DateAndTime instances? On Fri, Mar 18, 2016 at 6:10 PM, <commits(a)source.squeak.org> wrote: > Bert Freudenberg uploaded a new version of Chronology-Core to project The Trunk: > http://source.squeak.org/trunk/Chronology-Core-bf.4.mcz > > ==================== Summary ==================== > > Name: Chronology-Core-bf.4 > Author: bf > Time: 19 March 2016, 12:01:52.725349 am > UUID: 31207206-eb6a-4f21-9e6b-dfce49f3b8a2 > Ancestors: Chronology-Core-cmm.3 > > Make "DateAndTime now" respect its localOffset - it will be the same UTC time but different local time. Make "Time now" respect that same offset. Make "Time millisecondClockValue" use the UTC clock. Do not use posix time primitive anymore. > > =============== Diff against Chronology-Core-cmm.3 =============== > > Item was changed: > ----- Method: DateAndTime class>>automaticTimezone: (in category 'preferences') ----- > automaticTimezone: aBoolean > + "Accessor for the system-wide preference. > + Note this gets disabled in localTimeZone: to make that override stick" > - "Accessor for the system-wide preference" > > + AutomaticTimezone := aBoolean. > + aBoolean ifTrue: [self now]. "fetch timezone immediately"! > - AutomaticTimezone := aBoolean! > > Item was changed: > ----- Method: DateAndTime class>>now (in category 'ansi protocol') ----- > now > + | clockAndOffset localSeconds | > + clockAndOffset := self clock utcMicrosecondClockWithOffset. > + localSeconds := self localOffset asSeconds. > + (self automaticTimezone and: [localSeconds ~= clockAndOffset second]) > + ifTrue: [self setLocalOffsetAutomatically: (Duration seconds: (localSeconds := clockAndOffset second))]. > + ^self now: clockAndOffset first + (localSeconds * 1000000) offset: self localOffset! > - | clockAndOffset | > - clockAndOffset := self clock localMicrosecondClockWithOffset. > - (self automaticTimezone and: > - [self localOffset asSeconds ~= clockAndOffset second]) > - ifTrue: [self setLocalTimeZoneAutomatically: (Duration seconds: clockAndOffset second)]. > - ^self now: clockAndOffset first offset: self localOffset! > > Item was added: > + ----- Method: DateAndTime class>>setLocalOffsetAutomatically: (in category 'squeak protocol') ----- > + setLocalOffsetAutomatically: aDuration > + "Set the duration we are offset from UTC (done automatically in #now)" > + LocalTimeZone := (TimeZone offset: aDuration name: 'Local Time' abbreviation: 'LT'). > + ! > > Item was removed: > - ----- Method: DateAndTime class>>setLocalTimeZoneAutomatically: (in category 'squeak protocol') ----- > - setLocalTimeZoneAutomatically: aDuration > - "Set the duration we are offset from UTC (done automatically in #now)" > - LocalTimeZone := (TimeZone offset: aDuration name: 'Local Time' abbreviation: 'LT'). > - ! > > Item was changed: > ----- Method: Time class>>localMicrosecondClock (in category 'clock') ----- > localMicrosecondClock > "Answer the local microseconds since the Smalltalk epoch (January 1st 1901, the start of the 20th century). > + The value is derived from the current UTC wallclock time and the image's current notion of time zone." > + ^self utcMicrosecondClock + (DateAndTime localOffset asSeconds * 1000000)! > - 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>>localMicrosecondClockPrimitive (in category 'clock') ----- > + localMicrosecondClockPrimitive > + "Answer the local microseconds since the Smalltalk epoch (January 1st 1901, the start of the 20th century). > + 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 removed: > - ----- Method: Time class>>localMicrosecondClockWithOffset (in category 'clock') ----- > - localMicrosecondClockWithOffset > - "Answer an array with local microseconds since the Smalltalk epoch and the > - current seconds offset from GMT in the local time zone." > - > - | result | > - result := self primPosixMicrosecondClockWithOffset. > - "DateAndTime unixEpoch asSeconds" > - result at: 1 put: result first + ((2177452800 + result second) * 1000000). > - ^result! > > Item was changed: > ----- Method: Time class>>millisecondClockValue (in category 'general inquiries') ----- > millisecondClockValue > "Answer the value of the millisecond clock." > > + ^self utcMicrosecondClock // 1000! > - ^self localMicrosecondClock // 1000! > > Item was added: > + ----- Method: Time class>>utcMicrosecondClockWithOffset (in category 'clock') ----- > + utcMicrosecondClockWithOffset > + "Answer an array with UTC microseconds since the Smalltalk epoch and the > + current seconds offset from UTC in the local time zone." > + | offset utc | > + utc := self utcMicrosecondClock. > + offset := (self localMicrosecondClockPrimitive - utc) // 1000000. > + ^{utc. offset}! > >

2 1

Re: [squeak-dev] The Trunk: Collections-ul.679.mcz
by Nicolas Cellier 19 Mar '16

19 Mar '16

2016-03-08 21:06 GMT+01:00 <commits(a)source.squeak.org>: > Levente Uzonyi uploaded a new version of Collections to project The Trunk: > http://source.squeak.org/trunk/Collections-ul.679.mcz > > ==================== Summary ==================== > > Name: Collections-ul.679 > Author: ul > Time: 8 March 2016, 5:24:30.010047 pm > UUID: 9f4b6193-4632-48c7-a99f-ee37923bf28b > Ancestors: Collections-eem.678 > > #occurrencesOf: revamp: > - optimized Bag's implementation > - added optimized versions to ArrayedCollection, String and ByteArray > > =============== Diff against Collections-eem.678 =============== > > Item was added: > + ----- Method: ArrayedCollection>>occurrencesOf: (in category 'testing') > ----- > + occurrencesOf: anObject > + "Answer how many of the receiver's elements are equal to anObject. > Optimized version." > + > + | tally | > + tally := 0. > + 1 to: self size do: [ :index | > + (self at: index) = anObject ifTrue: [ tally := tally + 1 ] > ]. > + ^tally! > > Item was changed: > ----- Method: Bag>>occurrencesOf: (in category 'testing') ----- > + occurrencesOf: anObject > + "Answer how many of the receiver's elements are equal to anObject. > Optimized version." > - occurrencesOf: anObject > - "Refer to the comment in Collection|occurrencesOf:." > > + ^contents at: anObject ifAbsent: 0! > - (self includes: anObject) > - ifTrue: [^contents at: anObject] > - ifFalse: [^0]! > > Item was added: > + ----- Method: ByteArray>>occurrencesOf: (in category 'as yet > unclassified') ----- > + occurrencesOf: anObject > + "Answer how many of the receiver's elements are equal to anObject. > Optimized version." > + > + | tally | > + anObject isInteger ifFalse: [ ^0 ]. > + anObject negative ifTrue: [ ^0 ]. > + anObject > 255 ifTrue: [ ^0 ]. > + tally := 0. > + 1 to: self size do: [ :index | > + (self at: index) = anObject ifTrue: [ tally := tally + 1 ] > ]. > + ^tally! > > Item was added: > + ----- Method: String>>occurrencesOf: (in category 'testing') ----- > + occurrencesOf: anObject > + "Answer how many of the receiver's elements are equal to anObject. > Optimized version." > + > + | tally | > + anObject isCharacter ifFalse: [ ^0 ]. > + tally := 0. > + 1 to: self size do: [ :index | > + (self at: index) == anObject ifTrue: [ tally := tally + 1 > ] ]. > + ^tally! > it could have been + anObject isCharacter ifFalse: [ ^0 ]. + ^super occurrencesOf: anObject and/or in ByteString + anObject isCharacter ifFalse: [ ^0 ]. + anObject asInteger < 255 ifFalse: [ ^0 ]. snip...

3 4

The Trunk: Chronology-Core-bf.4.mcz
by commits＠source.squeak.org 19 Mar '16

19 Mar '16

Bert Freudenberg uploaded a new version of Chronology-Core to project The Trunk: http://source.squeak.org/trunk/Chronology-Core-bf.4.mcz ==================== Summary ==================== Name: Chronology-Core-bf.4 Author: bf Time: 19 March 2016, 12:01:52.725349 am UUID: 31207206-eb6a-4f21-9e6b-dfce49f3b8a2 Ancestors: Chronology-Core-cmm.3 Make "DateAndTime now" respect its localOffset - it will be the same UTC time but different local time. Make "Time now" respect that same offset. Make "Time millisecondClockValue" use the UTC clock. Do not use posix time primitive anymore. =============== Diff against Chronology-Core-cmm.3 =============== Item was changed: ----- Method: DateAndTime class>>automaticTimezone: (in category 'preferences') ----- automaticTimezone: aBoolean + "Accessor for the system-wide preference. + Note this gets disabled in localTimeZone: to make that override stick" - "Accessor for the system-wide preference" + AutomaticTimezone := aBoolean. + aBoolean ifTrue: [self now]. "fetch timezone immediately"! - AutomaticTimezone := aBoolean! Item was changed: ----- Method: DateAndTime class>>now (in category 'ansi protocol') ----- now + | clockAndOffset localSeconds | + clockAndOffset := self clock utcMicrosecondClockWithOffset. + localSeconds := self localOffset asSeconds. + (self automaticTimezone and: [localSeconds ~= clockAndOffset second]) + ifTrue: [self setLocalOffsetAutomatically: (Duration seconds: (localSeconds := clockAndOffset second))]. + ^self now: clockAndOffset first + (localSeconds * 1000000) offset: self localOffset! - | clockAndOffset | - clockAndOffset := self clock localMicrosecondClockWithOffset. - (self automaticTimezone and: - [self localOffset asSeconds ~= clockAndOffset second]) - ifTrue: [self setLocalTimeZoneAutomatically: (Duration seconds: clockAndOffset second)]. - ^self now: clockAndOffset first offset: self localOffset! Item was added: + ----- Method: DateAndTime class>>setLocalOffsetAutomatically: (in category 'squeak protocol') ----- + setLocalOffsetAutomatically: aDuration + "Set the duration we are offset from UTC (done automatically in #now)" + LocalTimeZone := (TimeZone offset: aDuration name: 'Local Time' abbreviation: 'LT'). + ! Item was removed: - ----- Method: DateAndTime class>>setLocalTimeZoneAutomatically: (in category 'squeak protocol') ----- - setLocalTimeZoneAutomatically: aDuration - "Set the duration we are offset from UTC (done automatically in #now)" - LocalTimeZone := (TimeZone offset: aDuration name: 'Local Time' abbreviation: 'LT'). - ! Item was changed: ----- Method: Time class>>localMicrosecondClock (in category 'clock') ----- localMicrosecondClock "Answer the local microseconds since the Smalltalk epoch (January 1st 1901, the start of the 20th century). + The value is derived from the current UTC wallclock time and the image's current notion of time zone." + ^self utcMicrosecondClock + (DateAndTime localOffset asSeconds * 1000000)! - 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>>localMicrosecondClockPrimitive (in category 'clock') ----- + localMicrosecondClockPrimitive + "Answer the local microseconds since the Smalltalk epoch (January 1st 1901, the start of the 20th century). + 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 removed: - ----- Method: Time class>>localMicrosecondClockWithOffset (in category 'clock') ----- - localMicrosecondClockWithOffset - "Answer an array with local microseconds since the Smalltalk epoch and the - current seconds offset from GMT in the local time zone." - - | result | - result := self primPosixMicrosecondClockWithOffset. - "DateAndTime unixEpoch asSeconds" - result at: 1 put: result first + ((2177452800 + result second) * 1000000). - ^result! Item was changed: ----- Method: Time class>>millisecondClockValue (in category 'general inquiries') ----- millisecondClockValue "Answer the value of the millisecond clock." + ^self utcMicrosecondClock // 1000! - ^self localMicrosecondClock // 1000! Item was added: + ----- Method: Time class>>utcMicrosecondClockWithOffset (in category 'clock') ----- + utcMicrosecondClockWithOffset + "Answer an array with UTC microseconds since the Smalltalk epoch and the + current seconds offset from UTC in the local time zone." + | offset utc | + utc := self utcMicrosecondClock. + offset := (self localMicrosecondClockPrimitive - utc) // 1000000. + ^{utc. offset}!

1 0

Daily Commit Log
by commits＠source.squeak.org 18 Mar '16

18 Mar '16

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2016-March/009493.html Name: Chronology-Core-cmm.3 Ancestors: Chronology-Core-cmm.2 - When the localTimeZone is explicitly updated by the user, ensure the system does not silently change it back if the user didn't remember to also turn off automaticTimeZone:. - Added DateAndTime class>>#nowAtOffset: to obtain the local time at other places than the localTimeZone. =============================================

1 0

The Trunk: Chronology-Core-cmm.3.mcz
by commits＠source.squeak.org 18 Mar '16

18 Mar '16

Chris Muller uploaded a new version of Chronology-Core to project The Trunk: http://source.squeak.org/trunk/Chronology-Core-cmm.3.mcz ==================== Summary ==================== Name: Chronology-Core-cmm.3 Author: cmm Time: 18 March 2016, 1:31:09.337847 pm UUID: 4e36f7ad-aa95-433a-bb7f-198798b81942 Ancestors: Chronology-Core-cmm.2 - When the localTimeZone is explicitly updated by the user, ensure the system does not silently change it back if the user didn't remember to also turn off automaticTimeZone:. - Added DateAndTime class>>#nowAtOffset: to obtain the local time at other places than the localTimeZone. =============== Diff against Chronology-Core-cmm.2 =============== Item was changed: ----- Method: DateAndTime class>>localTimeZone: (in category 'accessing') ----- localTimeZone: aTimeZone "Set the local time zone" - " DateAndTime localTimeZone: (TimeZone offset: 0 hours name: 'Universal Time' abbreviation: 'UTC'). DateAndTime localTimeZone: (TimeZone offset: -8 hours name: 'Pacific Standard Time' abbreviation: 'PST'). " + LocalTimeZone := aTimeZone. + self automaticTimezone: false! - - LocalTimeZone := aTimeZone - - - ! Item was changed: ----- Method: DateAndTime class>>now (in category 'ansi protocol') ----- now | clockAndOffset | clockAndOffset := self clock localMicrosecondClockWithOffset. (self automaticTimezone and: [self localOffset asSeconds ~= clockAndOffset second]) + ifTrue: [self setLocalTimeZoneAutomatically: (Duration seconds: clockAndOffset second)]. - ifTrue: [self localOffset: (Duration seconds: clockAndOffset second)]. ^self now: clockAndOffset first offset: self localOffset! Item was added: + ----- Method: DateAndTime class>>nowAtOffset: (in category 'squeak protocol') ----- + nowAtOffset: offsetDuration + "Answers the local time at places with the specified offsetDuration timezone." + "local time Chicago (CST)" + "DateAndTime nowAtOffset: -6 hours" + ^ self now + (offsetDuration - self localOffset) offset: offsetDuration! Item was added: + ----- Method: DateAndTime class>>setLocalTimeZoneAutomatically: (in category 'squeak protocol') ----- + setLocalTimeZoneAutomatically: aDuration + "Set the duration we are offset from UTC (done automatically in #now)" + LocalTimeZone := (TimeZone offset: aDuration name: 'Local Time' abbreviation: 'LT'). + !

1 0

← Newer
1
...
5
6
7
8
9
10
11
...
15
Older →

Jump to page: