suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

change contract on second' of date' to allow only 1 leap second

Browse Source
This commit is contained in:
Matthew Flatt 2012-06-23 06:30:07 +08:00
parent 22e067c7a9
commit 4323096a46
4 changed files with 11 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
collects/scribblings/reference/time.scrbl
View File

@ -38,7 +38,7 @@ The resulting @racket[date*] reflects the time according to the local
time zone if @racket[local-time?] is @racket[#t], otherwise it time zone if @racket[local-time?] is @racket[#t], otherwise it
reflects a date in UTC.} reflects a date in UTC.}
@defstruct[date ([second (integer-in 0 61)] @defstruct[date ([second (integer-in 0 60)]
[minute (integer-in 0 59)] [minute (integer-in 0 59)]
[hour (integer-in 0 23)] [hour (integer-in 0 23)]
[day (integer-in 1 31)] [day (integer-in 1 31)]
@ -50,10 +50,9 @@ reflects a date in UTC.}
[time-zone-offset exact-integer?]) [time-zone-offset exact-integer?])
#:inspector #f]{ #:inspector #f]{
Represents a date. For the @racket[second] field, values of Represents a date. The @racket[second] field reaches @racket[60] only
@racket[60] and @racket[61] are for unusual, but possible for for leap seconds. The @racket[year-day] field reaches @racket[365]
leap-seconds. The @racket[year-day] field reaches @racket[365] only in only in leap years.
leap years.
The @racket[dst?] field is @racket[#t] if the date reflects a The @racket[dst?] field is @racket[#t] if the date reflects a
daylight-saving adjustment. The @racket[time-zone-offset] field daylight-saving adjustment. The @racket[time-zone-offset] field

3
collects/tests/racket/date.rktl
View File

@ -5,6 +5,9 @@
(require mzlib/date) (require mzlib/date)
(test #t date? (date* 0 0 0 1 1 -3000 0 0 #f -1000 0 "AST"))
(test #t date? (date* 60 59 23 31 12 3000 6 365 #t 1000 999999999 "ZST"))
(define (test-find s m h d mo y) (define (test-find s m h d mo y)
(for ([local-time? (in-list '(#f #t))]) (for ([local-time? (in-list '(#f #t))])
(let* ([secs (find-seconds s m h d mo y local-time?)] (let* ([secs (find-seconds s m h d mo y local-time?)]

2
doc/release-notes/racket/HISTORY.txt
View File

@ -1,4 +1,6 @@
Version 5.3.0.11 Version 5.3.0.11
Changed contract on date second field to disallow 61, since
leap seconds never appear more than once per minute
racket/base: added impersonate-prompt-tag & chaperone-prompt-tag racket/base: added impersonate-prompt-tag & chaperone-prompt-tag
racket/control: added call/prompt, call/comp, abort/cc and racket/control: added call/prompt, call/comp, abort/cc and
allow #:tag argument for % and f-control allow #:tag argument for % and f-control

4
src/racket/src/struct.c
View File

@ -5032,8 +5032,8 @@ static Scheme_Object *check_date_fields(int argc, Scheme_Object **argv)
Scheme_Object *a, *args[10]; Scheme_Object *a, *args[10];
a = argv[0]; a = argv[0];
if (!SCHEME_INTP(a) || (SCHEME_INT_VAL(a) < 0) || (SCHEME_INT_VAL(a) > 61)) if (!SCHEME_INTP(a) || (SCHEME_INT_VAL(a) < 0) || (SCHEME_INT_VAL(a) > 60))
scheme_wrong_field_contract(argv[10], "(integer-in 0 61)", a); scheme_wrong_field_contract(argv[10], "(integer-in 0 60)", a);
a = argv[1]; a = argv[1];
if (!SCHEME_INTP(a) || (SCHEME_INT_VAL(a) < 0) || (SCHEME_INT_VAL(a) > 59)) if (!SCHEME_INTP(a) || (SCHEME_INT_VAL(a) < 0) || (SCHEME_INT_VAL(a) > 59))
scheme_wrong_field_contract(argv[10], "(integer-in 0 59)", a); scheme_wrong_field_contract(argv[10], "(integer-in 0 59)", a);