Changeset 15755 in project


Ignore:
Timestamp:
09/06/09 20:09:08 (10 years ago)
Author:
Kon Lovett
Message:

Split into time & date modules.

Location:
release/4/srfi-19/trunk
Files:
4 edited

Legend:

Unmodified
Added
Removed
  • release/4/srfi-19/trunk/srfi-19-date.scm

    r15754 r15755  
    3333  current-julian-day
    3434  current-modified-julian-day
    35   current-time
    3635  make-date
    3736  date-nanosecond
     
    7372  ; Extensions
    7473  seconds->date/type
    75   time->nanoseconds
    7674  read-leap-second-table
    7775  time->date
  • release/4/srfi-19/trunk/srfi-19-support.scm

    r15751 r15755  
    8181  check-time-seconds
    8282  check-time-nanoseconds
     83  check-real
     84  check-raw-seconds
     85  check-raw-milliseconds
    8386  check-time-has-type
    8487  check-time-and-type
     
    524527;; Seconds Conversion
    525528
     529(define (check-real loc obj #!optional argnam)
     530  (unless (real? obj)
     531    (error-argument-type loc "real number" argnam) ) )
     532
     533(define (check-raw-seconds loc obj) (check-real loc obj 'seconds))
     534
     535(define (check-raw-milliseconds loc obj) (check-real loc obj 'milliseconds))
     536
     537;;
     538
    526539(define (tm:time->nanoseconds tim) (+ (*time-nanosecond tim) (* (*time-second tim) NS/S)))
    527540(define (tm:time->milliseconds tim) (+ (/ (*time-nanosecond tim) NS/MS) (* (*time-second tim) MS/S)))
  • release/4/srfi-19/trunk/srfi-19-time.scm

    r15754 r15755  
    117117;;;
    118118
    119 (define (check-real loc obj #!optional argnam)
    120   (unless (real? obj)
    121     (error-argument-type loc "real number" argnam) ) )
    122 
    123 (define (check-raw-seconds loc obj) (check-real loc obj 'seconds))
    124 
    125 (define (check-raw-milliseconds loc obj) (check-real loc obj 'milliseconds))
    126 
    127 ;;
    128 
    129119;; Time Type Constants (not used internally)
    130120
  • release/4/srfi-19/trunk/srfi-19.setup

    r15754 r15755  
    1010  'locale              "0.6.2")
    1111
     12#|
    1213(install-srfi-29-bundle 'srfi-19 'en)
    1314(install-srfi-29-bundle 'srfi-19 'es)
    1415(install-srfi-29-bundle 'srfi-19 'nl)
    1516(install-srfi-29-bundle 'srfi-19 'pt 'br)
     17|#
    1618
    1719(setup-shared-extension-module 'srfi-19-timezone (extension-version "3.0.0")
Note: See TracChangeset for help on using the changeset viewer.