---------- Forwarded message ----------
From: <commits@source.squeak.org>
Date: 2009/10/15
Subject: [squeak-dev] The Trunk: Kernel-ar.271.mcz
To: squeak-dev@lists.squeakfoundation.org

Andreas Raab uploaded a new version of Kernel to project The Trunk:
http://source.squeak.org/trunk/Kernel-ar.271.mcz

==================== Summary ====================

Name: Kernel-ar.271
Author: ar
Time: 14 October 2009, 8:49:48 am
UUID: a603d2fe-dccf-894f-95db-ef577480b03c
Ancestors: Kernel-nice.270, Kernel-ul.270

Merging Kernel-ul.270:

- faster DateAndTime and Date creation with #year:month:day: and friends
- minor formatting fixes

=============== Diff against Kernel-nice.270 ===============

Item was changed:
��----- Method: DateAndTime>>midnight (in category 'squeak protocol') -----
��midnight
�� "Answer a DateAndTime starting at midnight local time"

+ �� ^self class basicNew
+ �� setJdn: jdn
+ �� seconds: 0
+ �� nano: 0
+ �� offset: self class localOffset
- �� ^ self
- �� dayMonthYearDo: [ :d :m :y | self class year: y month: m day: d ]
��!

Item was changed:
��----- Method: DateAndTime class>>year:month:day:hour:minute: (in category 'squeak protocol') -----
��year: year month: month day: day hour: hour minute: minute
+ �� "Return a DateAndTime"

+ �� ^self
- �� "Return a DateAndTime" ��^ self
�� year: year
�� month: month
�� day: day
�� hour: hour
�� minute: minute
�� second: 0
��!

Item was changed:
��----- Method: DateAndTime class>>year:month:day:hour:minute:second:nanoSecond:offset: (in category 'squeak protocol') -----
��year: year month: month day: day hour: hour minute: minute second: second nanoSecond: nanoCount offset: offset
�� "Return a DateAndTime"

+ �� | monthIndex daysInMonth p q r s julianDayNumber |
- �� | monthIndex daysInMonth p q r s julianDayNumber since |

�� monthIndex := month isInteger ifTrue: [month] ifFalse: [Month indexOfMonth: month].
�� daysInMonth := Month
�� daysInMonth: monthIndex
�� forYear: year.
�� day < 1 ifTrue: [self error: 'day may not be zero or negative'].
�� day > daysInMonth ifTrue: [self error: 'day is after month ends'].

�� p := (monthIndex - 14) quo: 12.
�� q := year + 4800 + p.
�� r := monthIndex - 2 - (12 * p).
�� s := (year + 4900 + p) quo: 100.

�� julianDayNumber :=
�� ( (1461 * q) quo: 4 ) +
�� ( (367 * r) quo: 12 ) -
�� ( (3 * s) quo: 4 ) +
�� ( day - 32075 ).

+ �� ^self basicNew
+ �� setJdn: julianDayNumber
+ �� seconds: hour * 60 + minute * 60 + second
+ �� nano: nanoCount
+ �� offset: offset;
- �� since := Duration days: julianDayNumber hours: hour
- �� minutes: minute seconds: second nanoSeconds: nanoCount.
-
- �� ^ self basicNew
- �� ticks: since ticks offset: offset;
�� yourself!

Item was changed:
��----- Method: DateAndTime class>>year:month:day: (in category 'squeak protocol') -----
��year: year month: month day: day
+ �� "Return a DateAndTime, midnight local time"
+
+ �� ^self
- �� "Return a DateAndTime, midnight local time" �� ^ self
�� year: year
�� month: month
�� day: day
�� hour: 0
�� minute: 0
��!