Moved srfi-19.scm to scsh/.
This commit is contained in:
mainzelm
parent
2f6d3753b1
commit
68072b171f
|
|
@ -533,93 +533,6 @@
|
|||
char-set:empty char-set:full
|
||||
|
||||
))
|
||||
(define-interface srfi-19-interface
|
||||
(export;; Constants
|
||||
time-duration
|
||||
time-monotonic
|
||||
time-process
|
||||
time-tai
|
||||
time-thread
|
||||
time-utc
|
||||
;; Current time and clock resolution
|
||||
current-date
|
||||
current-julian-day
|
||||
current-modified-julian-day
|
||||
current-time
|
||||
time-resolution
|
||||
;; Time object and accessors
|
||||
make-time
|
||||
time?
|
||||
time-type
|
||||
time-nanosecond
|
||||
time-second
|
||||
set-time-type!
|
||||
set-time-nanosecond!
|
||||
set-time-second!
|
||||
copy-time
|
||||
;; Time comparison procedures
|
||||
time<=?
|
||||
time<?
|
||||
time=?
|
||||
time>=?
|
||||
time>?
|
||||
;; Time arithmetic procedures
|
||||
time-difference
|
||||
time-difference!
|
||||
add-duration
|
||||
add-duration!
|
||||
subtract-duration
|
||||
subtract-duration!
|
||||
;; Date object and accessors
|
||||
make-date
|
||||
date?
|
||||
date-nanosecond
|
||||
date-second
|
||||
date-minute
|
||||
date-hour
|
||||
date-day
|
||||
date-month
|
||||
date-year
|
||||
date-zone-offset
|
||||
date-year-day
|
||||
date-week-day
|
||||
date-week-number
|
||||
;; Time/Date/Julian Day/Modified Julian Day converters
|
||||
date->julian-day
|
||||
date->modified-julian-day
|
||||
date->time-monotonic
|
||||
date->time-tai
|
||||
date->time-utc
|
||||
julian-day->date
|
||||
julian-day->time-monotonic
|
||||
julian-day->time-tai
|
||||
julian-day->time-utc
|
||||
modified-julian-day->date
|
||||
modified-julian-day->time-monotonic
|
||||
modified-julian-day->time-tai
|
||||
modified-julian-day->time-utc
|
||||
time-monotonic->date
|
||||
time-monotonic->time-tai
|
||||
time-monotonic->time-tai!
|
||||
time-monotonic->time-utc
|
||||
time-monotonic->time-utc!
|
||||
time-tai->date
|
||||
time-tai->julian-day
|
||||
time-tai->modified-julian-day
|
||||
time-tai->time-monotonic
|
||||
time-tai->time-monotonic!
|
||||
time-tai->time-utc
|
||||
time-tai->time-utc!
|
||||
time-utc->date
|
||||
time-utc->julian-day
|
||||
time-utc->modified-julian-day
|
||||
time-utc->time-monotonic
|
||||
time-utc->time-monotonic!
|
||||
time-utc->time-tai
|
||||
time-utc->time-tai!
|
||||
;; Date to string/string to date converters.
|
||||
date->string
|
||||
string->date))
|
||||
|
||||
(define-interface srfi-27-interface
|
||||
(export random-integer
|
||||
|
|
|
|||
|
|
@ -806,14 +806,7 @@
|
|||
|
||||
; SRFI-18 - no implementation given
|
||||
|
||||
(define-structure srfi-19 srfi-19-interface
|
||||
(open scheme-with-scsh
|
||||
(subset srfi-1 (reverse!))
|
||||
srfi-6
|
||||
srfi-8
|
||||
signals
|
||||
srfi-9)
|
||||
(files (srfi srfi-19)))
|
||||
; SRFI-19 - needs access to time primitves => moved to scsh
|
||||
|
||||
; SRFI-20 - withdrawn
|
||||
; SRFI-21 - no implementation given
|
||||
|
|
|
|||
|
|
@ -1186,4 +1186,92 @@
|
|||
number->md5-digest
|
||||
|
||||
md5-digest-for-string
|
||||
md5-digest-for-port))
|
||||
md5-digest-for-port))
|
||||
|
||||
(define-interface srfi-19-interface
|
||||
(export;; Constants
|
||||
time-duration
|
||||
time-monotonic
|
||||
time-process
|
||||
time-tai
|
||||
time-thread
|
||||
time-utc
|
||||
;; Current time and clock resolution
|
||||
current-date
|
||||
current-julian-day
|
||||
current-modified-julian-day
|
||||
current-time
|
||||
time-resolution
|
||||
;; Time object and accessors
|
||||
make-time
|
||||
time?
|
||||
time-type
|
||||
time-nanosecond
|
||||
time-second
|
||||
set-time-type!
|
||||
set-time-nanosecond!
|
||||
set-time-second!
|
||||
copy-time
|
||||
;; Time comparison procedures
|
||||
time<=?
|
||||
time<?
|
||||
time=?
|
||||
time>=?
|
||||
time>?
|
||||
;; Time arithmetic procedures
|
||||
time-difference
|
||||
time-difference!
|
||||
add-duration
|
||||
add-duration!
|
||||
subtract-duration
|
||||
subtract-duration!
|
||||
;; Date object and accessors
|
||||
make-date
|
||||
date?
|
||||
date-nanosecond
|
||||
date-second
|
||||
date-minute
|
||||
date-hour
|
||||
date-day
|
||||
date-month
|
||||
date-year
|
||||
date-zone-offset
|
||||
date-year-day
|
||||
date-week-day
|
||||
date-week-number
|
||||
;; Time/Date/Julian Day/Modified Julian Day converters
|
||||
date->julian-day
|
||||
date->modified-julian-day
|
||||
date->time-monotonic
|
||||
date->time-tai
|
||||
date->time-utc
|
||||
julian-day->date
|
||||
julian-day->time-monotonic
|
||||
julian-day->time-tai
|
||||
julian-day->time-utc
|
||||
modified-julian-day->date
|
||||
modified-julian-day->time-monotonic
|
||||
modified-julian-day->time-tai
|
||||
modified-julian-day->time-utc
|
||||
time-monotonic->date
|
||||
time-monotonic->time-tai
|
||||
time-monotonic->time-tai!
|
||||
time-monotonic->time-utc
|
||||
time-monotonic->time-utc!
|
||||
time-tai->date
|
||||
time-tai->julian-day
|
||||
time-tai->modified-julian-day
|
||||
time-tai->time-monotonic
|
||||
time-tai->time-monotonic!
|
||||
time-tai->time-utc
|
||||
time-tai->time-utc!
|
||||
time-utc->date
|
||||
time-utc->julian-day
|
||||
time-utc->modified-julian-day
|
||||
time-utc->time-monotonic
|
||||
time-utc->time-monotonic!
|
||||
time-utc->time-tai
|
||||
time-utc->time-tai!
|
||||
;; Date to string/string to date converters.
|
||||
date->string
|
||||
string->date))
|
||||
|
|
|
|||
|
|
@ -587,4 +587,13 @@
|
|||
(subset srfi-13 (string-fold-right))
|
||||
signals
|
||||
external-calls)
|
||||
(files md5))
|
||||
(files md5))
|
||||
|
||||
(define-structure srfi-19 srfi-19-interface
|
||||
(open scheme-with-scsh
|
||||
(subset srfi-1 (reverse!))
|
||||
srfi-6
|
||||
srfi-8
|
||||
signals
|
||||
srfi-9)
|
||||
(files srfi-19))
|
||||
|
|
|
|||
Loading…
Reference in New Issue