Packages February 2016

packages@lists.squeakfoundation.org

2 participants
362 discussions

The Trunk: Chronology-Core-dtl.2.mcz
by commits＠source.squeak.org 29 Feb '16

29 Feb '16

David T. Lewis uploaded a new version of Chronology-Core to project The Trunk: http://source.squeak.org/trunk/Chronology-Core-dtl.2.mcz ==================== Summary ==================== Name: Chronology-Core-dtl.2 Author: dtl Time: 28 February 2016, 8:24:12.86775 pm UUID: 0dc832c9-bf4c-4559-a705-c19f44392089 Ancestors: Chronology-Core-dtl.1, Kernel-tfel.1001 Re-save Chronology-Core-dtl.1 with Kernel-tfel.1001 added to ancestry to preserve version history from Kernel package. =============== Diff against Chronology-Core-dtl.1 ===============

1 0

The Trunk: Chronology-Core-dtl.2.mcz
by commits＠source.squeak.org 29 Feb '16

29 Feb '16

1 0

The Trunk: Chronology-Tests-dtl.2.mcz
by commits＠source.squeak.org 29 Feb '16

29 Feb '16

David T. Lewis uploaded a new version of Chronology-Tests to project The Trunk: http://source.squeak.org/trunk/Chronology-Tests-dtl.2.mcz ==================== Summary ==================== Name: Chronology-Tests-dtl.2 Author: dtl Time: 28 February 2016, 8:35:52.174374 pm UUID: 18679fa3-2c25-4043-a7b1-d6dd8ef7dff6 Ancestors: Chronology-Tests-dtl.1, KernelTests-eem.305 Re-save Chronology-Tests-dtl.1 with KernelTests-eem.305 added to ancestry to preserve version history from Kernel package. =============== Diff against Chronology-Tests-dtl.1 ===============

1 0

The Trunk: Chronology-Tests-dtl.2.mcz
by commits＠source.squeak.org 29 Feb '16

29 Feb '16

1 0

The Trunk: Kernel-dtl.1002.mcz
by commits＠source.squeak.org 27 Feb '16

27 Feb '16

David T. Lewis uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-dtl.1002.mcz ==================== Summary ==================== Name: Kernel-dtl.1002 Author: dtl Time: 27 February 2016, 6:33:02.285448 pm UUID: fc05eaac-09a2-4c61-aa9e-b41aa7fad3f9 Ancestors: Kernel-tfel.1001 Move Kernel-Chronology to Chronology-Core and KernelTests-Chronology to Chronology-Tests =============== Diff against Kernel-tfel.1001 =============== Item was changed: - SystemOrganization addCategory: #'Kernel-Chronology'! SystemOrganization addCategory: #'Kernel-Classes'! SystemOrganization addCategory: #'Kernel-Exceptions'! SystemOrganization addCategory: #'Kernel-Exceptions-Kernel'! SystemOrganization addCategory: #'Kernel-Methods'! SystemOrganization addCategory: #'Kernel-Models'! SystemOrganization addCategory: #'Kernel-Numbers'! SystemOrganization addCategory: #'Kernel-Numbers-Exceptions'! SystemOrganization addCategory: #'Kernel-Objects'! SystemOrganization addCategory: #'Kernel-Pools'! SystemOrganization addCategory: #'Kernel-Processes'! SystemOrganization addCategory: #'Kernel-Processes-Variables'! Item was removed: - SharedPool subclass: #ChronologyConstants - instanceVariableNames: 'seconds offset jdn nanos' - classVariableNames: 'DayNames DaysInMonth MicrosecondsInDay MonthNames NanosInMillisecond NanosInSecond OneDay SecondsInDay SecondsInHour SecondsInMinute SqueakEpoch Zero' - poolDictionaries: '' - category: 'Kernel-Chronology'! - - !ChronologyConstants commentStamp: 'brp 3/12/2004 14:34' prior: 0! - ChronologyConstants is a SharedPool for the constants used by the Kernel-Chronology classes.! Item was removed: - ----- Method: ChronologyConstants class>>initialize (in category 'class initialization') ----- - initialize - "ChronologyConstants initialize" - - SqueakEpoch := 2415386. "Julian day number of 1 Jan 1901" - SecondsInDay := 86400. - SecondsInHour := 3600. - SecondsInMinute := 60. - MicrosecondsInDay := 24 * 60 * 60 * 1000000. - NanosInSecond := 10 raisedTo: 9. - NanosInMillisecond := 10 raisedTo: 6. - DayNames := #(Sunday Monday Tuesday Wednesday Thursday Friday Saturday). - - MonthNames := #( January February March April May June - July August September October November December). - DaysInMonth := #(31 28 31 30 31 30 31 31 30 31 30 31)! Item was removed: - Timespan subclass: #Date - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: 'ChronologyConstants' - category: 'Kernel-Chronology'! - - !Date commentStamp: 'cmm 2/3/2012 17:30' prior: 0! - Instances of Date are Timespans with duration of 1 day. - - Their default creation assumes a start of midnight of UTC to provide the fast, globalized Dates out of the box. The legacy behavior that creates Timezone-sensitive Dates can be used by sending #localizedDates. - ! Item was removed: - ----- Method: Date class>>dateAndTimeNow (in category 'smalltalk-80') ----- - dateAndTimeNow - "Answer an Array whose with Date today and Time now." - - ^ Time dateAndTimeNow - ! Item was removed: - ----- Method: Date class>>dayOfWeek: (in category 'smalltalk-80') ----- - dayOfWeek: dayName - - ^ Week indexOfDay: dayName! Item was removed: - ----- Method: Date class>>daysInMonth:forYear: (in category 'smalltalk-80') ----- - daysInMonth: monthName forYear: yearInteger - - ^ Month daysInMonth: monthName forYear: yearInteger. - ! Item was removed: - ----- Method: Date class>>daysInYear: (in category 'smalltalk-80') ----- - daysInYear: yearInteger - - ^ Year daysInYear: yearInteger.! Item was removed: - ----- Method: Date class>>easterDateFor: (in category 'general inquiries') ----- - easterDateFor: year - - " compute the easter date. - source: Physikalisch-Technische Bundesanstalt Braunschweig. - Lichtenberg, H.: Zur Interpretation der Gaussschen Osterformel - und ihrer Ausnahmeregeln, - Historia Mathematica 24 (1997), pp. 441-444 - - http://www.ptb.de/de/org/4/44/441/oste.htm - " - - | k m s a d r og sz oe day | - - k := year // 100. - m := 15 + (3*k + 3//4) - (8*k + 13//25). - s := 2 - (3*k + 3// 4). - a := year \\ 19. - d := 19*a + m \\ 30. - r := d//29 + ((d//28) - (d//29)* (a// 11)). - - og := 21 + d - r. - sz := 7 - (year//4 + year + s\\7). - oe := 7 - (og - sz\\7). - day := og + oe. - ^day <= 31 - ifTrue: [Date newDay: day month: 3 year: year ] - ifFalse: [Date newDay: day - 31 month: 4 year: year].! Item was removed: - ----- Method: Date class>>firstWeekdayOfMonth:year: (in category 'smalltalk-80') ----- - firstWeekdayOfMonth: month year: year - "Answer the weekday index of the first day in <month> in the <year>." - - ^ (self newDay: 1 month: month year: year) weekdayIndex - ! Item was removed: - ----- Method: Date class>>fromDays: (in category 'smalltalk-80') ----- - fromDays: dayCount - "Days since 1 January 1901" - - ^ self julianDayNumber: dayCount + SqueakEpoch! Item was removed: - ----- Method: Date class>>fromSeconds: (in category 'smalltalk-80') ----- - fromSeconds: seconds - "Answer an instance of me which is 'seconds' seconds after January 1, 1901." - - ^ self fromDays: ((Duration seconds: seconds) days) - ! Item was removed: - ----- Method: Date class>>fromString: (in category 'squeak protocol') ----- - fromString: aString - "Answer an instance of created from a string with format mm.dd.yyyy." - - ^ self readFrom: aString readStream.! Item was removed: - ----- Method: Date class>>indexOfMonth: (in category 'smalltalk-80') ----- - indexOfMonth: aMonthName - - ^ Month indexOfMonth: aMonthName. - ! Item was removed: - ----- Method: Date class>>julianDayNumber: (in category 'squeak protocol') ----- - julianDayNumber: aJulianDayNumber - ^ self starting: - (DateAndTime - julianDayNumber: aJulianDayNumber - offset: self defaultOffset)! Item was removed: - ----- Method: Date class>>leapYear: (in category 'smalltalk-80') ----- - leapYear: yearInteger - - ^ Year leapYear: yearInteger! Item was removed: - ----- Method: Date class>>nameOfDay: (in category 'smalltalk-80') ----- - nameOfDay: dayIndex - - ^ Week nameOfDay: dayIndex ! Item was removed: - ----- Method: Date class>>nameOfMonth: (in category 'smalltalk-80') ----- - nameOfMonth: anIndex - - ^ Month nameOfMonth: anIndex. - ! Item was removed: - ----- Method: Date class>>newDay:month:year: (in category 'smalltalk-80') ----- - newDay: day month: month year: year - - ^ self year: year month: month day: day - ! Item was removed: - ----- Method: Date class>>newDay:year: (in category 'smalltalk-80') ----- - newDay: dayCount year: yearInteger - - ^ self year: yearInteger day: dayCount! Item was removed: - ----- Method: Date class>>orthodoxEasterDateFor: (in category 'general inquiries') ----- - orthodoxEasterDateFor: year - - " compute the easter date according to the rules of the orthodox calendar. - source: - http://www.smart.net/~mmontes/ortheast.html - " - | r1 r2 r3 r4 ra rb r5 rc date | - - r1 := year \\ 19. - r2 := year \\ 4. - r3 := year \\ 7. - ra := 19*r1 + 16. - r4 := ra \\ 30. - rb := r2 + r2 + (4*r3) + (6*r4). - r5 := rb \\ 7. - rc := r4 + r5. - date := Date newDay: 3 month: 4 year: year. - ^date addDays: rc.! Item was removed: - ----- Method: Date class>>readFrom: (in category 'squeak protocol') ----- - readFrom: aStream - "Read a Date from the stream in any of the forms: - <day> <month> <year> (15 April 1982; 15-APR-82; 15.4.82; 15APR82) - <month> <day> <year> (April 15, 1982; 4/15/82) - <year>-<month>-<day> (1982-04-15) (ISO8601)" - | day month year parsedNumber prefix | - aStream peek = $- - ifTrue: [prefix := -1] - ifFalse: [prefix := 1]. - [aStream peek isAlphaNumeric] - whileFalse: [aStream skip: 1]. - aStream peek isDigit - ifTrue: [ - parsedNumber := (Integer readFrom: aStream) * prefix. - (parsedNumber < 0 or: [parsedNumber > 31]) - ifTrue: [year := parsedNumber]]. - [aStream peek isAlphaNumeric] - whileFalse: [aStream skip: 1]. - aStream peek isLetter - ifTrue: ["MM-DD-YY or DD-MM-YY or YY-MM-DD" - month := WriteStream on: (String new: 10). - [aStream peek isLetter] - whileTrue: [month nextPut: aStream next]. - month := month contents. - [aStream peek isAlphaNumeric] - whileFalse: [aStream skip: 1]. - parsedNumber isNil - ifTrue: ["MM DD YY" - day := Integer readFrom: aStream] - ifFalse: [ - year isNil - ifTrue: ["DD MM YY" - day := parsedNumber]]] - ifFalse: ["MM-DD-YY or DD-MM-YY or YY-MM-DD" - year isNil - ifTrue: ["MM-DD-YY or DD-MM-YY" - parsedNumber > 12 - ifTrue: ["DD-MM-YY" - day := parsedNumber. - month := Month nameOfMonth: (Integer readFrom: aStream)] - ifFalse: ["MM-DD-YY" - month := Month nameOfMonth: parsedNumber. - day := Integer readFrom: aStream]] - ifFalse: ["YY-MM-DD" - month := Month nameOfMonth: (Integer readFrom: aStream)]]. - [aStream peek isAlphaNumeric] - whileFalse: [aStream skip: 1]. - year isNil - ifTrue: [year := Integer readFrom: aStream] - ifFalse: [day := Integer readFrom: aStream]. - (year < 100 and: [year >= 0]) - ifTrue: [ - year < 69 - ifTrue: [ year := 2000 + year] - ifFalse: [year := 1900 + year]]. - - ^ self - year: year - month: month - day: day - ! Item was removed: - ----- Method: Date class>>readFrom:pattern: (in category 'squeak protocol') ----- - readFrom: inputStream pattern: pattern - "Read a Date from the stream based on the pattern which can include the tokens: - - y = A year with 1-n digits - yy = A year with 2 digits - yyyy = A year with 4 digits - m = A month with 1-n digits - mm = A month with 2 digits - d = A day with 1-n digits - dd = A day with 2 digits - - ...and any other Strings inbetween. Representing $y, $m and $d is done using - \y, \m and \d and slash itself with \\. Simple example patterns: - - 'yyyy-mm-dd' - 'yyyymmdd' - 'yy.mm.dd' - 'y-m-d' - - A year given using only two decimals is considered to be >2000." - - | day month year patternStream char | - patternStream := pattern readStream. - [patternStream atEnd] whileFalse: [ - inputStream atEnd ifTrue: [^nil]. - char := patternStream next. - char = $\ - ifTrue: [inputStream next = patternStream next ifFalse: [^nil]] - ifFalse: [ - char = $y - ifTrue: [ - (patternStream nextMatchAll: 'yyy') - ifTrue: [year := (inputStream next: 4) asInteger] - ifFalse: [ - (patternStream peekFor: $y) - ifTrue: [ - year := (inputStream next: 2) asInteger] - ifFalse: [ - year := Integer readFrom: inputStream]]] - ifFalse: [ - char = $m - ifTrue: [ - (patternStream peekFor: $m) - ifTrue: [ - month := (inputStream next: 2) asInteger] - ifFalse: [ - month := Integer readFrom: inputStream]] - ifFalse: [ - char = $d - ifTrue: [ - (patternStream peekFor: $d) - ifTrue: [ - day := (inputStream next: 2) asInteger] - ifFalse: [ - day := Integer readFrom: inputStream]] - ifFalse: [ - inputStream next = char ifFalse: [^nil]]]]]]. - (year isNil | month isNil | day isNil) ifTrue: [^nil]. - ^self year: year month: month day: day! Item was removed: - ----- Method: Date class>>starting: (in category 'squeak protocol') ----- - starting: aDateAndTime - ^ self - starting: aDateAndTime midnight - duration: Duration oneDay! Item was removed: - ----- Method: Date class>>today (in category 'smalltalk-80') ----- - today - - ^ self current - ! Item was removed: - ----- Method: Date class>>tomorrow (in category 'squeak protocol') ----- - tomorrow - - ^ self today next! Item was removed: - ----- Method: Date class>>year:day: (in category 'squeak protocol') ----- - year: year day: dayOfYear - ^ self starting: - (DateAndTime - year: year - day: dayOfYear - hour: 0 - minute: 0 - second: 0 - offset: self defaultOffset)! Item was removed: - ----- Method: Date class>>year:month:day: (in category 'squeak protocol') ----- - year: year month: month day: day - ^ self starting: - (DateAndTime - year: year - month: month - day: day - hour: 0 - minute: 0 - second: 0 - offset: self defaultOffset)! Item was removed: - ----- Method: Date class>>yesterday (in category 'squeak protocol') ----- - yesterday - - ^ self today previous! Item was removed: - ----- Method: Date>>addDays: (in category 'smalltalk-80') ----- - addDays: dayCount - - ^ (self asDateAndTime + (dayCount days)) asDate! Item was removed: - ----- Method: Date>>addMonths: (in category 'utils') ----- - addMonths: monthCount - |year month maxDaysInMonth day | - year := self year + (monthCount + self monthIndex - 1 // 12). - month := self monthIndex + monthCount - 1 \\ 12 + 1. - maxDaysInMonth := Month daysInMonth: month forYear: year. - day := self dayOfMonth > maxDaysInMonth - ifTrue: [maxDaysInMonth] - ifFalse: [self dayOfMonth]. - ^ Date - newDay: day - month: month - year: year! Item was removed: - ----- Method: Date>>asDate (in category 'squeak protocol') ----- - asDate - - ^ self - ! Item was removed: - ----- Method: Date>>asSeconds (in category 'smalltalk-80') ----- - asSeconds - "Answer the seconds since the Squeak epoch: 1 January 1901" - - ^ start asSeconds - ! Item was removed: - ----- Method: Date>>dayMonthYearDo: (in category 'squeak protocol') ----- - dayMonthYearDo: aBlock - "Supply integers for day, month and year to aBlock and return the result" - - ^ start dayMonthYearDo: aBlock! Item was removed: - ----- Method: Date>>leap (in category 'smalltalk-80') ----- - leap - "Answer whether the receiver's year is a leap year." - - ^ start isLeapYear ifTrue: [1] ifFalse: [0].! Item was removed: - ----- Method: Date>>mmddyyyy (in category 'printing') ----- - mmddyyyy - "Answer the receiver rendered in standard U.S.A format mm/dd/yyyy. - Note that the name here is slightly misleading -- the month and day numbers don't show leading zeros, - so that for example February 1 1996 is 2/1/96" - - - ^ self printFormat: #(2 1 3 $/ 1 1) - ! Item was removed: - ----- Method: Date>>month (in category 'squeak protocol') ----- - month - ^ self asMonth! Item was removed: - ----- Method: Date>>monthIndex (in category 'squeak protocol') ----- - monthIndex - ^ super month! Item was removed: - ----- Method: Date>>onNextMonth (in category 'utils') ----- - onNextMonth - - ^ self addMonths: 1 - ! Item was removed: - ----- Method: Date>>onPreviousMonth (in category 'utils') ----- - onPreviousMonth - - ^ self addMonths: -1 - ! Item was removed: - ----- Method: Date>>previous: (in category 'smalltalk-80') ----- - previous: dayName - "Answer the previous date whose weekday name is dayName." - - | days | - days := 7 + self weekdayIndex - (self class dayOfWeek: dayName) \\ 7. - days = 0 ifTrue: [ days := 7 ]. - ^ self subtractDays: days! Item was removed: - ----- Method: Date>>printFormat: (in category 'printing') ----- - printFormat: formatArray - "Answer a String describing the receiver using the argument formatArray." - - ^String new: 17 streamContents: [ :stream | - self printOn: stream format: formatArray ]! Item was removed: - ----- Method: Date>>printOn: (in category 'printing') ----- - printOn: aStream - - self printOn: aStream format: #(1 2 3 $ 3 1 ) - ! Item was removed: - ----- Method: Date>>printOn:format: (in category 'printing') ----- - printOn: aStream format: formatArray - "Print a description of the receiver on aStream using the format - denoted the argument, formatArray: - - #(item item item sep monthfmt yearfmt twoDigits) - - items: 1=day 2=month 3=year will appear in the order given, - - separated by sep which is eaither an ascii code or character. - - monthFmt: 1=09 2=Sep 3=September - - yearFmt: 1=1996 2=96 - - digits: (missing or)1=9 2=09. - - See the examples in printOn: and mmddyy" - | gregorian twoDigits element monthFormat | - gregorian := self dayMonthYearDo: [ :d :m :y | {d. m. y} ]. - twoDigits := formatArray size > 6 and: [(formatArray at: 7) > 1]. - 1 to: 3 do: - [ :i | - element := formatArray at: i. - element = 1 - ifTrue: [twoDigits - ifTrue: [aStream - nextPutAll: (gregorian first asString - padded: #left - to: 2 - with: $0)] - ifFalse: [gregorian first printOn: aStream]]. - element = 2 - ifTrue: [monthFormat := formatArray at: 5. - monthFormat = 1 - ifTrue: [twoDigits - ifTrue: [aStream - nextPutAll: (gregorian middle asString - padded: #left - to: 2 - with: $0)] - ifFalse: [gregorian middle printOn: aStream]]. - monthFormat = 2 - ifTrue: [aStream - nextPutAll: ((Month nameOfMonth: gregorian middle) - copyFrom: 1 - to: 3)]. - monthFormat = 3 - ifTrue: [aStream - nextPutAll: (Month nameOfMonth: gregorian middle)]]. - element = 3 - ifTrue: [(formatArray at: 6) - = 1 - ifTrue: [gregorian last printOn: aStream] - ifFalse: [aStream - nextPutAll: ((gregorian last \\ 100) asString - padded: #left - to: 2 - with: $0)]]. - i < 3 - ifTrue: [(formatArray at: 4) - ~= 0 - ifTrue: [aStream nextPut: (formatArray at: 4) asCharacter]]]! Item was removed: - ----- Method: Date>>storeOn: (in category 'printing') ----- - storeOn: aStream - - aStream print: self printString; nextPutAll: ' asDate' - ! Item was removed: - ----- Method: Date>>subtractDate: (in category 'smalltalk-80') ----- - subtractDate: aDate - "Answer the number of days between self and aDate" - - ^ (self start - aDate asDateAndTime) days! Item was removed: - ----- Method: Date>>subtractDays: (in category 'smalltalk-80') ----- - subtractDays: dayCount - - ^ (self asDateAndTime - (dayCount days)) asDate! Item was removed: - ----- Method: Date>>weekday (in category 'smalltalk-80') ----- - weekday - "Answer the name of the day of the week on which the receiver falls." - - ^ self dayOfWeekName! Item was removed: - ----- Method: Date>>weekdayIndex (in category 'smalltalk-80') ----- - weekdayIndex - "Sunday=1, ... , Saturday=7" - - ^ self dayOfWeek! Item was removed: - ----- Method: Date>>yyyymmdd (in category 'printing') ----- - yyyymmdd - "Format the date in ISO 8601 standard like '2002-10-22'." - - ^ self printFormat: #(3 2 1 $- 1 1 2) - ! Item was removed: - 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! - 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) - - The nanosecond attribute is almost always zero but it defined for full ISO compliance and is suitable for timestamping. - ! Item was removed: - ----- 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 removed: - ----- Method: DateAndTime class>>automaticTimezone: (in category 'preferences') ----- - automaticTimezone: aBoolean - "Accessor for the system-wide preference" - - AutomaticTimezone := aBoolean! Item was removed: - ----- Method: DateAndTime class>>clock (in category 'clock provider') ----- - clock - "the provider of real time seconds/milliseconds." - - ^ ClockProvider ! Item was removed: - ----- Method: DateAndTime class>>clockPrecision (in category 'ansi protocol') ----- - clockPrecision - "One nanosecond precision" - - ^ Duration seconds: 0 nanoSeconds: 1 - ! Item was removed: - ----- Method: DateAndTime class>>current (in category 'squeak protocol') ----- - current - - - ^ self now! Item was removed: - ----- Method: DateAndTime class>>date:time: (in category 'squeak protocol') ----- - date: aDate time: aTime - - ^ self - year: aDate year - day: aDate dayOfYear - hour: aTime hour - minute: aTime minute - second: aTime second - offset: aDate start offset! Item was removed: - ----- Method: DateAndTime class>>epoch (in category 'squeak protocol') ----- - epoch - "Answer a DateAndTime representing the Squeak epoch: 1 January 1901" - - ^ self julianDayNumber: SqueakEpoch! Item was removed: - ----- Method: DateAndTime class>>fromSeconds: (in category 'smalltalk-80') ----- - fromSeconds: seconds - "Answer a DateAndTime since the Squeak epoch: 1 January 1901" - - | integerSeconds nanos | - integerSeconds := seconds truncated. - integerSeconds = seconds - ifTrue: [nanos := 0] - ifFalse: [nanos := (seconds - integerSeconds * NanosInSecond) asInteger]. - ^ self basicNew - ticks: (Array - with: SqueakEpoch - with: integerSeconds - with: nanos) - offset: self localOffset! Item was removed: - ----- Method: DateAndTime class>>fromString: (in category 'squeak protocol') ----- - fromString: aString - - - ^ self readFrom: (ReadStream on: aString)! Item was removed: - ----- Method: DateAndTime class>>initialize (in category 'initialize-release') ----- - initialize - ClockProvider ifNil: [ClockProvider := Time]. - Smalltalk addToStartUpList: self after: Delay. - self startUp: true. - ! Item was removed: - ----- Method: DateAndTime class>>julianDayNumber: (in category 'squeak protocol') ----- - julianDayNumber: anInteger - ^ self - julianDayNumber: anInteger - offset: self localOffset! Item was removed: - ----- Method: DateAndTime class>>julianDayNumber:offset: (in category 'squeak protocol') ----- - julianDayNumber: anInteger offset: aDuration - - ^self basicNew - setJdn: anInteger - seconds: 0 - nano: 0 - offset: aDuration! Item was removed: - ----- Method: DateAndTime class>>localOffset (in category 'squeak protocol') ----- - localOffset - "Answer the duration we are offset from UTC" - - ^ self localTimeZone offset - ! Item was removed: - ----- Method: DateAndTime class>>localOffset: (in category 'squeak protocol') ----- - localOffset: aDuration - "Set the duration we are offset from UTC (done automatically in #now)" - self localTimeZone: (TimeZone offset: aDuration name: 'Local Time' abbreviation: 'LT'). - ! Item was removed: - ----- Method: DateAndTime class>>localTimeZone (in category 'accessing') ----- - localTimeZone - "Answer the local time zone" - - ^ LocalTimeZone ifNil: [ LocalTimeZone := TimeZone default ] - - ! Item was removed: - ----- 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 - - - ! Item was removed: - ----- Method: DateAndTime class>>midnight (in category 'squeak protocol') ----- - midnight - - ^ self now midnight! Item was removed: - ----- Method: DateAndTime class>>milliSecondsSinceMidnight (in category 'squeak protocol') ----- - milliSecondsSinceMidnight - ^Time milliSecondsSinceMidnight! Item was removed: - ----- Method: DateAndTime class>>millisecondClockValue (in category 'smalltalk-80') ----- - millisecondClockValue - - ^ self clock millisecondClockValue! Item was removed: - ----- Method: DateAndTime class>>new (in category 'squeak protocol') ----- - new - "Answer a DateAndTime representing the Squeak epoch: 1 January 1901" - - ^ self epoch! Item was removed: - ----- Method: DateAndTime class>>noon (in category 'squeak protocol') ----- - noon - - ^ self now noon - ! Item was removed: - ----- 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 now: clockAndOffset first offset: self localOffset! Item was removed: - ----- Method: DateAndTime class>>now:offset: (in category 'squeak protocol') ----- - now: clockValue offset: aDuration - - | seconds nanos | - "Ensure that consecutive sends of this method return increasing values, by adding small values to the nanosecond part of the created object. The next few lines are assumed to be executed atomically - having no suspension points." - ((LastClockValue ifNil: [ 0 ]) digitCompare: clockValue) = 0 - ifTrue: [ NanoOffset := NanoOffset + 1 ] - ifFalse: [ NanoOffset := 0 ]. - LastClockValue := clockValue. - nanos := clockValue \\ 1000000 * 1000 + NanoOffset. - seconds := clockValue // 1000000. - ^self basicNew - setJdn: seconds // SecondsInDay + SqueakEpoch - seconds: seconds \\ SecondsInDay - nano: nanos - offset: aDuration! Item was removed: - ----- Method: DateAndTime class>>readFrom: (in category 'squeak protocol') ----- - readFrom: aStream - - | offset date time ch | - - date := Date readFrom: aStream. - [aStream peek isDigit] - whileFalse: [aStream next]. - time := Time readFrom: aStream. - (aStream atEnd or: [('+-Z' includes: aStream peek) not]) - ifTrue: [offset := self localOffset] - ifFalse: [(aStream peekFor: $Z) - ifTrue: [offset := Duration zero] - ifFalse: [ - ch := aStream next. - ch = $+ ifTrue: [ch := Character space]. - offset := Duration fromString: ch asString, '0:', aStream upToEnd, ':0']]. - ^ self - year: date year - month: date monthIndex - day: date dayOfMonth - hour: time hour - minute: time minute - second: time second - nanoSecond: time nanoSecond - offset: offset - - - " '-1199-01-05T20:33:14.321-05:00' asDateAndTime - ' 2002-05-16T17:20:45.1+01:01' asDateAndTime - - ' 2002-05-16T17:20:45.02+01:01' asDateAndTime - - ' 2002-05-16T17:20:45.003+01:01' asDateAndTime - - ' 2002-05-16T17:20:45.0004+01:01' asDateAndTime - ' 2002-05-16T17:20:45.00005' asDateAndTime - ' 2002-05-16T17:20:45.000006+01:01' asDateAndTime - - ' 2002-05-16T17:20:45.0000007+01:01' asDateAndTime - ' 2002-05-16T17:20:45.00000008-01:01' asDateAndTime - ' 2002-05-16T17:20:45.000000009+01:01' asDateAndTime - ' 2002-05-16T17:20:45.0000000001+01:01' asDateAndTime - - ' 2002-05-16T17:20' asDateAndTime - ' 2002-05-16T17:20:45' asDateAndTime - ' 2002-05-16T17:20:45+01:57' asDateAndTime - ' 2002-05-16T17:20:45-02:34' asDateAndTime - ' 2002-05-16T17:20:45+00:00' asDateAndTime - ' 1997-04-26T01:02:03+01:02:3' asDateAndTime - "! Item was removed: - ----- Method: DateAndTime class>>startUp: (in category 'system startup') ----- - startUp: startingAfresh - "Set local timezone" - startingAfresh ifTrue: [self now]. - ! Item was removed: - ----- Method: DateAndTime class>>today (in category 'squeak protocol') ----- - today - - ^ self midnight! Item was removed: - ----- Method: DateAndTime class>>tomorrow (in category 'squeak protocol') ----- - tomorrow - - ^ self today asDate next asDateAndTime - ! Item was removed: - ----- Method: DateAndTime class>>totalSeconds (in category 'smalltalk-80') ----- - totalSeconds - - ^ self clock totalSeconds! Item was removed: - ----- Method: DateAndTime class>>unixEpoch (in category 'squeak protocol') ----- - unixEpoch - "Answer a DateAndTime representing the Unix epoch (1 January 1970, midnight UTC)" - - ^ self basicNew - ticks: #(2440588 0 0) offset: Duration zero; - yourself. - ! Item was removed: - ----- Method: DateAndTime class>>year:day: (in category 'squeak protocol') ----- - year: year day: dayOfYear - "Return a DateAndTime" - - ^ self - year: year - day: dayOfYear - hour: 0 - minute: 0 - second: 0 - ! Item was removed: - ----- Method: DateAndTime class>>year:day:hour:minute:second: (in category 'ansi protocol') ----- - year: year day: dayOfYear hour: hour minute: minute second: second - - ^ self - year: year - day: dayOfYear - hour: hour - minute: minute - second: second - offset: self localOffset - ! Item was removed: - ----- Method: DateAndTime class>>year:day:hour:minute:second:offset: (in category 'ansi protocol') ----- - year: year day: dayOfYear hour: hour minute: minute second: second offset: offset - "Return a DataAndTime" - - | y d | - y := self - year: year - month: 1 - day: 1 - hour: hour - minute: minute - second: second - nanoSecond: 0 - offset: offset. - - d := Duration days: (dayOfYear - 1). - - ^ y + d - ! Item was removed: - ----- Method: DateAndTime class>>year:month:day: (in category 'squeak protocol') ----- - year: year month: month day: day - "Return a DateAndTime, midnight local time" - - ^self - year: year - month: month - day: day - hour: 0 - minute: 0 - ! Item was removed: - ----- 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 - year: year - month: month - day: day - hour: hour - minute: minute - second: 0 - ! Item was removed: - ----- Method: DateAndTime class>>year:month:day:hour:minute:second: (in category 'ansi protocol') ----- - year: year month: month day: day hour: hour minute: minute second: second - "Return a DateAndTime" - - ^ self - year: year - month: month - day: day - hour: hour - minute: minute - second: second - offset: self localOffset! Item was removed: - ----- 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 := 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; - yourself! Item was removed: - ----- Method: DateAndTime class>>year:month:day:hour:minute:second:offset: (in category 'ansi protocol') ----- - year: year month: month day: day hour: hour minute: minute second: second offset: offset - - ^ self - year: year - month: month - day: day - hour: hour - minute: minute - second: second - nanoSecond: 0 - offset: offset! Item was removed: - ----- Method: DateAndTime class>>yesterday (in category 'squeak protocol') ----- - yesterday - - ^ self today asDate previous asDateAndTime! Item was removed: - ----- Method: DateAndTime>>+ (in category 'ansi protocol') ----- - + operand - "operand conforms to protocol Duration" - - | ticks | - ticks := self ticks + (operand asDuration ticks) . - - ^ self class basicNew - ticks: ticks - offset: self offset; - yourself - ! Item was removed: - ----- Method: DateAndTime>>- (in category 'ansi protocol') ----- - - operand - "operand conforms to protocol DateAndTime or protocol Duration" - - ^ (operand respondsTo: #asDateAndTime) - ifTrue: - [ | lticks rticks | - lticks := self asLocal ticks. - - rticks := operand asDateAndTime asLocal ticks. - Duration - seconds: (SecondsInDay *(lticks first - rticks first)) + - (lticks second - rticks second) - nanoSeconds: (lticks third - rticks third) ] - - ifFalse: - - [ self + (operand negated) ] - ! Item was removed: - ----- 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 ] - ifFalse: - [ 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 removed: - ----- Method: DateAndTime>>= (in category 'ansi protocol') ----- - = aDateAndTimeOrTimeStamp - self == aDateAndTimeOrTimeStamp ifTrue: [ ^ true ]. - ((aDateAndTimeOrTimeStamp isKindOf: self class) - or: [aDateAndTimeOrTimeStamp isKindOf: DateAndTime orOf: TimeStamp]) - ifFalse: [ ^ false ]. - ^ self offset = aDateAndTimeOrTimeStamp offset - ifTrue: [ self hasEqualTicks: aDateAndTimeOrTimeStamp ] - ifFalse: [ self asUTC hasEqualTicks: aDateAndTimeOrTimeStamp asUTC ]! Item was removed: - ----- Method: DateAndTime>>asDate (in category 'squeak protocol') ----- - asDate - - - ^ Date starting: self asDateAndTime! Item was removed: - ----- Method: DateAndTime>>asDateAndTime (in category 'squeak protocol') ----- - asDateAndTime - - ^ self! Item was removed: - ----- Method: DateAndTime>>asDuration (in category 'squeak protocol') ----- - asDuration - "Answer the duration since midnight." - - ^ Duration seconds: seconds nanoSeconds: nanos - ! Item was removed: - ----- Method: DateAndTime>>asLocal (in category 'ansi protocol') ----- - asLocal - - - ^ (self offset = self class localOffset) - - ifTrue: [self] - ifFalse: [self utcOffset: self class localOffset]! Item was removed: - ----- Method: DateAndTime>>asMonth (in category 'squeak protocol') ----- - asMonth - - ^ Month starting: self! Item was removed: - ----- Method: DateAndTime>>asNanoSeconds (in category 'squeak protocol') ----- - asNanoSeconds - "Answer the number of nanoseconds since midnight" - - ^ self asDuration asNanoSeconds! Item was removed: - ----- Method: DateAndTime>>asSeconds (in category 'smalltalk-80') ----- - asSeconds - "Return the number of seconds since the Squeak epoch" - ^ (self - (self class epoch offset: offset)) asSeconds! Item was removed: - ----- Method: DateAndTime>>asTime (in category 'squeak protocol') ----- - asTime - - - ^ Time seconds: seconds nanoSeconds: nanos - ! Item was removed: - ----- Method: DateAndTime>>asTimeStamp (in category 'squeak protocol') ----- - asTimeStamp - - ^ self as: TimeStamp! Item was removed: - ----- Method: DateAndTime>>asUTC (in category 'ansi protocol') ----- - asUTC - - ^ self offset isZero - ifTrue: [self] - ifFalse: [self utcOffset: 0] - ! Item was removed: - ----- Method: DateAndTime>>asUnixTime (in category 'squeak protocol') ----- - asUnixTime - "answer number of seconds since unix epoch (midnight Jan 1, 1970, UTC)" - - ^(self - self class unixEpoch) asSeconds! Item was removed: - ----- Method: DateAndTime>>asWeek (in category 'squeak protocol') ----- - asWeek - - ^ Week starting: self! Item was removed: - ----- Method: DateAndTime>>asYear (in category 'squeak protocol') ----- - asYear - - ^ Year starting: self! Item was removed: - ----- Method: DateAndTime>>day (in category 'smalltalk-80') ----- - day - - ^ self dayOfYear - ! Item was removed: - ----- Method: DateAndTime>>dayMonthYearDo: (in category 'squeak protocol') ----- - dayMonthYearDo: aBlock - "Evaluation the block with three arguments: day month, year." - - | l n i j dd mm yyyy | - l := jdn + 68569. - n := 4 * l // 146097. - l := l - (146097 * n + 3 // 4). - i := 4000 * (l + 1) // 1461001. - l := l - (1461 * i // 4) + 31. - j := 80 * l // 2447. - dd := l - (2447 * j // 80). - l := j // 11. - mm := j + 2 - (12 * l). - yyyy := 100 * (n - 49) + i + l. - - ^ aBlock - value: dd - value: mm - value: yyyy! Item was removed: - ----- Method: DateAndTime>>dayOfMonth (in category 'ansi protocol') ----- - dayOfMonth - "Answer which day of the month is represented by the receiver." - - ^ self - dayMonthYearDo: [ :d :m :y | d ] - ! Item was removed: - ----- Method: DateAndTime>>dayOfWeek (in category 'ansi protocol') ----- - dayOfWeek - - "Sunday=1, ... , Saturday=7" - - ^ (jdn + 1 rem: 7) + 1 - ! Item was removed: - ----- Method: DateAndTime>>dayOfWeekAbbreviation (in category 'ansi protocol') ----- - dayOfWeekAbbreviation - - ^ self dayOfWeekName copyFrom: 1 to: 3 - ! Item was removed: - ----- Method: DateAndTime>>dayOfWeekName (in category 'ansi protocol') ----- - dayOfWeekName - - ^ Week nameOfDay: self dayOfWeek! Item was removed: - ----- Method: DateAndTime>>dayOfYear (in category 'ansi protocol') ----- - dayOfYear - "This code was contributed by Dan Ingalls. It is equivalent to the terser - ^ jdn - (Year year: self year) start julianDayNumber + 1 but much quicker." - - ^ self dayMonthYearDo: - [ :d :m :y | - | monthStart | - monthStart := #(1 32 60 91 121 152 182 213 244 274 305 335) at: m. - (m > 2 and: [ Year isLeapYear: y ]) - ifTrue: [ monthStart + d ] - ifFalse: [ monthStart + d - 1 ]]! Item was removed: - ----- Method: DateAndTime>>daysInMonth (in category 'smalltalk-80') ----- - daysInMonth - "Answer the number of days in the month represented by the receiver." - - - ^ self asMonth daysInMonth! Item was removed: - ----- Method: DateAndTime>>daysInYear (in category 'smalltalk-80') ----- - daysInYear - - "Answer the number of days in the year represented by the receiver." - - ^ self asYear daysInYear! Item was removed: - ----- Method: DateAndTime>>daysLeftInYear (in category 'smalltalk-80') ----- - daysLeftInYear - "Answer the number of days in the year after the date of the receiver." - - ^ self daysInYear - self dayOfYear! Item was removed: - ----- Method: DateAndTime>>duration (in category 'squeak protocol') ----- - duration - - ^ Duration zero! Item was removed: - ----- Method: DateAndTime>>firstDayOfMonth (in category 'smalltalk-80') ----- - firstDayOfMonth - - ^ self asMonth start day - ! Item was removed: - ----- Method: DateAndTime>>floor (in category 'squeak protocol') ----- - floor - "Answer a copy with magnitude rounded down to the nearest whole second" - ^self class basicNew - ticks: (self ticks at: 3 put: 0; yourself) - offset: offset. - ! Item was removed: - ----- Method: DateAndTime>>hasEqualTicks: (in category 'private') ----- - hasEqualTicks: aDateAndTime - - ^ (jdn = aDateAndTime julianDayNumber) - and: [ (seconds = aDateAndTime secondsSinceMidnight) - and: [ nanos = aDateAndTime nanoSecond ] ] - - ! Item was removed: - ----- 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 ] ] ] ]! Item was removed: - ----- Method: DateAndTime>>hash (in category 'ansi protocol') ----- - hash - | totalSeconds | - totalSeconds := seconds - self offset asSeconds. - ^ ((totalSeconds // 86400 + jdn) hashMultiply bitXor: totalSeconds \\ - 86400) bitXor: nanos! Item was removed: - ----- Method: DateAndTime>>hour (in category 'ansi protocol') ----- - hour - - ^ self hour24! Item was removed: - ----- Method: DateAndTime>>hour12 (in category 'ansi protocol') ----- - hour12 - "Answer an <integer> between 1 and 12, inclusive, representing the hour - of the day in the 12-hour clock of the local time of the receiver." - ^ self hour24 - 1 \\ 12 + 1 - ! Item was removed: - ----- Method: DateAndTime>>hour24 (in category 'ansi protocol') ----- - hour24 - - - ^ (Duration seconds: seconds) hours! Item was removed: - ----- Method: DateAndTime>>hours (in category 'smalltalk-80') ----- - hours - - ^ self hour - ! Item was removed: - ----- Method: DateAndTime>>isLeapYear (in category 'ansi protocol') ----- - isLeapYear - - - ^ Year isLeapYear: self year - ! Item was removed: - ----- Method: DateAndTime>>julianDayNumber (in category 'squeak protocol') ----- - julianDayNumber - - - ^ jdn! Item was removed: - ----- Method: DateAndTime>>makeUTC (in category 'squeak protocol') ----- - makeUTC - "Make the receiver's timezone UTC." - self primOffset: Duration zero! Item was removed: - ----- Method: DateAndTime>>meridianAbbreviation (in category 'ansi protocol') ----- - meridianAbbreviation - - ^ self asTime meridianAbbreviation - ! Item was removed: - ----- Method: DateAndTime>>middleOf: (in category 'squeak protocol') ----- - middleOf: aDuration - "Return a Timespan where the receiver is the middle of the Duration" - - | duration | - duration := aDuration asDuration. - - ^ Timespan starting: (self - (duration / 2)) duration: duration - ! Item was removed: - ----- Method: DateAndTime>>midnight (in category 'squeak protocol') ----- - midnight - "Answer a DateAndTime starting at midnight of the same timezone offset as the receiver." - ^ self class basicNew - setJdn: jdn - seconds: 0 - nano: 0 - offset: offset! Item was removed: - ----- Method: DateAndTime>>minute (in category 'ansi protocol') ----- - minute - - - ^ (Duration seconds: seconds) minutes! Item was removed: - ----- Method: DateAndTime>>minutes (in category 'smalltalk-80') ----- - minutes - - ^ self minute - ! Item was removed: - ----- Method: DateAndTime>>month (in category 'ansi protocol') ----- - month - - ^ self - dayMonthYearDo: [ :d :m :y | m ] - ! Item was removed: - ----- Method: DateAndTime>>monthAbbreviation (in category 'ansi protocol') ----- - monthAbbreviation - - - ^ self monthName copyFrom: 1 to: 3! Item was removed: - ----- Method: DateAndTime>>monthIndex (in category 'smalltalk-80') ----- - monthIndex - - - ^ self month! Item was removed: - ----- Method: DateAndTime>>monthName (in category 'ansi protocol') ----- - monthName - - - ^ Month nameOfMonth: self month! Item was removed: - ----- Method: DateAndTime>>nanoSecond (in category 'squeak protocol') ----- - nanoSecond - - - ^ nanos! Item was removed: - ----- Method: DateAndTime>>noTimezone (in category 'private') ----- - noTimezone - ^offset == nil! Item was removed: - ----- Method: DateAndTime>>noon (in category 'squeak protocol') ----- - noon - "Answer a DateAndTime starting at noon" - - ^ self dayMonthYearDo: - [ :d :m :y | self class year: y month: m day: d hour: 12 minute: 0 second: 0 ] - ! Item was removed: - ----- Method: DateAndTime>>normalize:ticks:base: (in category 'private') ----- - normalize: i ticks: ticks base: base - - | tick div quo rem | - tick := ticks at: i. - div := tick digitDiv: base neg: tick negative. - quo := (div at: 1) normalize. - rem := (div at: 2) normalize. - rem < 0 ifTrue: [ quo := quo - 1. rem := base + rem ]. - ticks at: (i-1) put: ((ticks at: i-1) + quo). - ticks at: i put: rem - ! Item was removed: - ----- Method: DateAndTime>>offset (in category 'ansi protocol') ----- - offset - - ^ offset ifNil: [Duration zero]! Item was removed: - ----- 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]); - yourself! Item was removed: - ----- Method: DateAndTime>>primOffset: (in category 'private') ----- - primOffset: aDuration - offset := aDuration! Item was removed: - ----- Method: DateAndTime>>printHMSOn: (in category 'squeak protocol') ----- - printHMSOn: aStream - "Print just hh:mm:ss" - aStream - nextPutAll: (self hour asString padded: #left to: 2 with: $0); - nextPut: $:; - nextPutAll: (self minute asString padded: #left to: 2 with: $0); - nextPut: $:; - nextPutAll: (self second asString padded: #left to: 2 with: $0). - ! Item was removed: - ----- Method: DateAndTime>>printOn: (in category 'squeak protocol') ----- - printOn: aStream - "Print as per ISO 8601 sections 5.3.3 and 5.4.1. - 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 printOn: aStream withLeadingSpace: false - ! Item was removed: - ----- 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 ]. - (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) ]. - ! Item was removed: - ----- Method: DateAndTime>>printYMDOn: (in category 'squeak protocol') ----- - printYMDOn: aStream - "Print just YYYY-MM-DD part. - If the year is negative, prints out '-YYYY-MM-DD'." - - ^self printYMDOn: aStream withLeadingSpace: false. - ! Item was removed: - ----- Method: DateAndTime>>printYMDOn:withLeadingSpace: (in category 'squeak protocol') ----- - printYMDOn: aStream withLeadingSpace: printLeadingSpaceToo - "Print just the year, month, and day on aStream. - - If printLeadingSpaceToo is true, then print as: - ' YYYY-MM-DD' (if the year is positive) or '-YYYY-MM-DD' (if the year is negative) - otherwise print as: - 'YYYY-MM-DD' or '-YYYY-MM-DD' " - - | year month day | - self dayMonthYearDo: [ :d :m :y | year := y. month := m. day := d ]. - year negative - ifTrue: [ aStream nextPut: $- ] - ifFalse: [ printLeadingSpaceToo ifTrue: [ aStream space ]]. - aStream - nextPutAll: (year abs asString padded: #left to: 4 with: $0); - nextPut: $-; - nextPutAll: (month asString padded: #left to: 2 with: $0); - nextPut: $-; - nextPutAll: (day asString padded: #left to: 2 with: $0) - ! Item was removed: - ----- Method: DateAndTime>>second (in category 'ansi protocol') ----- - second - - - ^ (Duration seconds: seconds) seconds! Item was removed: - ----- Method: DateAndTime>>seconds (in category 'smalltalk-80') ----- - seconds - - ^ self second - ! Item was removed: - ----- Method: DateAndTime>>secondsSinceMidnight (in category 'private') ----- - secondsSinceMidnight - - ^ seconds! Item was removed: - ----- Method: DateAndTime>>setJdn:seconds:nano:offset: (in category 'squeak protocol') ----- - setJdn: j seconds: s nano: n offset: o - - jdn := j. - seconds := s. - nanos := n. - offset := o - ! Item was removed: - ----- Method: DateAndTime>>ticks (in category 'private') ----- - ticks - "Private - answer an array with our instance variables. Assumed to be UTC " - - ^ Array with: jdn with: seconds with: nanos - ! Item was removed: - ----- Method: DateAndTime>>ticks:offset: (in category 'private') ----- - ticks: ticks offset: utcOffset - "ticks is {julianDayNumber. secondCount. nanoSeconds}" - - self normalize: 3 ticks: ticks base: NanosInSecond. - self normalize: 2 ticks: ticks base: SecondsInDay. - - jdn := ticks at: 1. - seconds := ticks at: 2. - nanos := ticks at: 3. - offset := utcOffset - ! Item was removed: - ----- Method: DateAndTime>>timeZoneAbbreviation (in category 'ansi protocol') ----- - timeZoneAbbreviation - - ^ self class localTimeZone abbreviation! Item was removed: - ----- Method: DateAndTime>>timeZoneName (in category 'ansi protocol') ----- - timeZoneName - - ^ self class localTimeZone name! Item was removed: - ----- Method: DateAndTime>>to: (in category 'squeak protocol') ----- - to: anEnd - "Answer a Timespan. anEnd conforms to protocol DateAndTime or protocol Timespan" - - ^ Timespan starting: self ending: (anEnd asDateAndTime) - ! Item was removed: - ----- Method: DateAndTime>>to:by: (in category 'squeak protocol') ----- - to: anEnd by: aDuration - "Answer a Timespan. anEnd conforms to protocol DateAndTime or protocol Timespan" - - ^ (Schedule starting: self ending: (anEnd asDateAndTime)) - schedule: (Array with: aDuration asDuration); - yourself - ! Item was removed: - ----- Method: DateAndTime>>to:by:do: (in category 'squeak protocol') ----- - to: anEnd by: aDuration do: aBlock - "Answer a Timespan. anEnd conforms to protocol DateAndTime or protocol Timespan" - - ^ (self to: anEnd by: aDuration) scheduleDo: aBlock! Item was removed: - ----- Method: DateAndTime>>utcOffset: (in category 'squeak protocol') ----- - utcOffset: anOffset - - "Answer a <DateAndTime> equivalent to the receiver but offset from UTC by anOffset" - - | equiv | - equiv := self + (anOffset asDuration - self offset). - ^ equiv ticks: (equiv ticks) offset: anOffset asDuration; yourself! Item was removed: - ----- Method: DateAndTime>>year (in category 'ansi protocol') ----- - year - ^ self - dayMonthYearDo: [ :d :m :y | y ] - ! Item was removed: - Magnitude subclass: #Duration - instanceVariableNames: 'nanos seconds' - classVariableNames: '' - poolDictionaries: 'ChronologyConstants' - category: 'Kernel-Chronology'! - - !Duration commentStamp: 'dtl 7/11/2009 15:03' prior: 0! - I represent a duration of time. I have nanosecond precision! Item was removed: - ----- Method: Duration class>>days: (in category 'squeak protocol') ----- - days: aNumber - - ^ self seconds: aNumber * SecondsInDay nanoSeconds: 0! Item was removed: - ----- Method: Duration class>>days:hours:minutes:seconds: (in category 'ansi protocol') ----- - days: days hours: hours minutes: minutes seconds: seconds - - ^ self days: days hours: hours minutes: minutes seconds: seconds nanoSeconds: 0! Item was removed: - ----- Method: Duration class>>days:hours:minutes:seconds:nanoSeconds: (in category 'squeak protocol') ----- - days: days hours: hours minutes: minutes seconds: seconds nanoSeconds: nanos - - ^self - seconds: seconds - + (minutes * SecondsInMinute) - + (hours * SecondsInHour) - + (days * SecondsInDay) - nanoSeconds: nanos - ! Item was removed: - ----- Method: Duration class>>days:seconds: (in category 'ansi protocol') ----- - days: days seconds: seconds - - ^ self basicNew seconds: days * SecondsInDay + seconds nanoSeconds: 0 - ! Item was removed: - ----- Method: Duration class>>fromString: (in category 'squeak protocol') ----- - fromString: aString - - ^ self readFrom: (ReadStream on: aString) - ! Item was removed: - ----- Method: Duration class>>hours: (in category 'squeak protocol') ----- - hours: aNumber - - ^ self seconds: aNumber * SecondsInHour nanoSeconds: 0! Item was removed: - ----- Method: Duration class>>initialize (in category 'initialize-release') ----- - initialize - ChronologyConstants classPool - at: #Zero - put: - (self basicNew - seconds: 0 - nanoSeconds: 0) ; - at: #OneDay - put: 1 day! Item was removed: - ----- Method: Duration class>>milliSeconds: (in category 'squeak protocol') ----- - milliSeconds: milliCount - - ^self - seconds: (milliCount quo: 1000) - nanoSeconds: (milliCount rem: 1000) * NanosInMillisecond! Item was removed: - ----- Method: Duration class>>minutes: (in category 'squeak protocol') ----- - minutes: aNumber - - ^ self seconds: aNumber * SecondsInMinute nanoSeconds: 0! Item was removed: - ----- Method: Duration class>>month: (in category 'squeak protocol') ----- - month: aMonth - "aMonth is an Integer or a String" - - ^ (Month month: aMonth year: Year current year) duration - ! Item was removed: - ----- Method: Duration class>>nanoSeconds: (in category 'squeak protocol') ----- - nanoSeconds: nanos - "This method is slow. If you have nanos less than 10^6 you should use #seconds:nanoSeconds: instead." - - | quo | - quo := nanos quo: NanosInSecond. - ^ self basicNew - seconds: quo - nanoSeconds: nanos - (quo * NanosInSecond) - ! Item was removed: - ----- Method: Duration class>>oneDay (in category 'squeak protocol') ----- - oneDay - "Answer the canonicalized Duration representing length of 1 day. Used by Dates." - ^ OneDay! Item was removed: - ----- Method: Duration class>>readFrom: (in category 'squeak protocol') ----- - readFrom: aStream - "Formatted as per ANSI 5.8.2.16: [-]D:HH:MM:SS[.S]" - - | sign days hours minutes seconds nanos nanosBuffer | - sign := (aStream peekFor: $-) ifTrue: [-1] ifFalse: [1]. - days := (aStream upTo: $:) asInteger sign: sign. - hours := (aStream upTo: $:) asInteger sign: sign. - minutes := (aStream upTo: $:) asInteger sign: sign. - seconds := (aStream upTo: $.) asInteger sign: sign. - nanosBuffer := '000000000' copy. - nanos := WriteStream on: nanosBuffer. - [aStream atEnd not and: [aStream peek isDigit]] - whileTrue: [nanos nextPut: aStream next]. - - ^ self - days: days - hours: hours - minutes: minutes - seconds: seconds - nanoSeconds: (nanosBuffer asInteger sign: sign) - - " '0:00:00:00' asDuration - '0:00:00:00.000000001' asDuration - '0:00:00:00.999999999' asDuration - '0:00:00:00.100000000' asDuration - '0:00:00:00.001 ' asDuration - '0:00:00:00.1' asDuration - '0:00:00:01 ' asDuration - '0:12:45:45' asDuration - '1:00:00:00' asDuration - '365:00:00:00' asDuration - '-7:09:12:06.10' asDuration - '+0:01:02:3' asDuration - "! Item was removed: - ----- Method: Duration class>>seconds: (in category 'ansi protocol') ----- - seconds: seconds - - ^ self seconds: seconds nanoSeconds: 0 - ! Item was removed: - ----- Method: Duration class>>seconds:nanoSeconds: (in category 'squeak protocol') ----- - seconds: seconds nanoSeconds: nanos - - ^ self basicNew - seconds: seconds truncated - nanoSeconds: seconds fractionPart * NanosInSecond + nanos! Item was removed: - ----- Method: Duration class>>weeks: (in category 'squeak protocol') ----- - weeks: aNumber - - ^ self days: (aNumber * 7) seconds: 0 - ! Item was removed: - ----- Method: Duration class>>zero (in category 'ansi protocol') ----- - zero - "Answer the canonicalized instance of Duration zero." - ^ Zero! Item was removed: - ----- Method: Duration>>* (in category 'ansi protocol') ----- - * operand - "operand is a Number" ^ self class nanoSeconds: ( (self asNanoSeconds * operand) asInteger) - ! Item was removed: - ----- Method: Duration>>+ (in category 'ansi protocol') ----- - + operand - - "operand is a Duration" ^ self class nanoSeconds: (self asNanoSeconds + operand asNanoSeconds)! Item was removed: - ----- Method: Duration>>- (in category 'ansi protocol') ----- - - operand - "operand is a Duration" ^ self + operand negated! Item was removed: - ----- Method: Duration>>/ (in category 'ansi protocol') ----- - / operand - - "operand is a Duration or a Number" - - - ^ operand isNumber - ifTrue: [ self class nanoSeconds: (self asNanoSeconds / operand) asInteger ] - ifFalse: [ self asNanoSeconds / operand asDuration asNanoSeconds ] - ! Item was removed: - ----- Method: Duration>>// (in category 'squeak protocol') ----- - // operand - - "operand is a Duration or a Number" - - - ^ operand isNumber - ifTrue: [ self class nanoSeconds: (self asNanoSeconds // operand) asInteger ] - ifFalse: [ self asNanoSeconds // operand asDuration asNanoSeconds ]! Item was removed: - ----- Method: Duration>>< (in category 'ansi protocol') ----- - < comparand - - ^ self asNanoSeconds < comparand asNanoSeconds! Item was removed: - ----- Method: Duration>>= (in category 'ansi protocol') ----- - = comparand - "Answer whether the argument is a <Duration> representing the same - period of time as the receiver." - - ^ self == comparand - ifTrue: [true] - ifFalse: - [self species = comparand species - ifTrue: [self asNanoSeconds = comparand asNanoSeconds] - ifFalse: [false] ] - ! Item was removed: - ----- Method: Duration>>\\ (in category 'squeak protocol') ----- - \\ operand - - "modulo. Remainder defined in terms of //. Answer a Duration with the - same sign as aDuration. operand is a Duration or a Number." - - ^ operand isNumber - ifTrue: [ self class nanoSeconds: (self asNanoSeconds \\ operand) ] - ifFalse: [ self - (operand * (self // operand)) ]! Item was removed: - ----- Method: Duration>>abs (in category 'ansi protocol') ----- - abs - - ^ self class seconds: seconds abs nanoSeconds: nanos abs! Item was removed: - ----- Method: Duration>>ago (in category 'squeak protocol') ----- - ago - "Answer the DateAndTime which was the receiver's duration ago. - e.g., 5 minutes ago. 2 days ago." - ^ DateAndTime now - self! Item was removed: - ----- Method: Duration>>asDelay (in category 'squeak protocol') ----- - asDelay - - ^ Delay forDuration: self - ! Item was removed: - ----- Method: Duration>>asDuration (in category 'ansi protocol') ----- - asDuration - - ^ self! Item was removed: - ----- Method: Duration>>asMilliSeconds (in category 'squeak protocol') ----- - asMilliSeconds - - nanos = 0 ifTrue: [ ^seconds * 1000 ]. - ^nanos // 1000000 + (seconds * 1000)! Item was removed: - ----- Method: Duration>>asNanoSeconds (in category 'squeak protocol') ----- - asNanoSeconds - - ^seconds * NanosInSecond + nanos! Item was removed: - ----- Method: Duration>>asSeconds (in category 'ansi protocol') ----- - asSeconds - - - ^ seconds! Item was removed: - ----- Method: Duration>>days (in category 'ansi protocol') ----- - days - "Answer the number of days the receiver represents." - - ^ seconds quo: SecondsInDay - ! Item was removed: - ----- Method: Duration>>fromNow (in category 'squeak protocol') ----- - fromNow - "Answer the DateAndTime which which occurs the receiver's duration from now. - e.g., 5 minutes fromNow. 2 days fromNow." - ^ DateAndTime now + self! Item was removed: - ----- Method: Duration>>hash (in category 'ansi protocol') ----- - hash - - ^seconds bitXor: nanos! Item was removed: - ----- Method: Duration>>hours (in category 'ansi protocol') ----- - hours - "Answer the number of hours the receiver represents." - - - ^ (seconds rem: SecondsInDay) quo: SecondsInHour! Item was removed: - ----- Method: Duration>>initialize (in category 'initialize-release') ----- - initialize - self seconds: 0 nanoSeconds: 0. - ! Item was removed: - ----- Method: Duration>>isZero (in category 'squeak protocol') ----- - isZero - - ^ seconds = 0 and: [ nanos = 0 ] - ! Item was removed: - ----- Method: Duration>>minutes (in category 'ansi protocol') ----- - minutes - - "Answer the number of minutes the receiver represents." - - - ^ (seconds rem: SecondsInHour) quo: SecondsInMinute! Item was removed: - ----- Method: Duration>>nanoSeconds (in category 'squeak protocol') ----- - nanoSeconds - - - ^ nanos! Item was removed: - ----- Method: Duration>>negated (in category 'ansi protocol') ----- - negated - - ^ self class seconds: seconds negated nanoSeconds: nanos negated! Item was removed: - ----- Method: Duration>>negative (in category 'ansi protocol') ----- - negative - - - ^ self positive not! Item was removed: - ----- Method: Duration>>positive (in category 'ansi protocol') ----- - positive - - - ^ seconds = 0 ifTrue: [ nanos positive ] ifFalse: [ seconds positive ]! Item was removed: - ----- Method: Duration>>printOn: (in category 'squeak protocol') ----- - printOn: aStream - "Format as per ANSI 5.8.2.16: [-]D:HH:MM:SS[.S]" | d h m s n | - d := self days abs. - h := self hours abs. - m := self minutes abs. - s := self seconds abs truncated. - n := self nanoSeconds abs. self negative ifTrue: [ aStream nextPut: $- ]. - d printOn: aStream. aStream nextPut: $:. - h < 10 ifTrue: [ aStream nextPut: $0. ]. - h printOn: aStream. aStream nextPut: $:. - m < 10 ifTrue: [ aStream nextPut: $0. ]. - m printOn: aStream. aStream nextPut: $:. - s < 10 ifTrue: [ aStream nextPut: $0. ]. - s printOn: aStream. - n = 0 ifFalse: - [ | z ps | - aStream nextPut: $.. - ps := n printString padded: #left to: 9 with: $0. - z := ps findLast: [ :c | c asciiValue > $0 asciiValue ]. - ps from: 1 to: z do: [ :c | aStream nextPut: c ] ] - ! Item was removed: - ----- Method: Duration>>roundTo: (in category 'squeak protocol') ----- - roundTo: aDuration - "e.g. if the receiver is 5 minutes, 37 seconds, and aDuration is 2 minutes, answer 6 minutes." - - ^ self class nanoSeconds: (self asNanoSeconds roundTo: aDuration asNanoSeconds) - ! Item was removed: - ----- Method: Duration>>seconds (in category 'ansi protocol') ----- - seconds - "Answer the number of seconds the receiver represents." - - ^seconds rem: SecondsInMinute! Item was removed: - ----- Method: Duration>>seconds:nanoSeconds: (in category 'private') ----- - seconds: secondCount nanoSeconds: nanoCount - "Private - only used by Duration class" - - seconds := secondCount. - nanos := nanoCount rounded. - "normalize if signs do not match" - [ nanos < 0 and: [ seconds > 0 ] ] - whileTrue: [ seconds := seconds - 1. - nanos := nanos + NanosInSecond ]. - [ seconds < 0 and: [ nanos > 0 ] ] - whileTrue: [ seconds := seconds + 1. - nanos := nanos - NanosInSecond ] - - ! Item was removed: - ----- Method: Duration>>storeOn: (in category 'private') ----- - storeOn: aStream - - aStream - nextPut: $(; - nextPutAll: self className; - nextPutAll: ' seconds: '; - print: seconds; - nextPutAll: ' nanoSeconds: '; - print: nanos; - nextPut: $) - ! Item was removed: - ----- Method: Duration>>ticks (in category 'private') ----- - ticks - "Answer an array {days. seconds. nanoSeconds}. Used by DateAndTime and Time." - - | days | - days := self days. - ^ Array - with: days - with: seconds - (days * SecondsInDay) - with: nanos - ! Item was removed: - ----- Method: Duration>>truncateTo: (in category 'squeak protocol') ----- - truncateTo: aDuration - "e.g. if the receiver is 5 minutes, 37 seconds, and aDuration is 2 minutes, answer 4 minutes." - - ^ self class - nanoSeconds: (self asNanoSeconds truncateTo: aDuration asNanoSeconds) - ! Item was removed: - Timespan subclass: #Month - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: 'ChronologyConstants' - category: 'Kernel-Chronology'! - - !Month commentStamp: 'cbr 7/28/2010 18:11' prior: 0! - I represent a month. - - For example, to get the number of days this month, you can evaluate the following expression: - - Month current daysInMonth! Item was removed: - ----- Method: Month class>>daysInMonth:forYear: (in category 'smalltalk-80') ----- - daysInMonth: indexOrName forYear: yearInteger - - | index | - index := indexOrName isInteger - ifTrue: [indexOrName] - ifFalse: [self indexOfMonth: indexOrName]. - ^ (DaysInMonth at: index) - + ((index = 2 - and: [Year isLeapYear: yearInteger]) - ifTrue: [1] ifFalse: [0]) - ! Item was removed: - ----- Method: Month class>>indexOfMonth: (in category 'smalltalk-80') ----- - indexOfMonth: aMonthName - - - 1 to: 12 do: [ :i | (aMonthName, '*' match: (MonthNames at: i)) ifTrue: [^i] ]. - self error: aMonthName , ' is not a recognized month name'.! Item was removed: - ----- Method: Month class>>month:year: (in category 'squeak protocol') ----- - month: month year: year - "Create a Month for the given <year> and <month>. - <month> may be a number or a String with the - name of the month. <year> should be with 4 digits." - ^ self starting: - (DateAndTime - year: year - month: month - day: 1 - hour: 0 - minute: 0 - second: 0 - offset: self defaultOffset)! Item was removed: - ----- Method: Month class>>nameOfMonth: (in category 'smalltalk-80') ----- - nameOfMonth: anIndex - - ^ MonthNames at: anIndex.! Item was removed: - ----- Method: Month class>>readFrom: (in category 'squeak protocol') ----- - readFrom: aStream - | m y | - aStream skipSeparators. - m := aStream upToAnyOf: CharacterSet separators. - aStream skipSeparators. - y := aStream upToEnd. - ^ self - month: m - year: y asInteger - - "Month readFrom: 'July 1998' readStream"! Item was removed: - ----- Method: Month class>>starting:duration: (in category 'squeak protocol') ----- - starting: aDateAndTime duration: aDuration - "Override - a each month has a defined duration" - | start adjusted days | - start := aDateAndTime asDateAndTime. - adjusted := DateAndTime - year: start year - month: start month - day: 1 - hour: 0 - minute: 0 - second: 0 - offset: start offset. - days := self - daysInMonth: adjusted month - forYear: adjusted year. - ^ super - starting: adjusted - duration: (Duration days: days)! Item was removed: - ----- Method: Month>>asMonth (in category 'squeak protocol') ----- - asMonth - - ^ self! Item was removed: - ----- Method: Month>>daysInMonth (in category 'squeak protocol') ----- - daysInMonth - - ^ self duration days.! Item was removed: - ----- Method: Month>>index (in category 'squeak protocol') ----- - index - - ^ self monthIndex! Item was removed: - ----- Method: Month>>name (in category 'squeak protocol') ----- - name - - - ^ self monthName! Item was removed: - ----- Method: Month>>previous (in category 'squeak protocol') ----- - previous - - - ^ self class starting: (self start - 1)! Item was removed: - ----- Method: Month>>printOn: (in category 'squeak protocol') ----- - printOn: aStream - - - aStream nextPutAll: self monthName, ' ', self year printString! Item was removed: - Timespan subclass: #Schedule - instanceVariableNames: 'schedule' - classVariableNames: '' - poolDictionaries: '' - category: 'Kernel-Chronology'! - - !Schedule commentStamp: 'brp 5/13/2003 09:48' prior: 0! - I represent a powerful class for implementing recurring schedules.! Item was removed: - ----- Method: Schedule>>between:and:do: (in category 'enumerating') ----- - between: aStart and: anEnd do: aBlock - - | element end i | - end := self end min: anEnd. - element := self start. - - i := 1. - [ element < aStart ] whileTrue: - - [ element := element + (schedule at: i). - i := i + 1. (i > schedule size) ifTrue: [i := 1]]. - i := 1. - [ element <= end ] whileTrue: - - [ aBlock value: element. - element := element + (schedule at: i). - i := i + 1. - (i > schedule size) ifTrue: [i := 1]] - ! Item was removed: - ----- Method: Schedule>>dateAndTimes (in category 'enumerating') ----- - dateAndTimes - - | dateAndTimes | - dateAndTimes := OrderedCollection new. - self scheduleDo: [ :e | dateAndTimes add: e ]. - ^ dateAndTimes asArray! Item was removed: - ----- Method: Schedule>>includes: (in category 'squeak protocol') ----- - includes: aDateAndTime - - | dt | - dt := aDateAndTime asDateAndTime. - self scheduleDo: [ :e | e = dt ifTrue: [^true] ]. - ^ false - ! Item was removed: - ----- Method: Schedule>>schedule (in category 'enumerating') ----- - schedule - ^ schedule! Item was removed: - ----- Method: Schedule>>schedule: (in category 'enumerating') ----- - schedule: anArrayOfDurations - - schedule := anArrayOfDurations! Item was removed: - ----- Method: Schedule>>scheduleDo: (in category 'enumerating') ----- - scheduleDo: aBlock - - self between: (self start) and: (self end) do: aBlock - ! Item was removed: - Object subclass: #Stopwatch - instanceVariableNames: 'timespans state' - classVariableNames: '' - poolDictionaries: '' - category: 'Kernel-Chronology'! - - !Stopwatch commentStamp: '<historical>' prior: 0! - A Stopwatch maintains a collection of timespans.! Item was removed: - ----- Method: Stopwatch>>activate (in category 'squeak protocol') ----- - activate - - self isSuspended ifTrue: - [self timespans add: - (Timespan starting: DateAndTime now duration: Duration zero). - self state: #active] - ! Item was removed: - ----- Method: Stopwatch>>duration (in category 'squeak protocol') ----- - duration - - | ts last | - self isSuspended - ifTrue: - [ (ts := self timespans) isEmpty ifTrue: - [ ts := { Timespan starting: DateAndTime now duration: Duration zero } ] ] - ifFalse: - [ last := self timespans last. - ts := self timespans allButLast - add: (last duration: (DateAndTime now - last start); yourself); - yourself ]. - - ^ (ts collect: [ :t | t duration ]) sum! Item was removed: - ----- Method: Stopwatch>>end (in category 'squeak protocol') ----- - end - - ^ self timespans last next - - ! Item was removed: - ----- Method: Stopwatch>>isActive (in category 'squeak protocol') ----- - isActive - - ^ self state = #active - ! Item was removed: - ----- Method: Stopwatch>>isSuspended (in category 'squeak protocol') ----- - isSuspended - - ^ self state = #suspended - - ! Item was removed: - ----- Method: Stopwatch>>postCopy (in category 'copying') ----- - postCopy - super postCopy. - timespans := timespans copy! Item was removed: - ----- Method: Stopwatch>>printOn: (in category 'squeak protocol') ----- - printOn: aStream - - super printOn: aStream. - aStream - nextPut: $(; - nextPutAll: self state; - nextPut: $:; - print: self duration; - nextPut: $). - - ! Item was removed: - ----- Method: Stopwatch>>reActivate (in category 'squeak protocol') ----- - reActivate - - self - suspend; - activate. - ! Item was removed: - ----- Method: Stopwatch>>reset (in category 'squeak protocol') ----- - reset - - self suspend. - timespans := nil - ! Item was removed: - ----- Method: Stopwatch>>start (in category 'squeak protocol') ----- - start - - ^ self timespans first start - - ! Item was removed: - ----- Method: Stopwatch>>state (in category 'squeak protocol') ----- - state - - ^ state ifNil: [ state := #suspended ]! Item was removed: - ----- Method: Stopwatch>>state: (in category 'squeak protocol') ----- - state: aSymbol - - state := aSymbol! Item was removed: - ----- Method: Stopwatch>>suspend (in category 'squeak protocol') ----- - suspend - - | ts | - self isActive ifTrue: - [ ts := self timespans last. - ts duration: (DateAndTime now - ts start). - self state: #suspended]! Item was removed: - ----- Method: Stopwatch>>timespans (in category 'squeak protocol') ----- - timespans - - ^ timespans ifNil: [ timespans := OrderedCollection new ]! Item was removed: - Magnitude subclass: #Time - instanceVariableNames: 'seconds nanos' - classVariableNames: '' - poolDictionaries: 'ChronologyConstants' - category: 'Kernel-Chronology'! - - !Time commentStamp: 'dew 10/23/2004 17:58' prior: 0! - This represents a particular point in time during any given day. For example, '5:19:45 pm'. - - If you need a point in time on a particular day, use DateAndTime. If you need a duration of time, use Duration. - ! Item was removed: - ----- Method: Time class>>benchmarkMillisecondClock (in category 'benchmarks') ----- - benchmarkMillisecondClock "Time benchmarkMillisecondClock" - - "Benchmark the time spent in a call to Time>>millisecondClockValue. - - On the VM level this tests the efficiency of calls to ioMSecs()." - - "PII/400 Windows 98: 0.725 microseconds per call" - - | temp1 temp2 temp3 delayTime nLoops time | - - delayTime := 5000. "Time to run benchmark is approx. 2*delayTime" - - - - "Don't run the benchmark if we have an active delay since - - we will measure the additional penalty in the primitive dispatch - - mechanism (see #benchmarkPrimitiveResponseDelay)." - - Delay anyActive ifTrue:[ - - ^self notify:'Some delay is currently active. - - Running this benchmark will not give any useful result.']. - - - - "Flush the cache for this benchmark so we will have - - a clear cache hit for each send to #millisecondClockValue below" - - Object flushCache. - - temp1 := 0. - - temp2 := self. "e.g., temp1 == Time" - - temp3 := self millisecondClockValue + delayTime. - - - - "Now check how often we can run the following loop in the given time" - - [temp2 millisecondClockValue < temp3] - - whileTrue:[temp1 := temp1 + 1]. - - - - nLoops := temp1. "Remember the loops we have run during delayTime" - - - - "Setup the second loop" - - temp1 := 0. - - temp3 := nLoops. - - - - "Now measure how much time we spend without sending #millisecondClockValue" - - time := Time millisecondClockValue. - - [temp1 < temp3] - - whileTrue:[temp1 := temp1 + 1]. - - time := Time millisecondClockValue - time. - - - - "And compute the number of microseconds spent per call to #millisecondClockValue" - - ^((delayTime - time * 1000.0 / nLoops) truncateTo: 0.001) printString, - - ' microseconds per call to Time>>millisecondClockValue' - ! Item was removed: - ----- Method: Time class>>benchmarkPrimitiveResponseDelay (in category 'benchmarks') ----- - benchmarkPrimitiveResponseDelay "Time benchmarkPrimitiveResponseDelay" - - "Benchmark the overhead for primitive dispatches with an active Delay. - - On the VM level, this tests the efficiency of ioLowResMSecs." - - - - "PII/400 Windows98: 0.128 microseconds per prim" - - - - "ar 9/6/1999: This value is *extremely* important for stuff like sockets etc. - - I had a bad surprise when Michael pointed this particular problem out: - - Using the hardcoded clock() call for ioLowResMSecs on Win32 resulted in an overhead - - of 157.4 microseconds per primitive call - meaning you can't get no more than - - approx. 6000 primitives per second on my 400Mhz PII system with an active delay!! - - BTW, it finally explains why Squeak seemed soooo slow when running PWS or - - other socket stuff. The new version (not using clock() but some Windows function) - - looks a lot better (see above; approx. 8,000,000 prims per sec with an active delay)." - - - - | nLoops bb index baseTime actualTime delayTime | - - delayTime := 5000. "Time to run this test is approx. 3*delayTime" - - - - Delay anyActive ifTrue:[ - - ^self notify:'Some delay is currently active. - - Running this benchmark will not give any useful result.']. - - - - bb := Array new: 1. "The object we send the prim message to" - - - - "Compute the # of loops we'll run in a decent amount of time" - - [(Delay forMilliseconds: delayTime) wait] - - forkAt: Processor userInterruptPriority. - - - - nLoops := 0. - - [Delay anyActive] whileTrue:[ - - bb basicSize; basicSize; basicSize; basicSize; basicSize; - - basicSize; basicSize; basicSize; basicSize; basicSize. - - nLoops := nLoops + 1. - - ]. - - - - "Flush the cache and make sure #basicSize is in there" - - Object flushCache. - - bb basicSize. - - - - "Now run the loop without any active delay - - for getting an idea about its actual speed." - - baseTime := self millisecondClockValue. - - index := nLoops. - - [index > 0] whileTrue:[ - - bb basicSize; basicSize; basicSize; basicSize; basicSize; - - basicSize; basicSize; basicSize; basicSize; basicSize. - - index := index - 1. - - ]. - - baseTime := self millisecondClockValue - baseTime. - - - - "Setup the active delay but try to never make it active" - - [(Delay forMilliseconds: delayTime + delayTime) wait] - - forkAt: Processor userInterruptPriority. - - - - "And run the loop" - - actualTime := self millisecondClockValue. - - index := nLoops. - - [index > 0] whileTrue:[ - - bb basicSize; basicSize; basicSize; basicSize; basicSize; - - basicSize; basicSize; basicSize; basicSize; basicSize. - - index := index - 1. - - ]. - - actualTime := self millisecondClockValue - actualTime. - - - - "And get us some result" - - ^((actualTime - baseTime) * 1000 asFloat / (nLoops * 10) truncateTo: 0.001) printString, - - ' microseconds overhead per primitive call' - ! Item was removed: - ----- Method: Time class>>condenseBunches: (in category 'general inquiries') ----- - condenseBunches: aCollectionOfSeconds - | secArray now out pause prev bunchEnd | - "Identify the major intervals in a bunch of numbers. - Each number is a seconds since 1901 that represents a date and time. - We want the last event in a bunch. Return array of seconds for: - - Every event in the last half hour. - Every bunch separated by 30 min in the last 24 hours. - - Every bunch separated by two hours before that." - - "Time condenseBunches: - (#(20 400 401 20000 20200 20300 40000 45000 200000 201000 202000) - collect: [ :tt | self totalSeconds - tt]) - " - - secArray := aCollectionOfSeconds asSortedCollection. - pause := 1. - now := self totalSeconds. - out := OrderedCollection new. - prev := 0. - bunchEnd := nil. - secArray reverseDo: [:secs | | ago | "descending" - ago := now - secs. - ago > (60*30) ifTrue: [pause := "60*30" 1800]. - ago > (60*60*24) ifTrue: [pause := "60*120" 7200]. - ago - prev >= pause ifTrue: [out add: bunchEnd. bunchEnd := secs]. - prev := ago]. - out add: bunchEnd. - out removeFirst. - ^ out - ! Item was removed: - ----- Method: Time class>>current (in category 'squeak protocol') ----- - current - - ^ self now! Item was removed: - ----- Method: Time class>>dateAndTimeFromSeconds: (in category 'smalltalk-80') ----- - dateAndTimeFromSeconds: secondCount - - ^ Array - with: (Date fromSeconds: secondCount) - with: (Time fromSeconds: secondCount \\ 86400)! Item was removed: - ----- Method: Time class>>dateAndTimeNow (in category 'smalltalk-80') ----- - dateAndTimeNow - "Answer a two-element Array of (Date today, Time now)." - - ^ self dateAndTimeFromSeconds: self totalSeconds - ! Item was removed: - ----- Method: Time class>>eventMillisecondClock (in category 'clock') ----- - eventMillisecondClock - "In order to make certain event handling code work (cf MouseEvent>asMouseMove) we need access - to the tick kept by ioMSecs() " - "Time eventMillisecondClock" - <primitive: 135> - ^0! Item was removed: - ----- Method: Time class>>fromSeconds: (in category 'smalltalk-80') ----- - fromSeconds: secondCount - "Answer an instance of me that is secondCount number of seconds since midnight." - - | integerSeconds nanos | - integerSeconds := secondCount truncated. - integerSeconds = secondCount - ifTrue: [nanos := 0] - ifFalse: [nanos := (secondCount - integerSeconds * NanosInSecond) asInteger]. - ^ self seconds: integerSeconds nanoSeconds: nanos - ! Item was removed: - ----- Method: Time class>>hour:minute:second: (in category 'squeak protocol') ----- - hour: hour minute: minute second: second - "Answer a Time" - - ^ self hour: hour minute: minute second: second nanoSecond: 0 - ! Item was removed: - ----- Method: Time class>>hour:minute:second:nanoSecond: (in category 'squeak protocol') ----- - hour: hour minute: minute second: second nanoSecond: nanoCount - "Answer a Time - only second precision for now" - - ^ self - seconds: (hour * SecondsInHour) + (minute * SecondsInMinute) + second - nanoSeconds: nanoCount - ! Item was removed: - ----- Method: Time class>>humanWordsForSecondsAgo: (in category 'general inquiries') ----- - humanWordsForSecondsAgo: secs - | date today | - "Return natural language for this date and time in the past." - - secs <= 1 ifTrue: [^ 'a second ago']. - secs < 45 ifTrue: [^ secs printString, ' seconds ago']. - secs < 90 ifTrue: [^ 'a minute ago']. - secs < "45*60" 2700 ifTrue: [^ (secs//60) printString, ' minutes ago']. - secs < "90*60" 5400 ifTrue: [^ 'an hour ago']. - secs < "18*60*60" 64800 ifTrue: [^ (secs//3600) printString, ' hours ago']. - date := Date fromSeconds: self totalSeconds - secs. "now work with dates" - today := Date today. - date > (today subtractDays: 2) ifTrue: [^ 'yesterday']. - date > (today subtractDays: 8) ifTrue: [^ 'last ', date dayOfWeekName]. - date > (today subtractDays: 13) ifTrue: [^ 'a week ago']. - date > (today subtractDays: 28) ifTrue: [ - ^ ((today subtractDate: date)//7) printString, ' weeks ago']. - date > (today subtractDays: 45) ifTrue: [^ 'a month ago']. - date > (today subtractDays: 300) ifTrue: [^ 'last ', date monthName]. - ^ date monthName, ', ', date year printString - - "Example - #(0.5 30 62 130 4000 10000 60000 90000 345600 864000 1728000 3456000 17280000 34560000 345600000) - collect: [:ss | Time humanWordsForSecondsAgo: ss]. - " - ! Item was removed: - ----- 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 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 removed: - ----- Method: Time class>>midnight (in category 'squeak protocol') ----- - midnight - - ^ self seconds: 0 - ! Item was removed: - ----- Method: Time class>>milliSecondsSinceMidnight (in category 'ansi protocol') ----- - milliSecondsSinceMidnight - ^self localMicrosecondClock // 1000 \\ 86400000 "24 * 60 * 60 * 1000"! Item was removed: - ----- Method: Time class>>millisecondClockValue (in category 'general inquiries') ----- - millisecondClockValue - "Answer the value of the millisecond clock." - - ^self localMicrosecondClock // 1000! Item was removed: - ----- Method: Time class>>milliseconds:since: (in category 'squeak protocol') ----- - milliseconds: currentTime since: lastTime - "Answer the elapsed time since last recorded in milliseconds (i.e. of millisecondClockValue). - Since the time basis is now a 61-bit or greater UTC microsecond clock, rollover is no longer an issue." - - ^currentTime - lastTime! Item was removed: - ----- Method: Time class>>millisecondsSince: (in category 'squeak protocol') ----- - millisecondsSince: lastTime - "Answer the elapsed time since last recorded in milliseconds. - Compensate for rollover." - - ^self milliseconds: self millisecondClockValue since: lastTime - ! Item was removed: - ----- Method: Time class>>millisecondsToRun: (in category 'general inquiries') ----- - millisecondsToRun: timedBlock - "Answer the number of milliseconds timedBlock takes to return its value." - - | startUsecs | - startUsecs := self utcMicrosecondClock. - timedBlock value. - ^self utcMicrosecondClock - startUsecs + 500 // 1000! Item was removed: - ----- Method: Time class>>namesForTimes: (in category 'general inquiries') ----- - namesForTimes: arrayOfSeconds - | simpleEnglish final prev | - "Return English descriptions of the times in the array. They are each seconds since 1901. If two names are the same, append the date and time to distinguish them." - - simpleEnglish := arrayOfSeconds collect: [:secsAgo | - self humanWordsForSecondsAgo: self totalSeconds - secsAgo]. - prev := ''. - final := simpleEnglish copy. - simpleEnglish withIndexDo: [:eng :ind | | prevPair myPair | - eng = prev ifFalse: [eng] - ifTrue: ["both say 'a month ago'" - prevPair := self dateAndTimeFromSeconds: - (arrayOfSeconds at: ind-1). - myPair := self dateAndTimeFromSeconds: - (arrayOfSeconds at: ind). - (final at: ind-1) = prev ifTrue: ["only has 'a month ago'" - final at: ind-1 put: - (final at: ind-1), ', ', prevPair first mmddyyyy]. - final at: ind put: - (final at: ind), ', ', myPair first mmddyyyy. - prevPair first = myPair first - ifTrue: [ - (final at: ind-1) last == $m ifFalse: ["date but no time" - final at: ind-1 put: - (final at: ind-1), ', ', prevPair second printMinutes]. - final at: ind put: - (final at: ind), ', ', myPair second printMinutes]]. - prev := eng]. - ^ final - ! Item was removed: - ----- Method: Time class>>new (in category 'smalltalk-80') ----- - new - "Answer a Time representing midnight" - - ^ self midnight! Item was removed: - ----- Method: Time class>>noon (in category 'squeak protocol') ----- - noon - - ^ self seconds: (SecondsInDay / 2) - ! Item was removed: - ----- Method: Time class>>now (in category 'ansi protocol') ----- - now - "Answer a Time representing the time right now - this is a 24 hour clock." - | localUsecs localUsecsToday | - localUsecs := self localMicrosecondClock. - localUsecsToday := localUsecs \\ MicrosecondsInDay. - ^ self - seconds: localUsecsToday // 1000000 - nanoSeconds: localUsecsToday \\ 1000000 * 1000! Item was removed: - ----- Method: Time class>>primPosixMicrosecondClockWithOffset (in category 'private') ----- - primPosixMicrosecondClockWithOffset - "Answer an array with UTC microseconds since the Posix epoch and the - current seconds offset from GMT in the local time zone." - - <primitive: 'primitiveUtcWithOffset'> - ^{0. 0}! Item was removed: - ----- Method: Time class>>readFrom: (in category 'smalltalk-80') ----- - readFrom: aStream - "Read a Time from the stream in the form: - <hour>:<minute>:<second> <am/pm> - - <minute>, <second> or <am/pm> may be omitted. e.g. 1:59:30 pm; 8AM; 15:30" - - | hour minute second ampm nanos nanosBuffer | - hour := Integer readFrom: aStream. - minute := 0. - second := 0. - nanosBuffer := '000000000' copy. - nanos := WriteStream on: nanosBuffer. - (aStream peekFor: $:) - ifTrue: [ - minute := Integer readFrom: aStream. - (aStream peekFor: $:) - ifTrue: [ - second := Integer readFrom: aStream. - (aStream peekFor: $.) - ifTrue: [ - [aStream atEnd not and: [aStream peek isDigit]] - whileTrue: [nanos nextPut: aStream next]]]]. - aStream skipSeparators. - (aStream atEnd not and: ['PApa' includes: aStream peek]) ifTrue: - [ampm := aStream next asLowercase. - (ampm = $p and: [hour < 12]) ifTrue: [hour := hour + 12]. - (ampm = $a and: [hour = 12]) ifTrue: [hour := 0]. - (aStream peekFor: $m) ifFalse: [aStream peekFor: $M ]]. - ^ self - hour: hour - minute: minute - second: second - nanoSecond: nanosBuffer asInteger - - "Time readFrom: (ReadStream on: '2:23:09 pm')"! Item was removed: - ----- Method: Time class>>seconds: (in category 'squeak protocol') ----- - seconds: seconds - "Answer a Time from midnight." - - ^ self basicNew ticks: (Duration seconds: seconds) ticks! Item was removed: - ----- Method: Time class>>seconds:nanoSeconds: (in category 'squeak protocol') ----- - seconds: seconds nanoSeconds: nanoCount - "Answer a Time from midnight." - - ^ self basicNew - ticks: (Duration seconds: seconds nanoSeconds: nanoCount) ticks - ! Item was removed: - ----- Method: Time class>>totalSeconds (in category 'smalltalk-80') ----- - totalSeconds - "Answer the total seconds since the Squeak epoch: 1 January 1901, in local time." - - ^self localMicrosecondClock // 1000000! Item was removed: - ----- Method: Time class>>utcMicrosecondClock (in category 'clock') ----- - utcMicrosecondClock - "Answer the UTC 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." - <primitive: 240> - ^0! Item was removed: - ----- Method: Time>>< (in category 'ansi protocol') ----- - < aTime - - ^ self asDuration < aTime asDuration! Item was removed: - ----- Method: Time>>= (in category 'ansi protocol') ----- - = aTime - - ^ [ self ticks = aTime ticks ] - on: MessageNotUnderstood do: [false]! Item was removed: - ----- Method: Time>>addSeconds: (in category 'smalltalk-80') ----- - addSeconds: nSeconds - "Answer a Time that is nSeconds after the receiver." - - ^ self class seconds: self asSeconds + nSeconds! Item was removed: - ----- Method: Time>>addTime: (in category 'smalltalk-80') ----- - addTime: timeAmount - "Answer a Time that is timeInterval after the receiver. timeInterval is an - instance of Date or Time." - - ^ self class seconds: self asSeconds + timeAmount asSeconds - ! Item was removed: - ----- Method: Time>>asDate (in category 'squeak protocol') ----- - asDate - - ^ Date today! Item was removed: - ----- Method: Time>>asDateAndTime (in category 'squeak protocol') ----- - asDateAndTime - - ^ DateAndTime today + self! Item was removed: - ----- Method: Time>>asDuration (in category 'squeak protocol') ----- - asDuration - - "Answer the duration since midnight" - - ^ Duration seconds: seconds nanoSeconds: nanos! Item was removed: - ----- Method: Time>>asMonth (in category 'squeak protocol') ----- - asMonth - - ^ self asDateAndTime asMonth! Item was removed: - ----- Method: Time>>asNanoSeconds (in category 'squeak protocol') ----- - asNanoSeconds - "Answer the number of nanoseconds since midnight" - - ^ self asDuration asNanoSeconds! Item was removed: - ----- Method: Time>>asSeconds (in category 'smalltalk-80') ----- - asSeconds - "Answer the number of seconds since midnight of the receiver." - - ^ seconds - ! Item was removed: - ----- Method: Time>>asTime (in category 'squeak protocol') ----- - asTime - - ^ self! Item was removed: - ----- Method: Time>>asTimeStamp (in category 'squeak protocol') ----- - asTimeStamp - - ^ self asDateAndTime asTimeStamp! Item was removed: - ----- Method: Time>>asWeek (in category 'squeak protocol') ----- - asWeek - - ^ self asDateAndTime asWeek! Item was removed: - ----- Method: Time>>asYear (in category 'squeak protocol') ----- - asYear - - ^ self asDateAndTime asYear! Item was removed: - ----- Method: Time>>duration (in category 'ansi protocol') ----- - duration - - ^ Duration zero! Item was removed: - ----- Method: Time>>hash (in category 'ansi protocol') ----- - hash - - ^ self ticks hash! Item was removed: - ----- Method: Time>>hhmm24 (in category 'printing') ----- - hhmm24 - "Return a string of the form 1123 (for 11:23 am), 2154 (for 9:54 pm), of exactly 4 digits" - - ^(String streamContents: - [ :aStream | self print24: true showSeconds: false on: aStream ]) - copyWithout: $: - ! Item was removed: - ----- Method: Time>>hour (in category 'ansi protocol') ----- - hour - - ^ self hour24! Item was removed: - ----- Method: Time>>hour12 (in category 'ansi protocol') ----- - hour12 - "Answer an <integer> between 1 and 12, inclusive, representing the hour - of the day in the 12-hour clock of the local time of the receiver." - ^ self hour24 - 1 \\ 12 + 1 - ! Item was removed: - ----- Method: Time>>hour24 (in category 'ansi protocol') ----- - hour24 - - - ^ self asDuration hours! Item was removed: - ----- Method: Time>>hours (in category 'smalltalk-80') ----- - hours - - ^ self hour! Item was removed: - ----- Method: Time>>intervalString (in category 'smalltalk-80') ----- - intervalString - "Treat the time as a difference. Give it in hours and minutes with two digits of accuracy." - - | d | - d := self asDuration. - ^ String streamContents: [ :s | - d hours > 0 ifTrue: [s print: d hours; nextPutAll: ' hours']. - d minutes > 0 ifTrue: [s space; print: d minutes; nextPutAll: ' minutes']. - d seconds > 0 ifTrue: [s space; print: d seconds; nextPutAll: ' seconds'] ] - ! Item was removed: - ----- Method: Time>>meridianAbbreviation (in category 'ansi protocol') ----- - meridianAbbreviation - - ^ self hour < 12 ifTrue: ['AM'] ifFalse: ['PM'] - ! Item was removed: - ----- Method: Time>>minute (in category 'ansi protocol') ----- - minute - - ^ self asDuration minutes! Item was removed: - ----- Method: Time>>minutes (in category 'smalltalk-80') ----- - minutes - - ^ self asDuration minutes! Item was removed: - ----- Method: Time>>nanoSecond (in category 'squeak protocol') ----- - nanoSecond - - - ^ nanos! Item was removed: - ----- Method: Time>>print24 (in category 'printing') ----- - print24 - "Return as 8-digit string 'hh:mm:ss', with leading zeros if needed" - - ^String streamContents: - [ :aStream | self print24: true on: aStream ] - ! Item was removed: - ----- Method: Time>>print24:on: (in category 'printing') ----- - print24: hr24 on: aStream - "Format is 'hh:mm:ss' or 'h:mm:ss am' " - - self print24: hr24 showSeconds: true on: aStream! Item was removed: - ----- Method: Time>>print24:showSeconds:on: (in category 'printing') ----- - print24: hr24 showSeconds: showSeconds on: aStream - "Format is 'hh:mm:ss' or 'h:mm:ss am' or, if showSeconds is false, 'hh:mm' or 'h:mm am'" - - | h m s | - h := self hour. m := self minute. s := self second. - hr24 - ifTrue: - [ h < 10 ifTrue: [ aStream nextPutAll: '0' ]. - h printOn: aStream ] - ifFalse: - [ h > 12 - ifTrue: [h - 12 printOn: aStream] - ifFalse: - [h < 1 - ifTrue: [ 12 printOn: aStream ] - ifFalse: [ h printOn: aStream ]]]. - - aStream nextPutAll: (m < 10 ifTrue: [':0'] ifFalse: [':']). - m printOn: aStream. - - showSeconds ifTrue: - [ aStream nextPutAll: (s < 10 ifTrue: [':0'] ifFalse: [':']). - self nanoSecond = 0 - ifTrue: [s asInteger printOn: aStream] - ifFalse: [s asInteger * NanosInSecond + self nanoSecond asInteger - printOn: aStream asFixedPoint: NanosInSecond]]. - - hr24 ifFalse: - [ aStream nextPutAll: (h < 12 ifTrue: [' am'] ifFalse: [' pm']) ]. - ! Item was removed: - ----- Method: Time>>printMinutes (in category 'printing') ----- - printMinutes - "Return as string 'hh:mm pm' " - - ^String streamContents: - [ :aStream | self print24: false showSeconds: false on: aStream ]! Item was removed: - ----- Method: Time>>printOn: (in category 'printing') ----- - printOn: aStream - - self print24: false - showSeconds: (self seconds ~= 0 - or: [self nanoSecond ~= 0]) - on: aStream! Item was removed: - ----- Method: Time>>second (in category 'ansi protocol') ----- - second - - - ^ self asDuration seconds - ! Item was removed: - ----- Method: Time>>seconds (in category 'smalltalk-80') ----- - seconds - - ^ self second! Item was removed: - ----- Method: Time>>seconds: (in category 'private') ----- - seconds: secondCount - "Private - only used by Time class." - - seconds := secondCount. - nanos := 0 - ! Item was removed: - ----- Method: Time>>seconds:nanoSeconds: (in category 'private') ----- - seconds: secondCount nanoSeconds: nanoCount - "Private - only used by Time class." - - seconds := secondCount. - nanos := nanoCount - ! Item was removed: - ----- Method: Time>>storeOn: (in category 'printing') ----- - storeOn: aStream - - aStream print: self printString; nextPutAll: ' asTime' - ! Item was removed: - ----- Method: Time>>subtractTime: (in category 'smalltalk-80') ----- - subtractTime: timeAmount - "Answer a Time that is timeInterval before the receiver. timeInterval is - an instance of Date or Time." - - ^ self class seconds: self asSeconds - timeAmount asSeconds! Item was removed: - ----- Method: Time>>ticks (in category 'private') ----- - ticks - "Answer an Array: { seconds. nanoSeconds }" - - ^ Array with: 0 with: seconds with: nanos.! Item was removed: - ----- Method: Time>>ticks: (in category 'private') ----- - ticks: anArray - "ticks is an Array: { days. seconds. nanoSeconds }" - - seconds := anArray at: 2. - nanos := anArray at: 3 - ! Item was removed: - ----- Method: Time>>to: (in category 'squeak protocol') ----- - to: anEnd - "Answer a Timespan. anEnd must respond to #asDateAndTime" - - ^ self asDateAndTime to: anEnd! Item was removed: - DateAndTime subclass: #TimeStamp - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: 'Kernel-Chronology'! - - !TimeStamp commentStamp: '<historical>' prior: 0! - This represents a duration of 0 length that marks a particular point in time.! Item was removed: - ----- Method: TimeStamp class>>current (in category 'squeak protocol') ----- - current - - | ts ticks | - ts := super now asTimeStamp. - ticks := ts ticks. - ticks at: 3 put: 0. - ts ticks: ticks offset: ts offset. - ^ ts - ! Item was removed: - ----- Method: TimeStamp class>>now (in category 'ansi protocol') ----- - now - "Answer the current date and time as a TimeStamp." - - ^self current! Item was removed: - ----- Method: TimeStamp>>asDateAndTime (in category 'squeak protocol') ----- - asDateAndTime - "Answer the receiver as an instance of DateAndTime." - - ^ DateAndTime new setJdn: jdn seconds: seconds nano: nanos offset: offset! Item was removed: - ----- Method: TimeStamp>>asTimeStamp (in category 'squeak protocol') ----- - asTimeStamp - "Answer the receiver as an instance of TimeStamp." - - ^ self! Item was removed: - ----- Method: TimeStamp>>date (in category 'squeak protocol') ----- - date - "Answer the date of the receiver." - - ^ self asDate! Item was removed: - ----- Method: TimeStamp>>dateAndTime (in category 'squeak protocol') ----- - dateAndTime - "Answer a two element Array containing the receiver's date and time." - - ^ Array with: self date with: self time! Item was removed: - ----- Method: TimeStamp>>minusDays: (in category 'squeak protocol') ----- - minusDays: anInteger - "Answer a TimeStamp which is anInteger days before the receiver." - - ^ self - (anInteger days)! Item was removed: - ----- Method: TimeStamp>>minusSeconds: (in category 'squeak protocol') ----- - minusSeconds: anInteger - "Answer a TimeStamp which is anInteger number of seconds before the receiver." - - ^ self - (anInteger seconds)! Item was removed: - ----- Method: TimeStamp>>plusDays: (in category 'squeak protocol') ----- - plusDays: anInteger - "Answer a TimeStamp which is anInteger days after the receiver." - - ^ self + (anInteger days)! Item was removed: - ----- Method: TimeStamp>>plusSeconds: (in category 'squeak protocol') ----- - plusSeconds: anInteger - "Answer a TimeStamp which is anInteger number of seconds after the receiver." - - ^ self + (anInteger seconds)! Item was removed: - ----- Method: TimeStamp>>printOn: (in category 'squeak protocol') ----- - printOn: aStream - "Print receiver's date and time on aStream." - - aStream - nextPutAll: self date printString; - space; - nextPutAll: self time printString.! Item was removed: - ----- Method: TimeStamp>>storeOn: (in category 'squeak protocol') ----- - storeOn: aStream - - aStream - print: self printString; - nextPutAll: ' asTimeStamp'! Item was removed: - ----- Method: TimeStamp>>time (in category 'squeak protocol') ----- - time - "Answer the time of the receiver." - - ^ self asTime! Item was removed: - Object subclass: #TimeZone - instanceVariableNames: 'offset abbreviation name' - classVariableNames: '' - poolDictionaries: 'ChronologyConstants' - category: 'Kernel-Chronology'! - - !TimeZone commentStamp: 'dtl 7/11/2009 15:03' prior: 0! - TimeZone is a simple class to colect the information identifying a UTC time zone. - - offset - Duration - the time zone's offset from UTC - abbreviation - String - the abbreviated name for the time zone. - name - String - the name of the time zone. - - TimeZone class >> #timeZones returns an array of the known time zones - TimeZone class >> #default returns the default time zone (Grenwich Mean Time) - ! Item was removed: - ----- Method: TimeZone class>>default (in category 'accessing') ----- - default - "Answer the default time zone - GMT" - - ^ self timeZones detect: [ :tz | tz offset = Duration zero ]! Item was removed: - ----- Method: TimeZone class>>offset:name:abbreviation: (in category 'instance creation') ----- - offset: aDuration name: aName abbreviation: anAbbreviation - - ^ self new - offset: aDuration; - name: aName; - abbreviation: anAbbreviation; - yourself - ! Item was removed: - ----- Method: TimeZone class>>timeZones (in category 'accessing') ----- - timeZones - ^{ - self offset: 0 hours name: 'Universal Time' abbreviation: 'UTC'. - self offset: 0 hours name: 'Greenwich Mean Time' abbreviation: 'GMT'. - self offset: 1 hours name: 'British Summer Time' abbreviation: 'BST'. - self offset: 2 hours name: 'South African Standard Time' abbreviation: 'SAST'. - self offset: -8 hours name: 'Pacific Standard Time' abbreviation: 'PST'. - self offset: -7 hours name: 'Pacific Daylight Time' abbreviation: 'PDT'. - self offset: -7 hours name: 'Mountain Standard Time' abbreviation: 'MST'. - self offset: -6 hours name: 'Mountain Daylight Time' abbreviation: 'MDT'. - self offset: -6 hours name: 'Central Standard Time' abbreviation: 'CST'. - self offset: -5 hours name: 'Central Daylight Time' abbreviation: 'CDT'. - self offset: -5 hours name: 'Eastern Standard Time' abbreviation: 'EST'. - self offset: -4 hours name: 'Eastern Daylight Time' abbreviation: 'EDT'. - }! Item was removed: - ----- Method: TimeZone>>abbreviation (in category 'accessing') ----- - abbreviation - - ^ abbreviation! Item was removed: - ----- Method: TimeZone>>abbreviation: (in category 'accessing') ----- - abbreviation: aString - - abbreviation := aString! Item was removed: - ----- Method: TimeZone>>name (in category 'accessing') ----- - name - - ^ name! Item was removed: - ----- Method: TimeZone>>name: (in category 'accessing') ----- - name: aString - - name := aString! Item was removed: - ----- Method: TimeZone>>offset (in category 'accessing') ----- - offset - - ^ offset - ! Item was removed: - ----- Method: TimeZone>>offset: (in category 'accessing') ----- - offset: aDuration - - offset := aDuration - ! Item was removed: - ----- Method: TimeZone>>printOn: (in category 'private') ----- - printOn: aStream - - super printOn: aStream. - aStream - nextPut: $(; - nextPutAll: self abbreviation; - nextPut: $)! Item was removed: - Magnitude subclass: #Timespan - instanceVariableNames: 'start duration' - classVariableNames: '' - poolDictionaries: '' - category: 'Kernel-Chronology'! - - !Timespan commentStamp: 'bf 2/18/2016 14:43' prior: 0! - I represent a duration starting on a specific DateAndTime. - - If my start has an offset identical to my #defaultOffset then comparisons ignore timezone offset.! Item was removed: - ----- Method: Timespan class>>current (in category 'squeak protocol') ----- - current - ^ self starting: (DateAndTime now offset: self defaultOffset)! Item was removed: - ----- 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! Item was removed: - ----- Method: Timespan class>>new (in category 'squeak protocol') ----- - new - "Answer a Timespan starting on the Squeak epoch: 1 January 1901" - ^ self starting: (DateAndTime new offset: self defaultOffset)! Item was removed: - ----- Method: Timespan class>>starting: (in category 'squeak protocol') ----- - starting: aDateAndTime - - - ^ self starting: aDateAndTime duration: Duration zero! Item was removed: - ----- Method: Timespan class>>starting:duration: (in category 'squeak protocol') ----- - starting: aDateAndTime duration: aDuration - - ^ self basicNew - start: aDateAndTime asDateAndTime; - duration: aDuration; - yourself! Item was removed: - ----- Method: Timespan class>>starting:ending: (in category 'squeak protocol') ----- - starting: startDateAndTime ending: endDateAndTime - - ^ self - starting: startDateAndTime - duration: (endDateAndTime asDateAndTime - startDateAndTime) - ! Item was removed: - ----- Method: Timespan>>+ (in category 'ansi protocol') ----- - + operand - "operand conforms to protocol Duration" - - - ^ self class starting: (self start + operand) duration: self duration! Item was removed: - ----- Method: Timespan>>- (in category 'ansi protocol') ----- - - operand - "operand conforms to protocol DateAndTime or protocol Duration" - - ^ (operand respondsTo: #asDateAndTime) - - ifTrue: [ self start - operand ] - - ifFalse: [ self + (operand negated) ] - ! Item was removed: - ----- Method: Timespan>>< (in category 'ansi protocol') ----- - < comparand - ^(self noTimezone or: [comparand noTimezone]) - ifTrue: [self start hasSmallerTicksThan: comparand asDateAndTime] - ifFalse: [self start < comparand asDateAndTime] - ! Item was removed: - ----- Method: Timespan>>= (in category 'ansi protocol') ----- - = comparand - ^ self class = comparand class - and: [((self noTimezone or: [ comparand noTimezone ]) - ifTrue: [ self start hasEqualTicks: comparand start ] - ifFalse: [ self start = comparand start ]) - and: [ self duration = comparand duration ] ] - .! Item was removed: - ----- Method: Timespan>>asDate (in category 'squeak protocol') ----- - asDate - - - ^ start asDate! Item was removed: - ----- Method: Timespan>>asDateAndTime (in category 'squeak protocol') ----- - asDateAndTime - - ^ start! Item was removed: - ----- Method: Timespan>>asDuration (in category 'squeak protocol') ----- - asDuration - - ^ self duration! Item was removed: - ----- Method: Timespan>>asMonth (in category 'squeak protocol') ----- - asMonth - - - ^ start asMonth! Item was removed: - ----- Method: Timespan>>asTime (in category 'squeak protocol') ----- - asTime - - ^ start asTime! Item was removed: - ----- Method: Timespan>>asTimeStamp (in category 'squeak protocol') ----- - asTimeStamp - - ^ start asTimeStamp! Item was removed: - ----- Method: Timespan>>asWeek (in category 'squeak protocol') ----- - asWeek - - ^ start asWeek! Item was removed: - ----- Method: Timespan>>asYear (in category 'squeak protocol') ----- - asYear - - - ^ start asYear - ! Item was removed: - ----- Method: Timespan>>dates (in category 'enumerating') ----- - dates - - - | dates | - - dates := OrderedCollection new. - self datesDo: [ :m | dates add: m ]. - ^ dates asArray! Item was removed: - ----- Method: Timespan>>datesDo: (in category 'enumerating') ----- - datesDo: aBlock - - - self do: aBlock with: start asDate - ! Item was removed: - ----- Method: Timespan>>day (in category 'smalltalk-80') ----- - day - "Answer the day of the year represented by the receiver." - ^ self dayOfYear! Item was removed: - ----- Method: Timespan>>dayOfMonth (in category 'ansi protocol') ----- - dayOfMonth - "Answer the day of the month represented by the receiver." - - ^ start dayOfMonth! Item was removed: - ----- Method: Timespan>>dayOfWeek (in category 'ansi protocol') ----- - dayOfWeek - "Answer the day of the week represented by the receiver." - - ^ start dayOfWeek! Item was removed: - ----- Method: Timespan>>dayOfWeekName (in category 'ansi protocol') ----- - dayOfWeekName - "Answer the day of the week represented by the receiver." - - ^ start dayOfWeekName! Item was removed: - ----- Method: Timespan>>dayOfYear (in category 'ansi protocol') ----- - dayOfYear - "Answer the day of the year represented by the receiver." - - ^ start dayOfYear! Item was removed: - ----- Method: Timespan>>daysInMonth (in category 'smalltalk-80') ----- - daysInMonth - - - ^ start daysInMonth! Item was removed: - ----- Method: Timespan>>daysInYear (in category 'smalltalk-80') ----- - daysInYear - "Answer the number of days in the month represented by the receiver." - - ^ start daysInYear! Item was removed: - ----- Method: Timespan>>daysLeftInYear (in category 'smalltalk-80') ----- - daysLeftInYear - ^ start daysLeftInYear! Item was removed: - ----- Method: Timespan>>do:with: (in category 'private') ----- - do: aBlock with: aFirstElement - - self do: aBlock with: aFirstElement when: [ :t | true ] - ! Item was removed: - ----- Method: Timespan>>do:with:when: (in category 'private') ----- - do: aBlock with: aFirstElement when: aConditionBlock - - | element end | - element := aFirstElement. - end := self end. - [ element start <= end ] whileTrue: - - [(aConditionBlock value: element) - ifTrue: [ aBlock value: element ]. - element := element next. ] - ! Item was removed: - ----- Method: Timespan>>duration (in category 'squeak protocol') ----- - duration - "Answer the Duration of this timespan" - - ^ duration! Item was removed: - ----- Method: Timespan>>duration: (in category 'private') ----- - duration: aDuration - "Set the Duration of this timespan" - - duration := aDuration! Item was removed: - ----- Method: Timespan>>end (in category 'squeak protocol') ----- - end - - - ^ self duration asNanoSeconds = 0 - ifTrue: [ self start ] - ifFalse: [ self next start - DateAndTime clockPrecision ] - ! Item was removed: - ----- Method: Timespan>>every:do: (in category 'enumerating') ----- - every: aDuration do: aBlock - - | element end | - element := self start. - end := self end. - [ element <= end ] whileTrue: - - [ aBlock value: element. - element := element + aDuration. ]! Item was removed: - ----- Method: Timespan>>firstDayOfMonth (in category 'smalltalk-80') ----- - firstDayOfMonth - - ^ start firstDayOfMonth! Item was removed: - ----- Method: Timespan>>hash (in category 'ansi protocol') ----- - hash - - ^ start hash + duration hash! Item was removed: - ----- Method: Timespan>>includes: (in category 'squeak protocol') ----- - includes: aDateAndTime - - - ^ (aDateAndTime isKindOf: Timespan) - ifTrue: [ (self includes: aDateAndTime start) - and: [ self includes: aDateAndTime end ] ] - ifFalse: [ aDateAndTime asDateAndTime between: start and: self end ]! Item was removed: - ----- Method: Timespan>>includesAllOf: (in category 'squeak protocol') ----- - includesAllOf: aCollection - "Answer whether all the elements of aCollection are in the receiver." - - aCollection do: [:elem | (self includes: elem) ifFalse: [^ false]]. - ^ true - ! Item was removed: - ----- Method: Timespan>>includesAnyOf: (in category 'squeak protocol') ----- - includesAnyOf: aCollection - "Answer whether any element of aCollection is included in the receiver" - - aCollection do: [ :elem | (self includes: elem) ifTrue: [^ true]]. - ^false - ! Item was removed: - ----- Method: Timespan>>intersection: (in category 'squeak protocol') ----- - intersection: aTimespan - - "Return the Timespan both have in common, or nil" - - | aBegin anEnd | - aBegin := self start max: aTimespan start. - anEnd := self end min: aTimespan end. - anEnd < aBegin ifTrue: [^nil]. - - ^ self class starting: aBegin ending: anEnd - ! Item was removed: - ----- Method: Timespan>>isLeapYear (in category 'ansi protocol') ----- - isLeapYear - - ^ start isLeapYear! Item was removed: - ----- Method: Timespan>>julianDayNumber (in category 'squeak protocol') ----- - julianDayNumber - - - ^ start julianDayNumber! Item was removed: - ----- Method: Timespan>>makeUTC (in category 'squeak protocol') ----- - makeUTC - "Change the receiver's timezone to UTC, which affords substantially better hashing performance." - start makeUTC! Item was removed: - ----- Method: Timespan>>month (in category 'ansi protocol') ----- - month - - ^ start month! Item was removed: - ----- Method: Timespan>>monthAbbreviation (in category 'ansi protocol') ----- - monthAbbreviation - - - ^ start monthAbbreviation! Item was removed: - ----- Method: Timespan>>monthIndex (in category 'smalltalk-80') ----- - monthIndex - - ^ self month! Item was removed: - ----- Method: Timespan>>monthName (in category 'ansi protocol') ----- - monthName - - - ^ start monthName! Item was removed: - ----- Method: Timespan>>months (in category 'enumerating') ----- - months - - | months | - months := OrderedCollection new: 12. - self monthsDo: [ :m | months add: m ]. - ^ months asArray. - ! Item was removed: - ----- Method: Timespan>>monthsDo: (in category 'enumerating') ----- - monthsDo: aBlock - - self do: aBlock with: start asMonth! Item was removed: - ----- Method: Timespan>>next (in category 'smalltalk-80') ----- - next - - ^ self class starting: (start + duration) duration: duration! Item was removed: - ----- Method: Timespan>>noTimezone (in category 'private') ----- - noTimezone - ^ start noTimezone! Item was removed: - ----- Method: Timespan>>previous (in category 'smalltalk-80') ----- - previous - - - ^ self class starting: (start - duration) duration: duration! Item was removed: - ----- Method: Timespan>>printOn: (in category 'squeak protocol') ----- - printOn: aStream - - - super printOn: aStream. - aStream - nextPut: $(; - print: start; - nextPut: $D; - print: duration; - nextPut: $) - ! Item was removed: - ----- Method: Timespan>>start (in category 'squeak protocol') ----- - start - "Answer the start DateAndTime of this timespan" - - ^ start! Item was removed: - ----- Method: Timespan>>start: (in category 'squeak protocol') ----- - start: aDateAndTime - "Store the start DateAndTime of this timespan" - - start := aDateAndTime asDateAndTime! Item was removed: - ----- Method: Timespan>>to: (in category 'squeak protocol') ----- - to: anEnd - "Answer an Timespan. anEnd must be aDateAndTime or a Timespan" - - - ^ Timespan starting: (self start) ending: (anEnd asDateAndTime) - ! Item was removed: - ----- Method: Timespan>>union: (in category 'squeak protocol') ----- - union: aTimespan - "Return the Timespan spanned by both" - - | aBegin anEnd | - - aBegin := self start min: aTimespan start. - anEnd := self end max: aTimespan end. - ^ Timespan starting: aBegin ending: (anEnd + DateAndTime clockPrecision) - ! Item was removed: - ----- Method: Timespan>>weeks (in category 'enumerating') ----- - weeks - - - | weeks | - weeks := OrderedCollection new. - self weeksDo: [ :m | weeks add: m ]. - ^ weeks asArray! Item was removed: - ----- Method: Timespan>>weeksDo: (in category 'enumerating') ----- - weeksDo: aBlock - - self do: aBlock with: self asWeek.! Item was removed: - ----- Method: Timespan>>workDatesDo: (in category 'enumerating') ----- - workDatesDo: aBlock - "Exclude Saturday and Sunday" - - self do: aBlock with: start asDate when: [ :d | d dayOfWeek < 6 ] - ! Item was removed: - ----- Method: Timespan>>year (in category 'ansi protocol') ----- - year - - - ^ start year! Item was removed: - ----- Method: Timespan>>years (in category 'enumerating') ----- - years - - - | years | - years := OrderedCollection new. - self yearsDo: [ :m | years add: m ]. - ^ years asArray! Item was removed: - ----- Method: Timespan>>yearsDo: (in category 'enumerating') ----- - yearsDo: aBlock - - self do: aBlock with: start asYear.! Item was removed: - Timespan subclass: #Week - instanceVariableNames: '' - classVariableNames: 'StartDay' - poolDictionaries: 'ChronologyConstants' - category: 'Kernel-Chronology'! - - !Week commentStamp: 'cbr 7/28/2010 18:11' prior: 0! - I represent a week. - - To find out what days of the week on which Squeak is fun, select the following expression, and print it: - - Week dayNames! Item was removed: - ----- Method: Week class>>dayNames (in category 'squeak protocol') ----- - dayNames - - ^ DayNames! Item was removed: - ----- Method: Week class>>indexOfDay: (in category 'squeak protocol') ----- - indexOfDay: aSymbol - - ^ DayNames indexOf: aSymbol! Item was removed: - ----- Method: Week class>>nameOfDay: (in category 'smalltalk-80') ----- - nameOfDay: anIndex - - ^ DayNames at: anIndex! Item was removed: - ----- Method: Week class>>startDay (in category 'squeak protocol') ----- - startDay - - ^ StartDay ifNil: [ StartDay - := DayNames first ] - ! Item was removed: - ----- Method: Week class>>startDay: (in category 'squeak protocol') ----- - startDay: aSymbol - - (DayNames includes: aSymbol) - ifTrue: [ StartDay := aSymbol ] - ifFalse: [ self error: aSymbol, ' is not a recognised day name' ]! Item was removed: - ----- Method: Week class>>starting:duration: (in category 'squeak protocol') ----- - starting: aDateAndTime duration: aDuration - "Override - the duration is always one week. - Week will start from the Week class>>startDay" - - | midnight delta adjusted | - midnight := aDateAndTime asDateAndTime midnight. - delta := ((midnight dayOfWeek + 7 - (DayNames indexOf: self startDay)) rem: 7) abs. - adjusted := midnight - (Duration days: delta seconds: 0). - - ^ super starting: adjusted duration: (Duration weeks: 1)! Item was removed: - ----- Method: Week>>asWeek (in category 'squeak protocol') ----- - asWeek - - ^ self! Item was removed: - ----- Method: Week>>index (in category 'squeak protocol') ----- - index - - ^ self asMonth dayOfWeek + self dayOfMonth - 2 // 7 + 1 - ! Item was removed: - ----- Method: Week>>printOn: (in category 'squeak protocol') ----- - printOn: aStream - - aStream nextPutAll: 'a Week starting: '. - self start printOn: aStream - ! Item was removed: - Timespan subclass: #Year - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: 'Kernel-Chronology'! - - !Year commentStamp: 'cbr 7/28/2010 18:10' prior: 0! - I represent a year. - - Try me!! Select the following expression and print it: - - Year current daysInYear "Try me again next leap year!!"! Item was removed: - ----- Method: Year class>>current (in category 'squeak protocol') ----- - current - - ^ self year: (DateAndTime now year) - ! Item was removed: - ----- Method: Year class>>daysInYear: (in category 'smalltalk-80') ----- - daysInYear: yearInteger - - ^ 365 + ((self isLeapYear: yearInteger) ifTrue: [1] ifFalse: [0]). - ! Item was removed: - ----- Method: Year class>>isLeapYear: (in category 'squeak protocol') ----- - isLeapYear: aYearInteger - - - | adjustedYear | - adjustedYear := aYearInteger > 0 - ifTrue: [aYearInteger] - ifFalse: [(aYearInteger + 1) negated]. - - "There was no year 0" - ^ ((adjustedYear \\ 4 ~= 0) or: [(adjustedYear \\ 100 = 0) and: [adjustedYear \\ 400 ~= 0]]) not! Item was removed: - ----- Method: Year class>>leapYear: (in category 'smalltalk-80') ----- - leapYear: yearInteger - - ^ (self isLeapYear: yearInteger) - ifTrue: [1] - ifFalse: [0]! Item was removed: - ----- Method: Year class>>starting:duration: (in category 'squeak protocol') ----- - starting: aDateAndTime duration: aDuration - "Override - start from midnight" - | midnight | - midnight := aDateAndTime asDateAndTime midnight. - - ^ super - starting: midnight - duration: (Duration days: (self daysInYear: midnight year))! Item was removed: - ----- Method: Year class>>year: (in category 'squeak protocol') ----- - year: aYear - ^ self starting: - (DateAndTime - year: aYear - month: 1 - day: 1 - hour: 0 - minute: 0 - second: 0 - offset: self defaultOffset)! Item was removed: - ----- Method: Year>>asYear (in category 'squeak protocol') ----- - asYear - - - ^ self! Item was removed: - ----- Method: Year>>daysInMonth (in category 'squeak protocol') ----- - daysInMonth - - - self shouldNotImplement! Item was removed: - ----- Method: Year>>daysInYear (in category 'squeak protocol') ----- - daysInYear - - ^ self duration days.! Item was removed: - ----- Method: Year>>previous (in category 'smalltalk-80') ----- - previous - "This implementation handles leap years correctly" - - ^ self class year: (self year - 1)! Item was removed: - ----- Method: Year>>printOn: (in category 'squeak protocol') ----- - printOn: aStream - - aStream nextPutAll: 'a Year ('. - self start year printOn: aStream. - - aStream nextPutAll: ')' - !

1 0

The Trunk: Kernel-dtl.1002.mcz
by commits＠source.squeak.org 27 Feb '16

27 Feb '16

1 0

The Trunk: KernelTests-dtl.307.mcz
by commits＠source.squeak.org 27 Feb '16

27 Feb '16

David T. Lewis uploaded a new version of KernelTests to project The Trunk: http://source.squeak.org/trunk/KernelTests-dtl.307.mcz ==================== Summary ==================== Name: KernelTests-dtl.307 Author: dtl Time: 27 February 2016, 6:34:50.349787 pm UUID: 07831c84-c5ea-48cb-bfc2-dd0b9921837e Ancestors: KernelTests-dtl.306 Move Kernel-Chronology to Chronology-Core and KernelTests-Chronology to Chronology-Tests =============== Diff against KernelTests-eem.305 =============== Item was changed: - SystemOrganization addCategory: #'KernelTests-Chronology'! SystemOrganization addCategory: #'KernelTests-Classes'! SystemOrganization addCategory: #'KernelTests-Methods'! SystemOrganization addCategory: #'KernelTests-Numbers'! SystemOrganization addCategory: #'KernelTests-Objects'! SystemOrganization addCategory: #'KernelTests-Processes'! Item was removed: - TestCase subclass: #DateAndTimeEpochTest - instanceVariableNames: 'aDateAndTime aDuration aTimeZone localTimeZoneToRestore' - classVariableNames: '' - poolDictionaries: '' - category: 'KernelTests-Chronology'! - - !DateAndTimeEpochTest commentStamp: 'tlk 1/6/2004 18:27' prior: 0! - I represent one of several Sunit test Cases intentended to provide complete coverage for the Chronology set of classes as part of the external testing. The other Chronology sunit test cases are: - DateTestCase - DateAndTimeLeapTestCase, - DurationTestCase, - ScheduleTestCase - TimeStampTestCase - TimespanDoTestCase, - TimespanDoSpanAYearTestCase, - TimespanTestCase, - YearMonthWeekTestCase. - These tests attempt to exercise all public and private methods. Except, they do not explicitly depreciated methods. tlk - My fixtures are: - aDateAndTime = January 01, 1901 midnight (the start of the Squeak epoch) with localTimeZone = Grenwhich Meridian (local offset = 0 hours) - aDuration = 1 day, 2 hours, 3, minutes, 4 seconds and 5 nano seconds. - aTimeZone = 'Epoch Test Time Zone', 'ETZ' , offset: 12 hours, 15 minutes. ! Item was removed: - ----- Method: DateAndTimeEpochTest>>setUp (in category 'running') ----- - setUp - localTimeZoneToRestore := DateAndTime localTimeZone. - aDateAndTime := DateAndTime localTimeZone: TimeZone default; epoch. - aTimeZone := TimeZone offset: (Duration minutes: 135) name: 'Epoch Test Time Zone' abbreviation: 'ETZ'. - aDuration := Duration days: 1 hours: 2 minutes: 3 seconds: 4 nanoSeconds: 5 ! Item was removed: - ----- Method: DateAndTimeEpochTest>>tearDown (in category 'running') ----- - tearDown - DateAndTime localTimeZone: localTimeZoneToRestore. - "wish I could remove the time zones I added earlier, tut there is no method for that" - ! Item was removed: - ----- Method: DateAndTimeEpochTest>>testAsDate (in category 'testing') ----- - testAsDate - self assert: aDateAndTime asDate = 'January 1, 1901' asDate. - - ! Item was removed: - ----- Method: DateAndTimeEpochTest>>testAsDateAndTime (in category 'testing') ----- - testAsDateAndTime - self assert: aDateAndTime asDateAndTime = aDateAndTime - - ! Item was removed: - ----- Method: DateAndTimeEpochTest>>testAsDuration (in category 'testing') ----- - testAsDuration - self assert: aDateAndTime asDuration = 0 asDuration - - ! Item was removed: - ----- Method: DateAndTimeEpochTest>>testAsLocal (in category 'testing') ----- - testAsLocal - self assert: aDateAndTime asLocal = aDateAndTime. - self assert: aDateAndTime asLocal = (aDateAndTime utcOffset: aDateAndTime class localOffset) - - ! Item was removed: - ----- Method: DateAndTimeEpochTest>>testAsMonth (in category 'testing') ----- - testAsMonth - self assert: aDateAndTime asMonth = (Month month: 'January' year: 1901). - ! Item was removed: - ----- Method: DateAndTimeEpochTest>>testAsNanoSeconds (in category 'testing') ----- - testAsNanoSeconds - self assert: aDateAndTime asNanoSeconds = 0 asDuration asNanoSeconds - - ! Item was removed: - ----- Method: DateAndTimeEpochTest>>testAsSeconds (in category 'testing') ----- - testAsSeconds - self assert: aDateAndTime asSeconds = 0 asDuration asSeconds - - ! Item was removed: - ----- Method: DateAndTimeEpochTest>>testAsTime (in category 'testing') ----- - testAsTime - self assert: aDateAndTime asTime = Time midnight. - ! Item was removed: - ----- Method: DateAndTimeEpochTest>>testAsTimeStamp (in category 'testing') ----- - testAsTimeStamp - self assert: aDateAndTime asTimeStamp = TimeStamp new. - ! Item was removed: - ----- Method: DateAndTimeEpochTest>>testAsUTC (in category 'testing') ----- - testAsUTC - self assert: aDateAndTime asUTC = aDateAndTime - ! Item was removed: - ----- Method: DateAndTimeEpochTest>>testAsWeek (in category 'testing') ----- - testAsWeek - self assert: aDateAndTime asWeek = (Week starting: '12-31-1900' asDate). - - ! Item was removed: - ----- Method: DateAndTimeEpochTest>>testAsYear (in category 'testing') ----- - testAsYear - self assert: aDateAndTime asYear = (Year starting: '01-01-1901' asDate). - ! Item was removed: - ----- Method: DateAndTimeEpochTest>>testCurrent (in category 'testing') ----- - testCurrent - self deny: aDateAndTime = (DateAndTime current). - ! Item was removed: - ----- Method: DateAndTimeEpochTest>>testDateTime (in category 'testing') ----- - testDateTime - self assert: aDateAndTime = (DateAndTime date: '01-01-1901' asDate time: '00:00:00' asTime) - ! Item was removed: - ----- Method: DateAndTimeEpochTest>>testDay (in category 'testing') ----- - testDay - self assert: aDateAndTime day = DateAndTime new day - ! Item was removed: - ----- Method: DateAndTimeEpochTest>>testDayMonthYearDo (in category 'testing') ----- - testDayMonthYearDo - |iterations| - iterations := 0. - self assert: (aDateAndTime dayMonthYearDo: [:eachDay :eachMonth :eachYear | iterations := iterations + 1]) = 1. - self assert: (aDateAndTime dayMonthYearDo: [:eachDay :eachMonth :eachYear | eachYear]) = 1901. - self assert: (aDateAndTime dayMonthYearDo: [:eachDay :eachMonth :eachYear | eachMonth]) = 1. - self assert: (aDateAndTime dayMonthYearDo: [:eachDay :eachMonth :eachYear | eachDay]) = 1. - ! Item was removed: - ----- Method: DateAndTimeEpochTest>>testDayOfMonth (in category 'testing') ----- - testDayOfMonth - self assert: aDateAndTime dayOfMonth = 1. - ! Item was removed: - ----- Method: DateAndTimeEpochTest>>testDayOfWeek (in category 'testing') ----- - testDayOfWeek - self assert: aDateAndTime dayOfWeek = 3. - self assert: aDateAndTime dayOfWeekAbbreviation = 'Tue'. - self assert: aDateAndTime dayOfWeekName = 'Tuesday'. - ! Item was removed: - ----- Method: DateAndTimeEpochTest>>testDayOfYear (in category 'testing') ----- - testDayOfYear - self assert: aDateAndTime dayOfYear = 1. - - ! Item was removed: - ----- Method: DateAndTimeEpochTest>>testDaysInMonth (in category 'testing') ----- - testDaysInMonth - self assert: aDateAndTime daysInMonth = 31. - - ! Item was removed: - ----- Method: DateAndTimeEpochTest>>testDaysInYear (in category 'testing') ----- - testDaysInYear - self assert: aDateAndTime daysInYear = 365. - - ! Item was removed: - ----- Method: DateAndTimeEpochTest>>testDaysLeftInYear (in category 'testing') ----- - testDaysLeftInYear - self assert: aDateAndTime daysLeftInYear = 364. - - ! Item was removed: - ----- Method: DateAndTimeEpochTest>>testDuration (in category 'testing') ----- - testDuration - self assert: aDateAndTime duration = 0 asDuration. - - ! Item was removed: - ----- Method: DateAndTimeEpochTest>>testEpoch (in category 'testing') ----- - testEpoch - self assert: aDateAndTime = '1901-01-01T00:00:00+00:00' asDateAndTime - ! Item was removed: - ----- Method: DateAndTimeEpochTest>>testFirstDayOfMonth (in category 'testing') ----- - testFirstDayOfMonth - self assert: aDateAndTime firstDayOfMonth = 1 - ! Item was removed: - ----- Method: DateAndTimeEpochTest>>testFromSeconds (in category 'testing') ----- - testFromSeconds - self assert: aDateAndTime = (DateAndTime fromSeconds: 0). - ! Item was removed: - ----- Method: DateAndTimeEpochTest>>testFromString (in category 'testing') ----- - testFromString - self assert: aDateAndTime = (DateAndTime fromString: ' 1901-01-01T00:00:00+00:00'). - self assert: aDateAndTime = (DateAndTime fromString: ' 1901-01-01T00:00:00'). - self assert: aDateAndTime = (DateAndTime fromString: ' 1901-01-01T00:00'). - self assert: aDateAndTime = (DateAndTime fromString: ' 1901-01-01T00:00:00+00:00'). - ! Item was removed: - ----- Method: DateAndTimeEpochTest>>testHash (in category 'testing') ----- - testHash - self assert: aDateAndTime hash = DateAndTime new hash. - self assert: aDateAndTime hash = 112557138 - ! Item was removed: - ----- Method: DateAndTimeEpochTest>>testHour (in category 'testing') ----- - testHour - self assert: aDateAndTime hour = aDateAndTime hour24. - self assert: aDateAndTime hour = 0. - self assert: aDateAndTime hour = aDateAndTime hours - ! Item was removed: - ----- Method: DateAndTimeEpochTest>>testHour12 (in category 'testing') ----- - testHour12 - self assert: aDateAndTime hour12 = DateAndTime new hour12. - self assert: aDateAndTime hour12 = 12 - ! Item was removed: - ----- Method: DateAndTimeEpochTest>>testIsLeapYear (in category 'testing') ----- - testIsLeapYear - self deny: aDateAndTime isLeapYear - ! Item was removed: - ----- Method: DateAndTimeEpochTest>>testJulianDayNumber (in category 'testing') ----- - testJulianDayNumber - self assert: aDateAndTime = (DateAndTime julianDayNumber: 2415386). - self assert: aDateAndTime julianDayNumber = 2415386.! Item was removed: - ----- Method: DateAndTimeEpochTest>>testLessThan (in category 'testing') ----- - testLessThan - self assert: aDateAndTime < (aDateAndTime + '1:00:00:00'). - self assert: aDateAndTime + -1 < aDateAndTime. - ! Item was removed: - ----- Method: DateAndTimeEpochTest>>testMeridianAbbreviation (in category 'testing') ----- - testMeridianAbbreviation - self assert: aDateAndTime meridianAbbreviation = 'AM'. - - ! Item was removed: - ----- Method: DateAndTimeEpochTest>>testMiddleOf (in category 'testing') ----- - testMiddleOf - self assert: (aDateAndTime middleOf: '2:00:00:00' asDuration) = - (Timespan starting: '12-31-1900' asDate duration: 2 days). - - ! Item was removed: - ----- Method: DateAndTimeEpochTest>>testMidnight (in category 'testing') ----- - testMidnight - self assert: aDateAndTime midnight = aDateAndTime - ! Item was removed: - ----- Method: DateAndTimeEpochTest>>testMinus (in category 'testing') ----- - testMinus - self assert: aDateAndTime - aDateAndTime = '0:00:00:00' asDuration. - self assert: aDateAndTime - '0:00:00:00' asDuration = aDateAndTime. - self assert: aDateAndTime - aDuration = (DateAndTime year: 1900 month: 12 day: 30 hour: 21 minute: 56 second: 55 nanoSecond: 999999995 offset: 0 hours ). - " I believe this Failure is a bug in the nanosecond part of (DateAndTime >> year:month:day:hour:minute:second:nanoSecond:offset:)" ! Item was removed: - ----- Method: DateAndTimeEpochTest>>testMinute (in category 'testing') ----- - testMinute - self assert: aDateAndTime minute = 0 - - ! Item was removed: - ----- Method: DateAndTimeEpochTest>>testMinutes (in category 'testing') ----- - testMinutes - self assert: aDateAndTime minutes = 0 - ! Item was removed: - ----- Method: DateAndTimeEpochTest>>testMonth (in category 'testing') ----- - testMonth - self assert: aDateAndTime month = 1. - self assert: aDateAndTime monthAbbreviation = 'Jan'. - self assert: aDateAndTime monthName = 'January'. - self assert: aDateAndTime monthIndex = 1.! Item was removed: - ----- Method: DateAndTimeEpochTest>>testNanoSecond (in category 'testing') ----- - testNanoSecond - self assert: aDateAndTime nanoSecond = 0 - - ! Item was removed: - ----- Method: DateAndTimeEpochTest>>testNew (in category 'testing') ----- - testNew - self assert: aDateAndTime = (DateAndTime new). - ! Item was removed: - ----- Method: DateAndTimeEpochTest>>testNoon (in category 'testing') ----- - testNoon - self assert: aDateAndTime noon = '1901-01-01T12:00:00+00:00' asDateAndTime! Item was removed: - ----- Method: DateAndTimeEpochTest>>testNow (in category 'testing') ----- - testNow - self deny: aDateAndTime = (DateAndTime now). - ! Item was removed: - ----- Method: DateAndTimeEpochTest>>testOffset (in category 'testing') ----- - testOffset - self assert: aDateAndTime offset = '0:00:00:00' asDuration. - self assert: (aDateAndTime offset: '0:12:00:00') = '1901-01-01T00:00:00+12:00' asDateAndTime! Item was removed: - ----- Method: DateAndTimeEpochTest>>testPlus (in category 'testing') ----- - testPlus - self assert: aDateAndTime + '0:00:00:00' = aDateAndTime. - self assert: aDateAndTime + 0 = aDateAndTime. - self assert: aDateAndTime + aDuration = (DateAndTime year: 1901 month: 1 day: 2 hour: 2 minute: 3 second: 4 nanoSecond: 5 offset: 0 hours ) - " I believe this is a bug in the nanosecond part of (DateAndTime >> year:month:day:hour:minute:second:nanoSecond:offset:)" - - ! Item was removed: - ----- Method: DateAndTimeEpochTest>>testPrintOn (in category 'testing') ----- - testPrintOn - | ref ws | - ref := '1901-01-01T00:00:00+00:00'. - ws := '' writeStream. - aDateAndTime printOn: ws. - self assert: ws contents = ref. - ref := 'a TimeZone(ETZ)'. - ws := '' writeStream. - aTimeZone printOn: ws. - self assert: ws contents = ref! Item was removed: - ----- Method: DateAndTimeEpochTest>>testSecond (in category 'testing') ----- - testSecond - self assert: aDateAndTime second = 0 - - ! Item was removed: - ----- Method: DateAndTimeEpochTest>>testSeconds (in category 'testing') ----- - testSeconds - self assert: aDateAndTime seconds = 0 - - ! Item was removed: - ----- Method: DateAndTimeEpochTest>>testTicks (in category 'testing') ----- - testTicks - self assert: aDateAndTime ticks = (DateAndTime julianDayNumber: 2415386) ticks. - self assert: aDateAndTime ticks = #(2415386 0 0)! Item was removed: - ----- Method: DateAndTimeEpochTest>>testTicksOffset (in category 'testing') ----- - testTicksOffset - self assert: aDateAndTime = (aDateAndTime ticks: #(2415386 0 0) offset: DateAndTime localOffset). - ! Item was removed: - ----- Method: DateAndTimeEpochTest>>testTo (in category 'testing') ----- - testTo - self assert: (aDateAndTime to: aDateAndTime) = (DateAndTime new to: DateAndTime new) - "MessageNotUnderstood: UndefinedObject>>starting:ending: where UndefinedObject is Timespan "! Item was removed: - ----- Method: DateAndTimeEpochTest>>testToBy (in category 'testing') ----- - testToBy - self assert: (aDateAndTime to: aDateAndTime + 10 days by: 5 days) = - (DateAndTime new to: DateAndTime new + 10 days by: 5 days ) - "MessageNotUnderstood: UndefinedObject>>starting:ending: where UndefinedObject is Timespan "! Item was removed: - ----- Method: DateAndTimeEpochTest>>testToByDo (in category 'testing') ----- - testToByDo - "self assert: (aDateAndTime to: aDateAndTime + 10 days by: 5 days do: []) = " - "MessageNotUnderstood: UndefinedObject>>starting:ending: where UndefinedObject is Timespan "! Item was removed: - ----- Method: DateAndTimeEpochTest>>testToday (in category 'testing') ----- - testToday - self deny: aDateAndTime = (DateAndTime today). - ! Item was removed: - ----- Method: DateAndTimeEpochTest>>testTommorrow (in category 'testing') ----- - testTommorrow - self assert: (DateAndTime today + 24 hours) = (DateAndTime tomorrow). - self deny: aDateAndTime = (DateAndTime tomorrow). - "MessageNotUnderstood: Date class>>starting:"! Item was removed: - ----- Method: DateAndTimeEpochTest>>testUtcOffset (in category 'testing') ----- - testUtcOffset - self assert: (aDateAndTime utcOffset: '0:12:00:00') = '1901-01-01T12:00:00+12:00' asDateAndTime! Item was removed: - ----- Method: DateAndTimeEpochTest>>testYear (in category 'testing') ----- - testYear - self assert: aDateAndTime year = 1901. - - ! Item was removed: - ----- Method: DateAndTimeEpochTest>>testYearDay (in category 'testing') ----- - testYearDay - self assert: aDateAndTime = (DateAndTime year: 1901 day: 1). - ! Item was removed: - ----- Method: DateAndTimeEpochTest>>testYearDayHourMinuteSecond (in category 'testing') ----- - testYearDayHourMinuteSecond - self assert: aDateAndTime = (DateAndTime year: 1901 day: 1 hour: 0 minute: 0 second: 0). - ! Item was removed: - ----- Method: DateAndTimeEpochTest>>testYearMonthDay (in category 'testing') ----- - testYearMonthDay - self assert: aDateAndTime = (DateAndTime year: 1901 month: 1 day: 1). - ! Item was removed: - ----- Method: DateAndTimeEpochTest>>testYearMonthDayHourMinuteSecond (in category 'testing') ----- - testYearMonthDayHourMinuteSecond - self assert: aDateAndTime = (DateAndTime year: 1901 month: 1 day: 1 hour: 0 minute: 0 second: 0). - ! Item was removed: - ----- Method: DateAndTimeEpochTest>>testYearMonthDayHourMinuteSecondNanosSecondOffset (in category 'testing') ----- - testYearMonthDayHourMinuteSecondNanosSecondOffset - self assert: aDateAndTime = (DateAndTime year: 1901 month: 1 day: 1 hour: 0 minute: 0 second: 0 nanoSecond: 0 offset:0 hours ). - self assert: ((DateAndTime year: 1 month: 1 day: 1 hour: 0 minute: 0 second: 0 nanoSecond: 0 offset: 0 hours ) + - (Duration days: 1 hours: 2 minutes: 3 seconds: 4 nanoSeconds: 5) ) = - (DateAndTime year: 1 month: 1 day: 2 hour: 2 minute: 3 second: 4 nanoSecond: 5 offset: 0 hours ) - " I believe this is a bug in the nanosecond part of (DateAndTime >> year:month:day:hour:minute:second:nanoSecond:offset:)"" I believe this is a bug in the nanosecond part of (DateAndTime >> year:month:day:hour:minute:second:nanoSecond:offset:)" - ! Item was removed: - ----- Method: DateAndTimeEpochTest>>testYesterday (in category 'testing') ----- - testYesterday - self deny: aDateAndTime = (DateAndTime yesterday). - ! Item was removed: - ----- Method: DateAndTimeEpochTest>>testtimeZone (in category 'testing') ----- - testtimeZone - self assert: aDateAndTime timeZoneName = 'Universal Time'. - self assert: aDateAndTime timeZoneAbbreviation = 'UTC' - - ! Item was removed: - TestCase subclass: #DateAndTimeLeapTest - instanceVariableNames: 'aDateAndTime aDuration aTimeZone localTimeZoneToRestore' - classVariableNames: '' - poolDictionaries: '' - category: 'KernelTests-Chronology'! - - !DateAndTimeLeapTest commentStamp: 'tlk 1/6/2004 17:54' prior: 0! - I represent one of several Sunit test Cases intentended to provide complete coverage for the Chronology set of classes as part of the external testing. tlk. - My fixtures are: - aDateAndTime = February 29, 2004 1:33 PM with offset: 2 hours - aDuration = 15 days, 14 hours, 13 minutes, 12 seconds and 11 nano seconds. - aTimeZone = Grenwhich Meridian (local offset = 0 hours) ! Item was removed: - ----- Method: DateAndTimeLeapTest>>setUp (in category 'running') ----- - setUp - localTimeZoneToRestore := DateAndTime localTimeZone. - DateAndTime localTimeZone: TimeZone default. - aDateAndTime := (DateAndTime year: 2004 month: 2 day: 29 hour: 13 minute: 33 second: 0 offset: 2 hours). - aTimeZone := TimeZone default. - aDuration := Duration days: 0 hours: 13 minutes: 33 seconds: 0 nanoSeconds: 0 - ! Item was removed: - ----- Method: DateAndTimeLeapTest>>tearDown (in category 'running') ----- - tearDown - DateAndTime localTimeZone: localTimeZoneToRestore. - "wish I could remove the time zones I added earlier, tut there is no method for that" - ! Item was removed: - ----- Method: DateAndTimeLeapTest>>testAsDate (in category 'testing') ----- - testAsDate - self assert: (aDateAndTime offset: DateAndTime localTimeZone offset) asDate = 'February 29, 2004' asDate! Item was removed: - ----- Method: DateAndTimeLeapTest>>testAsDuration (in category 'testing') ----- - testAsDuration - self assert: aDateAndTime asDuration = aDuration - - ! Item was removed: - ----- Method: DateAndTimeLeapTest>>testAsLocal (in category 'testing') ----- - testAsLocal - self assert: aDateAndTime asLocal = aDateAndTime. - self assert: aDateAndTime asLocal = (aDateAndTime utcOffset: aDateAndTime class localOffset) - - - ! Item was removed: - ----- Method: DateAndTimeLeapTest>>testAsMonth (in category 'testing') ----- - testAsMonth - self assert: - (aDateAndTime offset: Month defaultOffset) asMonth = - (Month - month: 'February' - year: 2004)! Item was removed: - ----- Method: DateAndTimeLeapTest>>testAsNanoSeconds (in category 'testing') ----- - testAsNanoSeconds - self assert: aDateAndTime asNanoSeconds = aDuration asNanoSeconds. - self assert: aDateAndTime asNanoSeconds = 48780000000000 - - ! Item was removed: - ----- Method: DateAndTimeLeapTest>>testAsSeconds (in category 'testing') ----- - testAsSeconds - self assert: aDuration asSeconds = 48780. - self assert: aDateAndTime asSeconds = 3255514380! Item was removed: - ----- Method: DateAndTimeLeapTest>>testAsTime (in category 'testing') ----- - testAsTime - self assert: aDateAndTime asTime = (Time hour: 13 minute: 33 second: 0) - ! Item was removed: - ----- Method: DateAndTimeLeapTest>>testAsTimeStamp (in category 'testing') ----- - testAsTimeStamp - self assert: aDateAndTime asTimeStamp = ((TimeStamp readFrom: '2-29-2004 1:33 pm' readStream) offset: 2 hours). - - ! Item was removed: - ----- Method: DateAndTimeLeapTest>>testAsUTC (in category 'testing') ----- - testAsUTC - self assert: aDateAndTime asUTC = aDateAndTime - - ! Item was removed: - ----- Method: DateAndTimeLeapTest>>testAsWeek (in category 'testing') ----- - testAsWeek - self assert: (aDateAndTime offset: DateAndTime localTimeZone offset) asWeek = (Week starting: '02-29-2004' asDate)! Item was removed: - ----- Method: DateAndTimeLeapTest>>testAsYear (in category 'testing') ----- - testAsYear - | year | - year := (aDateAndTime offset: DateAndTime localTimeZone offset) asYear. - self assert: year = (Year starting: '02-29-2004' asDate). - self deny: year = (Year starting: '01-01-2004' asDate)! Item was removed: - ----- Method: DateAndTimeLeapTest>>testDay (in category 'testing') ----- - testDay - self assert: aDateAndTime day = 60. - self deny: aDateAndTime day = 29 ! Item was removed: - ----- Method: DateAndTimeLeapTest>>testDayMonthYearDo (in category 'testing') ----- - testDayMonthYearDo - self assert: (aDateAndTime dayMonthYearDo: [:eachDay :eachMonth :eachYear | eachYear]) = 2004. - self assert: (aDateAndTime dayMonthYearDo: [:eachDay :eachMonth :eachYear | eachMonth]) = 2. - self assert: (aDateAndTime dayMonthYearDo: [:eachDay :eachMonth :eachYear | eachDay]) = 29. - ! Item was removed: - ----- Method: DateAndTimeLeapTest>>testDayOfMonth (in category 'testing') ----- - testDayOfMonth - self assert: aDateAndTime dayOfMonth = 29. - ! Item was removed: - ----- Method: DateAndTimeLeapTest>>testDayOfWeek (in category 'testing') ----- - testDayOfWeek - self assert: aDateAndTime dayOfWeek = 1. - self assert: aDateAndTime dayOfWeekAbbreviation = 'Sun'. - self assert: aDateAndTime dayOfWeekName = 'Sunday'. - ! Item was removed: - ----- Method: DateAndTimeLeapTest>>testDayOfYear (in category 'testing') ----- - testDayOfYear - self assert: aDateAndTime dayOfYear = 60. - - ! Item was removed: - ----- Method: DateAndTimeLeapTest>>testDaysInMonth (in category 'testing') ----- - testDaysInMonth - self assert: aDateAndTime daysInMonth = 29. - - ! Item was removed: - ----- Method: DateAndTimeLeapTest>>testDaysInYear (in category 'testing') ----- - testDaysInYear - self assert: aDateAndTime daysInYear = 366. - - ! Item was removed: - ----- Method: DateAndTimeLeapTest>>testDaysLeftInYear (in category 'testing') ----- - testDaysLeftInYear - self assert: aDateAndTime daysLeftInYear = 306. - - ! Item was removed: - ----- Method: DateAndTimeLeapTest>>testFirstDayOfMonth (in category 'testing') ----- - testFirstDayOfMonth - self deny: aDateAndTime firstDayOfMonth = 1. - self assert: aDateAndTime firstDayOfMonth = 32 - ! Item was removed: - ----- Method: DateAndTimeLeapTest>>testFromString (in category 'testing') ----- - testFromString - self assert: aDateAndTime = (DateAndTime fromString: ' 2004-02-29T13:33:00+02:00'). - - ! Item was removed: - ----- Method: DateAndTimeLeapTest>>testHash (in category 'testing') ----- - testHash - self assert: aDateAndTime hash = 16256473 - ! Item was removed: - ----- Method: DateAndTimeLeapTest>>testHour (in category 'testing') ----- - testHour - self assert: aDateAndTime hour = aDateAndTime hour24. - self assert: aDateAndTime hour = 13. - self assert: aDateAndTime hour = aDateAndTime hours - ! Item was removed: - ----- Method: DateAndTimeLeapTest>>testHour12 (in category 'testing') ----- - testHour12 - self assert: aDateAndTime hour12 = 1. - ! Item was removed: - ----- Method: DateAndTimeLeapTest>>testIsLeapYear (in category 'testing') ----- - testIsLeapYear - self assert: aDateAndTime isLeapYear - ! Item was removed: - ----- Method: DateAndTimeLeapTest>>testLessThan (in category 'testing') ----- - testLessThan - self assert: aDateAndTime < (aDateAndTime + '1:00:00:00'). - self assert: aDateAndTime + -1 < aDateAndTime. - ! Item was removed: - ----- Method: DateAndTimeLeapTest>>testMeridianAbbreviation (in category 'testing') ----- - testMeridianAbbreviation - self assert: aDateAndTime meridianAbbreviation = 'PM'. - - ! Item was removed: - ----- Method: DateAndTimeLeapTest>>testMiddleOf (in category 'testing') ----- - testMiddleOf - self assert: (aDateAndTime middleOf: aDuration) = - (Timespan starting: (DateAndTime year: 2004 month: 2 day: 29 hour: 6 minute: 46 second: 30 offset: 2 hours) - duration: (Duration days: 0 hours: 13 minutes: 33 seconds: 0 nanoSeconds: 0 )) - ! Item was removed: - ----- Method: DateAndTimeLeapTest>>testMidnight (in category 'testing') ----- - testMidnight - | midnight | - midnight := (aDateAndTime offset: DateAndTime localTimeZone offset) midnight. - self assert: midnight = '2004-02-29T00:00:00+00:00' asDateAndTime. - self deny: midnight = '2004-02-29T00:00:00+02:00' asDateAndTime! Item was removed: - ----- Method: DateAndTimeLeapTest>>testMinute (in category 'testing') ----- - testMinute - self assert: aDateAndTime minute = 33 - - ! Item was removed: - ----- Method: DateAndTimeLeapTest>>testMinutes (in category 'testing') ----- - testMinutes - self assert: aDateAndTime minutes = 33 - ! Item was removed: - ----- Method: DateAndTimeLeapTest>>testMonth (in category 'testing') ----- - testMonth - self assert: aDateAndTime month = 2. - self assert: aDateAndTime monthAbbreviation = 'Feb'. - self assert: aDateAndTime monthName = 'February'. - self assert: aDateAndTime monthIndex = 2.! Item was removed: - ----- Method: DateAndTimeLeapTest>>testMonthParsing (in category 'testing') ----- - testMonthParsing - self assert: - (Month readFrom: 'Feb 2011' readStream) = - (Month - month: 2 - year: 2011)! Item was removed: - ----- Method: DateAndTimeLeapTest>>testNanoSecond (in category 'testing') ----- - testNanoSecond - self assert: aDateAndTime nanoSecond = 0 - - ! Item was removed: - ----- Method: DateAndTimeLeapTest>>testNoon (in category 'testing') ----- - testNoon - self assert: aDateAndTime noon = '2004-02-29T12:00:00+00:00' asDateAndTime! Item was removed: - ----- Method: DateAndTimeLeapTest>>testOffset (in category 'testing') ----- - testOffset - self assert: aDateAndTime offset = '0:02:00:00' asDuration. - self assert: (aDateAndTime offset: '0:12:00:00') = '2004-02-29T13:33:00+12:00' asDateAndTime! Item was removed: - ----- Method: DateAndTimeLeapTest>>testPrintOn (in category 'testing') ----- - testPrintOn - | ref ws | - ref := '2004-02-29T13:33:00+02:00'. - ws := '' writeStream. - aDateAndTime printOn: ws. - self assert: ws contents = ref. - ref := 'a TimeZone(UTC)'. - ws := '' writeStream. - aTimeZone printOn: ws. - self assert: ws contents = ref ! Item was removed: - ----- Method: DateAndTimeLeapTest>>testSecond (in category 'testing') ----- - testSecond - self assert: aDateAndTime second = 0 - - ! Item was removed: - ----- Method: DateAndTimeLeapTest>>testSeconds (in category 'testing') ----- - testSeconds - self assert: aDateAndTime seconds = 0 - - ! Item was removed: - ----- Method: DateAndTimeLeapTest>>testTicks (in category 'testing') ----- - testTicks - self assert: aDateAndTime ticks = ((DateAndTime julianDayNumber: 2453065) + 48780 seconds) ticks. - self assert: aDateAndTime ticks = #(2453065 48780 0)! Item was removed: - ----- Method: DateAndTimeLeapTest>>testTicksOffset (in category 'testing') ----- - testTicksOffset - self assert: aDateAndTime = (aDateAndTime ticks: #(2453065 48780 0) offset: DateAndTime localOffset). - - ! Item was removed: - ----- Method: DateAndTimeLeapTest>>testUtcOffset (in category 'testing') ----- - testUtcOffset - self assert: (aDateAndTime utcOffset: '0:02:00:00') = '2004-02-29T13:33:00+02:00' asDateAndTime! Item was removed: - ----- Method: DateAndTimeLeapTest>>testYear (in category 'testing') ----- - testYear - self assert: aDateAndTime year = 2004. - - ! Item was removed: - ----- Method: DateAndTimeLeapTest>>testYearDayHourMinuteSecond (in category 'testing') ----- - testYearDayHourMinuteSecond - self assert: aDateAndTime = ((DateAndTime year: 2004 day: 60 hour: 13 minute: 33 second: 0) offset: 2 hours). - ! Item was removed: - ----- Method: DateAndTimeLeapTest>>testYearMonthDayHourMinuteSecond (in category 'testing') ----- - testYearMonthDayHourMinuteSecond - self assert: aDateAndTime = ((DateAndTime year: 2004 month: 2 day: 29 hour: 13 minute: 33 second: 0) offset: 2 hours). - ! Item was removed: - ----- Method: DateAndTimeLeapTest>>testtimeZone (in category 'testing') ----- - testtimeZone - self assert: aDateAndTime timeZoneName = 'Universal Time'. - self assert: aDateAndTime timeZoneAbbreviation = 'UTC' - - ! Item was removed: - ClassTestCase subclass: #DateAndTimeTest - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: 'KernelTests-Chronology'! Item was removed: - ----- Method: DateAndTimeTest>>classToBeTested (in category 'Coverage') ----- - classToBeTested - - ^ DateAndTime - - ! Item was removed: - ----- Method: DateAndTimeTest>>selectorsToBeIgnored (in category 'Coverage') ----- - selectorsToBeIgnored - - | private | - private := #( #printOn: ). - - ^ super selectorsToBeIgnored, private - ! Item was removed: - ----- Method: DateAndTimeTest>>testArithmeticAcrossDateBoundary (in category 'Tests') ----- - testArithmeticAcrossDateBoundary - - | t1 t2 | - t1 := '2004-01-07T11:55:00+00:00' asDateAndTime. - t2 := t1 - ( (42900+1) seconds). - - self - assert: t2 = ('2004-01-06T23:59:59+00:00' asDateAndTime) - - ! Item was removed: - ----- Method: DateAndTimeTest>>testAsStringFromString (in category 'Tests') ----- - testAsStringFromString - "Convert to string then back, verify same date and time. Skip years in the - range 0 to 99 because they are interpreted relative to 2000." - - | day hour dt min mo nano offset sec dtNew s | - mo := 12. - day := 2. - hour := 2. - min := 3. - sec := 4. - nano := 5. - offset := 6 hours. - (-2000 to: -1) , (100 to: 5000) do: [:yr | - dt := DateAndTime - year: yr month: mo day: day - hour: hour minute: min second: sec nanoSecond: nano - offset: offset. - s := dt asString. - dtNew := DateAndTime fromString: s. - self assert: dt equals: dtNew]. - ! Item was removed: - ----- Method: DateAndTimeTest>>testDateTimeDenotation1 (in category 'Tests') ----- - testDateTimeDenotation1 - "DateAndTimeTest new testDateTimeDenotation1" - - " Detroit is 5 hours behind UTC, this offset to UTC is therefore written with a minus sign. This example tests the correct interpretation of the DateAndTime denotation. " - - | twoPmInLondon twoPmUTCInLocalTimeOfDetroit nineAmInDetroit | - twoPmInLondon := DateAndTime - year: 2004 - month: 11 - day: 2 - hour: 14 - minute: 0 - second: 0 - offset: 0 hours. - twoPmUTCInLocalTimeOfDetroit := twoPmInLondon utcOffset: -5 hours. - nineAmInDetroit := '2004-11-02T09:00:00-05:00' asDateAndTime. - self assert: twoPmUTCInLocalTimeOfDetroit = nineAmInDetroit. - - ! Item was removed: - ----- Method: DateAndTimeTest>>testDateTimeDenotation2 (in category 'Tests') ----- - testDateTimeDenotation2 - "DateAndTimeTest new testDateTimeDenotation2" - - " Moscow is 3 hours ahead UTC, this offset to UTC is therefore positive. This example tests the correct interpretation of the DateAndTime denotation. " - - | lateEveningInLondon lateEveningInLocalTimeOfMoscow - localMoscowTimeFromDenotation | - lateEveningInLondon := DateAndTime - year: 2004 - month: 11 - day: 30 - hour: 23 - minute: 30 - second: 0 - offset: 0 hours. - lateEveningInLocalTimeOfMoscow := lateEveningInLondon utcOffset: 3 hours. - localMoscowTimeFromDenotation := '2004-12-01T02:30:00+03:00' asDateAndTime. - self assert: lateEveningInLocalTimeOfMoscow = localMoscowTimeFromDenotation. - - ! Item was removed: - ----- Method: DateAndTimeTest>>testErrorWhenDayIsAfterMonthEnd (in category 'Tests') ----- - testErrorWhenDayIsAfterMonthEnd - - self - should: - [DateAndTime - year: 2004 - month: 2 - day: 30] - raise: Error.! Item was removed: - ----- Method: DateAndTimeTest>>testErrorWhenDayIsBeforeMonthStart (in category 'Tests') ----- - testErrorWhenDayIsBeforeMonthStart - - self - should: - [DateAndTime - year: 2004 - month: 2 - day: -1] - raise: Error. - - self - should: - [DateAndTime - year: 2004 - month: 2 - day: 0] - raise: Error.! Item was removed: - ----- Method: DateAndTimeTest>>testFromString (in category 'Tests') ----- - testFromString - - | fromString fromStringNoOffset fromStringUTC | - fromString := DateAndTime fromString: '-1199-01-05T20:33:14.321-05:00'. - self assert: (fromString printString = '-1199-01-05T20:33:14.321-05:00'). - - "if no offset is provided, the local offset should be used" - fromStringNoOffset := DateAndTime fromString: '-1199-01-05T20:33:14.321'. - self assert: (fromStringNoOffset offset = DateAndTime localOffset). - - "if a string contains the UTC designator Z, the local offset should not be used" - fromStringUTC := DateAndTime fromString: '2011-08-26T18:00:03Z'. - self assert: (fromStringUTC printString = '2011-08-26T18:00:03+00:00').! Item was removed: - ----- Method: DateAndTimeTest>>testHash (in category 'Tests') ----- - testHash - | date0 date1 date2 | - date0 := DateAndTime unixEpoch. - date1 := DateAndTime new ticks: (date0 + 1 hours) ticks offset: 0 hours. - date2 := DateAndTime new ticks: (date0 - 2 hours) ticks offset: -3 hours. - self assert: (date1 = date2) ==> [date1 hash = date2 hash]! Item was removed: - ----- Method: DateAndTimeTest>>testInstanceCreation (in category 'Tests') ----- - testInstanceCreation - - | t | - t := DateAndTime - year: 1 month: 1 day: 2 - hour: 2 minute: 3 second: 4 nanoSecond: 5 - offset: 6 hours. - self - assert: (t julianDayNumber = 1721427); - assert: (t offset = 6 hours); - assert: (t hour = 2); - assert: (t minute = 3); - assert: (t second = 4); - assert: (t nanoSecond = 5). - - ! Item was removed: - ----- Method: DateAndTimeTest>>testMonotonicity (in category 'Tests') ----- - testMonotonicity - - | t1 t2 t3 t4 | - t1 := DateAndTime now. - t2 := DateAndTime now. - (Delay forMilliseconds: 1000) wait. - t3 := DateAndTime now. - t4 := DateAndTime now. - - self - assert: ( t1 <= t2); - assert: ( t2 < t3); - assert: ( t3 <= t4). - ! Item was removed: - ----- Method: DateAndTimeTest>>testPrecision (in category 'Tests') ----- - testPrecision - "Verify that the clock is returning a value with accuracy of better than 1 second. For now it seems sufficient to get two values and verify they are not the same." - - self - assert: (DateAndTime now ~= DateAndTime now) - ! Item was removed: - ----- Method: DateAndTimeTest>>testPrintString (in category 'Tests') ----- - testPrintString - - "(self new setTestSelector: #testPrintString) debug" - - | dt dtNoOffset | - dt :=DateAndTime - year: 2004 - month: 11 - day: 2 - hour: 14 - minute: 3 - second: 5 - nanoSecond: 12345 - offset: (Duration seconds: (5 * 3600)). - self assert: dt printString = '2004-11-02T14:03:05.000012345+05:00'. - - self assert: ('2002-05-16T17:20:45.1+01:01' asDateAndTime printString = '2002-05-16T17:20:45.1+01:01'). - self assert: (' 2002-05-16T17:20:45.02+01:01' asDateAndTime printString = '2002-05-16T17:20:45.02+01:01'). - self assert: ('2002-05-16T17:20:45.000000009+01:01' asDateAndTime printString = '2002-05-16T17:20:45.000000009+01:01'). - self assert: ('2002-05-16T17:20:45+00:00' asDateAndTime printString = '2002-05-16T17:20:45+00:00' ). - self assert: (' 2002-05-16T17:20:45+01:57' asDateAndTime printString = '2002-05-16T17:20:45+01:57'). - self assert: (' 2002-05-16T17:20:45-02:34' asDateAndTime printString = '2002-05-16T17:20:45-02:34'). - self assert: ('2002-05-16T17:20:45+00:00' asDateAndTime printString = '2002-05-16T17:20:45+00:00'). - self assert: ('1997-04-26T01:02:03+01:02:3' asDateAndTime printString = '1997-04-26T01:02:03+01:02:3'). - - "When no offset is provided, the local one is used" - dtNoOffset := '2002-05-16T17:20' asDateAndTime. - self assert: (('2002-05-16T17:20:00*' match: dtNoOffset printString) and: [dtNoOffset offset = DateAndTime localOffset]). - - ! Item was removed: - ----- Method: DateAndTimeTest>>testReadFrom (in category 'Tests') ----- - testReadFrom - - self assert: '-1199-01-05T20:33:14.321-05:00' equals: (DateAndTime readFrom: '-1199-01-05T20:33:14.321-05:00' readStream) printString. - self assert: '-1199-01-05T20:33:14.321-05:00' equals: '-1199-01-05T20:33:14.321-05:00' asDateAndTime printString. - self assert: '2002-05-16T17:20:45.1+01:01' equals: '2002-05-16T17:20:45.1+01:01' asDateAndTime printString. - self assert: '2002-05-16T17:20:45.02+01:01' equals: ' 2002-05-16T17:20:45.02+01:01' asDateAndTime printString. - self assert: '2002-05-16T17:20:45.000000009+01:01' equals: '2002-05-16T17:20:45.000000009+01:01' asDateAndTime printString. - self assert: '2002-05-16T17:20:45+01:57' equals: ' 2002-05-16T17:20:45+01:57' asDateAndTime printString. - self assert: '2002-05-16T17:20:45-02:34' equals: ' 2002-05-16T17:20:45-02:34' asDateAndTime printString. - self assert: '2002-05-16T17:20:45+00:00' equals: '2002-05-16T17:20:45+00:00' asDateAndTime printString. - self assert: '1997-04-26T01:02:03+01:02:3' equals: '1997-04-26T01:02:03+01:02:3' asDateAndTime printString! Item was removed: - ----- Method: DateAndTimeTest>>testSmalltalk80Accessors (in category 'Tests') ----- - testSmalltalk80Accessors - - | t | - t := DateAndTime - year: 1 month: 1 day: 2 - hour: 2 minute: 3 second: 4 nanoSecond: 5 - offset: 6 hours. - self - assert: (t hours = t hours); - assert: (t minutes = t minute); - assert: (t seconds = t second). - ! Item was removed: - ----- Method: DateAndTimeTest>>testTimeZoneEquivalence (in category 'Tests') ----- - testTimeZoneEquivalence - "DateAndTimeTest new testTimeZoneEquivalence" - "When the clock on the wall in Detroit says 9:00am, the clock on the wall - in London says 2:00pm. The Duration difference between the corresponding - DateAndTime values should be zero." - - " Detroit is 5 hours behind UTC, this offset to UTC is therefore written with a minus sign. This example tests both the correct interpretation of the DateAndTime denotation and correct DateAndTime arithmetics. " - - | twoPmInLondon nineAmInDetroit durationDifference | - twoPmInLondon := '2004-11-02T14:00:00+00:00' asDateAndTime. - nineAmInDetroit := '2004-11-02T09:00:00-05:00' asDateAndTime. - durationDifference := twoPmInLondon - nineAmInDetroit. - self assert: durationDifference asSeconds = 0. - self assert: twoPmInLondon = nineAmInDetroit - ! Item was removed: - ----- Method: DateAndTimeTest>>testTimeZoneEquivalence2 (in category 'Tests') ----- - testTimeZoneEquivalence2 - "DateAndTimeTest new testTimeZoneEquivalence2" - "This example demonstates the fact that - 2004-05-24T22:40:00 UTC is - 2004-05-25T01:40:00 in Moscow - (Moscow is 3 hours ahead of UTC) " - - | thisMoment thisMomentInMoscow | - thisMoment := DateAndTime year: 2004 month: 5 day: 24 hour: 22 minute: 40. - thisMomentInMoscow := thisMoment utcOffset: 3 hours. - self assert: (thisMoment - thisMomentInMoscow) asSeconds = 0. - self assert: thisMoment = thisMomentInMoscow - ! Item was removed: - ClassTestCase subclass: #DateTest - instanceVariableNames: 'date aDate aTime' - classVariableNames: '' - poolDictionaries: '' - category: 'KernelTests-Chronology'! - - !DateTest commentStamp: 'brp 7/26/2003 16:58' prior: 0! - This is the unit test for the class Date. ! Item was removed: - ----- Method: DateTest>>classToBeTested (in category 'Coverage') ----- - classToBeTested - - ^ self dateClass! Item was removed: - ----- Method: DateTest>>dateClass (in category 'Private') ----- - dateClass - - ^ Date! Item was removed: - ----- Method: DateTest>>selectorsToBeIgnored (in category 'Coverage') ----- - selectorsToBeIgnored - - | deprecated private special | - deprecated := #(). - private := #(). - special := #( #< #= #new #next #previous #printOn: #printOn:format: #storeOn: #fromString: ). - - ^ super selectorsToBeIgnored, deprecated, private, special! Item was removed: - ----- Method: DateTest>>setUp (in category 'Running') ----- - setUp - - date := self dateClass newDay: 153 year: 1973. "2 June 1973" - - aDate := Date readFrom: '01-23-2004' readStream. - aTime := Time readFrom: '12:34:56 pm' readStream! Item was removed: - ----- Method: DateTest>>testAccessing (in category 'Tests') ----- - testAccessing - - self - assert: date day = 153; - assert: date julianDayNumber = 2441836; - assert: date leap = 0; - assert: date monthIndex = 6; - assert: date monthName = #June; - assert: date weekday = #Saturday; - assert: date weekdayIndex = 7; - assert: date year = 1973. - ! Item was removed: - ----- Method: DateTest>>testAddDays (in category 'testing') ----- - testAddDays - self assert: (aDate addDays: 00) yyyymmdd = '2004-01-23'. - self assert: (aDate addDays: 30) yyyymmdd = '2004-02-22'. - self assert: (aDate addDays: 60) yyyymmdd = '2004-03-23'. - self assert: (aDate addDays: 90) yyyymmdd = '2004-04-22'. - self assert: (aDate addDays:120) yyyymmdd = '2004-05-22'! Item was removed: - ----- Method: DateTest>>testAddMonths (in category 'testing') ----- - testAddMonths - self assert: (aDate addMonths: 0) yyyymmdd = '2004-01-23'. - self assert: (aDate addMonths: 1) yyyymmdd = '2004-02-23'. - self assert: (aDate addMonths: 2) yyyymmdd = '2004-03-23'. - self assert: (aDate addMonths: 3) yyyymmdd = '2004-04-23'. - self assert: (aDate addMonths: 12) yyyymmdd = '2005-01-23'. - - self assert: ((Date readFrom: '05-31-2017' readStream) addMonths: 1) yyyymmdd = '2017-06-30'. - self assert: ((Date readFrom: '02-29-2000' readStream) addMonths: 12) yyyymmdd = '2001-02-28'! Item was removed: - ----- Method: DateTest>>testArithmetic (in category 'Tests') ----- - testArithmetic - | d | - d := date addDays: 32. "4 July 1973" - - self - assert: d year = 1973; - assert: d monthIndex = 7; - assert: d dayOfMonth = 4. - self - assert: (d subtractDate: date) = 32; - assert: (date subtractDate: d) = -32. - self - assert: (d subtractDays: 32) = date. - ! Item was removed: - ----- Method: DateTest>>testAsDate (in category 'testing') ----- - testAsDate - self assert: (aDate asDate) = aDate - ! Item was removed: - ----- Method: DateTest>>testAsSeconds (in category 'testing') ----- - testAsSeconds - self assert: (aDate asSeconds) = 3252268800. - self assert: (aDate asSeconds) = ((103*365*24*60*60) + (22+25"leap days"*24*60*60)) . - self assert: aDate = (Date fromSeconds: 3252268800).! Item was removed: - ----- Method: DateTest>>testComparing (in category 'Tests') ----- - testComparing - | d1 d2 d3 | - d1 := self dateClass newDay: 2 month: #June year: 1973. - d2 := self dateClass newDay: 97 year: 2003. "7 April 2003" - d3 := self dateClass newDay: 250 year: 1865. "7 September 1865" - - self - assert: date = d1; - assert: date = date copy; - assert: date hash = d1 hash. - self - assert: date < d2; - deny: date < d3. - ! Item was removed: - ----- Method: DateTest>>testConverting (in category 'Tests') ----- - testConverting - - self - assert: date asDate = date; - assert: '2 June 1973' asDate = date; - assert: date asSeconds = 2285280000. - - date dayMonthYearDo: [ :d :m :y | self assert: d = 2; assert: m = 6; assert: y = 1973 ].! Item was removed: - ----- Method: DateTest>>testConvertingFromIso8601 (in category 'Tests') ----- - testConvertingFromIso8601 - - self - assert: '1973-06-02' asDate = date; - assert: '1973-JUN-02' asDate = date; - assert: '1973-June-02' asDate = date! Item was removed: - ----- Method: DateTest>>testDateAndTimeNow (in category 'testing') ----- - testDateAndTimeNow - "Not a great test: could falsely fail if midnight come in between the two executions and doesnt catch time errors" - self assert: Date dateAndTimeNow first = Date today - ! Item was removed: - ----- Method: DateTest>>testDayMonthYearDo (in category 'testing') ----- - testDayMonthYearDo - self assert: (aDate dayMonthYearDo: [:day :month :year | day asString , month asString, year asString]) = '2312004' - ! Item was removed: - ----- Method: DateTest>>testDaysInMonthForYear (in category 'testing') ----- - testDaysInMonthForYear - self assert: (Date daysInMonth: 'February' forYear: 2008) = 29. - self assert: (Date daysInMonth: 'February' forYear: 2000) = 29. - self assert: (Date daysInMonth: 'February' forYear: 2100) = 28. - self assert: (Date daysInMonth: 'July' forYear: 2100) = 31. ! Item was removed: - ----- Method: DateTest>>testDaysInYear (in category 'testing') ----- - testDaysInYear - self assert: (Date daysInYear: 2008) = 366. - self assert: (Date daysInYear: 2000) = 366. - self assert: (Date daysInYear: 2100) = 365 - ! Item was removed: - ----- Method: DateTest>>testDuration (in category 'testing') ----- - testDuration - self assert: aDate duration = 24 hours! Item was removed: - ----- Method: DateTest>>testEqual (in category 'testing') ----- - testEqual - self assert: aDate = (Date readFrom: (ReadStream on: 'January 23, 2004')).! Item was removed: - ----- Method: DateTest>>testFirstWeekdayOfMonthYear (in category 'testing') ----- - testFirstWeekdayOfMonthYear - self assert: (Date firstWeekdayOfMonth: 'January' year: 2004) = 5. - ! Item was removed: - ----- Method: DateTest>>testFromDays (in category 'Tests') ----- - testFromDays - | epoch d0 d1 d2 | - epoch := self dateClass newDay: 1 year: 1901. - d0 := self dateClass fromDays: 0. "1 January 1901" - self assert: d0 = epoch. - - d1 := self dateClass fromDays: 26450. "2 June 1973" - self assert: d1 = date. - - d2 := self dateClass fromDays: -100000. "18 March 1627" - self assert: d2 julianDayNumber = 2315386. - - self assert: aDate = (Date fromDays: 37642). - self assert: aDate = (Date fromDays: 103*365 + 22 + 25 "leap days") . - ! Item was removed: - ----- Method: DateTest>>testFromSeconds (in category 'Tests') ----- - testFromSeconds - | d | - d := self dateClass fromSeconds: 2285280000. - self - assert: d = date. - ! Item was removed: - ----- Method: DateTest>>testGeneralInquiries (in category 'Tests') ----- - testGeneralInquiries - - | shuffled indices names now | - - shuffled := #(#January #February #March #April #May #June #July - #August #September #October #November #December) shuffled. - indices := shuffled collect: [ :m | self dateClass indexOfMonth: m ]. - names := indices collect: [ :i | self dateClass nameOfMonth: i ]. - self assert: names = shuffled. - - shuffled := #(#Monday #Tuesday #Wednesday #Thursday #Friday #Saturday #Sunday) shuffled. - indices := shuffled collect: [ :m | self dateClass dayOfWeek: m ]. - names := indices collect: [ :i | self dateClass nameOfDay: i ]. - self assert: names = shuffled. - - now := self dateClass dateAndTimeNow. - self - assert: now size = 2; - assert: now first = self dateClass today. - - self assert: (self dateClass firstWeekdayOfMonth: #June year: 1973) = 6. - - self - assert: (self dateClass leapYear: 1973) = 0; - assert: (self dateClass leapYear: 1972) = 1; - assert: (self dateClass daysInYear: 1973) = 365; - assert: (self dateClass daysInYear: 1972) = 366; - assert: (self dateClass daysInMonth: #February forYear: 1973) = 28; - assert: (self dateClass daysInMonth: #February forYear: 1972) = 29. - ! Item was removed: - ----- Method: DateTest>>testIndexOfMonth (in category 'testing') ----- - testIndexOfMonth - self assert: (Date indexOfMonth: 'January') = 1. - self assert: (Date indexOfMonth: 'December') = 12. ! Item was removed: - ----- Method: DateTest>>testInitialization (in category 'Tests') ----- - testInitialization - - self should: [ self dateClass initialize. true ]. - ! Item was removed: - ----- Method: DateTest>>testInquiries (in category 'Tests') ----- - testInquiries - - self - assert: date dayOfMonth = 2; - assert: date dayOfYear = 153; - assert: date daysInMonth = 30; - assert: date daysInYear = 365; - assert: date daysLeftInYear = (365 - 153); - assert: date firstDayOfMonth = 152. - ! Item was removed: - ----- Method: DateTest>>testJulianDayNumber (in category 'testing') ----- - testJulianDayNumber - self assert: aDate = (Date julianDayNumber: ((4713+2004)*365 +1323) ). ! Item was removed: - ----- Method: DateTest>>testLeap (in category 'testing') ----- - testLeap - self assert: aDate leap = 1. - - ! Item was removed: - ----- Method: DateTest>>testLeapNot (in category 'testing') ----- - testLeapNot - self assert: (aDate addDays: 365) leap = 0 - ! Item was removed: - ----- Method: DateTest>>testLessThan (in category 'testing') ----- - testLessThan - self assert: aDate < (Date readFrom: (ReadStream on: '01-24-2004')).! Item was removed: - ----- Method: DateTest>>testMakeUTC (in category 'testing') ----- - testMakeUTC - "Equal dates should compare equal regardless of which TimeZone - they are created in." - | priorTz march31stLocal march31stOcean | - "This test won't work in GMT-9, but nobody lives there." - self deny: DateAndTime localTimeZone offset hours = -9. - priorTz := DateAndTime localTimeZone. - march31stLocal := Date today. - DateAndTime - localTimeZone: (TimeZone - offset: -9 hours - name: 'No Countries' - abbreviation: 'Ocean'). - march31stOcean := Date today. - DateAndTime localTimeZone: priorTz. - self assert: march31stLocal makeUTC = march31stOcean makeUTC ; - deny: march31stOcean makeUTC > march31stLocal makeUTC ; - deny: march31stOcean makeUTC < march31stLocal makeUTC! Item was removed: - ----- Method: DateTest>>testMmddyyyy (in category 'testing') ----- - testMmddyyyy - self assert: aDate mmddyyyy = '1/23/2004'! Item was removed: - ----- Method: DateTest>>testNameOfMonth (in category 'testing') ----- - testNameOfMonth - self assert: (Date nameOfMonth: 5) = 'May'. - self assert: (Date nameOfMonth: 8) = 'August' ! Item was removed: - ----- Method: DateTest>>testNew (in category 'Tests') ----- - testNew - | epoch | - epoch := self dateClass newDay: 1 year: 1901. - self assert: (self dateClass new = epoch).! Item was removed: - ----- Method: DateTest>>testNewDayMonthYear (in category 'testing') ----- - testNewDayMonthYear - self assert: aDate = (Date newDay: 23 month: 1 year: 2004) - ! Item was removed: - ----- Method: DateTest>>testNewDayYear (in category 'testing') ----- - testNewDayYear - self assert: aDate = (Date newDay: 23 year: 2004) - ! Item was removed: - ----- Method: DateTest>>testPreviousFriday (in category 'testing') ----- - testPreviousFriday - self assert: (aDate previous: 'Friday') yyyymmdd = '2004-01-16' - - ! Item was removed: - ----- Method: DateTest>>testPreviousNext (in category 'Tests') ----- - testPreviousNext - | n p pt ps | - n := date next. - p := date previous. - - self - assert: n year = 1973; - assert: n dayOfYear = 154; - assert: p year = 1973; - assert: p dayOfYear = 152. - - pt := date previous: #Thursday. "31 May 1973" - self - assert: pt year = 1973; - assert: pt dayOfYear = 151. - - ps := date previous: #Saturday. " 26 May 1973" - self - assert: ps year = 1973; - assert: ps dayOfYear = (153-7). - ! Item was removed: - ----- Method: DateTest>>testPreviousThursday (in category 'testing') ----- - testPreviousThursday - self assert: (aDate previous: 'Thursday') yyyymmdd = '2004-01-22' - - ! Item was removed: - ----- Method: DateTest>>testPrintFormat (in category 'testing') ----- - testPrintFormat - self assert: (aDate printFormat: #(1 2 3 $? 2 2)) = '23?Jan?04'! Item was removed: - ----- Method: DateTest>>testPrintOn (in category 'testing') ----- - testPrintOn - | ref ws | - ref := '23 January 2004'. - ws := '' writeStream. - aDate printOn: ws. - self assert: ws contents = ref! Item was removed: - ----- Method: DateTest>>testPrintOnFormat (in category 'testing') ----- - testPrintOnFormat - | ref ws | - ref :='04*Jan*23'. - ws := '' writeStream. - aDate printOn: ws format: #(3 2 1 $* 2 2). - self assert: ws contents = ref! Item was removed: - ----- Method: DateTest>>testPrinting (in category 'Tests') ----- - testPrinting - - self - assert: date mmddyyyy = '6/2/1973'; - assert: date yyyymmdd = '1973-06-02'; - assert: (date printFormat: #(3 1 2 $!! 2 1 1)) = '1973!!2!!Jun'. - ! Item was removed: - ----- Method: DateTest>>testReadFrom (in category 'Tests') ----- - testReadFrom - | s1 s2 s3 s4 s5 | - s1 := '2 June 1973'. - s2 := '2-JUN-73'. - s3 := 'June 2, 1973'. - s4 := '6/2/73'. - s5 := '2JUN73'. - - self - assert: date = (self dateClass readFrom: s1 readStream); - assert: date = (self dateClass readFrom: s2 readStream); - assert: date = (self dateClass readFrom: s3 readStream); - assert: date = (self dateClass readFrom: s4 readStream); - assert: date = (self dateClass readFrom: s5 readStream).! Item was removed: - ----- Method: DateTest>>testStarting (in category 'testing') ----- - testStarting - self assert: aDate = (Date starting: ((DateAndTime fromString: '2004-01-23T12:12') offset: Date defaultOffset))! Item was removed: - ----- Method: DateTest>>testStoreOn (in category 'testing') ----- - testStoreOn - | ref ws | - ref := '''23 January 2004'' asDate'. - ws := '' writeStream. - aDate storeOn: ws. - self assert: ws contents = ref! Item was removed: - ----- Method: DateTest>>testStoring (in category 'Tests') ----- - testStoring - - self - assert: date storeString = '''2 June 1973'' asDate'; - assert: date = ('2 June 1973' asDate). - ! Item was removed: - ----- Method: DateTest>>testSubtractDate (in category 'testing') ----- - testSubtractDate - self assert: (aDate subtractDate:(aDate addDays: 30)) = -30. - self assert: (aDate subtractDate:(aDate subtractDays: 00)) = 0. - self assert: (aDate subtractDate:(aDate subtractDays: 30)) = 30. - - ! Item was removed: - ----- Method: DateTest>>testSubtractDays (in category 'testing') ----- - testSubtractDays - self assert: (aDate subtractDays: 00) yyyymmdd = '2004-01-23'. - self assert: (aDate subtractDays: 30) yyyymmdd = '2003-12-24'. - self assert: (aDate subtractDays: 60) yyyymmdd = '2003-11-24' - ! Item was removed: - ----- Method: DateTest>>testTomorrow (in category 'testing') ----- - testTomorrow - "Not a great test: could falsely fail if midnight come in between the two executions and doesnt catch many errors" - self assert: Date tomorrow > Date today - ! Item was removed: - ----- Method: DateTest>>testWeekday (in category 'testing') ----- - testWeekday - self assert: aDate weekday = 'Friday'. - self assert: aDate weekdayIndex = 6. - self assert: (Date dayOfWeek: aDate weekday ) =6. - self assert: (Date nameOfDay: 6 ) = 'Friday' ! Item was removed: - ----- Method: DateTest>>testYesterday (in category 'testing') ----- - testYesterday - "Not a great test: doesnt catch many errors" - self assert: Date yesterday < Date today - ! Item was removed: - ----- Method: DateTest>>testYyyymmdd (in category 'testing') ----- - testYyyymmdd - self assert: aDate yyyymmdd = '2004-01-23'! Item was removed: - ClassTestCase subclass: #DurationTest - instanceVariableNames: 'aDuration' - classVariableNames: '' - poolDictionaries: '' - category: 'KernelTests-Chronology'! Item was removed: - ----- Method: DurationTest>>classToBeTested (in category 'Coverage') ----- - classToBeTested - - ^ Duration - - - ! Item was removed: - ----- Method: DurationTest>>selectorsToBeIgnored (in category 'Coverage') ----- - selectorsToBeIgnored - - | private | - private := #( #printOn: ). - - ^ super selectorsToBeIgnored, private - ! Item was removed: - ----- Method: DurationTest>>setUp (in category 'running') ----- - setUp - aDuration := Duration days: 1 hours: 2 minutes: 3 seconds: 4 nanoSeconds: 5 ! Item was removed: - ----- Method: DurationTest>>testAbs (in category 'testing') ----- - testAbs - self assert: aDuration abs = aDuration. - self assert: (Duration nanoSeconds: -5) abs = (Duration nanoSeconds: 5). - ! Item was removed: - ----- Method: DurationTest>>testAgo (in category 'testing') ----- - testAgo - self assert: ((10 minutes ago) isMemberOf: DateAndTime). - self assert: ((10 weeks ago) < DateAndTime now). - self assert: ((-50 seconds ago) > DateAndTime now). - self assert: ((10 hours ago) < DateAndTime now). - self assert: (0 seconds ago - DateAndTime now < 1 second).! Item was removed: - ----- Method: DurationTest>>testAsDelay (in category 'testing') ----- - testAsDelay - self deny: aDuration asDelay = aDuration. - "want to come up with a more meaningful test" - ! Item was removed: - ----- Method: DurationTest>>testAsDuration (in category 'testing') ----- - testAsDuration - self assert: aDuration asDuration = aDuration - - ! Item was removed: - ----- Method: DurationTest>>testAsMilliSeconds (in category 'testing') ----- - testAsMilliSeconds - self assert: (Duration nanoSeconds: 1000000) asMilliSeconds = 1. - self assert: (Duration seconds: 1) asMilliSeconds = 1000. - self assert: (Duration nanoSeconds: 1000000) asMilliSeconds = 1. - self assert: (Duration nanoSeconds: 1000000) asMilliSeconds = 1. - self assert: aDuration asMilliSeconds = 93784000. - self assert: (Duration milliSeconds: 3775) asSeconds = 3. - self assert: (Duration milliSeconds: 3775) nanoSeconds = 775000000! Item was removed: - ----- Method: DurationTest>>testAsNanoSeconds (in category 'testing') ----- - testAsNanoSeconds - self assert: (Duration nanoSeconds: 1) asNanoSeconds = 1. - self assert: (Duration seconds: 1) asNanoSeconds = 1000000000. - self assert: aDuration asNanoSeconds = 93784000000005.! Item was removed: - ----- Method: DurationTest>>testAsSeconds (in category 'testing') ----- - testAsSeconds - self assert: (Duration nanoSeconds: 1000000000) asSeconds = 1. - self assert: (Duration seconds: 1) asSeconds = 1. - self assert: aDuration asSeconds = 93784.! Item was removed: - ----- Method: DurationTest>>testComparing (in category 'Tests') ----- - testComparing - - | d1 d2 d3 | - d1 := Duration seconds: 10 nanoSeconds: 1. - d2 := Duration seconds: 10 nanoSeconds: 1. - d3 := Duration seconds: 10 nanoSeconds: 2. - - self - assert: (d1 = d1); - assert: (d1 = d2); - deny: (d1 = d3); - assert: (d1 < d3) - ! Item was removed: - ----- Method: DurationTest>>testDays (in category 'testing') ----- - testDays - self assert: aDuration days = 1. - self assert: (Duration days: 1) days= 1. ! Item was removed: - ----- Method: DurationTest>>testDivide (in category 'testing') ----- - testDivide - self assert: aDuration / aDuration = 1. - self assert: aDuration / 2 = (Duration days: 0 hours: 13 minutes: 1 seconds: 32 nanoSeconds: 2). - self assert: aDuration / (1/2) = (Duration days: 2 hours: 4 minutes: 6 seconds: 8 nanoSeconds: 10). - ! Item was removed: - ----- Method: DurationTest>>testFromNow (in category 'testing') ----- - testFromNow - - self assert: ((10 seconds fromNow) > DateAndTime now). - self assert: ((0 days fromNow - DateAndTime now) < 1 second). - self assert: ((-1 weeks fromNow) < DateAndTime now). - self assert: ((1000 milliSeconds fromNow) isMemberOf: DateAndTime). - self assert: ((250 hours fromNow) > DateAndTime now). - self assert: ((-50 minutes fromNow) < DateAndTime now).! Item was removed: - ----- Method: DurationTest>>testFromString (in category 'testing') ----- - testFromString - self assert: aDuration = (Duration fromString: '1:02:03:04.000000005'). - ! Item was removed: - ----- Method: DurationTest>>testHash (in category 'testing') ----- - testHash - self assert: aDuration hash = (Duration days: 1 hours: 2 minutes: 3 seconds: 4 nanoSeconds: 5) hash. - self assert: aDuration hash = 93789 - "must be a more meaningful test?"! Item was removed: - ----- Method: DurationTest>>testHours (in category 'testing') ----- - testHours - self assert: aDuration hours = 2. - self assert: (Duration hours: 2) hours = 2. ! Item was removed: - ----- Method: DurationTest>>testIntegerDivision (in category 'testing') ----- - testIntegerDivision - self assert: aDuration // aDuration = 1. - self assert: aDuration // 2 = (aDuration / 2). - "is there ever a case where this is not true, since precision is always to the nano second?"! Item was removed: - ----- Method: DurationTest>>testLessThan (in category 'testing') ----- - testLessThan - self assert: aDuration < (aDuration + 1 day ). - self deny: aDuration < aDuration. - ! Item was removed: - ----- Method: DurationTest>>testMilliSeconds (in category 'testing') ----- - testMilliSeconds - - #( - "argument (milliseconds) seconds nanoseconds" - (5 0 5000000) - (1005 1 5000000) - (-5 0 -5000000) - (-1005 -1 -5000000) - (1234567 1234 567000000) - (-1234567 -1234 -567000000) - ) do: [ :each | - | duration | - duration := Duration milliSeconds: each first. - self assert: duration asSeconds = each second. - self assert: duration nanoSeconds = each third ]! Item was removed: - ----- Method: DurationTest>>testMinus (in category 'testing') ----- - testMinus - self assert: aDuration - aDuration = (Duration seconds: 0). - self assert: aDuration - (Duration days: -1 hours: -2 minutes: -3 seconds: -4 nanoSeconds: -5) = - (Duration days: 2 hours: 4 minutes: 6 seconds: 8 nanoSeconds: 10). - self assert: aDuration - (Duration days: 0 hours: 1 minutes: 2 seconds: 3 nanoSeconds: 4) = - (Duration days: 1 hours: 1 minutes: 1 seconds: 1 nanoSeconds: 1). - self assert: aDuration - (Duration days: 0 hours: 3 minutes: 0 seconds: 5 nanoSeconds: 0) = - (Duration days: 0 hours: 23 minutes: 2 seconds: 59 nanoSeconds: 5). ! Item was removed: - ----- Method: DurationTest>>testMinutes (in category 'testing') ----- - testMinutes - self assert: aDuration minutes = 3. - self assert: (Duration minutes: 3) minutes = 3. ! Item was removed: - ----- Method: DurationTest>>testModulo (in category 'Tests') ----- - testModulo - - | d1 d2 d3 | - d1 := 11.5 seconds. - d2 := d1 \\ 3. - self assert: d2 = (Duration nanoSeconds: 1). - - d3 := d1 \\ (3 seconds). - self assert: d3 = (Duration seconds: 2 nanoSeconds: 500000000). - - self assert: aDuration \\ aDuration = - (Duration days: 0 hours: 0 minutes: 0 seconds: 0 nanoSeconds: 0). - self assert: aDuration \\ 2 = - (Duration days: 0 hours: 0 minutes: 0 seconds: 0 nanoSeconds: 1). - - - ! Item was removed: - ----- Method: DurationTest>>testMonthDurations (in category 'Tests') ----- - testMonthDurations - - | jan feb dec | - jan := Duration month: #January. - feb := Duration month: #February. - dec := Duration month: #December. - - self - assert: jan = (Year current months first duration); - assert: feb = (Year current months second duration); - assert: dec = (Year current months last duration) - - - ! Item was removed: - ----- Method: DurationTest>>testMultiply (in category 'testing') ----- - testMultiply - self assert: aDuration * 2 = (Duration days: 2 hours: 4 minutes: 6 seconds: 8 nanoSeconds: 10). ! Item was removed: - ----- Method: DurationTest>>testNanoSeconds (in category 'testing') ----- - testNanoSeconds - self assert: aDuration nanoSeconds = 5. - self assert: (Duration nanoSeconds: 5) nanoSeconds = 5. ! Item was removed: - ----- Method: DurationTest>>testNegated (in category 'testing') ----- - testNegated - self assert: aDuration + aDuration negated = (Duration seconds: 0). - ! Item was removed: - ----- Method: DurationTest>>testNegative (in category 'testing') ----- - testNegative - self deny: aDuration negative. - self assert: aDuration negated negative - ! Item was removed: - ----- Method: DurationTest>>testNew (in category 'testing') ----- - testNew - "self assert: Duration new = (Duration seconds: 0)." - "new is not valid as a creation method: MessageNotUnderstood: UndefinedObject>>quo:, where Duration seconds is nil"! Item was removed: - ----- Method: DurationTest>>testNormalizeNanoSeconds (in category 'testing') ----- - testNormalizeNanoSeconds - "Subtraction of two DateAndTime values may result in a request to - create a Duration with negative nanoseconds and positive seconds. - The resulting Duration should be normalized, otherwise its printString - will be invalid." - - | d t1 t2 | - t1 := '2004-01-07T11:55:01+00:00' asDateAndTime. - t2 := '2004-01-07T11:55:00.9+00:00' asDateAndTime. - d := t1 - t2. "100 millisecond difference" - self assert: d nanoSeconds > 0. - self assert: d seconds = 0. - self assert: d nanoSeconds = 100000000. - self assert: d asString = '0:00:00:00.1'. - "Verify that other combinations produces reasonable printString values" - self assert: (Duration seconds: 1 nanoSeconds: 100000000) printString = '0:00:00:01.1'. - self assert: (Duration seconds: -1 nanoSeconds: -100000000) printString = '-0:00:00:01.1'. - self assert: (Duration seconds: 1 nanoSeconds: -100000000) printString = '0:00:00:00.9'. - self assert: (Duration seconds: -1 nanoSeconds: 100000000) printString = '-0:00:00:00.9' - ! Item was removed: - ----- Method: DurationTest>>testNumberConvenienceMethods (in category 'Tests') ----- - testNumberConvenienceMethods - - self - assert: 1 week = (Duration days: 7); - assert: -1 week = (Duration days: -7); - assert: 1 day = (Duration days: 1); - assert: -1 day = (Duration days: -1); - assert: 1 hours = (Duration hours: 1); - assert: -1 hour = (Duration hours: -1); - assert: 1 minute = (Duration seconds: 60); - assert: -1 minute = (Duration seconds: -60); - assert: 1 second = (Duration seconds: 1); - assert: -1 second = (Duration seconds: -1); - assert: 1 milliSecond = (Duration milliSeconds: 1); - assert: -1 milliSecond = (Duration milliSeconds: -1); - assert: 1 nanoSecond = (Duration nanoSeconds: 1); - assert: -1 nanoSecond = (Duration nanoSeconds: -1) - ! Item was removed: - ----- Method: DurationTest>>testPlus (in category 'testing') ----- - testPlus - self assert: (aDuration + 0 hours) = aDuration. - self assert: (aDuration + aDuration) = (Duration days: 2 hours: 4 minutes: 6 seconds: 8 nanoSeconds: 10). ! Item was removed: - ----- Method: DurationTest>>testPositive (in category 'testing') ----- - testPositive - self assert: (Duration nanoSeconds: 0) positive. - self assert: aDuration positive. - self deny: aDuration negated positive - ! Item was removed: - ----- Method: DurationTest>>testPrintOn (in category 'testing') ----- - testPrintOn - | ref ws | - ref := '1:02:03:04.000000005'. - ws := '' writeStream. - aDuration printOn: ws. - self assert: ws contents = ref! Item was removed: - ----- Method: DurationTest>>testQuotient (in category 'Tests') ----- - testQuotient - - | d1 d2 q | - d1 := 11.5 seconds. - d2 := d1 // 3. - self assert: d2 = (Duration seconds: 3 nanoSeconds: 833333333). - - q := d1 // (3 seconds). - self assert: q = 3. - - ! Item was removed: - ----- Method: DurationTest>>testReadFrom (in category 'testing') ----- - testReadFrom - self assert: aDuration = (Duration readFrom: (ReadStream on: '1:02:03:04.000000005')) - ! Item was removed: - ----- Method: DurationTest>>testReadFromTrailingDigits (in category 'Tests') ----- - testReadFromTrailingDigits - "http://bugs.squeak.org/view.php?id=6764" - self should: (Duration readFrom: '0:00:00:00.001 ' readStream) nanoSeconds = 1000000.! Item was removed: - ----- Method: DurationTest>>testRoundTo (in category 'Tests') ----- - testRoundTo - - self assert: ((5 minutes + 37 seconds) roundTo: (2 minutes)) = (6 minutes). - - self assert: (aDuration roundTo: (Duration days: 1)) = - (Duration days: 1 hours: 0 minutes: 0 seconds: 0 nanoSeconds: 0). - self assert: (aDuration roundTo: (Duration hours: 1)) = - (Duration days: 1 hours: 2 minutes: 0 seconds: 0 nanoSeconds: 0). - self assert: (aDuration roundTo: (Duration minutes: 1)) = - (Duration days: 1 hours: 2 minutes: 3 seconds: 0 nanoSeconds: 0).! Item was removed: - ----- Method: DurationTest>>testSeconds (in category 'testing') ----- - testSeconds - self assert: aDuration seconds = 4. - self assert: (Duration nanoSeconds: 2) seconds = 0. - self assert: (Duration nanoSeconds: 999999999) seconds = 0. - self assert: (Duration nanoSeconds: 1000000001) seconds = 1. - self assert: (Duration seconds: 2) seconds = 2. - self assert: (Duration days: 1 hours: 2 minutes: 3 seconds:4) seconds = 4. - self deny: (Duration days: 1 hours: 2 minutes: 3 seconds:4) seconds = (1*24*60*60+(2*60*60)+(3*60)+4). ! Item was removed: - ----- Method: DurationTest>>testSecondsNanoSeconds (in category 'testing') ----- - testSecondsNanoSeconds - self assert: (Duration seconds: 0 nanoSeconds: 5) = (Duration nanoSeconds: 5). - "not sure I should include in sunit since its Private " - self assert: (aDuration seconds: 0 nanoSeconds: 1) = (Duration nanoSeconds: 1). - ! Item was removed: - ----- Method: DurationTest>>testStoreOn (in category 'testing') ----- - testStoreOn - self assert: (aDuration storeOn: (WriteStream on:'')) asString ='1:02:03:04.000000005'. - "storeOn: returns a duration (self) not a stream"! Item was removed: - ----- Method: DurationTest>>testTicks (in category 'testing') ----- - testTicks - self assert: aDuration ticks = #(1 7384 5)! Item was removed: - ----- Method: DurationTest>>testTruncateTo (in category 'Tests') ----- - testTruncateTo - - self assert: ((5 minutes + 37 seconds) truncateTo: (2 minutes)) = (4 minutes). - self assert: (aDuration truncateTo: (Duration days: 1)) = - (Duration days: 1 hours: 0 minutes: 0 seconds: 0 nanoSeconds: 0). - self assert: (aDuration truncateTo: (Duration hours: 1)) = - (Duration days: 1 hours: 2 minutes: 0 seconds: 0 nanoSeconds: 0). - self assert: (aDuration truncateTo: (Duration minutes: 1)) = - (Duration days: 1 hours: 2 minutes: 3 seconds: 0 nanoSeconds: 0).! Item was removed: - ----- Method: DurationTest>>testWeeks (in category 'testing') ----- - testWeeks - self assert: (Duration weeks: 1) days= 7. ! Item was removed: - ----- Method: DurationTest>>testZero (in category 'testing') ----- - testZero - self assert: (Duration zero) = (Duration seconds: 0). ! Item was removed: - ClassTestCase subclass: #MonthTest - instanceVariableNames: 'month' - classVariableNames: '' - poolDictionaries: '' - category: 'KernelTests-Chronology'! - - !MonthTest commentStamp: 'brp 7/26/2003 22:44' prior: 0! - This is the unit test for the class Month. - ! Item was removed: - ----- Method: MonthTest>>classToBeTested (in category 'Coverage') ----- - classToBeTested - - ^ Month! Item was removed: - ----- Method: MonthTest>>selectorsToBeIgnored (in category 'Coverage') ----- - selectorsToBeIgnored - - | deprecated private special | - deprecated := #(). - private := #( #printOn: ). - special := #( #next ). - - ^ super selectorsToBeIgnored, deprecated, private, special.! Item was removed: - ----- Method: MonthTest>>setUp (in category 'Running') ----- - setUp - - super setUp. - month := Month month: 7 year: 1998.! Item was removed: - ----- Method: MonthTest>>tearDown (in category 'Running') ----- - tearDown - - super tearDown. - month := nil.! Item was removed: - ----- Method: MonthTest>>testConverting (in category 'Tests') ----- - testConverting - - self assert: month asDate = '1 July 1998' asDate! Item was removed: - ----- Method: MonthTest>>testEnumerating (in category 'Tests') ----- - testEnumerating - | weeks | - weeks := OrderedCollection new. - month weeksDo: [ :w | weeks add: w start ]. - 0 to: 4 do: [ :i | weeks remove: (Week starting: ('29 June 1998' asDate addDays: i * 7)) start ]. - self assert: weeks isEmpty! Item was removed: - ----- Method: MonthTest>>testIndexOfMonth (in category 'Tests') ----- - testIndexOfMonth - - | m | - m := #(#January #February #March #April #May #June #July #August #September #October #November #December). - - m withIndexDo: [:item :index | self assert: (Month indexOfMonth: item) = index]. - - self should: [Month indexOfMonth: 1] raise: TestResult error. - self should: [Month indexOfMonth: #'1'] raise: TestResult error. - self should: [Month indexOfMonth: #Marsh] raise: TestResult error. "notice the misspell!!" - self should: [Month indexOfMonth: #UnexistingMonth] raise: TestResult error.! Item was removed: - ----- Method: MonthTest>>testInquiries (in category 'Tests') ----- - testInquiries - - self - assert: month index = 7; - assert: month name = #July; - assert: month duration = (31 days). - ! Item was removed: - ----- Method: MonthTest>>testInstanceCreation (in category 'Tests') ----- - testInstanceCreation - | m1 m2 | - m1 := Month starting: '4 July 1998' asDate. - m2 := Month month: #July year: 1998. - self - assert: month = m1; - assert: month = m2! Item was removed: - ----- Method: MonthTest>>testNameOfMonth (in category 'Tests') ----- - testNameOfMonth - - | m | - m := #(#January #February #March #April #May #June #July #August #September #October #November #December). - - m withIndexDo: [:item :index | self assert: (Month nameOfMonth: index) = item]. - - self should: [Month nameOfMonth: 0] raise: TestResult error. - self should: [Month nameOfMonth: 13] raise: TestResult error. - self should: [Month nameOfMonth: #January] raise: TestResult error.! Item was removed: - ----- Method: MonthTest>>testPreviousNext (in category 'Tests') ----- - testPreviousNext - | n p | - n := month next. - p := month previous. - - self - assert: n year = 1998; - assert: n index = 8; - assert: p year = 1998; - assert: p index = 6. - - ! Item was removed: - ----- Method: MonthTest>>testPrinting (in category 'Tests') ----- - testPrinting - - self - assert: month printString = 'July 1998'. - ! Item was removed: - ----- Method: MonthTest>>testReadFrom (in category 'Tests') ----- - testReadFrom - - | m | - m := Month readFrom: 'July 1998' readStream. - self - assert: m = month! Item was removed: - ClassTestCase subclass: #ScheduleTest - instanceVariableNames: 'firstEvent aSchedule restoredTimeZone' - classVariableNames: '' - poolDictionaries: '' - category: 'KernelTests-Chronology'! Item was removed: - ----- Method: ScheduleTest>>classToBeTested (in category 'Coverage') ----- - classToBeTested - - ^ Schedule - - ! Item was removed: - ----- Method: ScheduleTest>>selectorsToBeIgnored (in category 'Coverage') ----- - selectorsToBeIgnored - - | private | - private := #( #printOn: ). - - ^ super selectorsToBeIgnored, private - ! Item was removed: - ----- Method: ScheduleTest>>setUp (in category 'running') ----- - setUp - "Schedule is a type of Timespan representing repeated occurences of the same event. - The beginning of the schedule is the first occurrence of the event. - A schedule maintains an array of Durations. - Each durations specify the offset to the next scheduled each. - The duration of each occurence of the event is not specified. - Nor are any other attributes such as name" - - restoredTimeZone := DateAndTime localTimeZone. - DateAndTime localTimeZone: (TimeZone timeZones detect: [:tz | tz abbreviation = 'GMT']). - - "Create aSchedule with an event scheduled for 8:30pm every Saturday - and Sunday for the year 2003. " - "Create the first event occurring on the first Saturday at 8:30 pm: 1/4/03" - firstEvent := DateAndTime year: 2003 month: 1 day: 4 hour: 20 minute: 30. - - "Create a schedule for one year starting with the first event" - aSchedule := Schedule starting: firstEvent duration: 52 weeks. - - "Schedule the recurring events by scheduling the time in between each one. - One day for Sat-Sun. 6 days for Sun-Sat" - aSchedule schedule: { Duration days: 1. Duration days: 6 }. - ! Item was removed: - ----- Method: ScheduleTest>>tearDown (in category 'running') ----- - tearDown - - DateAndTime localTimeZone: restoredTimeZone. - ! Item was removed: - ----- Method: ScheduleTest>>testBetweenAndDoDisjointWithSchedule (in category 'testing') ----- - testBetweenAndDoDisjointWithSchedule - | count | - count := 0. - aSchedule - between: (DateAndTime - year: 2004 - month: 4 - day: 1) - and: (DateAndTime - year: 2004 - month: 4 - day: 30) - do: [:each | count := count + 1]. - self assert: count = 0! Item was removed: - ----- Method: ScheduleTest>>testBetweenAndDoIncludedInSchedule (in category 'testing') ----- - testBetweenAndDoIncludedInSchedule - | count | - count := 0. - aSchedule - between: (DateAndTime - year: 2003 - month: 4 - day: 1) - and: (DateAndTime - year: 2003 - month: 4 - day: 30) - do: [:each | count := count + 1]. - self assert: count = 8! Item was removed: - ----- Method: ScheduleTest>>testBetweenAndDoOverlappingSchedule (in category 'testing') ----- - testBetweenAndDoOverlappingSchedule - | count | - count := 0. - aSchedule - between: (DateAndTime - year: 2002 - month: 12 - day: 1) - and: (DateAndTime - year: 2003 - month: 1 - day: 31) - do: [:each | count := count + 1]. - self assert: count = 8! Item was removed: - ----- Method: ScheduleTest>>testDateAndTimes (in category 'testing') ----- - testDateAndTimes - | answer | - self assert: aSchedule dateAndTimes size = 104. - self assert: aSchedule dateAndTimes first = firstEvent. - answer := true. - aSchedule dateAndTimes do: [:each | (each dayOfWeekName = 'Saturday' - or: [each dayOfWeekName = 'Sunday']) ifFalse: [^false]]. - self assert: answer - ! Item was removed: - ----- Method: ScheduleTest>>testExampleFromSwikiPage (in category 'testing') ----- - testExampleFromSwikiPage - "It is often neccessary to schedule repeated events, like airline flight schedules, TV programmes, and file backups. - Schedule is a Timespan which maintains an array of Durations. - The durations specify the offset to the next scheduled DateAndTime. " - "Consider a TV programme scheduled for 8:30pm every Saturday and Sunday for the current year. " - "Find the first Saturday and set its time to 20h30" - | sat shows | - sat := Year current asMonth dates detect: [ :d | d dayOfWeekName = #Saturday ]. - sat := sat start + (Duration hours: 20.5). - "Create a schedule" - shows := Schedule starting: sat ending: Year current end. - shows schedule: { Duration days: 1. Duration days: 6 }. - "To inspect:" - shows dateAndTimes. - shows dateAndTimes collect: [ :dt | dt dayOfWeekName ]. - - ! Item was removed: - ----- Method: ScheduleTest>>testFromDateAndTime (in category 'Tests') ----- - testFromDateAndTime - - | oc1 oc2 | - oc1 := OrderedCollection new. - DateAndTime today to: DateAndTime tomorrow by: 10 hours do: [ :dt | oc1 add: dt ]. - - oc2 := { DateAndTime today. - (DateAndTime today + 10 hours). - (DateAndTime today + 20 hours) }. - - self assert: (oc1 asArray = oc2)! Item was removed: - ----- Method: ScheduleTest>>testIncludes (in category 'testing') ----- - testIncludes - self assert: (aSchedule includes: (DateAndTime year: 2003 month: 6 day: 15 hour: 20 minute: 30 second: 0 offset: 0 hours)) - - ! Item was removed: - ----- Method: ScheduleTest>>testMonotonicity (in category 'Tests') ----- - testMonotonicity - - | t1 t2 t3 t4 | - t1 := DateAndTime now. - t2 := DateAndTime now. - t3 := DateAndTime now. - t4 := DateAndTime now. - - self - assert: ( t1 <= t2); - assert: ( t2 <= t3); - assert: ( t3 <= t4). - ! Item was removed: - ----- Method: ScheduleTest>>testSchedule (in category 'testing') ----- - testSchedule - self assert: aSchedule schedule size = 2. - self assert: aSchedule schedule first = 1 days. - self assert: aSchedule schedule second = 6 days. - ! Item was removed: - ClassTestCase subclass: #StopwatchTest - instanceVariableNames: 'aStopwatch aDelay' - classVariableNames: '' - poolDictionaries: '' - category: 'KernelTests-Chronology'! Item was removed: - ----- Method: StopwatchTest>>classToBeTested (in category 'Coverage') ----- - classToBeTested - - ^ Stopwatch - - ! Item was removed: - ----- Method: StopwatchTest>>selectorsToBeIgnored (in category 'Coverage') ----- - selectorsToBeIgnored - - | private | - private := #( #printOn: #state: ). - - ^ super selectorsToBeIgnored, private - ! Item was removed: - ----- Method: StopwatchTest>>setUp (in category 'running') ----- - setUp - aStopwatch := Stopwatch new. - aDelay := Delay forMilliseconds: 1.! Item was removed: - ----- Method: StopwatchTest>>testActive (in category 'Tests') ----- - testActive - - | sw | - sw := Stopwatch new. - sw activate. - - 1 seconds asDelay wait. - self - assert: (sw duration >= 1 seconds). - - 2 seconds asDelay wait. - self - assert: (sw duration >= 3 seconds). - - sw suspend.! Item was removed: - ----- Method: StopwatchTest>>testChangingStatus (in category 'testing') ----- - testChangingStatus - aStopwatch activate. - self assert: aStopwatch isActive. - self assert: aStopwatch timespans size = 1. - aStopwatch suspend. - self assert: aStopwatch isSuspended. - self assert: aStopwatch timespans size = 1. - aStopwatch activate. - aStopwatch reActivate. - self assert: aStopwatch isActive. - self assert: aStopwatch timespans size = 3. - aStopwatch reset. - self assert: aStopwatch isSuspended. - self assert: aStopwatch timespans size = 0.! Item was removed: - ----- Method: StopwatchTest>>testInitialStatus (in category 'testing') ----- - testInitialStatus - self assert: aStopwatch isSuspended. - self deny: aStopwatch isActive. - self assert: aStopwatch duration = 0 seconds! Item was removed: - ----- Method: StopwatchTest>>testMultipleTimings (in category 'testing') ----- - testMultipleTimings - aStopwatch activate. - aDelay wait. - aStopwatch suspend. - aStopwatch activate. - aDelay wait. - aStopwatch suspend. - self assert: aStopwatch timespans size = 2. - self assert: aStopwatch timespans first asDateAndTime <= - aStopwatch timespans last asDateAndTime. - ! Item was removed: - ----- Method: StopwatchTest>>testNew (in category 'Tests') ----- - testNew - - | sw | - sw := Stopwatch new. - - self - assert: (sw isSuspended); - assert: (sw state = #suspended); - deny: (sw isActive); - assert: (sw timespans isEmpty) - - ! Item was removed: - ----- Method: StopwatchTest>>testPrintOn (in category 'testing') ----- - testPrintOn - | ref ws | - ref := 'a Stopwatch(suspended:0:00:00:00)'. - ws := '' writeStream. - aStopwatch printOn: ws. - self assert: ws contents = ref! Item was removed: - ----- Method: StopwatchTest>>testReActivate (in category 'Tests') ----- - testReActivate - - | sw | - sw := Stopwatch new. - sw - activate; - suspend; - reActivate. - - self - assert: (sw isActive). - ! Item was removed: - ----- Method: StopwatchTest>>testReset (in category 'Tests') ----- - testReset - - | sw | - sw := Stopwatch new. - sw activate. - - sw reset. - self - assert: (sw isSuspended); - assert: (sw timespans isEmpty) - ! Item was removed: - ----- Method: StopwatchTest>>testSingleTiming (in category 'testing') ----- - testSingleTiming - | timeBefore | - timeBefore := DateAndTime now. - aStopwatch activate. - aDelay wait. - aStopwatch suspend. - self assert: aStopwatch timespans size = 1. - self assert: aStopwatch timespans first asDateAndTime >= timeBefore. - self assert: aStopwatch timespans first asDateAndTime <= aStopwatch end. - ! Item was removed: - ----- Method: StopwatchTest>>testStartStop (in category 'Tests') ----- - testStartStop - - | sw t1 t2 t3 t4 | - sw := Stopwatch new. - t1 := DateAndTime now. - (Delay forMilliseconds: 10) wait. - sw activate; activate. - (Delay forMilliseconds: 10) wait. - t2 := DateAndTime now. - - self - deny: (sw isSuspended); - assert: (sw isActive); - assert: (sw timespans size = 1); - assert: (t1 <= sw start); - assert: (sw start <= t2). - - (Delay forMilliseconds: 10) wait. - t3 := DateAndTime now. - (Delay forMilliseconds: 10) wait. - sw suspend; suspend. - (Delay forMilliseconds: 10) wait. - t4 := DateAndTime now. - - self - assert: (sw isSuspended); - deny: (sw isActive); - assert: (sw timespans size = 1); - assert: (sw end between: t3 and: t4); - assert: (t3 <= sw end); - assert: (sw end <= t4). - ! Item was removed: - ClassTestCase subclass: #TimeStampTest - instanceVariableNames: 'timestamp aTimeStamp' - classVariableNames: '' - poolDictionaries: '' - category: 'KernelTests-Chronology'! - - !TimeStampTest commentStamp: 'brp 7/26/2003 22:44' prior: 0! - This is the unit test for the class TimeStamp.! Item was removed: - ----- Method: TimeStampTest>>classToBeTested (in category 'Coverage') ----- - classToBeTested - - ^ self timestampClass! Item was removed: - ----- Method: TimeStampTest>>selectorsToBeIgnored (in category 'Coverage') ----- - selectorsToBeIgnored - - | deprecated private special | - - deprecated := #(). - private := #( #printOn: ). - special := #(). - - ^ super selectorsToBeIgnored, deprecated, private, special.! Item was removed: - ----- Method: TimeStampTest>>setUp (in category 'Running') ----- - setUp - - timestamp := self timestampClass date: ('1-10-2000' asDate) time: ('11:55:00 am' asTime). - - aTimeStamp := TimeStamp readFrom: '1-02-2004 12:34:56 am' readStream! Item was removed: - ----- Method: TimeStampTest>>tearDown (in category 'Running') ----- - tearDown - - timestamp := nil.! Item was removed: - ----- Method: TimeStampTest>>testAccessing (in category 'Tests') ----- - testAccessing - - | d t | - d := '1-10-2000' asDate. - t := '11:55:00 am' asTime. - - self - assert: (timestamp offset: Date defaultOffset) date = d; - assert: (timestamp offset: Date defaultOffset) time = t. - ! Item was removed: - ----- Method: TimeStampTest>>testArithmetic (in category 'Tests') ----- - testArithmetic - - | ts | - ts := timestamp minusDays: 123. "9 September 1999, 11:55 am" - ts := ts minusSeconds: 1056. "9 September 1999, 11:37:24 am" - ts := ts plusDays: 123. "10 January 2000, 11:37:24 am" - ts := ts plusSeconds: 1056. "10 January 2000, 11:55 am" - self - assert: ts = timestamp. - - ! Item was removed: - ----- Method: TimeStampTest>>testArithmeticAcrossDateBoundary (in category 'Tests') ----- - testArithmeticAcrossDateBoundary - - | ts | - ts := timestamp minusSeconds: ((11*3600) + (55*60) + 1). - self - assert: ts = ('1-9-2000 11:59:59 pm' asTimeStamp). - - ! Item was removed: - ----- Method: TimeStampTest>>testComparing (in category 'Tests') ----- - testComparing - - | ts1 ts2 ts3 c1 c2 le | - ts1 := self timestampClass date: ('01-10-2000' asDate) time: ('11:55:00 am' asTime). - ts2 := self timestampClass date: ('07-26-2003' asDate) time: ('22:09:45 am' asTime). - ts3 := self timestampClass date: ('05-28-1972' asDate) time: ('04:31:14 pm' asTime). - - self - assert: ts1 = timestamp; - assert: ts1 hash = timestamp hash; - assert: timestamp = timestamp copy; - assert: ts1 < ts2; - deny: ts1 < ts3. - - c1 := self timestampClass current. - c2 := self timestampClass current. - le := (c1 <= c2). - self assert: le. - - ! Item was removed: - ----- Method: TimeStampTest>>testConverting (in category 'Tests') ----- - testConverting - - | d t | - d := '1-10-2000' asDate. - t := '11:55:00 am' asTime. - - self - assert: timestamp asSeconds = (d asSeconds + t asSeconds); - assert: timestamp asDate = d; - assert: timestamp asTime = t; - assert: timestamp asTimeStamp == timestamp; - assert: timestamp dateAndTime = {d. t}. - ! Item was removed: - ----- Method: TimeStampTest>>testDate (in category 'testing') ----- - testDate - self assert: aTimeStamp date = '01-02-2004' asDate! Item was removed: - ----- Method: TimeStampTest>>testDateAndTime (in category 'testing') ----- - testDateAndTime - self assert: aTimeStamp dateAndTime - = (Array with: '01-02-2004' asDate with: '00:34:56' asTime)! Item was removed: - ----- Method: TimeStampTest>>testFromSeconds (in category 'Tests') ----- - testFromSeconds - "A time stamp from seconds is created in the local time zone, so offset may - be non-zero. The test timestamp has offset zero (implying UTC). Comparison - to the test timestamp should succeed if and only if both time stamps are - created relative to the same time zone (UTC)." - - | local utc | - local := self timestampClass fromSeconds: 3124958100. - local offset = Duration zero - ifTrue: [self assert: local = timestamp.] - ifFalse: [self deny: local = timestamp.]. - utc := local offset: Duration zero. - self assert: utc = timestamp.! Item was removed: - ----- Method: TimeStampTest>>testFromString (in category 'Tests') ----- - testFromString - "This should signal an exception in 3.6beta as Time>>fromString: does not exist." - - self should: [ timestamp = (self timestampClass fromString: '1-10-2000 11:55:00 am') ] - - ! Item was removed: - ----- Method: TimeStampTest>>testInstanceCreation (in category 'Tests') ----- - testInstanceCreation - - self - should: [ self timestampClass midnight asDuration = (0 hours) ]; - should: [ self timestampClass noon asDuration = (12 hours) ]. - ! Item was removed: - ----- Method: TimeStampTest>>testMinusDays (in category 'testing') ----- - testMinusDays - self assert: (aTimeStamp minusDays: 5) dateAndTime - = (Array with: '12-28-2003' asDate with: '00:34:56' asTime)! Item was removed: - ----- Method: TimeStampTest>>testMinusSeconds (in category 'testing') ----- - testMinusSeconds - self assert: (aTimeStamp minusSeconds: 34 * 60 + 56) dateAndTime - = (Array with: '01-02-2004' asDate with: '00:00:00' asTime)! Item was removed: - ----- Method: TimeStampTest>>testMinusSecondsOverMidnight (in category 'testing') ----- - testMinusSecondsOverMidnight - self assert: (aTimeStamp minusSeconds: 34 * 60 + 57) dateAndTime - = (Array with: '01-01-2004' asDate with: '23:59:59' asTime) - "Bug The results are actual results are: #(1 January 2005 11:25:03 pm)"! Item was removed: - ----- Method: TimeStampTest>>testPlusDays (in category 'testing') ----- - testPlusDays - self assert: (aTimeStamp plusDays: 366) dateAndTime - = (Array with: '01-02-2005' asDate with: '00:34:56' asTime)! Item was removed: - ----- Method: TimeStampTest>>testPlusSeconds (in category 'testing') ----- - testPlusSeconds - self assert: (aTimeStamp plusSeconds: 60 * 60 ) dateAndTime - = (Array with: '01-02-2004' asDate with: '01:34:56' asTime)! Item was removed: - ----- Method: TimeStampTest>>testPlusSecondsOverMidnight (in category 'testing') ----- - testPlusSecondsOverMidnight - self assert: (aTimeStamp plusSeconds: 24 * 60 * 60 + 1) dateAndTime - = (Array with: '01-03-2004' asDate with: '00:34:57' asTime)! Item was removed: - ----- Method: TimeStampTest>>testPrintOn (in category 'testing') ----- - testPrintOn - | ref ws | - ref := '2 January 2004 12:34:56 am'. - ws := '' writeStream. - aTimeStamp printOn: ws. - self assert: ws contents = ref! Item was removed: - ----- Method: TimeStampTest>>testPrinting (in category 'Tests') ----- - testPrinting - - self - assert: timestamp printString = '10 January 2000 11:55 am'. - ! Item was removed: - ----- Method: TimeStampTest>>testReadFromA1 (in category 'testing') ----- - testReadFromA1 - "Conversion to and from a string (with implied UTC offset) is equal if - and only if the time stamp has zero offset." - |ts| - ts := TimeStamp current offset: Duration zero. "current as UTC" - self assert: (ts = (TimeStamp fromString: ts asString)). - ts := TimeStamp current offset: (Duration hours: 1). - self deny: (ts = (TimeStamp fromString: ts asString)). - ! Item was removed: - ----- Method: TimeStampTest>>testSorting (in category 'Tests') ----- - testSorting - - | c1 c2 | - c1 := self timestampClass current. - c2 := self timestampClass current. - - self - assert: (self timestampClass current) <= (self timestampClass current); - assert: (c1 <= c2). - - - ! Item was removed: - ----- Method: TimeStampTest>>testStoreOn (in category 'testing') ----- - testStoreOn - | ref ws | - ref := '''2 January 2004 12:34:56 am'' asTimeStamp'. - ws := '' writeStream. - aTimeStamp storeOn: ws. - self assert: ws contents = ref! Item was removed: - ----- Method: TimeStampTest>>testTime (in category 'testing') ----- - testTime - self assert: aTimeStamp time = '00:34:56' asTime! Item was removed: - ----- Method: TimeStampTest>>testTimeStamp (in category 'testing') ----- - testTimeStamp - self assert: aTimeStamp = aTimeStamp asTimeStamp - ! Item was removed: - ----- Method: TimeStampTest>>timestampClass (in category 'Private') ----- - timestampClass - - ^ TimeStamp! Item was removed: - ClassTestCase subclass: #TimeTest - instanceVariableNames: 'time aTime localTimeZoneToRestore' - classVariableNames: '' - poolDictionaries: '' - category: 'KernelTests-Chronology'! - - !TimeTest commentStamp: '<historical>' prior: 0! - This is the unit test for the class Time. - - ! Item was removed: - ----- Method: TimeTest>>classToBeTested (in category 'Coverage') ----- - classToBeTested - - ^ self timeClass! Item was removed: - ----- Method: TimeTest>>selectorsToBeIgnored (in category 'Coverage') ----- - selectorsToBeIgnored - - | deprecated private special primitives timing benchmarks | - - deprecated := #(). - private := #( #print24:on: #print24:showSeconds:on: ). - special := #( #< #= #new #printOn: #storeOn: ). - primitives := #( #primMillisecondClock #primSecondsClock ). - timing := #( #millisecondClockValue #milliseconds:since: #millisecondsSince: ). - benchmarks := #( #benchmarkMillisecondClock #benchmarkPrimitiveResponseDelay ). - - ^ super selectorsToBeIgnored, deprecated, private, special, primitives, timing, benchmarks.! Item was removed: - ----- Method: TimeTest>>setUp (in category 'Running') ----- - setUp - - localTimeZoneToRestore := DateAndTime localTimeZone. - DateAndTime localTimeZone: TimeZone default. - time := self timeClass fromSeconds: 14567. "4:02:47 am" - aTime := Time readFrom: '12:34:56 pm' readStream - ! Item was removed: - ----- Method: TimeTest>>tearDown (in category 'Running') ----- - tearDown - DateAndTime localTimeZone: localTimeZoneToRestore. - ! Item was removed: - ----- Method: TimeTest>>testAccessing (in category 'Tests') ----- - testAccessing - - self - assert: time hours = 4; - assert: time minutes = 2; - assert: time seconds = 47; - assert: time asSeconds = 14567. - ! Item was removed: - ----- Method: TimeTest>>testAddSeconds (in category 'testing') ----- - testAddSeconds - self assert: (aTime addSeconds: 1) = (Time readFromString: '12:34:57'). - self assert: (aTime addSeconds: 60) = (Time readFromString: '12:35:56'). - self assert: (aTime addSeconds: 3600) = (Time readFromString: '13:34:56'). - self assert: (aTime addSeconds: 24*60*60) = (Time readFromString: '12:34:56').! Item was removed: - ----- Method: TimeTest>>testAddTime (in category 'testing') ----- - testAddTime - self assert: (aTime addTime: aTime) = (Time readFromString: '01:09:52'). - ! Item was removed: - ----- Method: TimeTest>>testArithmetic (in category 'Tests') ----- - testArithmetic - | t1 t2 t3 | - t1 := time addSeconds: 70. "4:03:57 am" - self - assert: t1 hours = 4; - assert: t1 minutes = 3; - assert: t1 seconds = 57. - - t2 := t1 addTime: (self timeClass fromSeconds: (60*60*5)). - self - assert: t2 hours = 9; - assert: t2 minutes = 3; - assert: t2 seconds = 57. - - t3 := t2 subtractTime: (self timeClass fromSeconds: (60*60*5) + 70). - self - assert: t3 = time. - ! Item was removed: - ----- Method: TimeTest>>testAsDate (in category 'testing') ----- - testAsDate - self assert: (aTime asDate) = (Date current) - ! Item was removed: - ----- Method: TimeTest>>testAsDateAndTime (in category 'testing') ----- - testAsDateAndTime - self assert: (aTime asDateAndTime) = (DateAndTime current midnight + aTime) - ! Item was removed: - ----- Method: TimeTest>>testAsDuration (in category 'testing') ----- - testAsDuration - self assert: (aTime asDuration) = (Duration days: 0 hours: 12 minutes: 34 seconds: 56) - ! Item was removed: - ----- Method: TimeTest>>testAsNanoSeconds (in category 'testing') ----- - testAsNanoSeconds - self assert: (aTime asNanoSeconds) = 45296000000000 - - ! Item was removed: - ----- Method: TimeTest>>testAsSeconds (in category 'testing') ----- - testAsSeconds - self assert: (aTime asSeconds) = 45296 - ! Item was removed: - ----- Method: TimeTest>>testAsTime (in category 'testing') ----- - testAsTime - self assert: (aTime asTime) = aTime - - ! Item was removed: - ----- Method: TimeTest>>testAsTimeStamp (in category 'testing') ----- - testAsTimeStamp - self assert: (aTime asTimeStamp) = (DateAndTime current midnight + aTime) asTimeStamp - ! Item was removed: - ----- Method: TimeTest>>testAsWeek (in category 'testing') ----- - testAsWeek - self assert: aTime asWeek = (DateAndTime current midnight + aTime) asWeek - ! Item was removed: - ----- Method: TimeTest>>testAsYear (in category 'testing') ----- - testAsYear - self assert: aTime asYear = (DateAndTime current midnight + aTime) asYear - ! Item was removed: - ----- Method: TimeTest>>testComparing (in category 'Tests') ----- - testComparing - | t1 t2 t3 | - t1 := self timeClass fromSeconds: 14567. "4:02:47 am" - t2 := self timeClass fromSeconds: 5000. "1:23:20 am" - t3 := self timeClass fromSeconds: 80000. "10:13:20 pm" - - self - assert: time = t1; - assert: time hash = t1 hash; - assert: time = time copy. - self - deny: t1 < t2; - assert: t1 < t3.! Item was removed: - ----- Method: TimeTest>>testConverting (in category 'Tests') ----- - testConverting - - self - assert: time asSeconds = 14567.! Item was removed: - ----- Method: TimeTest>>testDuration (in category 'testing') ----- - testDuration - self assert: aTime duration = 0 seconds! Item was removed: - ----- Method: TimeTest>>testEqual (in category 'testing') ----- - testEqual - self assert: aTime = (Time readFromString: '12:34:56').! Item was removed: - ----- Method: TimeTest>>testFromSeconds (in category 'Tests') ----- - testFromSeconds - | t | - t := self timeClass fromSeconds: 14567. - self - assert: t = time - ! Item was removed: - ----- Method: TimeTest>>testGeneralInquiries (in category 'Tests') ----- - testGeneralInquiries - | now d t dt epsilon | - - "vm clocks seem to work differently across platforms, so an epsilon is required" - epsilon := 1. "second" - now := self timeClass dateAndTimeNow. - self - assert: now size = 2; - assert: (now last asSeconds - self timeClass now asSeconds) abs <= epsilon. - - self should: [ self timeClass timeWords ] raise: MessageNotUnderstood. - - d := '2 June 1973' asDate. - t := '4:02:47 am' asTime. - dt := self timeClass dateAndTimeFromSeconds: (2285280000 + 14567). - self - assert: dt = {d. t.}. - ! Item was removed: - ----- Method: TimeTest>>testHash (in category 'testing') ----- - testHash - self assert: aTime hash = (Character instSize > 0 ifTrue: [607004] ifFalse: [101409191])! Item was removed: - ----- Method: TimeTest>>testHhmm24 (in category 'testing') ----- - testHhmm24 - self assert: aTime hhmm24 = '1234'! Item was removed: - ----- Method: TimeTest>>testHour (in category 'testing') ----- - testHour - self assert: aTime hour = 12. - self assert: aTime hour12 = 12. - self assert: aTime hour24 = 12. - self assert: aTime hours = 12.! Item was removed: - ----- Method: TimeTest>>testHumanWordsForSecondsAgo (in category 'testing') ----- - testHumanWordsForSecondsAgo - self assert: (Time humanWordsForSecondsAgo: 0.999999999) - = 'a second ago'. - self assert: (Time humanWordsForSecondsAgo: 44.99999999) - = '44.99999999 seconds ago'. - self assert: (Time humanWordsForSecondsAgo: 89.999999999) - = 'a minute ago'. - self assert: (Time humanWordsForSecondsAgo: 2699.999999999) - = '44 minutes ago'. - self assert: (Time humanWordsForSecondsAgo: 5399.999999999) - = 'an hour ago'. - self assert: (Time humanWordsForSecondsAgo: 64799.999999999) - = '17 hours ago'. - ! Item was removed: - ----- Method: TimeTest>>testHumanWordsForSecondsAgoWithDays (in category 'testing') ----- - testHumanWordsForSecondsAgoWithDays - - self assert: (Time humanWordsForSecondsAgo: 18 * 60 * 60) - = 'yesterday'. - self assert: (Time humanWordsForSecondsAgo: 24 * 60 * 60) - = 'yesterday'. - ! Item was removed: - ----- Method: TimeTest>>testLessThan (in category 'testing') ----- - testLessThan - self assert: aTime < (Time readFromString: '12:34:57').! Item was removed: - ----- Method: TimeTest>>testMeridianAbbreviation (in category 'testing') ----- - testMeridianAbbreviation - self assert: aTime meridianAbbreviation = 'PM'. - ! Item was removed: - ----- Method: TimeTest>>testMinute (in category 'testing') ----- - testMinute - self assert: aTime minute = 34. - self assert: aTime minutes = 34 - ! Item was removed: - ----- Method: TimeTest>>testNanoSecond (in category 'testing') ----- - testNanoSecond - self assert: aTime nanoSecond = 0 - "Right now all times all seconds" - ! Item was removed: - ----- Method: TimeTest>>testNew (in category 'Tests') ----- - testNew - - self assert: self timeClass new asSeconds = 0! Item was removed: - ----- Method: TimeTest>>testPrint24 (in category 'testing') ----- - testPrint24 - self assert: aTime print24 = '12:34:56'! Item was removed: - ----- Method: TimeTest>>testPrint24On (in category 'testing') ----- - testPrint24On - | referenceString printed | - referenceString := '12:34:56'. - printed := WriteStream on: ''. - aTime print24: true on: printed. - self assert: printed contents = referenceString! Item was removed: - ----- Method: TimeTest>>testPrint24OnWithPM (in category 'testing') ----- - testPrint24OnWithPM - | referenceString printed | - referenceString := '12:34:56 pm'. - printed := WriteStream on: ''. - aTime print24: false on: printed. - ^ self assert: printed contents = referenceString! Item was removed: - ----- Method: TimeTest>>testPrint24OnWithoutSeconds (in category 'testing') ----- - testPrint24OnWithoutSeconds - | referenceString printed | - referenceString := '12:34'. - printed := WriteStream on: ''. - aTime print24: true showSeconds: false on: printed. - self assert: printed contents = referenceString! Item was removed: - ----- Method: TimeTest>>testPrintMinutes (in category 'testing') ----- - testPrintMinutes - self assert: aTime printMinutes = '12:34 pm'! Item was removed: - ----- Method: TimeTest>>testPrintOn (in category 'testing') ----- - testPrintOn - | referenceString printed | - referenceString := '12:34:56 pm'. - printed := WriteStream on: ''. - aTime printOn: printed. - self assert: printed contents = referenceString! Item was removed: - ----- Method: TimeTest>>testPrinting (in category 'Tests') ----- - testPrinting - - self - assert: time printString = '4:02:47 am'; - assert: time intervalString = '4 hours 2 minutes 47 seconds'; - assert: time print24 = '04:02:47'; - assert: time printMinutes = '4:02 am'; - assert: time hhmm24 = '0402'. - ! Item was removed: - ----- Method: TimeTest>>testReadFrom (in category 'Tests') ----- - testReadFrom - - | t1 t2 | - t1 := self timeClass readFrom: '4:02:47 am' readStream. - t2 := self timeClass readFrom: '4:02:47.000 am' readStream. - - self - assert: time = t1; - assert: time = t2 - ! Item was removed: - ----- Method: TimeTest>>testSecond (in category 'testing') ----- - testSecond - self assert: aTime second = 56. - self assert: aTime seconds = 56 - ! Item was removed: - ----- Method: TimeTest>>testSqueakInquiries (in category 'Tests') ----- - testSqueakInquiries - | timewords totalseconds condensed corrected | - self assert: - (self timeClass namesForTimes: #(2 10000023 10000026)) - = #('January, 1901' 'April, 1901, 4/26/1901, 5:47 pm' 'April, 1901, 4/26/1901, 5:47 pm'). - - timewords := #(0.5 30 62 130 4000 10000 60000 86401) - collect: [ :ss | self timeClass humanWordsForSecondsAgo: ss ]. - self assert: - timewords = #('a second ago' '30 seconds ago' 'a minute ago' '2 minutes ago' - 'an hour ago' '2 hours ago' '16 hours ago' 'yesterday'). - - totalseconds := self timeClass totalSeconds. - condensed := self timeClass condenseBunches: - (#(20 400 401 20000 20200 20300 40000 45000 200000 201000 202000) - collect: [:tt | totalseconds - tt]). - corrected := condensed collect: [ :e | totalseconds - e ]. - self - assert: (corrected includesAllOf: #(20 400 401 20000 40000 45000 200000)). - ! Item was removed: - ----- Method: TimeTest>>testStoreOn (in category 'testing') ----- - testStoreOn - | referenceString stored | - referenceString := '''12:34:56 pm'' asTime'. - stored := WriteStream on: ''. - aTime storeOn: stored. - self assert: stored contents = referenceString! Item was removed: - ----- Method: TimeTest>>testStoring (in category 'Tests') ----- - testStoring - - self - assert: time storeString = '''4:02:47 am'' asTime'; - assert: time = ('4:02:47 am' asTime). - ! Item was removed: - ----- Method: TimeTest>>testSubtractTime (in category 'testing') ----- - testSubtractTime - self assert: (aTime subtractTime: aTime) = (Time readFrom: (ReadStream on: '00:00:00')) - ! Item was removed: - ----- Method: TimeTest>>testTicks (in category 'testing') ----- - testTicks - self assert: aTime ticks = #(0 45296 0). - self assert: aTime = (Time new ticks: #(0 45296 0))! Item was removed: - ----- Method: TimeTest>>testTimeStamp (in category 'testing') ----- - testTimeStamp - self assert: aTime = aTime asTimeStamp asTime! Item was removed: - ----- Method: TimeTest>>timeClass (in category 'Private') ----- - timeClass - - ^ Time! Item was removed: - TestCase subclass: #TimespanDoSpanAYearTest - instanceVariableNames: 'aTimespan aDuration aDate' - classVariableNames: '' - poolDictionaries: '' - category: 'KernelTests-Chronology'! - - !TimespanDoSpanAYearTest commentStamp: 'tlk 1/6/2004 17:55' prior: 0! - I am one of several Sunit test Cases intentended to provide complete coverage for the Chronology set of classes as part of the external testing. See DateAndTimeEpochTestCase for a complete list. tlk. - My fixtures include a Timespan that crosses over a year boundary: - aDate = December 25, 2004, midnight - aDuration = 91 days - aTimeSpan= 91 days, starting December 25, 2004, midnight! Item was removed: - ----- Method: TimespanDoSpanAYearTest>>setUp (in category 'running') ----- - setUp - aDate := DateAndTime year: 2004 month: 12 day: 25 hour: 0 minute: 0 second: 0. - aDuration := Duration days: 91 hours: 0 minutes: 0 seconds: 0 nanoSeconds: 0. - - aTimespan := Timespan starting: aDate duration: aDuration! Item was removed: - ----- Method: TimespanDoSpanAYearTest>>testMonthsDo (in category 'testing') ----- - testMonthsDo - - | monthArray | - - monthArray := Array - with: (Month starting: (DateAndTime year: 2004 day: 355) duration: 31 days) - with: (Month starting: (DateAndTime year: 2005 day: 1) duration: 31 days) - with: (Month starting: (DateAndTime year: 2005 day: 32) duration: 29 days) - with: (Month starting: (DateAndTime year: 2005 day: 61) duration: 31 days). - - self assert: aTimespan months = monthArray! Item was removed: - ----- Method: TimespanDoSpanAYearTest>>testNext (in category 'testing') ----- - testNext - - self assert: aTimespan next - = (Timespan - starting: (DateAndTime - year: 2005 - month: 3 - day: 26 - hour: 0 - minute: 0 - second: 0) - duration: aDuration)! Item was removed: - ----- Method: TimespanDoSpanAYearTest>>testWeeksDo (in category 'testing') ----- - testWeeksDo - | weeks weekArray | - weeks := aTimespan weeks. - self assert: weeks size = ((aDuration days / 7.0) ceiling + 1). - - weekArray := OrderedCollection new. - weekArray - addLast: (Week starting: (DateAndTime year: 2004 month: 12 day: 19) duration: 7 days); - addLast: (Week starting: (DateAndTime year: 2004 month: 12 day: 26) duration: 7 days). - - 2 to: 79 by: 7 do: - [ :i | weekArray - addLast: (Week starting: (DateAndTime year: 2005 day: i) duration: 7 days) ]. - - weekArray := weekArray asArray. - self assert: aTimespan weeks = weekArray - ! Item was removed: - ----- Method: TimespanDoSpanAYearTest>>testYearsDo (in category 'testing') ----- - testYearsDo - | yearArray | - yearArray := Array - with: (Year - starting: (DateAndTime - year: 2004 - month: 12 - day: 25) - duration: 366 days). - self assert: aTimespan years = yearArray - ! Item was removed: - TestCase subclass: #TimespanDoTest - instanceVariableNames: 'aTimespan aDuration aDate' - classVariableNames: '' - poolDictionaries: '' - category: 'KernelTests-Chronology'! - - !TimespanDoTest commentStamp: 'tlk 1/6/2004 17:55' prior: 0! - I am one of several Sunit test Cases intentended to provide complete coverage for the Chronology set of classes as part of the external testing. See DateAndTimeEpochTestCase for a complete list. tlk. - My fixtures are: - aDate = January 8, 2003, midnight - aDuration = 91 days - aTimeSpan= 91 days, starting January 8, 2003, midnight - ! Item was removed: - ----- Method: TimespanDoTest>>setUp (in category 'running') ----- - setUp - aDate := DateAndTime - year: 2003 - month: 01 - day: 07 - hour: 0 - minute: 0 - second: 0. - aDuration := Duration - days: 91 - hours: 0 - minutes: 0 - seconds: 0 - nanoSeconds: 0. - aTimespan := Timespan starting: aDate makeUTC duration: aDuration! Item was removed: - ----- Method: TimespanDoTest>>testDatesDo (in category 'testing') ----- - testDatesDo - | dateArray | - dateArray := OrderedCollection new. - 7 - to: 97 - do: [:each | dateArray - addLast: (Date year: 2003 day: each)]. - dateArray := dateArray asArray. - self assert: aTimespan dates = dateArray! Item was removed: - ----- Method: TimespanDoTest>>testDoWith (in category 'testing') ----- - testDoWith - | count | - count := 0. - aTimespan - do: [:each | count := count + 1] - with: (Timespan - starting: aDate - duration: 7 days). - self assert: count = 13! Item was removed: - ----- Method: TimespanDoTest>>testDoWithWhen (in category 'testing') ----- - testDoWithWhen - | count | - count := 0. - aTimespan - do: [:each | count := count + 1] - with: (Timespan starting: aDate duration: 7 days) - when: [:each | count < 5]. - self assert: count = 5 - ! Item was removed: - ----- Method: TimespanDoTest>>testEveryDo (in category 'testing') ----- - testEveryDo - |count duration | - count := 0. - duration := 7 days. - (aTimespan - every: duration - do: [:each | count := count + 1]). - self assert: count = 13 - ! Item was removed: - ----- Method: TimespanDoTest>>testMonthsDo (in category 'testing') ----- - testMonthsDo - | monthArray | - monthArray := Array - with: (Month - starting: (DateAndTime year: 2003 day: 1 hour: 0 minute: 0 second: 0 offset: Month defaultOffset) - duration: 31 days) - with: (Month - starting: (DateAndTime year: 2003 day: 32 hour: 0 minute: 0 second: 0 offset: Month defaultOffset) - duration: 28 days) - with: (Month - starting: (DateAndTime year: 2003 day: 60 hour: 0 minute: 0 second: 0 offset: Month defaultOffset) - duration: 31 days) - with: (Month - starting: (DateAndTime year: 2003 day: 91 hour: 0 minute: 0 second: 0 offset: Month defaultOffset) - duration: 30 days). - self assert: aTimespan months = monthArray! Item was removed: - ----- Method: TimespanDoTest>>testNext (in category 'testing') ----- - testNext - self assert: aTimespan next - = (Timespan - starting: (DateAndTime - year: 2003 - month: 4 - day: 8 - hour: 0 - minute: 0 - second: 0 - offset: Timespan defaultOffset) - duration: aDuration)! Item was removed: - ----- Method: TimespanDoTest>>testWeeksDo (in category 'testing') ----- - testWeeksDo - | weekArray | - weekArray := OrderedCollection new. - 7 - to: 98 - by: 7 - do: [:each | weekArray - addLast: (Week - starting: (DateAndTime year: 2003 day: each hour: 0 minute: 0 second: 0 offset: Week defaultOffset) - duration: 7 days)]. - weekArray := weekArray asArray. - self assert: aTimespan weeks = weekArray - ! Item was removed: - ----- Method: TimespanDoTest>>testYearsDo (in category 'testing') ----- - testYearsDo - | yearArray | - yearArray := Array - with: (Year - starting: (DateAndTime year: 2003 day: 7 hour: 0 minute: 0 second: 0 offset: Year defaultOffset) - duration: 365 days). - self assert: aTimespan years contents = yearArray contents! Item was removed: - ClassTestCase subclass: #TimespanTest - instanceVariableNames: 'timespan aTimespan anOverlappingTimespan anIncludedTimespan aDisjointTimespan aDay aWeek dec31 jan01 jan08 localTimeZoneToRestore anEqualTimeSpan' - classVariableNames: '' - poolDictionaries: '' - category: 'KernelTests-Chronology'! Item was removed: - ----- Method: TimespanTest>>classToBeTested (in category 'Coverage') ----- - classToBeTested - - ^ Timespan - ! Item was removed: - ----- Method: TimespanTest>>setUp (in category 'Running') ----- - setUp - - | jan01HereSomeWhereElseOnEarth | - localTimeZoneToRestore := DateAndTime localTimeZone. - DateAndTime localTimeZone: TimeZone default. - - "100 hours starting noon 22 March 2003" - timespan := Timespan starting: - (DateAndTime year: 2003 month: 03 day: 22 hour: 12 minute: 0 second: 0) - duration: (Duration hours: 100). - - dec31 := (DateAndTime year: 2004 month: 12 day: 31 hour: 0 minute: 0 second: 0). - jan01 := (DateAndTime year: 2005 month: 1 day: 1 hour: 0 minute: 0 second: 0). - jan08 := (DateAndTime year: 2005 month: 1 day: 8 hour: 0 minute: 0 second:0). - aDay := Duration days: 1 hours: 0 minutes: 0 seconds: 0 nanoSeconds: 0. - aWeek := Duration days: 7 hours: 0 minutes: 0 seconds: 0 nanoSeconds: 0. - aTimespan := Timespan starting: jan01 duration: aWeek. - jan01HereSomeWhereElseOnEarth := DateAndTime new ticks: (jan01 + 3 hours) ticks offset: jan01 offset + 3 hours. - anEqualTimeSpan := Timespan starting: jan01HereSomeWhereElseOnEarth asUTC duration: aWeek. - anOverlappingTimespan := Timespan starting: dec31 duration: aWeek. - anIncludedTimespan := Timespan starting: jan01 duration: aDay. - aDisjointTimespan := Timespan starting: jan08 duration: aWeek. - - - - ! Item was removed: - ----- Method: TimespanTest>>tearDown (in category 'Running') ----- - tearDown - DateAndTime localTimeZone: localTimeZoneToRestore. - timespan := nil - ! Item was removed: - ----- Method: TimespanTest>>testAccessing (in category 'Tests') ----- - testAccessing - - self - assert: (timespan start = - (DateAndTime year: 2003 month: 03 day: 22 hour: 12 minute: 0 second: 0)); - assert: timespan duration = (Duration hours: 100); - assert: timespan month = 3; - assert: timespan monthName = 'March'; - assert: timespan monthAbbreviation = 'Mar' - - - ! Item was removed: - ----- Method: TimespanTest>>testArithmetic (in category 'Tests') ----- - testArithmetic - - | ts1 ts2 d | - ts1 := timespan + 2 days. - ts2 := ts1 - 2 days. - d := ts1 - (DateAndTime year: 2003 month: 03 day: 20). - - self - assert: (ts1 start = - (DateAndTime year: 2003 month: 03 day: 24 hour: 12 minute: 0 second: 0)); - assert: (ts1 duration = timespan duration); - assert: (ts2 start = timespan start); - assert: (ts2 duration = timespan duration). - - self - assert: d = (Duration days: 4 hours: 12 minutes: 0 seconds: 0) - - ! Item was removed: - ----- Method: TimespanTest>>testAsDate (in category 'testing') ----- - testAsDate - self assert: aTimespan asDate = jan01 asDate. - "MessageNotUnderstood: Date class>>starting:" - ! Item was removed: - ----- Method: TimespanTest>>testAsDateAndTime (in category 'testing') ----- - testAsDateAndTime - self assert: aTimespan asDateAndTime = jan01. - "MessageNotUnderstood: Date class>>starting:" - - ! Item was removed: - ----- Method: TimespanTest>>testAsDuration (in category 'testing') ----- - testAsDuration - self assert: aTimespan asDuration = aWeek. - - - - ! Item was removed: - ----- Method: TimespanTest>>testAsMonth (in category 'testing') ----- - testAsMonth - self assert: aTimespan asMonth = jan01 asMonth. - ! Item was removed: - ----- Method: TimespanTest>>testAsTime (in category 'testing') ----- - testAsTime - self assert: aTimespan asTime = jan01 asTime - "MessageNotUnderstood: Time class>>seconds:nanoSeconds:" - ! Item was removed: - ----- Method: TimespanTest>>testAsTimeStamp (in category 'testing') ----- - testAsTimeStamp - self assert: aTimespan asTimeStamp = ((TimeStamp readFrom: '1-01-2005 0:00 am' readStream) offset: 0 hours). - ! Item was removed: - ----- Method: TimespanTest>>testAsWeek (in category 'testing') ----- - testAsWeek - self assert: aTimespan asWeek = jan01 asWeek. - "DateAndTime new asWeek - MessageNotUnderstood: Week class>>starting:" - ! Item was removed: - ----- Method: TimespanTest>>testAsYear (in category 'testing') ----- - testAsYear - self assert: aTimespan asYear = jan01 asYear. - - ! Item was removed: - ----- Method: TimespanTest>>testClockPrecisionDuration (in category 'testing') ----- - testClockPrecisionDuration - | ts | - ts := Timespan starting: Date today duration: DateAndTime clockPrecision. - self - assert: ts start = ts end! Item was removed: - ----- Method: TimespanTest>>testCurrent (in category 'testing') ----- - testCurrent - self assert: (Timespan starting: DateAndTime current) - <= Timespan current. - self assert: Timespan current - <= (Timespan starting: DateAndTime current)! Item was removed: - ----- Method: TimespanTest>>testDateToday (in category 'testing') ----- - testDateToday - self assert: Date today start offset isZero! Item was removed: - ----- Method: TimespanTest>>testDay (in category 'testing') ----- - testDay - self assert: aTimespan day = jan01 day - ! Item was removed: - ----- Method: TimespanTest>>testDayOfMonth (in category 'testing') ----- - testDayOfMonth - self assert: aTimespan dayOfMonth = 1. - ! Item was removed: - ----- Method: TimespanTest>>testDayOfWeek (in category 'testing') ----- - testDayOfWeek - self assert: aTimespan dayOfWeek = 7. - self assert: aTimespan dayOfWeekName = 'Saturday'. - ! Item was removed: - ----- Method: TimespanTest>>testDayOfYear (in category 'testing') ----- - testDayOfYear - self assert: aTimespan dayOfYear = 1. - "MessageNotUnderstood: UndefinedObject>>year:, Undefined object is Year class" - ! Item was removed: - ----- Method: TimespanTest>>testDaysInMonth (in category 'testing') ----- - testDaysInMonth - self assert: aTimespan daysInMonth = 31. - "MessageNotUnderstood: Month class>>starting:" - ! Item was removed: - ----- Method: TimespanTest>>testDaysInYear (in category 'testing') ----- - testDaysInYear - self assert: aTimespan daysInYear = 365. - "MessageNotUnderstood: UndefinedObject>>starting: UndefinedObject is Year class" - ! Item was removed: - ----- Method: TimespanTest>>testDaysLeftInYear (in category 'testing') ----- - testDaysLeftInYear - self assert: aTimespan daysLeftInYear = 364. - "MessageNotUnderstood: UndefinedObject>>starting: UndefinedObject is Year class" - ! Item was removed: - ----- Method: TimespanTest>>testDoWith (in category 'testing') ----- - testDoWith - | count | - count := 0. - aTimespan - do: [:each | count := count + 1] - with: (Timespan starting: jan01 duration: aDay). - self assert: count = 7! Item was removed: - ----- Method: TimespanTest>>testDoWithWhen (in category 'testing') ----- - testDoWithWhen - | count | - count := 0. - aTimespan - do: [:each | count := count + 1] - with: (Timespan starting: jan01 duration: aDay) - when: [:each | count < 5]. - self assert: count = 5! Item was removed: - ----- Method: TimespanTest>>testDuration (in category 'testing') ----- - testDuration - self assert: aTimespan duration = aWeek. - aTimespan duration: aDay. - self assert: aTimespan duration = aDay. - - ! Item was removed: - ----- Method: TimespanTest>>testEnd (in category 'testing') ----- - testEnd - self assert: aTimespan end + (Duration nanoSeconds:1) = aDisjointTimespan start. - self assert: aTimespan end = (DateAndTime year: 2005 month: 1 day: 7 hour: 23 minute: 59 second: 59 nanoSecond: 999999999 offset: 0 hours) - ! Item was removed: - ----- Method: TimespanTest>>testEveryDo (in category 'testing') ----- - testEveryDo - | count duration | - count := 0. - duration := 7 days. - aTimespan - every: duration - do: [:each | count := count + 1]. - self assert: count = 1! Item was removed: - ----- Method: TimespanTest>>testFirstDayOfMonth (in category 'testing') ----- - testFirstDayOfMonth - self assert: aTimespan firstDayOfMonth = 1. - self assert: aDisjointTimespan firstDayOfMonth = 1 - ! Item was removed: - ----- Method: TimespanTest>>testHash (in category 'testing') ----- - testHash - self assert: (aTimespan = anEqualTimeSpan) ==> [aTimespan hash = anEqualTimeSpan hash]! Item was removed: - ----- Method: TimespanTest>>testIncludes (in category 'testing') ----- - testIncludes - self assert: (aTimespan includes: jan01). - self deny: (aTimespan includes: jan08) - ! Item was removed: - ----- Method: TimespanTest>>testIncludesAllOf (in category 'testing') ----- - testIncludesAllOf - self assert: (aTimespan includesAllOf: (Bag with: jan01)). - self deny: (aTimespan includesAllOf: (Bag with: jan01 with: jan08)) - ! Item was removed: - ----- Method: TimespanTest>>testIncludesAnyOf (in category 'testing') ----- - testIncludesAnyOf - self deny: (aTimespan includesAnyOf: (Bag with: dec31)). - self assert: (aTimespan includesAnyOf: (Bag with: jan01 with: jan08)) - "Error is due to bug in Timespan - includesAnyOf: aCollection " - "Answer whether any element of aCollection is included in the receiver" - "aCollection do: [ :elem | (self includes: elem) ifTrue: [^ true]]. - Shouldn't this return false if none are included? - " - ! Item was removed: - ----- Method: TimespanTest>>testInclusion (in category 'Tests') ----- - testInclusion - - | t1 t2 t3 t4 | - t1 := timespan start. - t2 := timespan start + (timespan duration / 2). - t3 := timespan end. - t4 := timespan start + (timespan duration). - - self - assert: (timespan includes: t1); - assert: (timespan includes: t2); - assert: (timespan includes: t3)"; - deny: (timespan includes: t4). - self - assert: (timespan includes: (t1 to: t2)); - assert: (timespan includes: (t1 to: t4)); - deny: (timespan includes: (Timespan starting: t2 duration: (timespan duration * 2))). - self - assert: (timespan includesAllOf: { t1. t2. t3 } ); - deny: (timespan includesAllOf: { t1. t2. t3. t4} ). - self - assert: (timespan includesAnyOf: { t1. t2. t3 } ); - deny: (timespan includesAnyOf: { t4 } ). - "! Item was removed: - ----- Method: TimespanTest>>testIntersectionWithDisjoint (in category 'testing') ----- - testIntersectionWithDisjoint - self assert: (aTimespan intersection: aDisjointTimespan) isNil. - ! Item was removed: - ----- Method: TimespanTest>>testIntersectionWithIncluded (in category 'testing') ----- - testIntersectionWithIncluded - self assert: (aTimespan intersection: anIncludedTimespan) = - (Timespan starting: jan01 duration: (Duration days: 0 hours: 23 minutes: 59 seconds: 59 nanoSeconds: 999999999)). - self deny: (aTimespan intersection: anIncludedTimespan) = anIncludedTimespan - ! Item was removed: - ----- Method: TimespanTest>>testIntersectionWithOverlapping (in category 'testing') ----- - testIntersectionWithOverlapping - self assert: (aTimespan intersection: anOverlappingTimespan) = - (Timespan starting: jan01 duration: (Duration days: 5 hours: 23 minutes: 59 seconds: 59 nanoSeconds: 999999999)). - - ! Item was removed: - ----- Method: TimespanTest>>testIntersectionWithSelf (in category 'testing') ----- - testIntersectionWithSelf - self assert: (aTimespan intersection: aTimespan) = - (Timespan starting: jan01 duration: (Duration days: 6 hours: 23 minutes: 59 seconds: 59 nanoSeconds: 999999999)). - self deny: (aTimespan intersection: anIncludedTimespan) = aTimespan - ! Item was removed: - ----- Method: TimespanTest>>testIntersectionWithSeparate (in category 'testing') ----- - testIntersectionWithSeparate - self assert: (aTimespan intersection: aDisjointTimespan) isNil. - self deny: (aTimespan intersection: anOverlappingTimespan) isNil. - self assert: (aTimespan intersection: anIncludedTimespan) = - (Timespan starting: jan01 duration: (Duration days: 0 hours: 23 minutes: 59 seconds: 59 nanoSeconds: 999999999)). - self deny: (aTimespan intersection: anIncludedTimespan) = anIncludedTimespan - ! Item was removed: - ----- Method: TimespanTest>>testIsLeapYear (in category 'testing') ----- - testIsLeapYear - "self assert: anOverlappingTimespan isLeapYear." - "not sure why this fails" - self deny: aTimespan isLeapYear - ! Item was removed: - ----- Method: TimespanTest>>testJulianDayNumber (in category 'testing') ----- - testJulianDayNumber - self assert: aTimespan julianDayNumber = (jan01 julianDayNumber). - ! Item was removed: - ----- Method: TimespanTest>>testLessThan (in category 'testing') ----- - testLessThan - self assert: aTimespan < aDisjointTimespan. - self deny: anIncludedTimespan < aTimespan - ! Item was removed: - ----- Method: TimespanTest>>testMinusADateAndTime (in category 'testing') ----- - testMinusADateAndTime - "It appears that subtracting a date from a Timespan gives you a duration = to the difference between the start of the timespan and the date " - self assert: aTimespan - dec31 = aDay. - self assert: aDisjointTimespan - jan01 = aWeek. - - - ! Item was removed: - ----- Method: TimespanTest>>testMinusADuration (in category 'testing') ----- - testMinusADuration - "It appears that subtracting a duration from a Timespan gives you a Timespan shifted by the duration" - self assert: aTimespan - aDay = anOverlappingTimespan. - self assert: aDisjointTimespan - aWeek = aTimespan. - - - ! Item was removed: - ----- Method: TimespanTest>>testMonth (in category 'testing') ----- - testMonth - self assert: aTimespan month = 1. - self assert: aTimespan monthName = 'January'. - self assert: aTimespan monthIndex = 1.! Item was removed: - ----- Method: TimespanTest>>testNew (in category 'testing') ----- - testNew - self assert: Timespan new = (Timespan starting: '01-01-1901' asDate)! Item was removed: - ----- Method: TimespanTest>>testNext (in category 'testing') ----- - testNext - self assert: aTimespan next = aDisjointTimespan - ! Item was removed: - ----- Method: TimespanTest>>testPlus (in category 'testing') ----- - testPlus - self assert: aTimespan + aWeek = aDisjointTimespan. - self assert: anOverlappingTimespan + aDay = aTimespan. - ! Item was removed: - ----- Method: TimespanTest>>testPrevious (in category 'testing') ----- - testPrevious - self assert: aTimespan = aDisjointTimespan previous. - self assert: aTimespan next previous = aTimespan - ! Item was removed: - ----- Method: TimespanTest>>testPrintOn (in category 'testing') ----- - testPrintOn - | ref ws | - ref := 'a Timespan(2005-01-01T00:00:00+00:00D7:00:00:00)'. - ws := '' writeStream. - aTimespan printOn: ws. - self assert: ws contents = ref - ! Item was removed: - ----- 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. - ! Item was removed: - ----- Method: TimespanTest>>testStart (in category 'testing') ----- - testStart - self assert: aTimespan start = jan01. - aTimespan start: jan08. - self assert: aTimespan start = jan08.! Item was removed: - ----- Method: TimespanTest>>testStartingEnding (in category 'testing') ----- - testStartingEnding - self assert: aTimespan = (Timespan starting: jan01 ending: jan08) - ! Item was removed: - ----- Method: TimespanTest>>testTo (in category 'testing') ----- - testTo - self assert: (anIncludedTimespan to: jan08) = aTimespan - ! Item was removed: - ----- Method: TimespanTest>>testUnion (in category 'Tests') ----- - testUnion - - | union | - union := timespan union: timespan. - - self - assert: (union start = timespan start); - assert: (union duration = timespan duration) - ! Item was removed: - ----- Method: TimespanTest>>testUnionWithDisjoint (in category 'testing') ----- - testUnionWithDisjoint - - self assert: (aTimespan union: aDisjointTimespan) = - (Timespan starting: jan01 duration: (14 days)). - - ! Item was removed: - ----- Method: TimespanTest>>testUnionWithIncluded (in category 'testing') ----- - testUnionWithIncluded - - self - assert: (aTimespan union: anIncludedTimespan) = aTimespan ! Item was removed: - ----- Method: TimespanTest>>testUnionWithOverlapping (in category 'testing') ----- - testUnionWithOverlapping - - self - assert: (aTimespan union: anOverlappingTimespan) = - (Timespan starting: dec31 duration: (8 days))! Item was removed: - ----- Method: TimespanTest>>testUnionWithSelf (in category 'testing') ----- - testUnionWithSelf - self assert: (aTimespan union: aTimespan) = aTimespan - ! Item was removed: - ----- Method: TimespanTest>>testUnionWithSeparate (in category 'testing') ----- - testUnionWithSeparate - - self - assert: (anOverlappingTimespan union: aDisjointTimespan) = - (Timespan - starting: anOverlappingTimespan start - ending: (aDisjointTimespan end + DateAndTime clockPrecision)) - - ! Item was removed: - ----- Method: TimespanTest>>testWorkDatesDo (in category 'testing') ----- - testWorkDatesDo - | count | - count := 0. - aTimespan - workDatesDo: [:each | count := count + 1]. - self assert: count = 5! Item was removed: - ----- Method: TimespanTest>>testYear (in category 'testing') ----- - testYear - self assert: aTimespan year = 2005. - - ! Item was removed: - ----- Method: TimespanTest>>testZeroDuration (in category 'testing') ----- - testZeroDuration - | ts | - ts := Timespan starting: Date today duration: Duration zero. - self - assert: ts start = ts end! Item was removed: - ClassTestCase subclass: #WeekTest - instanceVariableNames: 'week restoredStartDay' - classVariableNames: '' - poolDictionaries: '' - category: 'KernelTests-Chronology'! Item was removed: - ----- Method: WeekTest>>classToBeTested (in category 'Coverage') ----- - classToBeTested - - ^ Week! Item was removed: - ----- Method: WeekTest>>selectorsToBeIgnored (in category 'Coverage') ----- - selectorsToBeIgnored - - | deprecated private special | - - deprecated := #(). - private := #( #printOn: ). - special := #( #next #do: ). - - ^ super selectorsToBeIgnored, deprecated, private, special.! Item was removed: - ----- Method: WeekTest>>setUp (in category 'Running') ----- - setUp - "June 1998, 5th week" - - super setUp. - restoredStartDay := Week startDay. - Week startDay: #Sunday. - week := Week starting: '4 July 1998' asDate! Item was removed: - ----- Method: WeekTest>>tearDown (in category 'Running') ----- - tearDown - - super tearDown. - Week startDay: restoredStartDay. - week := nil. - - ! Item was removed: - ----- Method: WeekTest>>testDayNames (in category 'Tests') ----- - testDayNames - self assert: (Week dayNames) = #(#Sunday #Monday #Tuesday #Wednesday #Thursday #Friday #Saturday).! Item was removed: - ----- Method: WeekTest>>testEnumerating (in category 'Tests') ----- - testEnumerating - - | days | - days := OrderedCollection new. - 0 to: 6 do: [ :i | days add: ('28 June 1998' asDate addDays: i) ]. - - week datesDo: [ :d | days remove: d ]. - - self assert: days isEmpty. - ! Item was removed: - ----- Method: WeekTest>>testIndexOfDay (in category 'Tests') ----- - testIndexOfDay - | days | - days := #(#Sunday #Monday #Tuesday #Wednesday #Thursday #Friday #Saturday). - - days withIndexDo: [:item :index | self assert: (Week indexOfDay: item) = index]. - - "This should probably raise an error rather than returning 0." - self assert: (Week indexOfDay: 0) = 0. - self assert: (Week indexOfDay: 1) = 0. - self assert: (Week indexOfDay: 7) = 0. - self assert: (Week indexOfDay: 8) = 0. - self assert: (Week indexOfDay: #Sunnyday) = 0.! Item was removed: - ----- Method: WeekTest>>testInquiries (in category 'Tests') ----- - testInquiries - - self - assert: week start asDate = '28 June 1998' asDate; - assert: week end asDate = '4 July 1998' asDate; - assert: week index = 5; - assert: week duration = (7 days). - ! Item was removed: - ----- Method: WeekTest>>testNameOfDay (in category 'Tests') ----- - testNameOfDay - | days | - days := #(#Sunday #Monday #Tuesday #Wednesday #Thursday #Friday #Saturday). - - days withIndexDo: [:item :index | self assert: (Week nameOfDay: index) = item]. - - self should: [Week nameOfDay: 0] raise: TestResult error. - self should: [Week nameOfDay: 8] raise: TestResult error. - self should: [Week nameOfDay: #Sunday] raise: TestResult error.! Item was removed: - ----- Method: WeekTest>>testPreviousNext (in category 'Tests') ----- - testPreviousNext - self - assert: week next = (Week starting: '6 July 1998' asDate); - assert: week previous = (Week starting: '22 June 1998' asDate)! Item was removed: - TestCase subclass: #YearMonthWeekTest - instanceVariableNames: 'restoredStartDay restoredTimeZone' - classVariableNames: '' - poolDictionaries: '' - category: 'KernelTests-Chronology'! - - !YearMonthWeekTest commentStamp: 'tlk 1/6/2004 17:55' prior: 0! - I am one of several Sunit test Cases intentended to provide complete coverage for the Chronology set of classes as part of the external testing. See DateAndEpochTestCase for a complete list. tlk. - I have no fixtures but do make sure to restore anything I change.! Item was removed: - ----- Method: YearMonthWeekTest>>setUp (in category 'running') ----- - setUp - restoredStartDay := Week startDay. - restoredTimeZone := DateAndTime localTimeZone. - - Week startDay: #Sunday. - DateAndTime localTimeZone: (TimeZone timeZones detect: [:tz | tz abbreviation = 'GMT']).! Item was removed: - ----- Method: YearMonthWeekTest>>tearDown (in category 'running') ----- - tearDown - Week startDay: restoredStartDay. - DateAndTime localTimeZone: restoredTimeZone.! Item was removed: - ----- Method: YearMonthWeekTest>>testDaysInMonth (in category 'testing') ----- - testDaysInMonth - self assert: (Month daysInMonth: 2 forYear: 2000) = 29. - self assert: (Month daysInMonth: 2 forYear: 2001) = 28. - self assert: (Month daysInMonth: 2 forYear: 2004) = 29. - self assert: (Month daysInMonth: 2 forYear: 2100) = 28. - - self assert: (Month daysInMonth: 'January' forYear: 2003) = 31. - self assert: (Month daysInMonth: 'February' forYear: 2003) = 28. - self assert: (Month daysInMonth: 'March' forYear: 2003) = 31. - self assert: (Month daysInMonth: 'April' forYear: 2003) = 30. - self assert: (Month daysInMonth: 'May' forYear: 2003) = 31. - self assert: (Month daysInMonth: 'June' forYear: 2003) = 30. - self assert: (Month daysInMonth: 'July' forYear: 2003) = 31. - self assert: (Month daysInMonth: 'August' forYear: 2003) = 31. - self assert: (Month daysInMonth: 'September' forYear: 2003) = 30. - self assert: (Month daysInMonth: 'October' forYear: 2003) = 31. - self assert: (Month daysInMonth: 'November' forYear: 2003) = 30. - self assert: (Month daysInMonth: 'December' forYear: 2003) = 31.! Item was removed: - ----- Method: YearMonthWeekTest>>testDaysInYear (in category 'testing') ----- - testDaysInYear - self assert: (Year daysInYear: 2000) = 366. - self assert: (Year daysInYear: 2001) = 365. - self assert: (Year daysInYear: 2004) = 366. - self assert: (Year daysInYear: 2100) = 365. - self assert: (Year daysInYear: 2003) = 365.! Item was removed: - ----- Method: YearMonthWeekTest>>testIndexOfDay (in category 'testing') ----- - testIndexOfDay - self assert: (Week indexOfDay: 'Friday') = 6. - - ! Item was removed: - ----- Method: YearMonthWeekTest>>testIsLeapYear (in category 'testing') ----- - testIsLeapYear - self assert: (Year isLeapYear: 2000). - self deny: (Year isLeapYear: 2001). - self assert: (Year isLeapYear: 2004). - self deny: (Year isLeapYear: 2100). - self deny: (Year isLeapYear: 2002).! Item was removed: - ----- Method: YearMonthWeekTest>>testMonthPrintOn (in category 'testing') ----- - testMonthPrintOn - | aMonth ws | - aMonth := Month starting: DateAndTime new duration: 31 days. - ws := '' writeStream. - aMonth printOn: ws. - self assert: ws contents = 'January 1901'.! Item was removed: - ----- Method: YearMonthWeekTest>>testStartDay (in category 'testing') ----- - testStartDay - Week startDay: 'Wednesday'. - self assert: Week startDay = 'Wednesday'. - Week startDay: 'Thursday'. - self assert: Week startDay = 'Thursday'. - - ! Item was removed: - ----- Method: YearMonthWeekTest>>testWeekPrintOn (in category 'testing') ----- - testWeekPrintOn - | aWeek cs rw | - aWeek := Week starting: (DateAndTime year: 1900 month: 12 day: 31). - cs := 'a Week starting: 1900-12-30T00:00:00+00:00'. - rw := WriteStream on: ''. - aWeek printOn: rw. - self assert: rw contents = cs! Item was removed: - ----- Method: YearMonthWeekTest>>testYearPrintOn (in category 'testing') ----- - testYearPrintOn - | aYear ws | - aYear := Year starting: DateAndTime new duration: 365 days. - ws := '' writeStream. - aYear printOn: ws. - self assert: ws contents = 'a Year (1901)'.! Item was removed: - ClassTestCase subclass: #YearTest - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: 'KernelTests-Chronology'! Item was removed: - ----- Method: YearTest>>classToBeTested (in category 'Coverage') ----- - classToBeTested - - ^ Year! Item was removed: - ----- Method: YearTest>>testCurrent (in category 'Tests') ----- - testCurrent - self assert: - Year current start = - ((DateAndTime - year: DateAndTime now year - month: 1 - day: 1) offset: Year defaultOffset)! Item was removed: - ----- Method: YearTest>>testPreviousInLeapYear (in category 'Tests') ----- - testPreviousInLeapYear - - | leap | - leap := Year year: 2008. - self assert: leap isLeapYear. - self assert: (Year year: (leap year - 1)) = leap previous !

1 0

The Trunk: KernelTests-dtl.307.mcz
by commits＠source.squeak.org 27 Feb '16

27 Feb '16

1 0

The Trunk: Chronology-Core-dtl.1.mcz
by commits＠source.squeak.org 27 Feb '16

27 Feb '16

David T. Lewis uploaded a new version of Chronology-Core to project The Trunk: http://source.squeak.org/trunk/Chronology-Core-dtl.1.mcz ==================== Summary ==================== Name: Chronology-Core-dtl.1 Author: dtl Time: 27 February 2016, 6:38:44.804572 pm UUID: 70511d01-c1dc-487b-90cf-7d45458c961a Ancestors: Move Kernel-Chronology to Chronology-Core and KernelTests-Chronology to Chronology-Tests ==================== Snapshot ==================== SystemOrganization addCategory: #'Chronology-Core'! Magnitude subclass: #Timespan instanceVariableNames: 'start duration' classVariableNames: '' poolDictionaries: '' category: 'Chronology-Core'! !Timespan commentStamp: 'bf 2/18/2016 14:43' prior: 0! I represent a duration starting on a specific DateAndTime. If my start has an offset identical to my #defaultOffset then comparisons ignore timezone offset.! Timespan subclass: #Schedule instanceVariableNames: 'schedule' classVariableNames: '' poolDictionaries: '' category: 'Chronology-Core'! !Schedule commentStamp: 'brp 5/13/2003 09:48' prior: 0! I represent a powerful class for implementing recurring schedules.! ----- Method: Schedule>>between:and:do: (in category 'enumerating') ----- between: aStart and: anEnd do: aBlock | element end i | end := self end min: anEnd. element := self start. i := 1. [ element < aStart ] whileTrue: [ element := element + (schedule at: i). i := i + 1. (i > schedule size) ifTrue: [i := 1]]. i := 1. [ element <= end ] whileTrue: [ aBlock value: element. element := element + (schedule at: i). i := i + 1. (i > schedule size) ifTrue: [i := 1]] ! ----- Method: Schedule>>dateAndTimes (in category 'enumerating') ----- dateAndTimes | dateAndTimes | dateAndTimes := OrderedCollection new. self scheduleDo: [ :e | dateAndTimes add: e ]. ^ dateAndTimes asArray! ----- Method: Schedule>>includes: (in category 'squeak protocol') ----- includes: aDateAndTime | dt | dt := aDateAndTime asDateAndTime. self scheduleDo: [ :e | e = dt ifTrue: [^true] ]. ^ false ! ----- Method: Schedule>>schedule (in category 'enumerating') ----- schedule ^ schedule! ----- Method: Schedule>>schedule: (in category 'enumerating') ----- schedule: anArrayOfDurations schedule := anArrayOfDurations! ----- Method: Schedule>>scheduleDo: (in category 'enumerating') ----- scheduleDo: aBlock self between: (self start) and: (self end) do: aBlock ! ----- Method: Timespan class>>current (in category 'squeak protocol') ----- current ^ self starting: (DateAndTime now offset: self defaultOffset)! ----- 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! ----- Method: Timespan class>>new (in category 'squeak protocol') ----- new "Answer a Timespan starting on the Squeak epoch: 1 January 1901" ^ self starting: (DateAndTime new offset: self defaultOffset)! ----- Method: Timespan class>>starting: (in category 'squeak protocol') ----- starting: aDateAndTime ^ self starting: aDateAndTime duration: Duration zero! ----- Method: Timespan class>>starting:duration: (in category 'squeak protocol') ----- starting: aDateAndTime duration: aDuration ^ self basicNew start: aDateAndTime asDateAndTime; duration: aDuration; yourself! ----- Method: Timespan class>>starting:ending: (in category 'squeak protocol') ----- starting: startDateAndTime ending: endDateAndTime ^ self starting: startDateAndTime duration: (endDateAndTime asDateAndTime - startDateAndTime) ! ----- Method: Timespan>>+ (in category 'ansi protocol') ----- + operand "operand conforms to protocol Duration" ^ self class starting: (self start + operand) duration: self duration! ----- Method: Timespan>>- (in category 'ansi protocol') ----- - operand "operand conforms to protocol DateAndTime or protocol Duration" ^ (operand respondsTo: #asDateAndTime) ifTrue: [ self start - operand ] ifFalse: [ self + (operand negated) ] ! ----- Method: Timespan>>< (in category 'ansi protocol') ----- < comparand ^(self noTimezone or: [comparand noTimezone]) ifTrue: [self start hasSmallerTicksThan: comparand asDateAndTime] ifFalse: [self start < comparand asDateAndTime] ! ----- Method: Timespan>>= (in category 'ansi protocol') ----- = comparand ^ self class = comparand class and: [((self noTimezone or: [ comparand noTimezone ]) ifTrue: [ self start hasEqualTicks: comparand start ] ifFalse: [ self start = comparand start ]) and: [ self duration = comparand duration ] ] .! ----- Method: Timespan>>asDate (in category 'squeak protocol') ----- asDate ^ start asDate! ----- Method: Timespan>>asDateAndTime (in category 'squeak protocol') ----- asDateAndTime ^ start! ----- Method: Timespan>>asDuration (in category 'squeak protocol') ----- asDuration ^ self duration! ----- Method: Timespan>>asMonth (in category 'squeak protocol') ----- asMonth ^ start asMonth! ----- Method: Timespan>>asTime (in category 'squeak protocol') ----- asTime ^ start asTime! ----- Method: Timespan>>asTimeStamp (in category 'squeak protocol') ----- asTimeStamp ^ start asTimeStamp! ----- Method: Timespan>>asWeek (in category 'squeak protocol') ----- asWeek ^ start asWeek! ----- Method: Timespan>>asYear (in category 'squeak protocol') ----- asYear ^ start asYear ! ----- Method: Timespan>>dates (in category 'enumerating') ----- dates | dates | dates := OrderedCollection new. self datesDo: [ :m | dates add: m ]. ^ dates asArray! ----- Method: Timespan>>datesDo: (in category 'enumerating') ----- datesDo: aBlock self do: aBlock with: start asDate ! ----- Method: Timespan>>day (in category 'smalltalk-80') ----- day "Answer the day of the year represented by the receiver." ^ self dayOfYear! ----- Method: Timespan>>dayOfMonth (in category 'ansi protocol') ----- dayOfMonth "Answer the day of the month represented by the receiver." ^ start dayOfMonth! ----- Method: Timespan>>dayOfWeek (in category 'ansi protocol') ----- dayOfWeek "Answer the day of the week represented by the receiver." ^ start dayOfWeek! ----- Method: Timespan>>dayOfWeekName (in category 'ansi protocol') ----- dayOfWeekName "Answer the day of the week represented by the receiver." ^ start dayOfWeekName! ----- Method: Timespan>>dayOfYear (in category 'ansi protocol') ----- dayOfYear "Answer the day of the year represented by the receiver." ^ start dayOfYear! ----- Method: Timespan>>daysInMonth (in category 'smalltalk-80') ----- daysInMonth ^ start daysInMonth! ----- Method: Timespan>>daysInYear (in category 'smalltalk-80') ----- daysInYear "Answer the number of days in the month represented by the receiver." ^ start daysInYear! ----- Method: Timespan>>daysLeftInYear (in category 'smalltalk-80') ----- daysLeftInYear ^ start daysLeftInYear! ----- Method: Timespan>>do:with: (in category 'private') ----- do: aBlock with: aFirstElement self do: aBlock with: aFirstElement when: [ :t | true ] ! ----- Method: Timespan>>do:with:when: (in category 'private') ----- do: aBlock with: aFirstElement when: aConditionBlock | element end | element := aFirstElement. end := self end. [ element start <= end ] whileTrue: [(aConditionBlock value: element) ifTrue: [ aBlock value: element ]. element := element next. ] ! ----- Method: Timespan>>duration (in category 'squeak protocol') ----- duration "Answer the Duration of this timespan" ^ duration! ----- Method: Timespan>>duration: (in category 'private') ----- duration: aDuration "Set the Duration of this timespan" duration := aDuration! ----- Method: Timespan>>end (in category 'squeak protocol') ----- end ^ self duration asNanoSeconds = 0 ifTrue: [ self start ] ifFalse: [ self next start - DateAndTime clockPrecision ] ! ----- Method: Timespan>>every:do: (in category 'enumerating') ----- every: aDuration do: aBlock | element end | element := self start. end := self end. [ element <= end ] whileTrue: [ aBlock value: element. element := element + aDuration. ]! ----- Method: Timespan>>firstDayOfMonth (in category 'smalltalk-80') ----- firstDayOfMonth ^ start firstDayOfMonth! ----- Method: Timespan>>hash (in category 'ansi protocol') ----- hash ^ start hash + duration hash! ----- Method: Timespan>>includes: (in category 'squeak protocol') ----- includes: aDateAndTime ^ (aDateAndTime isKindOf: Timespan) ifTrue: [ (self includes: aDateAndTime start) and: [ self includes: aDateAndTime end ] ] ifFalse: [ aDateAndTime asDateAndTime between: start and: self end ]! ----- Method: Timespan>>includesAllOf: (in category 'squeak protocol') ----- includesAllOf: aCollection "Answer whether all the elements of aCollection are in the receiver." aCollection do: [:elem | (self includes: elem) ifFalse: [^ false]]. ^ true ! ----- Method: Timespan>>includesAnyOf: (in category 'squeak protocol') ----- includesAnyOf: aCollection "Answer whether any element of aCollection is included in the receiver" aCollection do: [ :elem | (self includes: elem) ifTrue: [^ true]]. ^false ! ----- Method: Timespan>>intersection: (in category 'squeak protocol') ----- intersection: aTimespan "Return the Timespan both have in common, or nil" | aBegin anEnd | aBegin := self start max: aTimespan start. anEnd := self end min: aTimespan end. anEnd < aBegin ifTrue: [^nil]. ^ self class starting: aBegin ending: anEnd ! ----- Method: Timespan>>isLeapYear (in category 'ansi protocol') ----- isLeapYear ^ start isLeapYear! ----- Method: Timespan>>julianDayNumber (in category 'squeak protocol') ----- julianDayNumber ^ start julianDayNumber! ----- Method: Timespan>>makeUTC (in category 'squeak protocol') ----- makeUTC "Change the receiver's timezone to UTC, which affords substantially better hashing performance." start makeUTC! ----- Method: Timespan>>month (in category 'ansi protocol') ----- month ^ start month! ----- Method: Timespan>>monthAbbreviation (in category 'ansi protocol') ----- monthAbbreviation ^ start monthAbbreviation! ----- Method: Timespan>>monthIndex (in category 'smalltalk-80') ----- monthIndex ^ self month! ----- Method: Timespan>>monthName (in category 'ansi protocol') ----- monthName ^ start monthName! ----- Method: Timespan>>months (in category 'enumerating') ----- months | months | months := OrderedCollection new: 12. self monthsDo: [ :m | months add: m ]. ^ months asArray. ! ----- Method: Timespan>>monthsDo: (in category 'enumerating') ----- monthsDo: aBlock self do: aBlock with: start asMonth! ----- Method: Timespan>>next (in category 'smalltalk-80') ----- next ^ self class starting: (start + duration) duration: duration! ----- Method: Timespan>>noTimezone (in category 'private') ----- noTimezone ^ start noTimezone! ----- Method: Timespan>>previous (in category 'smalltalk-80') ----- previous ^ self class starting: (start - duration) duration: duration! ----- Method: Timespan>>printOn: (in category 'squeak protocol') ----- printOn: aStream super printOn: aStream. aStream nextPut: $(; print: start; nextPut: $D; print: duration; nextPut: $) ! ----- Method: Timespan>>start (in category 'squeak protocol') ----- start "Answer the start DateAndTime of this timespan" ^ start! ----- Method: Timespan>>start: (in category 'squeak protocol') ----- start: aDateAndTime "Store the start DateAndTime of this timespan" start := aDateAndTime asDateAndTime! ----- Method: Timespan>>to: (in category 'squeak protocol') ----- to: anEnd "Answer an Timespan. anEnd must be aDateAndTime or a Timespan" ^ Timespan starting: (self start) ending: (anEnd asDateAndTime) ! ----- Method: Timespan>>union: (in category 'squeak protocol') ----- union: aTimespan "Return the Timespan spanned by both" | aBegin anEnd | aBegin := self start min: aTimespan start. anEnd := self end max: aTimespan end. ^ Timespan starting: aBegin ending: (anEnd + DateAndTime clockPrecision) ! ----- Method: Timespan>>weeks (in category 'enumerating') ----- weeks | weeks | weeks := OrderedCollection new. self weeksDo: [ :m | weeks add: m ]. ^ weeks asArray! ----- Method: Timespan>>weeksDo: (in category 'enumerating') ----- weeksDo: aBlock self do: aBlock with: self asWeek.! ----- Method: Timespan>>workDatesDo: (in category 'enumerating') ----- workDatesDo: aBlock "Exclude Saturday and Sunday" self do: aBlock with: start asDate when: [ :d | d dayOfWeek < 6 ] ! ----- Method: Timespan>>year (in category 'ansi protocol') ----- year ^ start year! ----- Method: Timespan>>years (in category 'enumerating') ----- years | years | years := OrderedCollection new. self yearsDo: [ :m | years add: m ]. ^ years asArray! ----- Method: Timespan>>yearsDo: (in category 'enumerating') ----- yearsDo: aBlock self do: aBlock with: start asYear.! Timespan subclass: #Year instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'Chronology-Core'! !Year commentStamp: 'cbr 7/28/2010 18:10' prior: 0! I represent a year. Try me!! Select the following expression and print it: Year current daysInYear "Try me again next leap year!!"! ----- Method: Year class>>current (in category 'squeak protocol') ----- current ^ self year: (DateAndTime now year) ! ----- Method: Year class>>daysInYear: (in category 'smalltalk-80') ----- daysInYear: yearInteger ^ 365 + ((self isLeapYear: yearInteger) ifTrue: [1] ifFalse: [0]). ! ----- Method: Year class>>isLeapYear: (in category 'squeak protocol') ----- isLeapYear: aYearInteger | adjustedYear | adjustedYear := aYearInteger > 0 ifTrue: [aYearInteger] ifFalse: [(aYearInteger + 1) negated]. "There was no year 0" ^ ((adjustedYear \\ 4 ~= 0) or: [(adjustedYear \\ 100 = 0) and: [adjustedYear \\ 400 ~= 0]]) not! ----- Method: Year class>>leapYear: (in category 'smalltalk-80') ----- leapYear: yearInteger ^ (self isLeapYear: yearInteger) ifTrue: [1] ifFalse: [0]! ----- Method: Year class>>starting:duration: (in category 'squeak protocol') ----- starting: aDateAndTime duration: aDuration "Override - start from midnight" | midnight | midnight := aDateAndTime asDateAndTime midnight. ^ super starting: midnight duration: (Duration days: (self daysInYear: midnight year))! ----- Method: Year class>>year: (in category 'squeak protocol') ----- year: aYear ^ self starting: (DateAndTime year: aYear month: 1 day: 1 hour: 0 minute: 0 second: 0 offset: self defaultOffset)! ----- Method: Year>>asYear (in category 'squeak protocol') ----- asYear ^ self! ----- Method: Year>>daysInMonth (in category 'squeak protocol') ----- daysInMonth self shouldNotImplement! ----- Method: Year>>daysInYear (in category 'squeak protocol') ----- daysInYear ^ self duration days.! ----- Method: Year>>previous (in category 'smalltalk-80') ----- previous "This implementation handles leap years correctly" ^ self class year: (self year - 1)! ----- Method: Year>>printOn: (in category 'squeak protocol') ----- printOn: aStream aStream nextPutAll: 'a Year ('. self start year printOn: aStream. aStream nextPutAll: ')' ! SharedPool subclass: #ChronologyConstants instanceVariableNames: 'seconds offset jdn nanos' classVariableNames: 'DayNames DaysInMonth MicrosecondsInDay MonthNames NanosInMillisecond NanosInSecond OneDay SecondsInDay SecondsInHour SecondsInMinute SqueakEpoch Zero' poolDictionaries: '' category: 'Chronology-Core'! !ChronologyConstants commentStamp: 'brp 3/12/2004 14:34' prior: 0! ChronologyConstants is a SharedPool for the constants used by the Kernel-Chronology classes.! ----- Method: ChronologyConstants class>>initialize (in category 'class initialization') ----- initialize "ChronologyConstants initialize" SqueakEpoch := 2415386. "Julian day number of 1 Jan 1901" SecondsInDay := 86400. SecondsInHour := 3600. SecondsInMinute := 60. MicrosecondsInDay := 24 * 60 * 60 * 1000000. NanosInSecond := 10 raisedTo: 9. NanosInMillisecond := 10 raisedTo: 6. DayNames := #(Sunday Monday Tuesday Wednesday Thursday Friday Saturday). MonthNames := #( January February March April May June July August September October November December). DaysInMonth := #(31 28 31 30 31 30 31 31 30 31 30 31)! Timespan subclass: #Date instanceVariableNames: '' classVariableNames: '' poolDictionaries: 'ChronologyConstants' category: 'Chronology-Core'! !Date commentStamp: 'cmm 2/3/2012 17:30' prior: 0! Instances of Date are Timespans with duration of 1 day. Their default creation assumes a start of midnight of UTC to provide the fast, globalized Dates out of the box. The legacy behavior that creates Timezone-sensitive Dates can be used by sending #localizedDates. ! ----- Method: Date class>>dateAndTimeNow (in category 'smalltalk-80') ----- dateAndTimeNow "Answer an Array whose with Date today and Time now." ^ Time dateAndTimeNow ! ----- Method: Date class>>dayOfWeek: (in category 'smalltalk-80') ----- dayOfWeek: dayName ^ Week indexOfDay: dayName! ----- Method: Date class>>daysInMonth:forYear: (in category 'smalltalk-80') ----- daysInMonth: monthName forYear: yearInteger ^ Month daysInMonth: monthName forYear: yearInteger. ! ----- Method: Date class>>daysInYear: (in category 'smalltalk-80') ----- daysInYear: yearInteger ^ Year daysInYear: yearInteger.! ----- Method: Date class>>easterDateFor: (in category 'general inquiries') ----- easterDateFor: year " compute the easter date. source: Physikalisch-Technische Bundesanstalt Braunschweig. Lichtenberg, H.: Zur Interpretation der Gaussschen Osterformel und ihrer Ausnahmeregeln, Historia Mathematica 24 (1997), pp. 441-444 http://www.ptb.de/de/org/4/44/441/oste.htm " | k m s a d r og sz oe day | k := year // 100. m := 15 + (3*k + 3//4) - (8*k + 13//25). s := 2 - (3*k + 3// 4). a := year \\ 19. d := 19*a + m \\ 30. r := d//29 + ((d//28) - (d//29)* (a// 11)). og := 21 + d - r. sz := 7 - (year//4 + year + s\\7). oe := 7 - (og - sz\\7). day := og + oe. ^day <= 31 ifTrue: [Date newDay: day month: 3 year: year ] ifFalse: [Date newDay: day - 31 month: 4 year: year].! ----- Method: Date class>>firstWeekdayOfMonth:year: (in category 'smalltalk-80') ----- firstWeekdayOfMonth: month year: year "Answer the weekday index of the first day in <month> in the <year>." ^ (self newDay: 1 month: month year: year) weekdayIndex ! ----- Method: Date class>>fromDays: (in category 'smalltalk-80') ----- fromDays: dayCount "Days since 1 January 1901" ^ self julianDayNumber: dayCount + SqueakEpoch! ----- Method: Date class>>fromSeconds: (in category 'smalltalk-80') ----- fromSeconds: seconds "Answer an instance of me which is 'seconds' seconds after January 1, 1901." ^ self fromDays: ((Duration seconds: seconds) days) ! ----- Method: Date class>>fromString: (in category 'squeak protocol') ----- fromString: aString "Answer an instance of created from a string with format mm.dd.yyyy." ^ self readFrom: aString readStream.! ----- Method: Date class>>indexOfMonth: (in category 'smalltalk-80') ----- indexOfMonth: aMonthName ^ Month indexOfMonth: aMonthName. ! ----- Method: Date class>>julianDayNumber: (in category 'squeak protocol') ----- julianDayNumber: aJulianDayNumber ^ self starting: (DateAndTime julianDayNumber: aJulianDayNumber offset: self defaultOffset)! ----- Method: Date class>>leapYear: (in category 'smalltalk-80') ----- leapYear: yearInteger ^ Year leapYear: yearInteger! ----- Method: Date class>>nameOfDay: (in category 'smalltalk-80') ----- nameOfDay: dayIndex ^ Week nameOfDay: dayIndex ! ----- Method: Date class>>nameOfMonth: (in category 'smalltalk-80') ----- nameOfMonth: anIndex ^ Month nameOfMonth: anIndex. ! ----- Method: Date class>>newDay:month:year: (in category 'smalltalk-80') ----- newDay: day month: month year: year ^ self year: year month: month day: day ! ----- Method: Date class>>newDay:year: (in category 'smalltalk-80') ----- newDay: dayCount year: yearInteger ^ self year: yearInteger day: dayCount! ----- Method: Date class>>orthodoxEasterDateFor: (in category 'general inquiries') ----- orthodoxEasterDateFor: year " compute the easter date according to the rules of the orthodox calendar. source: http://www.smart.net/~mmontes/ortheast.html " | r1 r2 r3 r4 ra rb r5 rc date | r1 := year \\ 19. r2 := year \\ 4. r3 := year \\ 7. ra := 19*r1 + 16. r4 := ra \\ 30. rb := r2 + r2 + (4*r3) + (6*r4). r5 := rb \\ 7. rc := r4 + r5. date := Date newDay: 3 month: 4 year: year. ^date addDays: rc.! ----- Method: Date class>>readFrom: (in category 'squeak protocol') ----- readFrom: aStream "Read a Date from the stream in any of the forms: <day> <month> <year> (15 April 1982; 15-APR-82; 15.4.82; 15APR82) <month> <day> <year> (April 15, 1982; 4/15/82) <year>-<month>-<day> (1982-04-15) (ISO8601)" | day month year parsedNumber prefix | aStream peek = $- ifTrue: [prefix := -1] ifFalse: [prefix := 1]. [aStream peek isAlphaNumeric] whileFalse: [aStream skip: 1]. aStream peek isDigit ifTrue: [ parsedNumber := (Integer readFrom: aStream) * prefix. (parsedNumber < 0 or: [parsedNumber > 31]) ifTrue: [year := parsedNumber]]. [aStream peek isAlphaNumeric] whileFalse: [aStream skip: 1]. aStream peek isLetter ifTrue: ["MM-DD-YY or DD-MM-YY or YY-MM-DD" month := WriteStream on: (String new: 10). [aStream peek isLetter] whileTrue: [month nextPut: aStream next]. month := month contents. [aStream peek isAlphaNumeric] whileFalse: [aStream skip: 1]. parsedNumber isNil ifTrue: ["MM DD YY" day := Integer readFrom: aStream] ifFalse: [ year isNil ifTrue: ["DD MM YY" day := parsedNumber]]] ifFalse: ["MM-DD-YY or DD-MM-YY or YY-MM-DD" year isNil ifTrue: ["MM-DD-YY or DD-MM-YY" parsedNumber > 12 ifTrue: ["DD-MM-YY" day := parsedNumber. month := Month nameOfMonth: (Integer readFrom: aStream)] ifFalse: ["MM-DD-YY" month := Month nameOfMonth: parsedNumber. day := Integer readFrom: aStream]] ifFalse: ["YY-MM-DD" month := Month nameOfMonth: (Integer readFrom: aStream)]]. [aStream peek isAlphaNumeric] whileFalse: [aStream skip: 1]. year isNil ifTrue: [year := Integer readFrom: aStream] ifFalse: [day := Integer readFrom: aStream]. (year < 100 and: [year >= 0]) ifTrue: [ year < 69 ifTrue: [ year := 2000 + year] ifFalse: [year := 1900 + year]]. ^ self year: year month: month day: day ! ----- Method: Date class>>readFrom:pattern: (in category 'squeak protocol') ----- readFrom: inputStream pattern: pattern "Read a Date from the stream based on the pattern which can include the tokens: y = A year with 1-n digits yy = A year with 2 digits yyyy = A year with 4 digits m = A month with 1-n digits mm = A month with 2 digits d = A day with 1-n digits dd = A day with 2 digits ...and any other Strings inbetween. Representing $y, $m and $d is done using \y, \m and \d and slash itself with \\. Simple example patterns: 'yyyy-mm-dd' 'yyyymmdd' 'yy.mm.dd' 'y-m-d' A year given using only two decimals is considered to be >2000." | day month year patternStream char | patternStream := pattern readStream. [patternStream atEnd] whileFalse: [ inputStream atEnd ifTrue: [^nil]. char := patternStream next. char = $\ ifTrue: [inputStream next = patternStream next ifFalse: [^nil]] ifFalse: [ char = $y ifTrue: [ (patternStream nextMatchAll: 'yyy') ifTrue: [year := (inputStream next: 4) asInteger] ifFalse: [ (patternStream peekFor: $y) ifTrue: [ year := (inputStream next: 2) asInteger] ifFalse: [ year := Integer readFrom: inputStream]]] ifFalse: [ char = $m ifTrue: [ (patternStream peekFor: $m) ifTrue: [ month := (inputStream next: 2) asInteger] ifFalse: [ month := Integer readFrom: inputStream]] ifFalse: [ char = $d ifTrue: [ (patternStream peekFor: $d) ifTrue: [ day := (inputStream next: 2) asInteger] ifFalse: [ day := Integer readFrom: inputStream]] ifFalse: [ inputStream next = char ifFalse: [^nil]]]]]]. (year isNil | month isNil | day isNil) ifTrue: [^nil]. ^self year: year month: month day: day! ----- Method: Date class>>starting: (in category 'squeak protocol') ----- starting: aDateAndTime ^ self starting: aDateAndTime midnight duration: Duration oneDay! ----- Method: Date class>>today (in category 'smalltalk-80') ----- today ^ self current ! ----- Method: Date class>>tomorrow (in category 'squeak protocol') ----- tomorrow ^ self today next! ----- Method: Date class>>year:day: (in category 'squeak protocol') ----- year: year day: dayOfYear ^ self starting: (DateAndTime year: year day: dayOfYear hour: 0 minute: 0 second: 0 offset: self defaultOffset)! ----- Method: Date class>>year:month:day: (in category 'squeak protocol') ----- year: year month: month day: day ^ self starting: (DateAndTime year: year month: month day: day hour: 0 minute: 0 second: 0 offset: self defaultOffset)! ----- Method: Date class>>yesterday (in category 'squeak protocol') ----- yesterday ^ self today previous! ----- Method: Date>>addDays: (in category 'smalltalk-80') ----- addDays: dayCount ^ (self asDateAndTime + (dayCount days)) asDate! ----- Method: Date>>addMonths: (in category 'utils') ----- addMonths: monthCount |year month maxDaysInMonth day | year := self year + (monthCount + self monthIndex - 1 // 12). month := self monthIndex + monthCount - 1 \\ 12 + 1. maxDaysInMonth := Month daysInMonth: month forYear: year. day := self dayOfMonth > maxDaysInMonth ifTrue: [maxDaysInMonth] ifFalse: [self dayOfMonth]. ^ Date newDay: day month: month year: year! ----- Method: Date>>asDate (in category 'squeak protocol') ----- asDate ^ self ! ----- Method: Date>>asSeconds (in category 'smalltalk-80') ----- asSeconds "Answer the seconds since the Squeak epoch: 1 January 1901" ^ start asSeconds ! ----- Method: Date>>dayMonthYearDo: (in category 'squeak protocol') ----- dayMonthYearDo: aBlock "Supply integers for day, month and year to aBlock and return the result" ^ start dayMonthYearDo: aBlock! ----- Method: Date>>leap (in category 'smalltalk-80') ----- leap "Answer whether the receiver's year is a leap year." ^ start isLeapYear ifTrue: [1] ifFalse: [0].! ----- Method: Date>>mmddyyyy (in category 'printing') ----- mmddyyyy "Answer the receiver rendered in standard U.S.A format mm/dd/yyyy. Note that the name here is slightly misleading -- the month and day numbers don't show leading zeros, so that for example February 1 1996 is 2/1/96" ^ self printFormat: #(2 1 3 $/ 1 1) ! ----- Method: Date>>month (in category 'squeak protocol') ----- month ^ self asMonth! ----- Method: Date>>monthIndex (in category 'squeak protocol') ----- monthIndex ^ super month! ----- Method: Date>>onNextMonth (in category 'utils') ----- onNextMonth ^ self addMonths: 1 ! ----- Method: Date>>onPreviousMonth (in category 'utils') ----- onPreviousMonth ^ self addMonths: -1 ! ----- Method: Date>>previous: (in category 'smalltalk-80') ----- previous: dayName "Answer the previous date whose weekday name is dayName." | days | days := 7 + self weekdayIndex - (self class dayOfWeek: dayName) \\ 7. days = 0 ifTrue: [ days := 7 ]. ^ self subtractDays: days! ----- Method: Date>>printFormat: (in category 'printing') ----- printFormat: formatArray "Answer a String describing the receiver using the argument formatArray." ^String new: 17 streamContents: [ :stream | self printOn: stream format: formatArray ]! ----- Method: Date>>printOn: (in category 'printing') ----- printOn: aStream self printOn: aStream format: #(1 2 3 $ 3 1 ) ! ----- Method: Date>>printOn:format: (in category 'printing') ----- printOn: aStream format: formatArray "Print a description of the receiver on aStream using the format denoted the argument, formatArray: #(item item item sep monthfmt yearfmt twoDigits) items: 1=day 2=month 3=year will appear in the order given, separated by sep which is eaither an ascii code or character. monthFmt: 1=09 2=Sep 3=September yearFmt: 1=1996 2=96 digits: (missing or)1=9 2=09. See the examples in printOn: and mmddyy" | gregorian twoDigits element monthFormat | gregorian := self dayMonthYearDo: [ :d :m :y | {d. m. y} ]. twoDigits := formatArray size > 6 and: [(formatArray at: 7) > 1]. 1 to: 3 do: [ :i | element := formatArray at: i. element = 1 ifTrue: [twoDigits ifTrue: [aStream nextPutAll: (gregorian first asString padded: #left to: 2 with: $0)] ifFalse: [gregorian first printOn: aStream]]. element = 2 ifTrue: [monthFormat := formatArray at: 5. monthFormat = 1 ifTrue: [twoDigits ifTrue: [aStream nextPutAll: (gregorian middle asString padded: #left to: 2 with: $0)] ifFalse: [gregorian middle printOn: aStream]]. monthFormat = 2 ifTrue: [aStream nextPutAll: ((Month nameOfMonth: gregorian middle) copyFrom: 1 to: 3)]. monthFormat = 3 ifTrue: [aStream nextPutAll: (Month nameOfMonth: gregorian middle)]]. element = 3 ifTrue: [(formatArray at: 6) = 1 ifTrue: [gregorian last printOn: aStream] ifFalse: [aStream nextPutAll: ((gregorian last \\ 100) asString padded: #left to: 2 with: $0)]]. i < 3 ifTrue: [(formatArray at: 4) ~= 0 ifTrue: [aStream nextPut: (formatArray at: 4) asCharacter]]]! ----- Method: Date>>storeOn: (in category 'printing') ----- storeOn: aStream aStream print: self printString; nextPutAll: ' asDate' ! ----- Method: Date>>subtractDate: (in category 'smalltalk-80') ----- subtractDate: aDate "Answer the number of days between self and aDate" ^ (self start - aDate asDateAndTime) days! ----- Method: Date>>subtractDays: (in category 'smalltalk-80') ----- subtractDays: dayCount ^ (self asDateAndTime - (dayCount days)) asDate! ----- Method: Date>>weekday (in category 'smalltalk-80') ----- weekday "Answer the name of the day of the week on which the receiver falls." ^ self dayOfWeekName! ----- Method: Date>>weekdayIndex (in category 'smalltalk-80') ----- weekdayIndex "Sunday=1, ... , Saturday=7" ^ self dayOfWeek! ----- Method: Date>>yyyymmdd (in category 'printing') ----- yyyymmdd "Format the date in ISO 8601 standard like '2002-10-22'." ^ self printFormat: #(3 2 1 $- 1 1 2) ! Magnitude subclass: #DateAndTime instanceVariableNames: 'seconds offset jdn nanos' classVariableNames: 'AutomaticTimezone ClockProvider LastClockValue LocalTimeZone NanoOffset' poolDictionaries: 'ChronologyConstants' category: 'Chronology-Core'! !DateAndTime commentStamp: 'bf 2/18/2016 16:20' 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) The nanosecond attribute is almost always zero but it defined for full ISO compliance and is suitable for timestamping. ! ----- 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 ]! ----- Method: DateAndTime class>>automaticTimezone: (in category 'preferences') ----- automaticTimezone: aBoolean "Accessor for the system-wide preference" AutomaticTimezone := aBoolean! ----- Method: DateAndTime class>>clock (in category 'clock provider') ----- clock "the provider of real time seconds/milliseconds." ^ ClockProvider ! ----- Method: DateAndTime class>>clockPrecision (in category 'ansi protocol') ----- clockPrecision "One nanosecond precision" ^ Duration seconds: 0 nanoSeconds: 1 ! ----- Method: DateAndTime class>>current (in category 'squeak protocol') ----- current ^ self now! ----- Method: DateAndTime class>>date:time: (in category 'squeak protocol') ----- date: aDate time: aTime ^ self year: aDate year day: aDate dayOfYear hour: aTime hour minute: aTime minute second: aTime second offset: aDate start offset! ----- Method: DateAndTime class>>epoch (in category 'squeak protocol') ----- epoch "Answer a DateAndTime representing the Squeak epoch: 1 January 1901" ^ self julianDayNumber: SqueakEpoch! ----- Method: DateAndTime class>>fromSeconds: (in category 'smalltalk-80') ----- fromSeconds: seconds "Answer a DateAndTime since the Squeak epoch: 1 January 1901" | integerSeconds nanos | integerSeconds := seconds truncated. integerSeconds = seconds ifTrue: [nanos := 0] ifFalse: [nanos := (seconds - integerSeconds * NanosInSecond) asInteger]. ^ self basicNew ticks: (Array with: SqueakEpoch with: integerSeconds with: nanos) offset: self localOffset! ----- Method: DateAndTime class>>fromString: (in category 'squeak protocol') ----- fromString: aString ^ self readFrom: (ReadStream on: aString)! ----- Method: DateAndTime class>>initialize (in category 'initialize-release') ----- initialize ClockProvider ifNil: [ClockProvider := Time]. Smalltalk addToStartUpList: self after: Delay. self startUp: true. ! ----- Method: DateAndTime class>>julianDayNumber: (in category 'squeak protocol') ----- julianDayNumber: anInteger ^ self julianDayNumber: anInteger offset: self localOffset! ----- Method: DateAndTime class>>julianDayNumber:offset: (in category 'squeak protocol') ----- julianDayNumber: anInteger offset: aDuration ^self basicNew setJdn: anInteger seconds: 0 nano: 0 offset: aDuration! ----- Method: DateAndTime class>>localOffset (in category 'squeak protocol') ----- localOffset "Answer the duration we are offset from UTC" ^ self localTimeZone offset ! ----- Method: DateAndTime class>>localOffset: (in category 'squeak protocol') ----- localOffset: aDuration "Set the duration we are offset from UTC (done automatically in #now)" self localTimeZone: (TimeZone offset: aDuration name: 'Local Time' abbreviation: 'LT'). ! ----- Method: DateAndTime class>>localTimeZone (in category 'accessing') ----- localTimeZone "Answer the local time zone" ^ LocalTimeZone ifNil: [ LocalTimeZone := TimeZone default ] ! ----- 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 ! ----- Method: DateAndTime class>>midnight (in category 'squeak protocol') ----- midnight ^ self now midnight! ----- Method: DateAndTime class>>milliSecondsSinceMidnight (in category 'squeak protocol') ----- milliSecondsSinceMidnight ^Time milliSecondsSinceMidnight! ----- Method: DateAndTime class>>millisecondClockValue (in category 'smalltalk-80') ----- millisecondClockValue ^ self clock millisecondClockValue! ----- Method: DateAndTime class>>new (in category 'squeak protocol') ----- new "Answer a DateAndTime representing the Squeak epoch: 1 January 1901" ^ self epoch! ----- Method: DateAndTime class>>noon (in category 'squeak protocol') ----- noon ^ self now noon ! ----- 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 now: clockAndOffset first offset: self localOffset! ----- Method: DateAndTime class>>now:offset: (in category 'squeak protocol') ----- now: clockValue offset: aDuration | seconds nanos | "Ensure that consecutive sends of this method return increasing values, by adding small values to the nanosecond part of the created object. The next few lines are assumed to be executed atomically - having no suspension points." ((LastClockValue ifNil: [ 0 ]) digitCompare: clockValue) = 0 ifTrue: [ NanoOffset := NanoOffset + 1 ] ifFalse: [ NanoOffset := 0 ]. LastClockValue := clockValue. nanos := clockValue \\ 1000000 * 1000 + NanoOffset. seconds := clockValue // 1000000. ^self basicNew setJdn: seconds // SecondsInDay + SqueakEpoch seconds: seconds \\ SecondsInDay nano: nanos offset: aDuration! ----- Method: DateAndTime class>>readFrom: (in category 'squeak protocol') ----- readFrom: aStream | offset date time ch | date := Date readFrom: aStream. [aStream peek isDigit] whileFalse: [aStream next]. time := Time readFrom: aStream. (aStream atEnd or: [('+-Z' includes: aStream peek) not]) ifTrue: [offset := self localOffset] ifFalse: [(aStream peekFor: $Z) ifTrue: [offset := Duration zero] ifFalse: [ ch := aStream next. ch = $+ ifTrue: [ch := Character space]. offset := Duration fromString: ch asString, '0:', aStream upToEnd, ':0']]. ^ self year: date year month: date monthIndex day: date dayOfMonth hour: time hour minute: time minute second: time second nanoSecond: time nanoSecond offset: offset " '-1199-01-05T20:33:14.321-05:00' asDateAndTime ' 2002-05-16T17:20:45.1+01:01' asDateAndTime ' 2002-05-16T17:20:45.02+01:01' asDateAndTime ' 2002-05-16T17:20:45.003+01:01' asDateAndTime ' 2002-05-16T17:20:45.0004+01:01' asDateAndTime ' 2002-05-16T17:20:45.00005' asDateAndTime ' 2002-05-16T17:20:45.000006+01:01' asDateAndTime ' 2002-05-16T17:20:45.0000007+01:01' asDateAndTime ' 2002-05-16T17:20:45.00000008-01:01' asDateAndTime ' 2002-05-16T17:20:45.000000009+01:01' asDateAndTime ' 2002-05-16T17:20:45.0000000001+01:01' asDateAndTime ' 2002-05-16T17:20' asDateAndTime ' 2002-05-16T17:20:45' asDateAndTime ' 2002-05-16T17:20:45+01:57' asDateAndTime ' 2002-05-16T17:20:45-02:34' asDateAndTime ' 2002-05-16T17:20:45+00:00' asDateAndTime ' 1997-04-26T01:02:03+01:02:3' asDateAndTime "! ----- Method: DateAndTime class>>startUp: (in category 'system startup') ----- startUp: startingAfresh "Set local timezone" startingAfresh ifTrue: [self now]. ! ----- Method: DateAndTime class>>today (in category 'squeak protocol') ----- today ^ self midnight! ----- Method: DateAndTime class>>tomorrow (in category 'squeak protocol') ----- tomorrow ^ self today asDate next asDateAndTime ! ----- Method: DateAndTime class>>totalSeconds (in category 'smalltalk-80') ----- totalSeconds ^ self clock totalSeconds! ----- Method: DateAndTime class>>unixEpoch (in category 'squeak protocol') ----- unixEpoch "Answer a DateAndTime representing the Unix epoch (1 January 1970, midnight UTC)" ^ self basicNew ticks: #(2440588 0 0) offset: Duration zero; yourself. ! ----- Method: DateAndTime class>>year:day: (in category 'squeak protocol') ----- year: year day: dayOfYear "Return a DateAndTime" ^ self year: year day: dayOfYear hour: 0 minute: 0 second: 0 ! ----- Method: DateAndTime class>>year:day:hour:minute:second: (in category 'ansi protocol') ----- year: year day: dayOfYear hour: hour minute: minute second: second ^ self year: year day: dayOfYear hour: hour minute: minute second: second offset: self localOffset ! ----- Method: DateAndTime class>>year:day:hour:minute:second:offset: (in category 'ansi protocol') ----- year: year day: dayOfYear hour: hour minute: minute second: second offset: offset "Return a DataAndTime" | y d | y := self year: year month: 1 day: 1 hour: hour minute: minute second: second nanoSecond: 0 offset: offset. d := Duration days: (dayOfYear - 1). ^ y + d ! ----- Method: DateAndTime class>>year:month:day: (in category 'squeak protocol') ----- year: year month: month day: day "Return a DateAndTime, midnight local time" ^self year: year month: month day: day hour: 0 minute: 0 ! ----- 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 year: year month: month day: day hour: hour minute: minute second: 0 ! ----- Method: DateAndTime class>>year:month:day:hour:minute:second: (in category 'ansi protocol') ----- year: year month: month day: day hour: hour minute: minute second: second "Return a DateAndTime" ^ self year: year month: month day: day hour: hour minute: minute second: second offset: self localOffset! ----- 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 := 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; yourself! ----- Method: DateAndTime class>>year:month:day:hour:minute:second:offset: (in category 'ansi protocol') ----- year: year month: month day: day hour: hour minute: minute second: second offset: offset ^ self year: year month: month day: day hour: hour minute: minute second: second nanoSecond: 0 offset: offset! ----- Method: DateAndTime class>>yesterday (in category 'squeak protocol') ----- yesterday ^ self today asDate previous asDateAndTime! ----- Method: DateAndTime>>+ (in category 'ansi protocol') ----- + operand "operand conforms to protocol Duration" | ticks | ticks := self ticks + (operand asDuration ticks) . ^ self class basicNew ticks: ticks offset: self offset; yourself ! ----- Method: DateAndTime>>- (in category 'ansi protocol') ----- - operand "operand conforms to protocol DateAndTime or protocol Duration" ^ (operand respondsTo: #asDateAndTime) ifTrue: [ | lticks rticks | lticks := self asLocal ticks. rticks := operand asDateAndTime asLocal ticks. Duration seconds: (SecondsInDay *(lticks first - rticks first)) + (lticks second - rticks second) nanoSeconds: (lticks third - rticks third) ] ifFalse: [ self + (operand negated) ] ! ----- 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 ] ifFalse: [ 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 ] ] ] ]! ----- Method: DateAndTime>>= (in category 'ansi protocol') ----- = aDateAndTimeOrTimeStamp self == aDateAndTimeOrTimeStamp ifTrue: [ ^ true ]. ((aDateAndTimeOrTimeStamp isKindOf: self class) or: [aDateAndTimeOrTimeStamp isKindOf: DateAndTime orOf: TimeStamp]) ifFalse: [ ^ false ]. ^ self offset = aDateAndTimeOrTimeStamp offset ifTrue: [ self hasEqualTicks: aDateAndTimeOrTimeStamp ] ifFalse: [ self asUTC hasEqualTicks: aDateAndTimeOrTimeStamp asUTC ]! ----- Method: DateAndTime>>asDate (in category 'squeak protocol') ----- asDate ^ Date starting: self asDateAndTime! ----- Method: DateAndTime>>asDateAndTime (in category 'squeak protocol') ----- asDateAndTime ^ self! ----- Method: DateAndTime>>asDuration (in category 'squeak protocol') ----- asDuration "Answer the duration since midnight." ^ Duration seconds: seconds nanoSeconds: nanos ! ----- Method: DateAndTime>>asLocal (in category 'ansi protocol') ----- asLocal ^ (self offset = self class localOffset) ifTrue: [self] ifFalse: [self utcOffset: self class localOffset]! ----- Method: DateAndTime>>asMonth (in category 'squeak protocol') ----- asMonth ^ Month starting: self! ----- Method: DateAndTime>>asNanoSeconds (in category 'squeak protocol') ----- asNanoSeconds "Answer the number of nanoseconds since midnight" ^ self asDuration asNanoSeconds! ----- Method: DateAndTime>>asSeconds (in category 'smalltalk-80') ----- asSeconds "Return the number of seconds since the Squeak epoch" ^ (self - (self class epoch offset: offset)) asSeconds! ----- Method: DateAndTime>>asTime (in category 'squeak protocol') ----- asTime ^ Time seconds: seconds nanoSeconds: nanos ! ----- Method: DateAndTime>>asTimeStamp (in category 'squeak protocol') ----- asTimeStamp ^ self as: TimeStamp! ----- Method: DateAndTime>>asUTC (in category 'ansi protocol') ----- asUTC ^ self offset isZero ifTrue: [self] ifFalse: [self utcOffset: 0] ! ----- Method: DateAndTime>>asUnixTime (in category 'squeak protocol') ----- asUnixTime "answer number of seconds since unix epoch (midnight Jan 1, 1970, UTC)" ^(self - self class unixEpoch) asSeconds! ----- Method: DateAndTime>>asWeek (in category 'squeak protocol') ----- asWeek ^ Week starting: self! ----- Method: DateAndTime>>asYear (in category 'squeak protocol') ----- asYear ^ Year starting: self! ----- Method: DateAndTime>>day (in category 'smalltalk-80') ----- day ^ self dayOfYear ! ----- Method: DateAndTime>>dayMonthYearDo: (in category 'squeak protocol') ----- dayMonthYearDo: aBlock "Evaluation the block with three arguments: day month, year." | l n i j dd mm yyyy | l := jdn + 68569. n := 4 * l // 146097. l := l - (146097 * n + 3 // 4). i := 4000 * (l + 1) // 1461001. l := l - (1461 * i // 4) + 31. j := 80 * l // 2447. dd := l - (2447 * j // 80). l := j // 11. mm := j + 2 - (12 * l). yyyy := 100 * (n - 49) + i + l. ^ aBlock value: dd value: mm value: yyyy! ----- Method: DateAndTime>>dayOfMonth (in category 'ansi protocol') ----- dayOfMonth "Answer which day of the month is represented by the receiver." ^ self dayMonthYearDo: [ :d :m :y | d ] ! ----- Method: DateAndTime>>dayOfWeek (in category 'ansi protocol') ----- dayOfWeek "Sunday=1, ... , Saturday=7" ^ (jdn + 1 rem: 7) + 1 ! ----- Method: DateAndTime>>dayOfWeekAbbreviation (in category 'ansi protocol') ----- dayOfWeekAbbreviation ^ self dayOfWeekName copyFrom: 1 to: 3 ! ----- Method: DateAndTime>>dayOfWeekName (in category 'ansi protocol') ----- dayOfWeekName ^ Week nameOfDay: self dayOfWeek! ----- Method: DateAndTime>>dayOfYear (in category 'ansi protocol') ----- dayOfYear "This code was contributed by Dan Ingalls. It is equivalent to the terser ^ jdn - (Year year: self year) start julianDayNumber + 1 but much quicker." ^ self dayMonthYearDo: [ :d :m :y | | monthStart | monthStart := #(1 32 60 91 121 152 182 213 244 274 305 335) at: m. (m > 2 and: [ Year isLeapYear: y ]) ifTrue: [ monthStart + d ] ifFalse: [ monthStart + d - 1 ]]! ----- Method: DateAndTime>>daysInMonth (in category 'smalltalk-80') ----- daysInMonth "Answer the number of days in the month represented by the receiver." ^ self asMonth daysInMonth! ----- Method: DateAndTime>>daysInYear (in category 'smalltalk-80') ----- daysInYear "Answer the number of days in the year represented by the receiver." ^ self asYear daysInYear! ----- Method: DateAndTime>>daysLeftInYear (in category 'smalltalk-80') ----- daysLeftInYear "Answer the number of days in the year after the date of the receiver." ^ self daysInYear - self dayOfYear! ----- Method: DateAndTime>>duration (in category 'squeak protocol') ----- duration ^ Duration zero! ----- Method: DateAndTime>>firstDayOfMonth (in category 'smalltalk-80') ----- firstDayOfMonth ^ self asMonth start day ! ----- Method: DateAndTime>>floor (in category 'squeak protocol') ----- floor "Answer a copy with magnitude rounded down to the nearest whole second" ^self class basicNew ticks: (self ticks at: 3 put: 0; yourself) offset: offset. ! ----- Method: DateAndTime>>hasEqualTicks: (in category 'private') ----- hasEqualTicks: aDateAndTime ^ (jdn = aDateAndTime julianDayNumber) and: [ (seconds = aDateAndTime secondsSinceMidnight) and: [ nanos = aDateAndTime nanoSecond ] ] ! ----- 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 ] ] ] ]! ----- Method: DateAndTime>>hash (in category 'ansi protocol') ----- hash | totalSeconds | totalSeconds := seconds - self offset asSeconds. ^ ((totalSeconds // 86400 + jdn) hashMultiply bitXor: totalSeconds \\ 86400) bitXor: nanos! ----- Method: DateAndTime>>hour (in category 'ansi protocol') ----- hour ^ self hour24! ----- Method: DateAndTime>>hour12 (in category 'ansi protocol') ----- hour12 "Answer an <integer> between 1 and 12, inclusive, representing the hour of the day in the 12-hour clock of the local time of the receiver." ^ self hour24 - 1 \\ 12 + 1 ! ----- Method: DateAndTime>>hour24 (in category 'ansi protocol') ----- hour24 ^ (Duration seconds: seconds) hours! ----- Method: DateAndTime>>hours (in category 'smalltalk-80') ----- hours ^ self hour ! ----- Method: DateAndTime>>isLeapYear (in category 'ansi protocol') ----- isLeapYear ^ Year isLeapYear: self year ! ----- Method: DateAndTime>>julianDayNumber (in category 'squeak protocol') ----- julianDayNumber ^ jdn! ----- Method: DateAndTime>>makeUTC (in category 'squeak protocol') ----- makeUTC "Make the receiver's timezone UTC." self primOffset: Duration zero! ----- Method: DateAndTime>>meridianAbbreviation (in category 'ansi protocol') ----- meridianAbbreviation ^ self asTime meridianAbbreviation ! ----- Method: DateAndTime>>middleOf: (in category 'squeak protocol') ----- middleOf: aDuration "Return a Timespan where the receiver is the middle of the Duration" | duration | duration := aDuration asDuration. ^ Timespan starting: (self - (duration / 2)) duration: duration ! ----- Method: DateAndTime>>midnight (in category 'squeak protocol') ----- midnight "Answer a DateAndTime starting at midnight of the same timezone offset as the receiver." ^ self class basicNew setJdn: jdn seconds: 0 nano: 0 offset: offset! ----- Method: DateAndTime>>minute (in category 'ansi protocol') ----- minute ^ (Duration seconds: seconds) minutes! ----- Method: DateAndTime>>minutes (in category 'smalltalk-80') ----- minutes ^ self minute ! ----- Method: DateAndTime>>month (in category 'ansi protocol') ----- month ^ self dayMonthYearDo: [ :d :m :y | m ] ! ----- Method: DateAndTime>>monthAbbreviation (in category 'ansi protocol') ----- monthAbbreviation ^ self monthName copyFrom: 1 to: 3! ----- Method: DateAndTime>>monthIndex (in category 'smalltalk-80') ----- monthIndex ^ self month! ----- Method: DateAndTime>>monthName (in category 'ansi protocol') ----- monthName ^ Month nameOfMonth: self month! ----- Method: DateAndTime>>nanoSecond (in category 'squeak protocol') ----- nanoSecond ^ nanos! ----- Method: DateAndTime>>noTimezone (in category 'private') ----- noTimezone ^offset == nil! ----- Method: DateAndTime>>noon (in category 'squeak protocol') ----- noon "Answer a DateAndTime starting at noon" ^ self dayMonthYearDo: [ :d :m :y | self class year: y month: m day: d hour: 12 minute: 0 second: 0 ] ! ----- Method: DateAndTime>>normalize:ticks:base: (in category 'private') ----- normalize: i ticks: ticks base: base | tick div quo rem | tick := ticks at: i. div := tick digitDiv: base neg: tick negative. quo := (div at: 1) normalize. rem := (div at: 2) normalize. rem < 0 ifTrue: [ quo := quo - 1. rem := base + rem ]. ticks at: (i-1) put: ((ticks at: i-1) + quo). ticks at: i put: rem ! ----- Method: DateAndTime>>offset (in category 'ansi protocol') ----- offset ^ offset ifNil: [Duration zero]! ----- 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]); yourself! ----- Method: DateAndTime>>primOffset: (in category 'private') ----- primOffset: aDuration offset := aDuration! ----- Method: DateAndTime>>printHMSOn: (in category 'squeak protocol') ----- printHMSOn: aStream "Print just hh:mm:ss" aStream nextPutAll: (self hour asString padded: #left to: 2 with: $0); nextPut: $:; nextPutAll: (self minute asString padded: #left to: 2 with: $0); nextPut: $:; nextPutAll: (self second asString padded: #left to: 2 with: $0). ! ----- Method: DateAndTime>>printOn: (in category 'squeak protocol') ----- printOn: aStream "Print as per ISO 8601 sections 5.3.3 and 5.4.1. 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 printOn: aStream withLeadingSpace: false ! ----- 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 ]. (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) ]. ! ----- Method: DateAndTime>>printYMDOn: (in category 'squeak protocol') ----- printYMDOn: aStream "Print just YYYY-MM-DD part. If the year is negative, prints out '-YYYY-MM-DD'." ^self printYMDOn: aStream withLeadingSpace: false. ! ----- Method: DateAndTime>>printYMDOn:withLeadingSpace: (in category 'squeak protocol') ----- printYMDOn: aStream withLeadingSpace: printLeadingSpaceToo "Print just the year, month, and day on aStream. If printLeadingSpaceToo is true, then print as: ' YYYY-MM-DD' (if the year is positive) or '-YYYY-MM-DD' (if the year is negative) otherwise print as: 'YYYY-MM-DD' or '-YYYY-MM-DD' " | year month day | self dayMonthYearDo: [ :d :m :y | year := y. month := m. day := d ]. year negative ifTrue: [ aStream nextPut: $- ] ifFalse: [ printLeadingSpaceToo ifTrue: [ aStream space ]]. aStream nextPutAll: (year abs asString padded: #left to: 4 with: $0); nextPut: $-; nextPutAll: (month asString padded: #left to: 2 with: $0); nextPut: $-; nextPutAll: (day asString padded: #left to: 2 with: $0) ! ----- Method: DateAndTime>>second (in category 'ansi protocol') ----- second ^ (Duration seconds: seconds) seconds! ----- Method: DateAndTime>>seconds (in category 'smalltalk-80') ----- seconds ^ self second ! ----- Method: DateAndTime>>secondsSinceMidnight (in category 'private') ----- secondsSinceMidnight ^ seconds! ----- Method: DateAndTime>>setJdn:seconds:nano:offset: (in category 'squeak protocol') ----- setJdn: j seconds: s nano: n offset: o jdn := j. seconds := s. nanos := n. offset := o ! ----- Method: DateAndTime>>ticks (in category 'private') ----- ticks "Private - answer an array with our instance variables. Assumed to be UTC " ^ Array with: jdn with: seconds with: nanos ! ----- Method: DateAndTime>>ticks:offset: (in category 'private') ----- ticks: ticks offset: utcOffset "ticks is {julianDayNumber. secondCount. nanoSeconds}" self normalize: 3 ticks: ticks base: NanosInSecond. self normalize: 2 ticks: ticks base: SecondsInDay. jdn := ticks at: 1. seconds := ticks at: 2. nanos := ticks at: 3. offset := utcOffset ! ----- Method: DateAndTime>>timeZoneAbbreviation (in category 'ansi protocol') ----- timeZoneAbbreviation ^ self class localTimeZone abbreviation! ----- Method: DateAndTime>>timeZoneName (in category 'ansi protocol') ----- timeZoneName ^ self class localTimeZone name! ----- Method: DateAndTime>>to: (in category 'squeak protocol') ----- to: anEnd "Answer a Timespan. anEnd conforms to protocol DateAndTime or protocol Timespan" ^ Timespan starting: self ending: (anEnd asDateAndTime) ! ----- Method: DateAndTime>>to:by: (in category 'squeak protocol') ----- to: anEnd by: aDuration "Answer a Timespan. anEnd conforms to protocol DateAndTime or protocol Timespan" ^ (Schedule starting: self ending: (anEnd asDateAndTime)) schedule: (Array with: aDuration asDuration); yourself ! ----- Method: DateAndTime>>to:by:do: (in category 'squeak protocol') ----- to: anEnd by: aDuration do: aBlock "Answer a Timespan. anEnd conforms to protocol DateAndTime or protocol Timespan" ^ (self to: anEnd by: aDuration) scheduleDo: aBlock! ----- Method: DateAndTime>>utcOffset: (in category 'squeak protocol') ----- utcOffset: anOffset "Answer a <DateAndTime> equivalent to the receiver but offset from UTC by anOffset" | equiv | equiv := self + (anOffset asDuration - self offset). ^ equiv ticks: (equiv ticks) offset: anOffset asDuration; yourself! ----- Method: DateAndTime>>year (in category 'ansi protocol') ----- year ^ self dayMonthYearDo: [ :d :m :y | y ] ! DateAndTime subclass: #TimeStamp instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'Chronology-Core'! !TimeStamp commentStamp: '<historical>' prior: 0! This represents a duration of 0 length that marks a particular point in time.! ----- Method: TimeStamp class>>current (in category 'squeak protocol') ----- current | ts ticks | ts := super now asTimeStamp. ticks := ts ticks. ticks at: 3 put: 0. ts ticks: ticks offset: ts offset. ^ ts ! ----- Method: TimeStamp class>>now (in category 'ansi protocol') ----- now "Answer the current date and time as a TimeStamp." ^self current! ----- Method: TimeStamp>>asDateAndTime (in category 'squeak protocol') ----- asDateAndTime "Answer the receiver as an instance of DateAndTime." ^ DateAndTime new setJdn: jdn seconds: seconds nano: nanos offset: offset! ----- Method: TimeStamp>>asTimeStamp (in category 'squeak protocol') ----- asTimeStamp "Answer the receiver as an instance of TimeStamp." ^ self! ----- Method: TimeStamp>>date (in category 'squeak protocol') ----- date "Answer the date of the receiver." ^ self asDate! ----- Method: TimeStamp>>dateAndTime (in category 'squeak protocol') ----- dateAndTime "Answer a two element Array containing the receiver's date and time." ^ Array with: self date with: self time! ----- Method: TimeStamp>>minusDays: (in category 'squeak protocol') ----- minusDays: anInteger "Answer a TimeStamp which is anInteger days before the receiver." ^ self - (anInteger days)! ----- Method: TimeStamp>>minusSeconds: (in category 'squeak protocol') ----- minusSeconds: anInteger "Answer a TimeStamp which is anInteger number of seconds before the receiver." ^ self - (anInteger seconds)! ----- Method: TimeStamp>>plusDays: (in category 'squeak protocol') ----- plusDays: anInteger "Answer a TimeStamp which is anInteger days after the receiver." ^ self + (anInteger days)! ----- Method: TimeStamp>>plusSeconds: (in category 'squeak protocol') ----- plusSeconds: anInteger "Answer a TimeStamp which is anInteger number of seconds after the receiver." ^ self + (anInteger seconds)! ----- Method: TimeStamp>>printOn: (in category 'squeak protocol') ----- printOn: aStream "Print receiver's date and time on aStream." aStream nextPutAll: self date printString; space; nextPutAll: self time printString.! ----- Method: TimeStamp>>storeOn: (in category 'squeak protocol') ----- storeOn: aStream aStream print: self printString; nextPutAll: ' asTimeStamp'! ----- Method: TimeStamp>>time (in category 'squeak protocol') ----- time "Answer the time of the receiver." ^ self asTime! Magnitude subclass: #Duration instanceVariableNames: 'nanos seconds' classVariableNames: '' poolDictionaries: 'ChronologyConstants' category: 'Chronology-Core'! !Duration commentStamp: 'dtl 7/11/2009 15:03' prior: 0! I represent a duration of time. I have nanosecond precision! ----- Method: Duration class>>days: (in category 'squeak protocol') ----- days: aNumber ^ self seconds: aNumber * SecondsInDay nanoSeconds: 0! ----- Method: Duration class>>days:hours:minutes:seconds: (in category 'ansi protocol') ----- days: days hours: hours minutes: minutes seconds: seconds ^ self days: days hours: hours minutes: minutes seconds: seconds nanoSeconds: 0! ----- Method: Duration class>>days:hours:minutes:seconds:nanoSeconds: (in category 'squeak protocol') ----- days: days hours: hours minutes: minutes seconds: seconds nanoSeconds: nanos ^self seconds: seconds + (minutes * SecondsInMinute) + (hours * SecondsInHour) + (days * SecondsInDay) nanoSeconds: nanos ! ----- Method: Duration class>>days:seconds: (in category 'ansi protocol') ----- days: days seconds: seconds ^ self basicNew seconds: days * SecondsInDay + seconds nanoSeconds: 0 ! ----- Method: Duration class>>fromString: (in category 'squeak protocol') ----- fromString: aString ^ self readFrom: (ReadStream on: aString) ! ----- Method: Duration class>>hours: (in category 'squeak protocol') ----- hours: aNumber ^ self seconds: aNumber * SecondsInHour nanoSeconds: 0! ----- Method: Duration class>>initialize (in category 'initialize-release') ----- initialize ChronologyConstants classPool at: #Zero put: (self basicNew seconds: 0 nanoSeconds: 0) ; at: #OneDay put: 1 day! ----- Method: Duration class>>milliSeconds: (in category 'squeak protocol') ----- milliSeconds: milliCount ^self seconds: (milliCount quo: 1000) nanoSeconds: (milliCount rem: 1000) * NanosInMillisecond! ----- Method: Duration class>>minutes: (in category 'squeak protocol') ----- minutes: aNumber ^ self seconds: aNumber * SecondsInMinute nanoSeconds: 0! ----- Method: Duration class>>month: (in category 'squeak protocol') ----- month: aMonth "aMonth is an Integer or a String" ^ (Month month: aMonth year: Year current year) duration ! ----- Method: Duration class>>nanoSeconds: (in category 'squeak protocol') ----- nanoSeconds: nanos "This method is slow. If you have nanos less than 10^6 you should use #seconds:nanoSeconds: instead." | quo | quo := nanos quo: NanosInSecond. ^ self basicNew seconds: quo nanoSeconds: nanos - (quo * NanosInSecond) ! ----- Method: Duration class>>oneDay (in category 'squeak protocol') ----- oneDay "Answer the canonicalized Duration representing length of 1 day. Used by Dates." ^ OneDay! ----- Method: Duration class>>readFrom: (in category 'squeak protocol') ----- readFrom: aStream "Formatted as per ANSI 5.8.2.16: [-]D:HH:MM:SS[.S]" | sign days hours minutes seconds nanos nanosBuffer | sign := (aStream peekFor: $-) ifTrue: [-1] ifFalse: [1]. days := (aStream upTo: $:) asInteger sign: sign. hours := (aStream upTo: $:) asInteger sign: sign. minutes := (aStream upTo: $:) asInteger sign: sign. seconds := (aStream upTo: $.) asInteger sign: sign. nanosBuffer := '000000000' copy. nanos := WriteStream on: nanosBuffer. [aStream atEnd not and: [aStream peek isDigit]] whileTrue: [nanos nextPut: aStream next]. ^ self days: days hours: hours minutes: minutes seconds: seconds nanoSeconds: (nanosBuffer asInteger sign: sign) " '0:00:00:00' asDuration '0:00:00:00.000000001' asDuration '0:00:00:00.999999999' asDuration '0:00:00:00.100000000' asDuration '0:00:00:00.001 ' asDuration '0:00:00:00.1' asDuration '0:00:00:01 ' asDuration '0:12:45:45' asDuration '1:00:00:00' asDuration '365:00:00:00' asDuration '-7:09:12:06.10' asDuration '+0:01:02:3' asDuration "! ----- Method: Duration class>>seconds: (in category 'ansi protocol') ----- seconds: seconds ^ self seconds: seconds nanoSeconds: 0 ! ----- Method: Duration class>>seconds:nanoSeconds: (in category 'squeak protocol') ----- seconds: seconds nanoSeconds: nanos ^ self basicNew seconds: seconds truncated nanoSeconds: seconds fractionPart * NanosInSecond + nanos! ----- Method: Duration class>>weeks: (in category 'squeak protocol') ----- weeks: aNumber ^ self days: (aNumber * 7) seconds: 0 ! ----- Method: Duration class>>zero (in category 'ansi protocol') ----- zero "Answer the canonicalized instance of Duration zero." ^ Zero! ----- Method: Duration>>* (in category 'ansi protocol') ----- * operand "operand is a Number" ^ self class nanoSeconds: ( (self asNanoSeconds * operand) asInteger) ! ----- Method: Duration>>+ (in category 'ansi protocol') ----- + operand "operand is a Duration" ^ self class nanoSeconds: (self asNanoSeconds + operand asNanoSeconds)! ----- Method: Duration>>- (in category 'ansi protocol') ----- - operand "operand is a Duration" ^ self + operand negated! ----- Method: Duration>>/ (in category 'ansi protocol') ----- / operand "operand is a Duration or a Number" ^ operand isNumber ifTrue: [ self class nanoSeconds: (self asNanoSeconds / operand) asInteger ] ifFalse: [ self asNanoSeconds / operand asDuration asNanoSeconds ] ! ----- Method: Duration>>// (in category 'squeak protocol') ----- // operand "operand is a Duration or a Number" ^ operand isNumber ifTrue: [ self class nanoSeconds: (self asNanoSeconds // operand) asInteger ] ifFalse: [ self asNanoSeconds // operand asDuration asNanoSeconds ]! ----- Method: Duration>>< (in category 'ansi protocol') ----- < comparand ^ self asNanoSeconds < comparand asNanoSeconds! ----- Method: Duration>>= (in category 'ansi protocol') ----- = comparand "Answer whether the argument is a <Duration> representing the same period of time as the receiver." ^ self == comparand ifTrue: [true] ifFalse: [self species = comparand species ifTrue: [self asNanoSeconds = comparand asNanoSeconds] ifFalse: [false] ] ! ----- Method: Duration>>\\ (in category 'squeak protocol') ----- \\ operand "modulo. Remainder defined in terms of //. Answer a Duration with the same sign as aDuration. operand is a Duration or a Number." ^ operand isNumber ifTrue: [ self class nanoSeconds: (self asNanoSeconds \\ operand) ] ifFalse: [ self - (operand * (self // operand)) ]! ----- Method: Duration>>abs (in category 'ansi protocol') ----- abs ^ self class seconds: seconds abs nanoSeconds: nanos abs! ----- Method: Duration>>ago (in category 'squeak protocol') ----- ago "Answer the DateAndTime which was the receiver's duration ago. e.g., 5 minutes ago. 2 days ago." ^ DateAndTime now - self! ----- Method: Duration>>asDelay (in category 'squeak protocol') ----- asDelay ^ Delay forDuration: self ! ----- Method: Duration>>asDuration (in category 'ansi protocol') ----- asDuration ^ self! ----- Method: Duration>>asMilliSeconds (in category 'squeak protocol') ----- asMilliSeconds nanos = 0 ifTrue: [ ^seconds * 1000 ]. ^nanos // 1000000 + (seconds * 1000)! ----- Method: Duration>>asNanoSeconds (in category 'squeak protocol') ----- asNanoSeconds ^seconds * NanosInSecond + nanos! ----- Method: Duration>>asSeconds (in category 'ansi protocol') ----- asSeconds ^ seconds! ----- Method: Duration>>days (in category 'ansi protocol') ----- days "Answer the number of days the receiver represents." ^ seconds quo: SecondsInDay ! ----- Method: Duration>>fromNow (in category 'squeak protocol') ----- fromNow "Answer the DateAndTime which which occurs the receiver's duration from now. e.g., 5 minutes fromNow. 2 days fromNow." ^ DateAndTime now + self! ----- Method: Duration>>hash (in category 'ansi protocol') ----- hash ^seconds bitXor: nanos! ----- Method: Duration>>hours (in category 'ansi protocol') ----- hours "Answer the number of hours the receiver represents." ^ (seconds rem: SecondsInDay) quo: SecondsInHour! ----- Method: Duration>>initialize (in category 'initialize-release') ----- initialize self seconds: 0 nanoSeconds: 0. ! ----- Method: Duration>>isZero (in category 'squeak protocol') ----- isZero ^ seconds = 0 and: [ nanos = 0 ] ! ----- Method: Duration>>minutes (in category 'ansi protocol') ----- minutes "Answer the number of minutes the receiver represents." ^ (seconds rem: SecondsInHour) quo: SecondsInMinute! ----- Method: Duration>>nanoSeconds (in category 'squeak protocol') ----- nanoSeconds ^ nanos! ----- Method: Duration>>negated (in category 'ansi protocol') ----- negated ^ self class seconds: seconds negated nanoSeconds: nanos negated! ----- Method: Duration>>negative (in category 'ansi protocol') ----- negative ^ self positive not! ----- Method: Duration>>positive (in category 'ansi protocol') ----- positive ^ seconds = 0 ifTrue: [ nanos positive ] ifFalse: [ seconds positive ]! ----- Method: Duration>>printOn: (in category 'squeak protocol') ----- printOn: aStream "Format as per ANSI 5.8.2.16: [-]D:HH:MM:SS[.S]" | d h m s n | d := self days abs. h := self hours abs. m := self minutes abs. s := self seconds abs truncated. n := self nanoSeconds abs. self negative ifTrue: [ aStream nextPut: $- ]. d printOn: aStream. aStream nextPut: $:. h < 10 ifTrue: [ aStream nextPut: $0. ]. h printOn: aStream. aStream nextPut: $:. m < 10 ifTrue: [ aStream nextPut: $0. ]. m printOn: aStream. aStream nextPut: $:. s < 10 ifTrue: [ aStream nextPut: $0. ]. s printOn: aStream. n = 0 ifFalse: [ | z ps | aStream nextPut: $.. ps := n printString padded: #left to: 9 with: $0. z := ps findLast: [ :c | c asciiValue > $0 asciiValue ]. ps from: 1 to: z do: [ :c | aStream nextPut: c ] ] ! ----- Method: Duration>>roundTo: (in category 'squeak protocol') ----- roundTo: aDuration "e.g. if the receiver is 5 minutes, 37 seconds, and aDuration is 2 minutes, answer 6 minutes." ^ self class nanoSeconds: (self asNanoSeconds roundTo: aDuration asNanoSeconds) ! ----- Method: Duration>>seconds (in category 'ansi protocol') ----- seconds "Answer the number of seconds the receiver represents." ^seconds rem: SecondsInMinute! ----- Method: Duration>>seconds:nanoSeconds: (in category 'private') ----- seconds: secondCount nanoSeconds: nanoCount "Private - only used by Duration class" seconds := secondCount. nanos := nanoCount rounded. "normalize if signs do not match" [ nanos < 0 and: [ seconds > 0 ] ] whileTrue: [ seconds := seconds - 1. nanos := nanos + NanosInSecond ]. [ seconds < 0 and: [ nanos > 0 ] ] whileTrue: [ seconds := seconds + 1. nanos := nanos - NanosInSecond ] ! ----- Method: Duration>>storeOn: (in category 'private') ----- storeOn: aStream aStream nextPut: $(; nextPutAll: self className; nextPutAll: ' seconds: '; print: seconds; nextPutAll: ' nanoSeconds: '; print: nanos; nextPut: $) ! ----- Method: Duration>>ticks (in category 'private') ----- ticks "Answer an array {days. seconds. nanoSeconds}. Used by DateAndTime and Time." | days | days := self days. ^ Array with: days with: seconds - (days * SecondsInDay) with: nanos ! ----- Method: Duration>>truncateTo: (in category 'squeak protocol') ----- truncateTo: aDuration "e.g. if the receiver is 5 minutes, 37 seconds, and aDuration is 2 minutes, answer 4 minutes." ^ self class nanoSeconds: (self asNanoSeconds truncateTo: aDuration asNanoSeconds) ! Timespan subclass: #Month instanceVariableNames: '' classVariableNames: '' poolDictionaries: 'ChronologyConstants' category: 'Chronology-Core'! !Month commentStamp: 'cbr 7/28/2010 18:11' prior: 0! I represent a month. For example, to get the number of days this month, you can evaluate the following expression: Month current daysInMonth! ----- Method: Month class>>daysInMonth:forYear: (in category 'smalltalk-80') ----- daysInMonth: indexOrName forYear: yearInteger | index | index := indexOrName isInteger ifTrue: [indexOrName] ifFalse: [self indexOfMonth: indexOrName]. ^ (DaysInMonth at: index) + ((index = 2 and: [Year isLeapYear: yearInteger]) ifTrue: [1] ifFalse: [0]) ! ----- Method: Month class>>indexOfMonth: (in category 'smalltalk-80') ----- indexOfMonth: aMonthName 1 to: 12 do: [ :i | (aMonthName, '*' match: (MonthNames at: i)) ifTrue: [^i] ]. self error: aMonthName , ' is not a recognized month name'.! ----- Method: Month class>>month:year: (in category 'squeak protocol') ----- month: month year: year "Create a Month for the given <year> and <month>. <month> may be a number or a String with the name of the month. <year> should be with 4 digits." ^ self starting: (DateAndTime year: year month: month day: 1 hour: 0 minute: 0 second: 0 offset: self defaultOffset)! ----- Method: Month class>>nameOfMonth: (in category 'smalltalk-80') ----- nameOfMonth: anIndex ^ MonthNames at: anIndex.! ----- Method: Month class>>readFrom: (in category 'squeak protocol') ----- readFrom: aStream | m y | aStream skipSeparators. m := aStream upToAnyOf: CharacterSet separators. aStream skipSeparators. y := aStream upToEnd. ^ self month: m year: y asInteger "Month readFrom: 'July 1998' readStream"! ----- Method: Month class>>starting:duration: (in category 'squeak protocol') ----- starting: aDateAndTime duration: aDuration "Override - a each month has a defined duration" | start adjusted days | start := aDateAndTime asDateAndTime. adjusted := DateAndTime year: start year month: start month day: 1 hour: 0 minute: 0 second: 0 offset: start offset. days := self daysInMonth: adjusted month forYear: adjusted year. ^ super starting: adjusted duration: (Duration days: days)! ----- Method: Month>>asMonth (in category 'squeak protocol') ----- asMonth ^ self! ----- Method: Month>>daysInMonth (in category 'squeak protocol') ----- daysInMonth ^ self duration days.! ----- Method: Month>>index (in category 'squeak protocol') ----- index ^ self monthIndex! ----- Method: Month>>name (in category 'squeak protocol') ----- name ^ self monthName! ----- Method: Month>>previous (in category 'squeak protocol') ----- previous ^ self class starting: (self start - 1)! ----- Method: Month>>printOn: (in category 'squeak protocol') ----- printOn: aStream aStream nextPutAll: self monthName, ' ', self year printString! Magnitude subclass: #Time instanceVariableNames: 'seconds nanos' classVariableNames: '' poolDictionaries: 'ChronologyConstants' category: 'Chronology-Core'! !Time commentStamp: 'dew 10/23/2004 17:58' prior: 0! This represents a particular point in time during any given day. For example, '5:19:45 pm'. If you need a point in time on a particular day, use DateAndTime. If you need a duration of time, use Duration. ! ----- Method: Time class>>benchmarkMillisecondClock (in category 'benchmarks') ----- benchmarkMillisecondClock "Time benchmarkMillisecondClock" "Benchmark the time spent in a call to Time>>millisecondClockValue. On the VM level this tests the efficiency of calls to ioMSecs()." "PII/400 Windows 98: 0.725 microseconds per call" | temp1 temp2 temp3 delayTime nLoops time | delayTime := 5000. "Time to run benchmark is approx. 2*delayTime" "Don't run the benchmark if we have an active delay since we will measure the additional penalty in the primitive dispatch mechanism (see #benchmarkPrimitiveResponseDelay)." Delay anyActive ifTrue:[ ^self notify:'Some delay is currently active. Running this benchmark will not give any useful result.']. "Flush the cache for this benchmark so we will have a clear cache hit for each send to #millisecondClockValue below" Object flushCache. temp1 := 0. temp2 := self. "e.g., temp1 == Time" temp3 := self millisecondClockValue + delayTime. "Now check how often we can run the following loop in the given time" [temp2 millisecondClockValue < temp3] whileTrue:[temp1 := temp1 + 1]. nLoops := temp1. "Remember the loops we have run during delayTime" "Setup the second loop" temp1 := 0. temp3 := nLoops. "Now measure how much time we spend without sending #millisecondClockValue" time := Time millisecondClockValue. [temp1 < temp3] whileTrue:[temp1 := temp1 + 1]. time := Time millisecondClockValue - time. "And compute the number of microseconds spent per call to #millisecondClockValue" ^((delayTime - time * 1000.0 / nLoops) truncateTo: 0.001) printString, ' microseconds per call to Time>>millisecondClockValue' ! ----- Method: Time class>>benchmarkPrimitiveResponseDelay (in category 'benchmarks') ----- benchmarkPrimitiveResponseDelay "Time benchmarkPrimitiveResponseDelay" "Benchmark the overhead for primitive dispatches with an active Delay. On the VM level, this tests the efficiency of ioLowResMSecs." "PII/400 Windows98: 0.128 microseconds per prim" "ar 9/6/1999: This value is *extremely* important for stuff like sockets etc. I had a bad surprise when Michael pointed this particular problem out: Using the hardcoded clock() call for ioLowResMSecs on Win32 resulted in an overhead of 157.4 microseconds per primitive call - meaning you can't get no more than approx. 6000 primitives per second on my 400Mhz PII system with an active delay!! BTW, it finally explains why Squeak seemed soooo slow when running PWS or other socket stuff. The new version (not using clock() but some Windows function) looks a lot better (see above; approx. 8,000,000 prims per sec with an active delay)." | nLoops bb index baseTime actualTime delayTime | delayTime := 5000. "Time to run this test is approx. 3*delayTime" Delay anyActive ifTrue:[ ^self notify:'Some delay is currently active. Running this benchmark will not give any useful result.']. bb := Array new: 1. "The object we send the prim message to" "Compute the # of loops we'll run in a decent amount of time" [(Delay forMilliseconds: delayTime) wait] forkAt: Processor userInterruptPriority. nLoops := 0. [Delay anyActive] whileTrue:[ bb basicSize; basicSize; basicSize; basicSize; basicSize; basicSize; basicSize; basicSize; basicSize; basicSize. nLoops := nLoops + 1. ]. "Flush the cache and make sure #basicSize is in there" Object flushCache. bb basicSize. "Now run the loop without any active delay for getting an idea about its actual speed." baseTime := self millisecondClockValue. index := nLoops. [index > 0] whileTrue:[ bb basicSize; basicSize; basicSize; basicSize; basicSize; basicSize; basicSize; basicSize; basicSize; basicSize. index := index - 1. ]. baseTime := self millisecondClockValue - baseTime. "Setup the active delay but try to never make it active" [(Delay forMilliseconds: delayTime + delayTime) wait] forkAt: Processor userInterruptPriority. "And run the loop" actualTime := self millisecondClockValue. index := nLoops. [index > 0] whileTrue:[ bb basicSize; basicSize; basicSize; basicSize; basicSize; basicSize; basicSize; basicSize; basicSize; basicSize. index := index - 1. ]. actualTime := self millisecondClockValue - actualTime. "And get us some result" ^((actualTime - baseTime) * 1000 asFloat / (nLoops * 10) truncateTo: 0.001) printString, ' microseconds overhead per primitive call' ! ----- Method: Time class>>condenseBunches: (in category 'general inquiries') ----- condenseBunches: aCollectionOfSeconds | secArray now out pause prev bunchEnd | "Identify the major intervals in a bunch of numbers. Each number is a seconds since 1901 that represents a date and time. We want the last event in a bunch. Return array of seconds for: Every event in the last half hour. Every bunch separated by 30 min in the last 24 hours. Every bunch separated by two hours before that." "Time condenseBunches: (#(20 400 401 20000 20200 20300 40000 45000 200000 201000 202000) collect: [ :tt | self totalSeconds - tt]) " secArray := aCollectionOfSeconds asSortedCollection. pause := 1. now := self totalSeconds. out := OrderedCollection new. prev := 0. bunchEnd := nil. secArray reverseDo: [:secs | | ago | "descending" ago := now - secs. ago > (60*30) ifTrue: [pause := "60*30" 1800]. ago > (60*60*24) ifTrue: [pause := "60*120" 7200]. ago - prev >= pause ifTrue: [out add: bunchEnd. bunchEnd := secs]. prev := ago]. out add: bunchEnd. out removeFirst. ^ out ! ----- Method: Time class>>current (in category 'squeak protocol') ----- current ^ self now! ----- Method: Time class>>dateAndTimeFromSeconds: (in category 'smalltalk-80') ----- dateAndTimeFromSeconds: secondCount ^ Array with: (Date fromSeconds: secondCount) with: (Time fromSeconds: secondCount \\ 86400)! ----- Method: Time class>>dateAndTimeNow (in category 'smalltalk-80') ----- dateAndTimeNow "Answer a two-element Array of (Date today, Time now)." ^ self dateAndTimeFromSeconds: self totalSeconds ! ----- Method: Time class>>eventMillisecondClock (in category 'clock') ----- eventMillisecondClock "In order to make certain event handling code work (cf MouseEvent>asMouseMove) we need access to the tick kept by ioMSecs() " "Time eventMillisecondClock" <primitive: 135> ^0! ----- Method: Time class>>fromSeconds: (in category 'smalltalk-80') ----- fromSeconds: secondCount "Answer an instance of me that is secondCount number of seconds since midnight." | integerSeconds nanos | integerSeconds := secondCount truncated. integerSeconds = secondCount ifTrue: [nanos := 0] ifFalse: [nanos := (secondCount - integerSeconds * NanosInSecond) asInteger]. ^ self seconds: integerSeconds nanoSeconds: nanos ! ----- Method: Time class>>hour:minute:second: (in category 'squeak protocol') ----- hour: hour minute: minute second: second "Answer a Time" ^ self hour: hour minute: minute second: second nanoSecond: 0 ! ----- Method: Time class>>hour:minute:second:nanoSecond: (in category 'squeak protocol') ----- hour: hour minute: minute second: second nanoSecond: nanoCount "Answer a Time - only second precision for now" ^ self seconds: (hour * SecondsInHour) + (minute * SecondsInMinute) + second nanoSeconds: nanoCount ! ----- Method: Time class>>humanWordsForSecondsAgo: (in category 'general inquiries') ----- humanWordsForSecondsAgo: secs | date today | "Return natural language for this date and time in the past." secs <= 1 ifTrue: [^ 'a second ago']. secs < 45 ifTrue: [^ secs printString, ' seconds ago']. secs < 90 ifTrue: [^ 'a minute ago']. secs < "45*60" 2700 ifTrue: [^ (secs//60) printString, ' minutes ago']. secs < "90*60" 5400 ifTrue: [^ 'an hour ago']. secs < "18*60*60" 64800 ifTrue: [^ (secs//3600) printString, ' hours ago']. date := Date fromSeconds: self totalSeconds - secs. "now work with dates" today := Date today. date > (today subtractDays: 2) ifTrue: [^ 'yesterday']. date > (today subtractDays: 8) ifTrue: [^ 'last ', date dayOfWeekName]. date > (today subtractDays: 13) ifTrue: [^ 'a week ago']. date > (today subtractDays: 28) ifTrue: [ ^ ((today subtractDate: date)//7) printString, ' weeks ago']. date > (today subtractDays: 45) ifTrue: [^ 'a month ago']. date > (today subtractDays: 300) ifTrue: [^ 'last ', date monthName]. ^ date monthName, ', ', date year printString "Example #(0.5 30 62 130 4000 10000 60000 90000 345600 864000 1728000 3456000 17280000 34560000 345600000) collect: [:ss | Time humanWordsForSecondsAgo: ss]. " ! ----- 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 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! ----- 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! ----- Method: Time class>>midnight (in category 'squeak protocol') ----- midnight ^ self seconds: 0 ! ----- Method: Time class>>milliSecondsSinceMidnight (in category 'ansi protocol') ----- milliSecondsSinceMidnight ^self localMicrosecondClock // 1000 \\ 86400000 "24 * 60 * 60 * 1000"! ----- Method: Time class>>millisecondClockValue (in category 'general inquiries') ----- millisecondClockValue "Answer the value of the millisecond clock." ^self localMicrosecondClock // 1000! ----- Method: Time class>>milliseconds:since: (in category 'squeak protocol') ----- milliseconds: currentTime since: lastTime "Answer the elapsed time since last recorded in milliseconds (i.e. of millisecondClockValue). Since the time basis is now a 61-bit or greater UTC microsecond clock, rollover is no longer an issue." ^currentTime - lastTime! ----- Method: Time class>>millisecondsSince: (in category 'squeak protocol') ----- millisecondsSince: lastTime "Answer the elapsed time since last recorded in milliseconds. Compensate for rollover." ^self milliseconds: self millisecondClockValue since: lastTime ! ----- Method: Time class>>millisecondsToRun: (in category 'general inquiries') ----- millisecondsToRun: timedBlock "Answer the number of milliseconds timedBlock takes to return its value." | startUsecs | startUsecs := self utcMicrosecondClock. timedBlock value. ^self utcMicrosecondClock - startUsecs + 500 // 1000! ----- Method: Time class>>namesForTimes: (in category 'general inquiries') ----- namesForTimes: arrayOfSeconds | simpleEnglish final prev | "Return English descriptions of the times in the array. They are each seconds since 1901. If two names are the same, append the date and time to distinguish them." simpleEnglish := arrayOfSeconds collect: [:secsAgo | self humanWordsForSecondsAgo: self totalSeconds - secsAgo]. prev := ''. final := simpleEnglish copy. simpleEnglish withIndexDo: [:eng :ind | | prevPair myPair | eng = prev ifFalse: [eng] ifTrue: ["both say 'a month ago'" prevPair := self dateAndTimeFromSeconds: (arrayOfSeconds at: ind-1). myPair := self dateAndTimeFromSeconds: (arrayOfSeconds at: ind). (final at: ind-1) = prev ifTrue: ["only has 'a month ago'" final at: ind-1 put: (final at: ind-1), ', ', prevPair first mmddyyyy]. final at: ind put: (final at: ind), ', ', myPair first mmddyyyy. prevPair first = myPair first ifTrue: [ (final at: ind-1) last == $m ifFalse: ["date but no time" final at: ind-1 put: (final at: ind-1), ', ', prevPair second printMinutes]. final at: ind put: (final at: ind), ', ', myPair second printMinutes]]. prev := eng]. ^ final ! ----- Method: Time class>>new (in category 'smalltalk-80') ----- new "Answer a Time representing midnight" ^ self midnight! ----- Method: Time class>>noon (in category 'squeak protocol') ----- noon ^ self seconds: (SecondsInDay / 2) ! ----- Method: Time class>>now (in category 'ansi protocol') ----- now "Answer a Time representing the time right now - this is a 24 hour clock." | localUsecs localUsecsToday | localUsecs := self localMicrosecondClock. localUsecsToday := localUsecs \\ MicrosecondsInDay. ^ self seconds: localUsecsToday // 1000000 nanoSeconds: localUsecsToday \\ 1000000 * 1000! ----- Method: Time class>>primPosixMicrosecondClockWithOffset (in category 'private') ----- primPosixMicrosecondClockWithOffset "Answer an array with UTC microseconds since the Posix epoch and the current seconds offset from GMT in the local time zone." <primitive: 'primitiveUtcWithOffset'> ^{0. 0}! ----- Method: Time class>>readFrom: (in category 'smalltalk-80') ----- readFrom: aStream "Read a Time from the stream in the form: <hour>:<minute>:<second> <am/pm> <minute>, <second> or <am/pm> may be omitted. e.g. 1:59:30 pm; 8AM; 15:30" | hour minute second ampm nanos nanosBuffer | hour := Integer readFrom: aStream. minute := 0. second := 0. nanosBuffer := '000000000' copy. nanos := WriteStream on: nanosBuffer. (aStream peekFor: $:) ifTrue: [ minute := Integer readFrom: aStream. (aStream peekFor: $:) ifTrue: [ second := Integer readFrom: aStream. (aStream peekFor: $.) ifTrue: [ [aStream atEnd not and: [aStream peek isDigit]] whileTrue: [nanos nextPut: aStream next]]]]. aStream skipSeparators. (aStream atEnd not and: ['PApa' includes: aStream peek]) ifTrue: [ampm := aStream next asLowercase. (ampm = $p and: [hour < 12]) ifTrue: [hour := hour + 12]. (ampm = $a and: [hour = 12]) ifTrue: [hour := 0]. (aStream peekFor: $m) ifFalse: [aStream peekFor: $M ]]. ^ self hour: hour minute: minute second: second nanoSecond: nanosBuffer asInteger "Time readFrom: (ReadStream on: '2:23:09 pm')"! ----- Method: Time class>>seconds: (in category 'squeak protocol') ----- seconds: seconds "Answer a Time from midnight." ^ self basicNew ticks: (Duration seconds: seconds) ticks! ----- Method: Time class>>seconds:nanoSeconds: (in category 'squeak protocol') ----- seconds: seconds nanoSeconds: nanoCount "Answer a Time from midnight." ^ self basicNew ticks: (Duration seconds: seconds nanoSeconds: nanoCount) ticks ! ----- Method: Time class>>totalSeconds (in category 'smalltalk-80') ----- totalSeconds "Answer the total seconds since the Squeak epoch: 1 January 1901, in local time." ^self localMicrosecondClock // 1000000! ----- Method: Time class>>utcMicrosecondClock (in category 'clock') ----- utcMicrosecondClock "Answer the UTC 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." <primitive: 240> ^0! ----- Method: Time>>< (in category 'ansi protocol') ----- < aTime ^ self asDuration < aTime asDuration! ----- Method: Time>>= (in category 'ansi protocol') ----- = aTime ^ [ self ticks = aTime ticks ] on: MessageNotUnderstood do: [false]! ----- Method: Time>>addSeconds: (in category 'smalltalk-80') ----- addSeconds: nSeconds "Answer a Time that is nSeconds after the receiver." ^ self class seconds: self asSeconds + nSeconds! ----- Method: Time>>addTime: (in category 'smalltalk-80') ----- addTime: timeAmount "Answer a Time that is timeInterval after the receiver. timeInterval is an instance of Date or Time." ^ self class seconds: self asSeconds + timeAmount asSeconds ! ----- Method: Time>>asDate (in category 'squeak protocol') ----- asDate ^ Date today! ----- Method: Time>>asDateAndTime (in category 'squeak protocol') ----- asDateAndTime ^ DateAndTime today + self! ----- Method: Time>>asDuration (in category 'squeak protocol') ----- asDuration "Answer the duration since midnight" ^ Duration seconds: seconds nanoSeconds: nanos! ----- Method: Time>>asMonth (in category 'squeak protocol') ----- asMonth ^ self asDateAndTime asMonth! ----- Method: Time>>asNanoSeconds (in category 'squeak protocol') ----- asNanoSeconds "Answer the number of nanoseconds since midnight" ^ self asDuration asNanoSeconds! ----- Method: Time>>asSeconds (in category 'smalltalk-80') ----- asSeconds "Answer the number of seconds since midnight of the receiver." ^ seconds ! ----- Method: Time>>asTime (in category 'squeak protocol') ----- asTime ^ self! ----- Method: Time>>asTimeStamp (in category 'squeak protocol') ----- asTimeStamp ^ self asDateAndTime asTimeStamp! ----- Method: Time>>asWeek (in category 'squeak protocol') ----- asWeek ^ self asDateAndTime asWeek! ----- Method: Time>>asYear (in category 'squeak protocol') ----- asYear ^ self asDateAndTime asYear! ----- Method: Time>>duration (in category 'ansi protocol') ----- duration ^ Duration zero! ----- Method: Time>>hash (in category 'ansi protocol') ----- hash ^ self ticks hash! ----- Method: Time>>hhmm24 (in category 'printing') ----- hhmm24 "Return a string of the form 1123 (for 11:23 am), 2154 (for 9:54 pm), of exactly 4 digits" ^(String streamContents: [ :aStream | self print24: true showSeconds: false on: aStream ]) copyWithout: $: ! ----- Method: Time>>hour (in category 'ansi protocol') ----- hour ^ self hour24! ----- Method: Time>>hour12 (in category 'ansi protocol') ----- hour12 "Answer an <integer> between 1 and 12, inclusive, representing the hour of the day in the 12-hour clock of the local time of the receiver." ^ self hour24 - 1 \\ 12 + 1 ! ----- Method: Time>>hour24 (in category 'ansi protocol') ----- hour24 ^ self asDuration hours! ----- Method: Time>>hours (in category 'smalltalk-80') ----- hours ^ self hour! ----- Method: Time>>intervalString (in category 'smalltalk-80') ----- intervalString "Treat the time as a difference. Give it in hours and minutes with two digits of accuracy." | d | d := self asDuration. ^ String streamContents: [ :s | d hours > 0 ifTrue: [s print: d hours; nextPutAll: ' hours']. d minutes > 0 ifTrue: [s space; print: d minutes; nextPutAll: ' minutes']. d seconds > 0 ifTrue: [s space; print: d seconds; nextPutAll: ' seconds'] ] ! ----- Method: Time>>meridianAbbreviation (in category 'ansi protocol') ----- meridianAbbreviation ^ self hour < 12 ifTrue: ['AM'] ifFalse: ['PM'] ! ----- Method: Time>>minute (in category 'ansi protocol') ----- minute ^ self asDuration minutes! ----- Method: Time>>minutes (in category 'smalltalk-80') ----- minutes ^ self asDuration minutes! ----- Method: Time>>nanoSecond (in category 'squeak protocol') ----- nanoSecond ^ nanos! ----- Method: Time>>print24 (in category 'printing') ----- print24 "Return as 8-digit string 'hh:mm:ss', with leading zeros if needed" ^String streamContents: [ :aStream | self print24: true on: aStream ] ! ----- Method: Time>>print24:on: (in category 'printing') ----- print24: hr24 on: aStream "Format is 'hh:mm:ss' or 'h:mm:ss am' " self print24: hr24 showSeconds: true on: aStream! ----- Method: Time>>print24:showSeconds:on: (in category 'printing') ----- print24: hr24 showSeconds: showSeconds on: aStream "Format is 'hh:mm:ss' or 'h:mm:ss am' or, if showSeconds is false, 'hh:mm' or 'h:mm am'" | h m s | h := self hour. m := self minute. s := self second. hr24 ifTrue: [ h < 10 ifTrue: [ aStream nextPutAll: '0' ]. h printOn: aStream ] ifFalse: [ h > 12 ifTrue: [h - 12 printOn: aStream] ifFalse: [h < 1 ifTrue: [ 12 printOn: aStream ] ifFalse: [ h printOn: aStream ]]]. aStream nextPutAll: (m < 10 ifTrue: [':0'] ifFalse: [':']). m printOn: aStream. showSeconds ifTrue: [ aStream nextPutAll: (s < 10 ifTrue: [':0'] ifFalse: [':']). self nanoSecond = 0 ifTrue: [s asInteger printOn: aStream] ifFalse: [s asInteger * NanosInSecond + self nanoSecond asInteger printOn: aStream asFixedPoint: NanosInSecond]]. hr24 ifFalse: [ aStream nextPutAll: (h < 12 ifTrue: [' am'] ifFalse: [' pm']) ]. ! ----- Method: Time>>printMinutes (in category 'printing') ----- printMinutes "Return as string 'hh:mm pm' " ^String streamContents: [ :aStream | self print24: false showSeconds: false on: aStream ]! ----- Method: Time>>printOn: (in category 'printing') ----- printOn: aStream self print24: false showSeconds: (self seconds ~= 0 or: [self nanoSecond ~= 0]) on: aStream! ----- Method: Time>>second (in category 'ansi protocol') ----- second ^ self asDuration seconds ! ----- Method: Time>>seconds (in category 'smalltalk-80') ----- seconds ^ self second! ----- Method: Time>>seconds: (in category 'private') ----- seconds: secondCount "Private - only used by Time class." seconds := secondCount. nanos := 0 ! ----- Method: Time>>seconds:nanoSeconds: (in category 'private') ----- seconds: secondCount nanoSeconds: nanoCount "Private - only used by Time class." seconds := secondCount. nanos := nanoCount ! ----- Method: Time>>storeOn: (in category 'printing') ----- storeOn: aStream aStream print: self printString; nextPutAll: ' asTime' ! ----- Method: Time>>subtractTime: (in category 'smalltalk-80') ----- subtractTime: timeAmount "Answer a Time that is timeInterval before the receiver. timeInterval is an instance of Date or Time." ^ self class seconds: self asSeconds - timeAmount asSeconds! ----- Method: Time>>ticks (in category 'private') ----- ticks "Answer an Array: { seconds. nanoSeconds }" ^ Array with: 0 with: seconds with: nanos.! ----- Method: Time>>ticks: (in category 'private') ----- ticks: anArray "ticks is an Array: { days. seconds. nanoSeconds }" seconds := anArray at: 2. nanos := anArray at: 3 ! ----- Method: Time>>to: (in category 'squeak protocol') ----- to: anEnd "Answer a Timespan. anEnd must respond to #asDateAndTime" ^ self asDateAndTime to: anEnd! Timespan subclass: #Week instanceVariableNames: '' classVariableNames: 'StartDay' poolDictionaries: 'ChronologyConstants' category: 'Chronology-Core'! !Week commentStamp: 'cbr 7/28/2010 18:11' prior: 0! I represent a week. To find out what days of the week on which Squeak is fun, select the following expression, and print it: Week dayNames! ----- Method: Week class>>dayNames (in category 'squeak protocol') ----- dayNames ^ DayNames! ----- Method: Week class>>indexOfDay: (in category 'squeak protocol') ----- indexOfDay: aSymbol ^ DayNames indexOf: aSymbol! ----- Method: Week class>>nameOfDay: (in category 'smalltalk-80') ----- nameOfDay: anIndex ^ DayNames at: anIndex! ----- Method: Week class>>startDay (in category 'squeak protocol') ----- startDay ^ StartDay ifNil: [ StartDay := DayNames first ] ! ----- Method: Week class>>startDay: (in category 'squeak protocol') ----- startDay: aSymbol (DayNames includes: aSymbol) ifTrue: [ StartDay := aSymbol ] ifFalse: [ self error: aSymbol, ' is not a recognised day name' ]! ----- Method: Week class>>starting:duration: (in category 'squeak protocol') ----- starting: aDateAndTime duration: aDuration "Override - the duration is always one week. Week will start from the Week class>>startDay" | midnight delta adjusted | midnight := aDateAndTime asDateAndTime midnight. delta := ((midnight dayOfWeek + 7 - (DayNames indexOf: self startDay)) rem: 7) abs. adjusted := midnight - (Duration days: delta seconds: 0). ^ super starting: adjusted duration: (Duration weeks: 1)! ----- Method: Week>>asWeek (in category 'squeak protocol') ----- asWeek ^ self! ----- Method: Week>>index (in category 'squeak protocol') ----- index ^ self asMonth dayOfWeek + self dayOfMonth - 2 // 7 + 1 ! ----- Method: Week>>printOn: (in category 'squeak protocol') ----- printOn: aStream aStream nextPutAll: 'a Week starting: '. self start printOn: aStream ! Object subclass: #Stopwatch instanceVariableNames: 'timespans state' classVariableNames: '' poolDictionaries: '' category: 'Chronology-Core'! !Stopwatch commentStamp: '<historical>' prior: 0! A Stopwatch maintains a collection of timespans.! ----- Method: Stopwatch>>activate (in category 'squeak protocol') ----- activate self isSuspended ifTrue: [self timespans add: (Timespan starting: DateAndTime now duration: Duration zero). self state: #active] ! ----- Method: Stopwatch>>duration (in category 'squeak protocol') ----- duration | ts last | self isSuspended ifTrue: [ (ts := self timespans) isEmpty ifTrue: [ ts := { Timespan starting: DateAndTime now duration: Duration zero } ] ] ifFalse: [ last := self timespans last. ts := self timespans allButLast add: (last duration: (DateAndTime now - last start); yourself); yourself ]. ^ (ts collect: [ :t | t duration ]) sum! ----- Method: Stopwatch>>end (in category 'squeak protocol') ----- end ^ self timespans last next ! ----- Method: Stopwatch>>isActive (in category 'squeak protocol') ----- isActive ^ self state = #active ! ----- Method: Stopwatch>>isSuspended (in category 'squeak protocol') ----- isSuspended ^ self state = #suspended ! ----- Method: Stopwatch>>postCopy (in category 'copying') ----- postCopy super postCopy. timespans := timespans copy! ----- Method: Stopwatch>>printOn: (in category 'squeak protocol') ----- printOn: aStream super printOn: aStream. aStream nextPut: $(; nextPutAll: self state; nextPut: $:; print: self duration; nextPut: $). ! ----- Method: Stopwatch>>reActivate (in category 'squeak protocol') ----- reActivate self suspend; activate. ! ----- Method: Stopwatch>>reset (in category 'squeak protocol') ----- reset self suspend. timespans := nil ! ----- Method: Stopwatch>>start (in category 'squeak protocol') ----- start ^ self timespans first start ! ----- Method: Stopwatch>>state (in category 'squeak protocol') ----- state ^ state ifNil: [ state := #suspended ]! ----- Method: Stopwatch>>state: (in category 'squeak protocol') ----- state: aSymbol state := aSymbol! ----- Method: Stopwatch>>suspend (in category 'squeak protocol') ----- suspend | ts | self isActive ifTrue: [ ts := self timespans last. ts duration: (DateAndTime now - ts start). self state: #suspended]! ----- Method: Stopwatch>>timespans (in category 'squeak protocol') ----- timespans ^ timespans ifNil: [ timespans := OrderedCollection new ]! Object subclass: #TimeZone instanceVariableNames: 'offset abbreviation name' classVariableNames: '' poolDictionaries: 'ChronologyConstants' category: 'Chronology-Core'! !TimeZone commentStamp: 'dtl 7/11/2009 15:03' prior: 0! TimeZone is a simple class to colect the information identifying a UTC time zone. offset - Duration - the time zone's offset from UTC abbreviation - String - the abbreviated name for the time zone. name - String - the name of the time zone. TimeZone class >> #timeZones returns an array of the known time zones TimeZone class >> #default returns the default time zone (Grenwich Mean Time) ! ----- Method: TimeZone class>>default (in category 'accessing') ----- default "Answer the default time zone - GMT" ^ self timeZones detect: [ :tz | tz offset = Duration zero ]! ----- Method: TimeZone class>>offset:name:abbreviation: (in category 'instance creation') ----- offset: aDuration name: aName abbreviation: anAbbreviation ^ self new offset: aDuration; name: aName; abbreviation: anAbbreviation; yourself ! ----- Method: TimeZone class>>timeZones (in category 'accessing') ----- timeZones ^{ self offset: 0 hours name: 'Universal Time' abbreviation: 'UTC'. self offset: 0 hours name: 'Greenwich Mean Time' abbreviation: 'GMT'. self offset: 1 hours name: 'British Summer Time' abbreviation: 'BST'. self offset: 2 hours name: 'South African Standard Time' abbreviation: 'SAST'. self offset: -8 hours name: 'Pacific Standard Time' abbreviation: 'PST'. self offset: -7 hours name: 'Pacific Daylight Time' abbreviation: 'PDT'. self offset: -7 hours name: 'Mountain Standard Time' abbreviation: 'MST'. self offset: -6 hours name: 'Mountain Daylight Time' abbreviation: 'MDT'. self offset: -6 hours name: 'Central Standard Time' abbreviation: 'CST'. self offset: -5 hours name: 'Central Daylight Time' abbreviation: 'CDT'. self offset: -5 hours name: 'Eastern Standard Time' abbreviation: 'EST'. self offset: -4 hours name: 'Eastern Daylight Time' abbreviation: 'EDT'. }! ----- Method: TimeZone>>abbreviation (in category 'accessing') ----- abbreviation ^ abbreviation! ----- Method: TimeZone>>abbreviation: (in category 'accessing') ----- abbreviation: aString abbreviation := aString! ----- Method: TimeZone>>name (in category 'accessing') ----- name ^ name! ----- Method: TimeZone>>name: (in category 'accessing') ----- name: aString name := aString! ----- Method: TimeZone>>offset (in category 'accessing') ----- offset ^ offset ! ----- Method: TimeZone>>offset: (in category 'accessing') ----- offset: aDuration offset := aDuration ! ----- Method: TimeZone>>printOn: (in category 'private') ----- printOn: aStream super printOn: aStream. aStream nextPut: $(; nextPutAll: self abbreviation; nextPut: $)!

1 0

The Trunk: Chronology-Core-dtl.1.mcz
by commits＠source.squeak.org 27 Feb '16

27 Feb '16

1 0

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