Packages February 2016

packages@lists.squeakfoundation.org

2 participants
362 discussions

The Trunk: Kernel-bf.998.mcz
by commits＠source.squeak.org 19 Feb '16

19 Feb '16

Bert Freudenberg uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-bf.998.mcz ==================== Summary ==================== Name: Kernel-bf.998 Author: bf Time: 18 February 2016, 4:34:20.797046 pm UUID: f7674529-7b17-4eb4-ba65-d4ac0d6e262f Ancestors: Kernel-bf.997 Fix underscore assignments =============== Diff against Kernel-bf.997 =============== Item was changed: ----- Method: DateAndTime>>< (in category 'ansi protocol') ----- < comparand "comparand conforms to protocol DateAndTime, or can be converted into something that conforms." | lvalue rvalue comparandAsDateAndTime | comparandAsDateAndTime _ comparand asDateAndTime. self offset = comparandAsDateAndTime offset ifTrue: + [ lvalue := self. + rvalue := comparandAsDateAndTime ] - [ lvalue _ self. - rvalue _ comparandAsDateAndTime ] ifFalse: + [ lvalue := self asUTC. + rvalue := comparandAsDateAndTime asUTC ]. - [ lvalue _ self asUTC. - rvalue _ comparandAsDateAndTime asUTC ]. ^ lvalue julianDayNumber < rvalue julianDayNumber or: [ lvalue julianDayNumber > rvalue julianDayNumber ifTrue: [ false ] ifFalse: [ lvalue secondsSinceMidnight < rvalue secondsSinceMidnight or: [ lvalue secondsSinceMidnight > rvalue secondsSinceMidnight ifTrue: [ false ] ifFalse: [ lvalue nanoSecond < rvalue nanoSecond ] ] ] ]! Item was changed: ----- Method: DateAndTime>>hash (in category 'ansi protocol') ----- hash | totalSeconds | + totalSeconds := seconds - self offset asSeconds. - totalSeconds _ seconds - self offset asSeconds. ^ ((totalSeconds // 86400 + jdn) hashMultiply bitXor: totalSeconds \\ 86400) bitXor: nanos! Item was changed: ----- Method: DateAndTime>>printOn:withLeadingSpace: (in category 'squeak protocol') ----- printOn: aStream withLeadingSpace: printLeadingSpaceToo "Print as per ISO 8601 sections 5.3.3 and 5.4.1. If printLeadingSpaceToo is false, prints either: 'YYYY-MM-DDThh:mm:ss.s+ZZ:zz:z' (for positive years) or '-YYYY-MM-DDThh:mm:ss.s+ZZ:zz:z' (for negative years) If printLeadingSpaceToo is true, prints either: ' YYYY-MM-DDThh:mm:ss.s+ZZ:zz:z' (for positive years) or '-YYYY-MM-DDThh:mm:ss.s+ZZ:zz:z' (for negative years) " self printYMDOn: aStream withLeadingSpace: printLeadingSpaceToo. aStream nextPut: $T. self printHMSOn: aStream. self nanoSecond ~= 0 ifTrue: [ | z ps | + ps := self nanoSecond printString padded: #left to: 9 with: $0. + z := ps findLast: [ :c | c asciiValue > $0 asciiValue ]. - ps _ self nanoSecond printString padded: #left to: 9 with: $0. - z _ ps findLast: [ :c | c asciiValue > $0 asciiValue ]. (z > 0) ifTrue: [aStream nextPut: $.]. ps from: 1 to: z do: [ :c | aStream nextPut: c ] ]. aStream nextPut: (self offset positive ifTrue: [$+] ifFalse: [$-]); nextPutAll: (self offset hours abs asString padded: #left to: 2 with: $0); nextPut: $:; nextPutAll: (self offset minutes abs asString padded: #left to: 2 with: $0). self offset seconds = 0 ifFalse: [ aStream nextPut: $:; nextPutAll: (self offset seconds abs truncated asString) ]. !

1 0

The Trunk: Kernel-bf.998.mcz
by commits＠source.squeak.org 19 Feb '16

19 Feb '16

1 0

The Trunk: Kernel-bf.997.mcz
by commits＠source.squeak.org 19 Feb '16

19 Feb '16

Bert Freudenberg uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-bf.997.mcz ==================== Summary ==================== Name: Kernel-bf.997 Author: bf Time: 18 February 2016, 4:27:40.07581 pm UUID: 90f6486d-dd3a-4d00-847a-67eda6da3d44 Ancestors: Kernel-bf.996 Make testRematerializedDateComparison pass. =============== Diff against Kernel-bf.996 =============== Item was changed: Magnitude subclass: #DateAndTime instanceVariableNames: 'seconds offset jdn nanos' classVariableNames: 'AutomaticTimezone ClockProvider LastClockValue LocalTimeZone NanoOffset' poolDictionaries: 'ChronologyConstants' category: 'Kernel-Chronology'! + !DateAndTime commentStamp: 'bf 2/18/2016 16:20' prior: 0! - !DateAndTime commentStamp: 'brp 5/13/2003 08:07' prior: 0! I represent a point in UTC time as defined by ISO 8601. I have zero duration. My implementation uses three SmallIntegers and a Duration: jdn - julian day number. seconds - number of seconds since midnight. nanos - the number of nanoseconds since the second. + offset - duration from UTC (possibly nil if no timezone information) - offset - duration from UTC. The nanosecond attribute is almost always zero but it defined for full ISO compliance and is suitable for timestamping. ! Item was changed: ----- Method: DateAndTime>>< (in category 'ansi protocol') ----- < comparand "comparand conforms to protocol DateAndTime, or can be converted into something that conforms." | lvalue rvalue comparandAsDateAndTime | + comparandAsDateAndTime _ comparand asDateAndTime. + self offset = comparandAsDateAndTime offset - comparandAsDateAndTime := comparand asDateAndTime. - offset = comparandAsDateAndTime offset ifTrue: + [ lvalue _ self. + rvalue _ comparandAsDateAndTime ] - [ lvalue := self. - rvalue := comparandAsDateAndTime ] ifFalse: + [ lvalue _ self asUTC. + rvalue _ comparandAsDateAndTime asUTC ]. - [ lvalue := self asUTC. - rvalue := comparandAsDateAndTime asUTC ]. ^ lvalue julianDayNumber < rvalue julianDayNumber or: [ lvalue julianDayNumber > rvalue julianDayNumber ifTrue: [ false ] ifFalse: [ lvalue secondsSinceMidnight < rvalue secondsSinceMidnight or: [ lvalue secondsSinceMidnight > rvalue secondsSinceMidnight ifTrue: [ false ] ifFalse: [ lvalue nanoSecond < rvalue nanoSecond ] ] ] ]! Item was changed: ----- Method: DateAndTime>>asUTC (in category 'ansi protocol') ----- asUTC + ^ self offset isZero - ^ offset isZero ifTrue: [self] ifFalse: [self utcOffset: 0] ! Item was changed: ----- Method: DateAndTime>>hash (in category 'ansi protocol') ----- hash | totalSeconds | + totalSeconds _ seconds - self offset asSeconds. - totalSeconds := seconds - offset asSeconds. ^ ((totalSeconds // 86400 + jdn) hashMultiply bitXor: totalSeconds \\ 86400) bitXor: nanos! Item was removed: - ----- Method: DateAndTime>>ignoreTimezone (in category 'private') ----- - ignoreTimezone - "For polymorphism with Timespan" - ^false! Item was added: + ----- Method: DateAndTime>>noTimezone (in category 'private') ----- + noTimezone + ^offset == nil! Item was changed: ----- Method: DateAndTime>>offset (in category 'ansi protocol') ----- offset + ^ offset ifNil: [Duration zero]! - ^ offset! Item was changed: ----- Method: DateAndTime>>offset: (in category 'ansi protocol') ----- offset: anOffset "Answer a <DateAndTime> equivalent to the receiver but with its local time being offset from UTC by offset." ^ self class basicNew + ticks: self ticks offset: (anOffset ifNotNil: [anOffset asDuration]); - ticks: self ticks offset: anOffset asDuration; yourself! Item was changed: ----- Method: DateAndTime>>printOn:withLeadingSpace: (in category 'squeak protocol') ----- printOn: aStream withLeadingSpace: printLeadingSpaceToo "Print as per ISO 8601 sections 5.3.3 and 5.4.1. If printLeadingSpaceToo is false, prints either: 'YYYY-MM-DDThh:mm:ss.s+ZZ:zz:z' (for positive years) or '-YYYY-MM-DDThh:mm:ss.s+ZZ:zz:z' (for negative years) If printLeadingSpaceToo is true, prints either: ' YYYY-MM-DDThh:mm:ss.s+ZZ:zz:z' (for positive years) or '-YYYY-MM-DDThh:mm:ss.s+ZZ:zz:z' (for negative years) " self printYMDOn: aStream withLeadingSpace: printLeadingSpaceToo. aStream nextPut: $T. self printHMSOn: aStream. self nanoSecond ~= 0 ifTrue: [ | z ps | + ps _ self nanoSecond printString padded: #left to: 9 with: $0. + z _ ps findLast: [ :c | c asciiValue > $0 asciiValue ]. - ps := self nanoSecond printString padded: #left to: 9 with: $0. - z := ps findLast: [ :c | c asciiValue > $0 asciiValue ]. (z > 0) ifTrue: [aStream nextPut: $.]. ps from: 1 to: z do: [ :c | aStream nextPut: c ] ]. aStream + nextPut: (self offset positive ifTrue: [$+] ifFalse: [$-]); + nextPutAll: (self offset hours abs asString padded: #left to: 2 with: $0); - nextPut: (offset positive ifTrue: [$+] ifFalse: [$-]); - nextPutAll: (offset hours abs asString padded: #left to: 2 with: $0); nextPut: $:; + nextPutAll: (self offset minutes abs asString padded: #left to: 2 with: $0). + self offset seconds = 0 ifFalse: - nextPutAll: (offset minutes abs asString padded: #left to: 2 with: $0). - offset seconds = 0 ifFalse: [ aStream nextPut: $:; + nextPutAll: (self offset seconds abs truncated asString) ]. - nextPutAll: (offset seconds abs truncated asString) ]. ! Item was changed: ----- Method: Timespan class>>defaultOffset (in category 'configuring') ----- defaultOffset + "Timespans created in the context of an offset will start in that offset. When no context is available, the defaultOffset for Timespans must be nil. For example, two ways to make a Date for today: + Date today. 'start is midnight without offset. Will compare successfully to other Date today results.' + DateAndTime now asDate. 'In this case, the start is midnight of the local time-zone. It can only compare equally to Dates of its time-zone or Dates without timezone.'" + ^ nil! - "Timespans created in the context of an offset will start in that offset. When no context is available, the defaultOffset for Timespans must be zero. For example, two ways to make a Date for today: - Date today. 'start is midnight at offset zero. Will compare successfully to other Date today results.' - DateAndTime now asDate. 'In this case, the start is midnight of the local time-zone. It can only compare equally to Dates of its time-zone.'" - ^ Duration zero! Item was changed: ----- Method: Timespan>>< (in category 'ansi protocol') ----- < comparand + ^(self noTimezone or: [comparand noTimezone]) - ^(self ignoreTimezone or: [comparand ignoreTimezone]) ifTrue: [self start hasSmallerTicksThan: comparand asDateAndTime] ifFalse: [self start < comparand asDateAndTime] ! Item was changed: ----- Method: Timespan>>= (in category 'ansi protocol') ----- = comparand ^ self class = comparand class + and: [((self noTimezone or: [ comparand noTimezone ]) - and: [((self ignoreTimezone or: [ comparand ignoreTimezone ]) ifTrue: [ self start hasEqualTicks: comparand start ] ifFalse: [ self start = comparand start ]) and: [ self duration = comparand duration ] ] .! Item was removed: - ----- Method: Timespan>>ignoreTimezone (in category 'private') ----- - ignoreTimezone - ^ start offset == self class defaultOffset! Item was added: + ----- Method: Timespan>>noTimezone (in category 'private') ----- + noTimezone + ^ start noTimezone!

1 0

The Trunk: Kernel-bf.997.mcz
by commits＠source.squeak.org 19 Feb '16

19 Feb '16

1 0

The Trunk: Kernel-bf.996.mcz
by commits＠source.squeak.org 19 Feb '16

19 Feb '16

Bert Freudenberg uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-bf.996.mcz ==================== Summary ==================== Name: Kernel-bf.996 Author: bf Time: 18 February 2016, 3:57:42.016305 pm UUID: 0ff27acd-a99f-4705-a40d-c2eb6c1597fe Ancestors: Kernel-bf.995 Typo. =============== Diff against Kernel-bf.995 =============== Item was changed: ----- Method: DateAndTime>>hasSmallerTicksThan: (in category 'private') ----- hasSmallerTicksThan: aDateAndTime ^ jdn < aDateAndTime julianDayNumber or: [ jdn > aDateAndTime julianDayNumber ifTrue: [ false ] ifFalse: [ seconds < aDateAndTime secondsSinceMidnight or: [ seconds > aDateAndTime secondsSinceMidnight ifTrue: [ false ] + ifFalse: [ nanos < aDateAndTime nanoSecond ] ] ] ]! - ifFalse: [ nanoSeconds < aDateAndTime nanoSecond ] ] ] ]!

