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

Adding date->seconds

Browse Source 
original commit: 1b6b721aee3bd26c9fcb2cf985815f584e2b20a0
This commit is contained in:
Jay McCarthy 2010-05-24 14:23:07 -06:00
parent 4d0091213c
commit 12a888f33d
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
collects/mzlib/date.rkt
View File

@ -7,6 +7,7 @@
(provide/contract (provide/contract
[current-date (-> date?)] [current-date (-> date?)]
[date->seconds (date? . -> . exact-integer?)]
[date->string ((date?) (boolean?) . ->* . string?)] [date->string ((date?) (boolean?) . ->* . string?)]
[date-display-format (parameter/c (symbols 'american 'chinese 'german 'indian 'irish 'julian 'iso-8601 'rfc2822))] [date-display-format (parameter/c (symbols 'american 'chinese 'german 'indian 'irish 'julian 'iso-8601 'rfc2822))]
[find-seconds ((integer-in 0 61) [find-seconds ((integer-in 0 61)
@ -251,6 +252,15 @@
(lambda () (lambda ()
(force d)))) (force d))))
(define (date->seconds date)
(find-seconds
(date-second date)
(date-minute date)
(date-hour date)
(date-day date)
(date-month date)
(date-year date)))
(define (find-seconds sec min hour day month year) (define (find-seconds sec min hour day month year)
(define (signal-error msg) (define (signal-error msg)
(error 'find-secs (string-append (error 'find-secs (string-append