Changeset 38112 in project


Ignore:
Timestamp:
01/15/20 01:50:53 (8 days ago)
Author:
Kon Lovett
Message:

use reexport, simplify genint, use variants (already in deps ;-)

Location:
release/5/srfi-19/trunk
Files:
1 deleted
8 edited

Legend:

Unmodified
Added
Removed
  • release/5/srfi-19/trunk/srfi-19-core.scm

    r38082 r38112  
    11;;;; srfi-19.scm
    22
    3 (module srfi-19-core
    4 
    5 (;export
    6   ;; SRFI-19
    7   time-tai
    8   time-utc
    9   time-monotonic
    10   time-thread
    11   time-process
    12   time-duration
    13   time-gc
    14   current-date
    15   current-julian-day
    16   current-modified-julian-day
    17   current-time
    18   time-resolution
    19   make-time
    20   time?
    21   time-type
    22   time-nanosecond
    23   time-second
    24   set-time-type!
    25   set-time-nanosecond!
    26   set-time-second!
    27   copy-time
    28   time<=?
    29   time<?
    30   time=?
    31   time>=?
    32   time>?
    33   time-difference
    34   time-difference!
    35   add-duration
    36   add-duration!
    37   subtract-duration
    38   subtract-duration!
    39   make-date
    40   date?
    41   date-nanosecond
    42   date-second
    43   date-minute
    44   date-hour
    45   date-day
    46   date-month
    47   date-year
    48   date-zone-offset
    49   leap-year? ; Actually part of SRFI 19 but not in original document
    50   date-year-day
    51   date-week-day
    52   date-week-number
    53   date->julian-day
    54   date->modified-julian-day
    55   date->time-monotonic
    56   date->time-tai
    57   date->time-utc
    58   julian-day->date
    59   julian-day->time-monotonic
    60   julian-day->time-tai
    61   julian-day->time-utc
    62   modified-julian-day->date
    63   modified-julian-day->time-monotonic
    64   modified-julian-day->time-tai
    65   modified-julian-day->time-utc
    66   time-monotonic->date
    67   time-monotonic->julian-day
    68   time-monotonic->modified-julian-day
    69   time-monotonic->time-tai
    70   time-monotonic->time-tai!
    71   time-monotonic->time-utc
    72   time-monotonic->time-utc!
    73   time-tai->date
    74   time-tai->julian-day
    75   time-tai->modified-julian-day
    76   time-tai->time-monotonic
    77   time-tai->time-monotonic!
    78   time-tai->time-utc
    79   time-tai->time-utc!
    80   time-utc->date
    81   time-utc->julian-day
    82   time-utc->modified-julian-day
    83   time-utc->time-monotonic
    84   time-utc->time-monotonic!
    85   time-utc->time-tai
    86   time-utc->time-tai!
    87   ;; SRFI-19 extensions
    88   one-second-duration
    89   one-nanosecond-duration
    90   zero-time
    91   time-type?
    92   make-duration
    93   divide-duration
    94   divide-duration!
    95   multiply-duration
    96   multiply-duration!
    97   time->srfi-18-time
    98   srfi-18-time->time
    99   time-max
    100   time-min
    101   time-negative?
    102   time-positive?
    103   time-zero?
    104   time-abs
    105   time-abs!
    106   time-negate
    107   time-negate!
    108   seconds->time/type
    109   seconds->date/type
    110   time->nanoseconds
    111   nanoseconds->time
    112   nanoseconds->seconds
    113   read-leap-second-table
    114   time->milliseconds
    115   time->seconds
    116   milliseconds->time
    117   milliseconds->seconds
    118   time->date
    119   default-date-clock-type
    120   date-zone-name
    121   date-dst?
    122   copy-date
    123   date->time
    124   date-difference
    125   date-add-duration
    126   date-subtract-duration
    127   date=?
    128   date>?
    129   date<?
    130   date>=?
    131   date<=?
    132   date-max
    133   date-min
    134   time->julian-day
    135   time->modified-julian-day
    136   date-compare
    137   time-compare
    138   ;; SRFI-19 extensions
    139   timezone-name?
    140   timezone-info?
    141   local-timezone-locale
    142   utc-timezone-locale
    143   timezone-locale-name
    144   timezone-locale-offset
    145   timezone-locale-dst?)
     3(module srfi-19-core ()
    1464
    1475(import scheme)
     
    1519(import srfi-19-time)
    15210(import srfi-19-date)
     11(reexport srfi-19-timezone)
     12(reexport srfi-19-support)  ;Argh
     13(reexport srfi-19-time)
     14(reexport srfi-19-date)
    15315
    15416) ;module srfi-19-core
  • release/5/srfi-19/trunk/srfi-19-date.scm

    r38082 r38112  
    3232;; MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE.
    3333
    34 (include "C_double_to_number.incl")
    35 
    3634(module srfi-19-date
    3735
    3836(;export
    39   ;SRFI-19
     37  ;;SRFI-19
    4038  current-date
    4139  current-julian-day
     
    7876  time-utc->julian-day
    7977  time-utc->modified-julian-day
    80   ;Extensions
     78  ;;Extensions
    8179  date-record-printer-format
    8280  seconds->date
     
    103101  time->julian-day
    104102  time->modified-julian-day
    105   date-compare
    106   ;DEPRECATED
    107   seconds->date/type)
     103  date-compare)
    108104
    109105(import scheme)
     
    651647    (list-index (cut eq? b <>) +date-key-lexographic-order+)) )
    652648
    653 ;DEPRECATED
    654 
    655 (: seconds->date/type deprecated)
    656 (define seconds->date/type seconds->date)
    657 
    658649) ;module srfi-19-date
  • release/5/srfi-19/trunk/srfi-19-io.scm

    r38082 r38112  
    2828;; MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE.
    2929
    30 #>
    31 #if defined(__GNUC__) || defined(__INTEL_COMPILER) || defined(__cplusplus)
    32 # define C_inline                  inline static
    33 #else
    34 # define C_inline                  static
    35 #endif
    36 
    37 C_word C_double_to_number(C_word n)
    38 {
    39   double m, f = C_flonum_magnitude(n);
    40 
    41   if(f <= (double)C_MOST_POSITIVE_FIXNUM
    42      && f >= (double)C_MOST_NEGATIVE_FIXNUM && C_modf(f, &m) == 0.0)
    43     return C_fix(f);
    44   else return n;
    45 }
    46 <#
    47 
    4830(module srfi-19-io
    4931
    5032(;export
    51   ;; SRFI-19
     33  ;;SRFI-19
    5234  date->string
    5335  string->date
    54   ;; SRFI-19 extensions
     36  ;;SRFI-19 extensions
    5537  format-date
    5638  scan-date)
  • release/5/srfi-19/trunk/srfi-19-period.scm

    r38082 r38112  
    88;; - Use a half-closed interval - [begin end)? Currently [B E]!
    99
    10 (include "C_double_to_number.incl")
    1110(include "chicken-primitive-object-inlines")
    1211
     
    1716  check-time-period
    1817  error-time-period
    19   ;time-period-null?
     18  #;time-period-null?
    2019  time-period-compare
    2120  time-period=?
     
    2928  time-period-last
    3029  time-period-length
    31   ;make-null-time-period
     30  #;make-null-time-period
    3231  make-time-period
    3332  copy-time-period
     
    4948(import (only (chicken format) format))
    5049(import (only (chicken read-syntax) define-reader-ctor))
     50(import record-variants)
    5151(import type-checks)
    5252(import type-errors)
    53 (import srfi-19-time)
    54 (import srfi-19-date)
    55 (import srfi-19-support)
     53(import srfi-19-core)
    5654
    5755;;;
    5856
    5957(include "srfi-19-common")
    60 
    61 (define (->boolean obj)
    62   (and obj #t) )
    6358
    6459;;;
     
    9287;;; Time Period
    9388
    94 #; ;dependency
    95 (define-record-type-variant time-period (unchecked inline unsafe)
     89;#| ;dependency
     90(define-constant time-period 'time-period)
     91(define-record-type-variant time-period (unchecked #;inline unsafe)
    9692  (%make-time-period beg end)
    9793  %time-period?
    9894  (beg %time-period-begin)
    9995  (end %time-period-end) )
    100 
     96;|#
     97#; ;no dependency
    10198(define-record-type time-period
    10299  (%make-time-period beg end)
  • release/5/srfi-19/trunk/srfi-19-support.scm

    r38082 r38112  
    3636;;
    3737;; - Some errors have incorrect procedure labels (not the top-level loc)
     38;;
     39;; - The Private API but must be visible because of exported syntax
    3840
    3941;; Bugs
     
    5759;; conversion procedure.
    5860
    59 (include "C_double_to_number.incl")
    60 
    6161(module srfi-19-support
    6262
    6363(;export
    64   ;
    65   time?
    66   time-type?
    67   time-seconds?
    68   time-nanoseconds?
    69   clock-type?
    70   date?
    71   date-nanoseconds?
    72   date-seconds?
    73   date-minutes?
    74   date-hours?
    75   date-day?
    76   date-month?
    77   date-year?
    78   week-day?
    79   julian-day?
     64  ;;Public
     65  time? check-time error-time
     66  time-type? check-time-type error-time-type
     67  time-seconds? check-time-seconds error-time-seconds
     68  time-nanoseconds? check-time-nanoseconds error-time-nanoseconds
     69  clock-type? check-clock-type error-clock-type
     70  date? check-date error-date
     71  date-nanoseconds? check-date-nanoseconds error-date-nanoseconds
     72  date-seconds? check-date-seconds error-date-seconds
     73  date-minutes? check-date-minutes error-date-minutes
     74  date-hours? check-date-hours error-date-hours
     75  date-day? check-date-day error-date-day
     76  date-month? check-date-month error-date-month
     77  date-year? check-date-year error-date-year
     78  week-day? check-week-day error-week-day
     79  julian-day? check-julian-day error-julian-day
    8080  time-record-printer-format
    8181  date-record-printer-format
    82   ;
    83   check-time
    84   check-time-type
    85   check-time-seconds
    86   check-time-nanoseconds
    8782  check-raw-seconds
    8883  check-raw-milliseconds
     
    9186  check-duration
    9287  check-time-elements
    93   #;check-times
     88  check-times
    9489  check-time-binop
    9590  check-time-compare
    9691  check-time-aritmetic
    97   check-clock-type
    98   check-date
    99   check-date-nanoseconds
    100   check-date-seconds
    101   check-date-minutes
    102   check-date-hours
    103   check-date-day
    104   check-date-month
    105   check-date-year
    10692  check-date-elements
    10793  check-date-compatible-timezone-offsets
    108   check-week-day
    109   check-julian-day
    110   ;
    111   error-time
    112   error-time-type
    113   error-time-seconds
    114   error-time-nanoseconds
    11594  error-incompatible-time-types
    116   error-clock-type
    11795  error-convert
    118   error-date
    119   error-date-nanoseconds
    120   error-date-seconds
    121   error-date-minutes
    122   error-date-hours
    123   error-date-day
    124   error-date-month
    125   error-date-year
    12696  error-date-compatible-timezone
    127   error-week-day
    128   error-julian-day
    129   ;
     97  ;;Private
    13098  tm:read-tai-utc-data
    13199  tm:calc-second-before-leap-second-table
     
    302270    ((_ ?x)
    303271      (let ((x ?x))
    304         #; ;DEBUG
    305         (when (or (< x -1073741824) (< 1073741823 x))
    306           (print "*** > 31 bits: " x " flonum?: " (flonum? x)))
    307272        (if (fixnum? x)
    308273          x
    309           (let ((x (floor x)))
    310             (if (fixnum? x)
    311               x
    312               (if (inexact? x)
    313                 (##core#inline "C_double_to_number" x)
    314                 x ) ) ) ) ) ) ) )
     274          (inexact->exact (floor x)) ) ) ) ) )
    315275
    316276;;; Timing Routines
     
    523483;; ...    - argument checking then tm:...
    524484
    525 #; ;dependency
    526 (define-record-type-variant srfi-19-time (unchecked inline unsafe)
     485;#| ;dependency
     486(define-constant srfi-19-time 'srfi-19-time)
     487(define-record-type-variant srfi-19-time (unchecked #;inline unsafe)
    527488  (%make-time tt ns sec)
    528489  %time?
     
    530491  (ns   %time-nanosecond  %time-nanosecond-set!)
    531492  (sec  %time-second      %time-second-set!) )
     493;|#
     494#; ;no (define-record-type srfi-19-time
    532495(define-record-type srfi-19-time
    533496  (%make-time tt ns sec)
     
    838801  (check-time-seconds loc obj3) )
    839802
    840 #; ;UNUSED
    841 (define (check-times loc objs) (for-each (cut check-time loc <>) objs))
     803(define (check-times loc objs)
     804  (for-each (cut check-time loc <>) objs) )
    842805
    843806(define (check-time-binop loc obj1 obj2)
     
    10941057;;
    10951058
    1096 #; ;dependency
    1097 (define-record-type-variant srfi-19-date (unchecked inline unsafe)
     1059;#| ;dependency
     1060(define-constant srfi-19-date 'srfi-19-date)
     1061(define-record-type-variant srfi-19-date (unchecked #;inline unsafe)
    10981062  (%make-date ns sec min hr dy mn yr tzo tzn dstf wdy ydy jdy)
    10991063  %date?
     
    11121076  (ydy    %date-yday        %date-yday-set!)
    11131077  (jdy    %date-jday        %date-jday-set!) )
     1078;|#
     1079#; ;no dependency
    11141080(define-record-type srfi-19-date
    11151081  (%make-date ns sec min hr dy mn yr tzo tzn dstf wdy ydy jdy)
     
    14131379;but won't fit since needs srfi-19-support (%date-*)
    14141380
    1415 #; ;dependency
    1416 (define-record-type-variant date-timezone-info (unchecked inline unsafe)
     1381;#\ ;dependency
     1382(define-constant date-timezone-info 'date-timezone-info)
     1383(define-record-type-variant date-timezone-info (unchecked #;inline unsafe)
    14171384  (%make-date-timezone-info n o d)
    14181385  %date-timezone-info?
     
    14201387  (o %date-timezone-info-offset)
    14211388  (d %date-timezone-info-dst?) )
     1389;|#
     1390#; ;no dependency
    14221391(define-record-type date-timezone-info
    14231392  (%make-date-timezone-info n o d)
     
    15661535
    15671536(define (tm:time-utc->date tim tzi)
    1568   (let ((tzo tzi) ;assume an offset
    1569         (tzn #f)
    1570         (dstf #f))
    1571       (cond
    1572         ((%date-timezone-info? tzi)
    1573           (set! dstf (%date-timezone-info-dst? tzi))
    1574           (set! tzn (%date-timezone-info-name tzi))
    1575           (set! tzo (%date-timezone-info-offset tzi)) )
    1576         ((timezone-components? tzi)
    1577           (set! dstf (timezone-locale-dst? tzi))
    1578           (set! tzn (timezone-locale-name tzi))
    1579           (set! tzo (timezone-locale-offset tzi)) ) )
    1580     (let-values (((secs dy mn yr)
    1581                   (tm:decode-julian-day-number
    1582                     (tm:seconds->julian-day-number (%time-second tim) tzo))) )
    1583       (let ((hr (fx/ secs SEC/HR))
    1584             (rem (fxmod secs SEC/HR)))
    1585         (let ((min (fx/ rem SEC/MIN))
    1586               (sec (fxmod rem SEC/MIN)))
    1587           (tm:make-date
    1588             (%time-nanosecond tim)
    1589             sec min hr
    1590             dy mn yr
    1591             tzo tzn dstf
    1592             #f #f #f) ) ) ) ) )
     1537  (let (
     1538    (tzo tzi) ;assume an offset
     1539    (tzn #f)
     1540    (dstf #f) )
     1541  (cond
     1542    ((%date-timezone-info? tzi)
     1543      (set! dstf (%date-timezone-info-dst? tzi))
     1544      (set! tzn (%date-timezone-info-name tzi))
     1545      (set! tzo (%date-timezone-info-offset tzi)) )
     1546    ((timezone-components? tzi)
     1547      (set! dstf (timezone-locale-dst? tzi))
     1548      (set! tzn (timezone-locale-name tzi))
     1549      (set! tzo (timezone-locale-offset tzi)) ) )
     1550  (let-values (
     1551    ((secs dy mn yr)
     1552      (tm:decode-julian-day-number
     1553        (tm:seconds->julian-day-number (%time-second tim) tzo))) )
     1554    (let* (
     1555      (hr (fx/ secs SEC/HR))
     1556      (rem (fxmod secs SEC/HR))
     1557      (min (fx/ rem SEC/MIN))
     1558      (sec (fxmod rem SEC/MIN)) )
     1559      (tm:make-date
     1560        (%time-nanosecond tim)
     1561        sec min hr
     1562        dy mn yr
     1563        tzo tzn dstf
     1564        #f #f #f) ) ) ) )
    15931565
    15941566(define (tm:time-tai->date tim tzi)
     
    16131585
    16141586(define (tm:encode-julian-day-number dy mn yr)
    1615   (let* ((a (fx/ (fx- 14 mn) MN/YR))
    1616          (b (fx- (fx+ yr JDYR) a))
    1617          (y (if (fx< yr 0) (fx+ b 1) b)) ;BCE?
    1618          (m (fx- (fx+ mn (fx* a MN/YR)) 3)))
     1587  (let* (
     1588    (a (fx/ (fx- 14 mn) MN/YR))
     1589    (b (fx- (fx+ yr JDYR) a))
     1590    (y (if (fx< yr 0) (fx+ b 1) b)) ;BCE?
     1591    (m (fx- (fx+ mn (fx* a MN/YR)) 3)))
    16191592    (+ dy
    16201593      (fx/ (fx+ (fx* 153 m) 2) 5)
     
    16261599
    16271600(define (tm:date->time-utc dat)
    1628   (let ((ns (%date-nanosecond dat))
    1629         (sec (%date-second dat))
    1630         (min (%date-minute dat))
    1631         (hr (%date-hour dat))
    1632         (dy (%date-day dat))
    1633         (mn (%date-month dat))
    1634         (yr (%date-year dat))
    1635         (tzo (%date-zone-offset dat)) )
    1636     (let ((jdys (- (tm:encode-julian-day-number dy mn yr) TAI-EPOCH-IN-JD))
    1637           (secs
     1601  (let (
     1602    (ns (%date-nanosecond dat))
     1603    (sec (%date-second dat))
     1604    (min (%date-minute dat))
     1605    (hr (%date-hour dat))
     1606    (dy (%date-day dat))
     1607    (mn (%date-month dat))
     1608    (yr (%date-year dat))
     1609    (tzo (%date-zone-offset dat)) )
     1610    (let (
     1611      (jdys
     1612        (- (tm:encode-julian-day-number dy mn yr) TAI-EPOCH-IN-JD))
     1613      (secs
     1614        (fx+
     1615          (fx+
     1616            (fx* hr SEC/HR)
    16381617            (fx+
    1639               (fx+
    1640                 (fx* hr SEC/HR)
    1641                 (fx+
    1642                   (fx* min SEC/MIN)
    1643                   sec))
    1644               (fxneg tzo))) )
     1618              (fx* min SEC/MIN)
     1619              sec))
     1620          (fxneg tzo))) )
    16451621      (tm:make-time 'utc ns (+ (* (- jdys ONE-HALF) SEC/DY) secs)) ) ) )
    16461622
    16471623(define (tm:date->time-tai dat)
    1648   (let* ((tm-utc (tm:date->time-utc dat))
    1649          (tm-tai (tm:time-utc->time-tai tm-utc tm-utc)))
     1624  (let* (
     1625    (tm-utc (tm:date->time-utc dat))
     1626    (tm-tai (tm:time-utc->time-tai tm-utc tm-utc)))
    16501627    (if (not (fx= SEC/MIN (%date-second dat)))
    16511628      tm-tai
     
    16701647    n
    16711648    (let* (
    1672         (current-year     (%date-year (tm:current-date tzi)) )
    1673         (current-century  (fx* (fx/ current-year 100) 100) )
    1674         (X                (fx- (fx+ current-century n) current-year) ) )
     1649      (current-year     (%date-year (tm:current-date tzi)) )
     1650      (current-century  (fx* (fx/ current-year 100) 100) )
     1651      (X                (fx- (fx+ current-century n) current-year) ) )
    16751652      (if (fx<= X 50)
    16761653        (fx+ current-century n)
     
    17901767
    17911768(define (tm:julian-day ns sec min hr dy mn yr tzo)
    1792   (let ((jdn
    1793           (tm:encode-julian-day-number dy mn yr))
    1794         (timsecs
    1795           (+
    1796             (fx+
    1797               (fx+
    1798                 (fx* hr SEC/HR)
    1799                 (fx+ (fx* min SEC/MIN) sec))
    1800               (fxneg tzo))
    1801             (/ ns NS/S))) )
     1769  (let (
     1770    (jdn
     1771      (tm:encode-julian-day-number dy mn yr))
     1772    (timsecs
     1773      (+
     1774        (fx+
     1775          (fx+
     1776            (fx* hr SEC/HR)
     1777            (fx+ (fx* min SEC/MIN) sec))
     1778          (fxneg tzo))
     1779        (/ ns NS/S))) )
    18021780    (+ (- jdn ONE-HALF) (/ timsecs SEC/DY)) ) )
    18031781#; ;inexact version
    18041782(define (tm:julian-day ns sec min hr dy mn yr tzo)
    1805   (let ((time-seconds
    1806           (fx+
    1807             (fx+
    1808               (fx* hr SEC/HR)
    1809               (fx+ (fx* min SEC/MIN) sec))
    1810               (fxneg tzo)) ) )
     1783  (let (
     1784    (time-seconds
     1785      (fx+
     1786        (fx+
     1787          (fx* hr SEC/HR)
     1788          (fx+ (fx* min SEC/MIN) sec))
     1789          (fxneg tzo)) ) )
    18111790    (fp+
    18121791      (fp-
     
    18251804        (or
    18261805          (%date-jday dat)
    1827           (let ((jdn
    1828                   (tm:julian-day
    1829                     (%date-nanosecond dat)
    1830                     (%date-second dat) (%date-minute dat) (%date-hour dat)
    1831                     (%date-day dat) (%date-month dat) (%date-year dat)
    1832                     (%date-zone-offset dat))))
     1806          (let (
     1807            (jdn
     1808              (tm:julian-day
     1809                (%date-nanosecond dat)
     1810                (%date-second dat) (%date-minute dat) (%date-hour dat)
     1811                (%date-day dat) (%date-month dat) (%date-year dat)
     1812                (%date-zone-offset dat))))
    18331813            (%date-jday-set! dat jdn)
    18341814            jdn ) ) ) ) ) )
  • release/5/srfi-19/trunk/srfi-19-time.scm

    r38082 r38112  
    2828;; MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE.
    2929
    30 (include "C_double_to_number.incl")
    31 
    3230(module srfi-19-time
    3331
    3432(;export
    35   ; SRFI-19
     33  ;;SRFI-19
    3634  time-tai
    3735  time-utc
     
    7472  time-utc->time-tai
    7573  time-utc->time-tai!
    76   ; Extensions
     74  ;;Extensions
    7775  time-record-printer-format
    7876  one-second-duration
     
    103101  time->milliseconds
    104102  time->seconds
    105   time-compare
    106   ; DEPRECATED
    107   seconds->time/type)
     103  time-compare)
    108104
    109105(import scheme)
     
    215211      (check-time-type 'seconds->time tt)) ) )
    216212
    217 (define seconds->time/type seconds->time) ; DEPRECATED
    218 
    219213(define (time->nanoseconds tim)
    220214  (tm:time->nanoseconds (check-time 'time->nanoseconds tim)) )
  • release/5/srfi-19/trunk/srfi-19.egg

    r38087 r38112  
    22
    33((synopsis "Time Data Types and Procedures")
    4  (version "4.0.2")
     4 (version "4.1.0")
    55 (category data)
    66 (author "Will Fitzgerald (for Chicken by [[/users/kon-lovett]])")
     
    5959    #;(inline-file)
    6060    (types-file)
    61     (component-dependencies srfi-19-timezone srfi-19-support srfi-19-time srfi-19-date srfi-19-io)
     61    (component-dependencies srfi-19-core srfi-19-io)
    6262    (csc-options "-O3" "-d1" "-local" "-no-procedure-checks"))))
  • release/5/srfi-19/trunk/srfi-19.scm

    r38082 r38112  
    11;;;; srfi-19.scm
    22
    3 (module srfi-19
    4 
    5 (;export
    6   ; SRFI-19
    7   time-tai
    8   time-utc
    9   time-monotonic
    10   time-thread
    11   time-process
    12   time-duration
    13   time-gc
    14   current-date
    15   current-julian-day
    16   current-modified-julian-day
    17   current-time
    18   time-resolution
    19   make-time
    20   time?
    21   time-type
    22   time-nanosecond
    23   time-second
    24   set-time-type!
    25   set-time-nanosecond!
    26   set-time-second!
    27   copy-time
    28   time<=?
    29   time<?
    30   time=?
    31   time>=?
    32   time>?
    33   time-difference
    34   time-difference!
    35   add-duration
    36   add-duration!
    37   subtract-duration
    38   subtract-duration!
    39   make-date
    40   date?
    41   date-nanosecond
    42   date-second
    43   date-minute
    44   date-hour
    45   date-day
    46   date-month
    47   date-year
    48   date-zone-offset
    49   leap-year? ; Actually part of SRFI 19 but not in original document
    50   date-year-day
    51   date-week-day
    52   date-week-number
    53   date->julian-day
    54   date->modified-julian-day
    55   date->time-monotonic
    56   date->time-tai
    57   date->time-utc
    58   julian-day->date
    59   julian-day->time-monotonic
    60   julian-day->time-tai
    61   julian-day->time-utc
    62   modified-julian-day->date
    63   modified-julian-day->time-monotonic
    64   modified-julian-day->time-tai
    65   modified-julian-day->time-utc
    66   time-monotonic->date
    67   time-monotonic->julian-day
    68   time-monotonic->modified-julian-day
    69   time-monotonic->time-tai
    70   time-monotonic->time-tai!
    71   time-monotonic->time-utc
    72   time-monotonic->time-utc!
    73   time-tai->date
    74   time-tai->julian-day
    75   time-tai->modified-julian-day
    76   time-tai->time-monotonic
    77   time-tai->time-monotonic!
    78   time-tai->time-utc
    79   time-tai->time-utc!
    80   time-utc->date
    81   time-utc->julian-day
    82   time-utc->modified-julian-day
    83   time-utc->time-monotonic
    84   time-utc->time-monotonic!
    85   time-utc->time-tai
    86   time-utc->time-tai!
    87   date->string
    88   string->date
    89   ; Extensions
    90   time-record-printer-format
    91   date-record-printer-format
    92   one-second-duration
    93   one-nanosecond-duration
    94   zero-time
    95   time-type?
    96   make-duration
    97   divide-duration
    98   divide-duration!
    99   multiply-duration
    100   multiply-duration!
    101   time->srfi-18-time
    102   srfi-18-time->time
    103   time-max
    104   time-min
    105   time-negative?
    106   time-positive?
    107   time-zero?
    108   time-abs
    109   time-abs!
    110   time-negate
    111   time-negate!
    112   seconds->time
    113   seconds->date
    114   time->nanoseconds
    115   nanoseconds->time
    116   nanoseconds->seconds
    117   read-leap-second-table
    118   time->milliseconds
    119   time->seconds
    120   milliseconds->time
    121   milliseconds->seconds
    122   time->date
    123   default-date-clock-type
    124   date-zone-name
    125   date-dst?
    126   copy-date
    127   date->time
    128   date->seconds
    129   date-adjust
    130   date-difference
    131   date-add-duration
    132   date-subtract-duration
    133   date=?
    134   date>?
    135   date<?
    136   date>=?
    137   date<=?
    138   date-max
    139   date-min
    140   time->julian-day
    141   time->modified-julian-day
    142   date-compare
    143   time-compare
    144   format-date
    145   scan-date
    146   timezone-name?
    147   timezone-info?
    148   local-timezone-locale
    149   utc-timezone-locale
    150   timezone-locale-name
    151   timezone-locale-offset
    152   timezone-locale-dst?
    153   ; DEPRECATED
    154   seconds->time/type
    155   seconds->date/type)
     3(module srfi-19 ()
    1564
    1575(import scheme)
    1586(import (chicken module))
    159 (import srfi-19-timezone)
    160 (import srfi-19-support)
    161 (import srfi-19-time)
    162 (import srfi-19-date)
     7(import srfi-19-core)
    1638(import srfi-19-io)
     9(reexport srfi-19-core)
     10(reexport srfi-19-io)
    16411
    16512) ;module srfi-19
Note: See TracChangeset for help on using the changeset viewer.