1 0

The Trunk: Kernel-bf.996.mcz
by commits＠source.squeak.org 19 Feb '16

19 Feb '16

1 0

The Trunk: KernelTests-cmm.304.mcz
by commits＠source.squeak.org 19 Feb '16

19 Feb '16

Chris Muller uploaded a new version of KernelTests to project The Trunk: http://source.squeak.org/trunk/KernelTests-cmm.304.mcz ==================== Summary ==================== Name: KernelTests-cmm.304 Author: cmm Time: 18 February 2016, 5:36:19.810806 pm UUID: ce91fa74-e629-4983-a472-f11672aa0183 Ancestors: KernelTests-eem.303 Expose nightmare bug just introduced by recent Chronology changes. =============== Diff against KernelTests-eem.303 =============== Item was added: + ----- Method: TimespanTest>>testRematerializedDateComparison (in category 'testing') ----- + testRematerializedDateComparison + "Tests whether comparison semantics are affected by serialization / rematerialization." + | isItTrue date refStream rwstream | date := Date today. + isItTrue := DateAndTime now asDate = date. + self assert: (date = DateAndTime now asDate) = isItTrue. + self assert: (DateAndTime now asDate = date) = isItTrue. + rwstream := RWBinaryOrTextStream on: ByteArray new. + refStream := ReferenceStream on: rwstream.. + refStream nextPut: date; close. + rwstream position: 0. + refStream := ReferenceStream on: rwstream. + date := refStream next. + refStream close. + self assert: (date = DateAndTime now asDate) = isItTrue. + self assert: (DateAndTime now asDate = date) = isItTrue. + !

1 0

The Trunk: KernelTests-cmm.304.mcz
by commits＠source.squeak.org 19 Feb '16

19 Feb '16

1 0

The Trunk: Kernel-bf.995.mcz
by commits＠source.squeak.org 19 Feb '16

19 Feb '16

Bert Freudenberg uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-bf.995.mcz ==================== Summary ==================== Name: Kernel-bf.995 Author: bf Time: 18 February 2016, 3:16:12.729637 pm UUID: d871efd5-be20-4ad9-9a1d-c1b24dce73b5 Ancestors: Kernel-bf.994 Add preference to disable automatic timezone adjustment. =============== Diff against Kernel-bf.994 =============== Item was changed: Magnitude subclass: #DateAndTime instanceVariableNames: 'seconds offset jdn nanos' + classVariableNames: 'AutomaticTimezone ClockProvider LastClockValue LocalTimeZone NanoOffset' - classVariableNames: 'ClockProvider LastClockValue LocalTimeZone NanoOffset' poolDictionaries: 'ChronologyConstants' category: 'Kernel-Chronology'! !DateAndTime commentStamp: 'brp 5/13/2003 08:07' prior: 0! I represent a point in UTC time as defined by ISO 8601. I have zero duration. My implementation uses three SmallIntegers and a Duration: jdn - julian day number. seconds - number of seconds since midnight. nanos - the number of nanoseconds since the second. offset - duration from UTC. The nanosecond attribute is almost always zero but it defined for full ISO compliance and is suitable for timestamping. ! Item was added: + ----- Method: DateAndTime class>>automaticTimezone (in category 'preferences') ----- + automaticTimezone + "Accessor for the system-wide preference" + + <preference: 'Automatically set local timezone' + category: 'general' + description: 'If enabled, the timezone will automatically be kept in sync with the system''s time (daylight savings changes etc.)' + type: #Boolean> + ^AutomaticTimezone ifNil: [ true ]! Item was added: + ----- Method: DateAndTime class>>automaticTimezone: (in category 'preferences') ----- + automaticTimezone: aBoolean + "Accessor for the system-wide preference" + + AutomaticTimezone := aBoolean! 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 localOffset: (Duration seconds: clockAndOffset second)]. - self localOffset asSeconds ~= clockAndOffset second ifTrue: [ - self localOffset: (Duration seconds: clockAndOffset second)]. ^self now: clockAndOffset first offset: self localOffset!

1 0

The Trunk: Kernel-bf.995.mcz
by commits＠source.squeak.org 19 Feb '16

19 Feb '16

1 0

← Newer
1
2
3
4
5
6
7
8
9
...
37
Older →

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages February 2016