Add procedures to convert between ISO C ctime() strings and other time

formats.  Additionally, export procedures that convert strings to
day-of-week, month, and time-zone.

diff --git a/v7/src/runtime/datime.scm b/v7/src/runtime/datime.scm
index c1cef7161d748fec43be8bcbd4cd7dffa6e820f6..31a423893133bced351442f3ba49f0f72d86d30e 100644 (file)
--- a/v7/src/runtime/datime.scm
+++ b/v7/src/runtime/datime.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: datime.scm,v 14.23 2000/03/22 17:34:49 cph Exp $
+$Id: datime.scm,v 14.24 2000/03/22 17:37:02 cph Exp $
 
 Copyright (c) 1988-2000 Massachusetts Institute of Technology
 
@@ -349,13 +349,13 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 (define (universal-time->ctime-string time)
   (decoded-time->ctime-string (universal-time->local-decoded-time time)))
 
-(define (ctime-string->universal-time time)
+(define (ctime-string->universal-time string)
   (decoded-time->universal-time (ctime-string->decoded-time string)))
 
 (define (file-time->ctime-string time)
   (decoded-time->ctime-string (file-time->local-decoded-time time)))
 
-(define (ctime-string->file-time time)
+(define (ctime-string->file-time string)
   (decoded-time->file-time (ctime-string->decoded-time string)))
 \f
 (define (month/max-days month)

diff --git a/v7/src/runtime/runtime.pkg b/v7/src/runtime/runtime.pkg
index d44696be9331bb0bedeae0bb7d742788412d5adf..fe56ae2500487e5f7a38ab8b4f7a62db2e43aac2 100644 (file)
--- a/v7/src/runtime/runtime.pkg
+++ b/v7/src/runtime/runtime.pkg
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Id: runtime.pkg,v 14.336 2000/01/04 17:24:06 cph Exp $
+$Id: runtime.pkg,v 14.337 2000/03/22 17:35:25 cph Exp $
 
-Copyright (c) 1988-1999 Massachusetts Institute of Technology
+Copyright (c) 1988-2000 Massachusetts Institute of Technology
 
 This program is free software; you can redistribute it and/or modify
 it under the terms of the GNU General Public License as published by
@@ -486,9 +486,13 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
   (files "datime")
   (parent ())
   (export ()
+         ctime-string->decoded-time
+         ctime-string->file-time
+         ctime-string->universal-time
          day-of-week/long-string
          day-of-week/short-string
          decode-universal-time
+         decoded-time->ctime-string
          decoded-time->string
          decoded-time->universal-time
          decoded-time/date-string
@@ -504,6 +508,7 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
          decoded-time/zone
          encode-universal-time
          epoch
+         file-time->ctime-string
          file-time->global-time-string
          file-time->local-time-string
          file-time->string
@@ -515,11 +520,15 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
          month/long-string
          month/max-days
          month/short-string
+         string->day-of-week
          string->decoded-time
          string->file-time
+         string->month
+         string->time-zone
          string->universal-time
          time-zone->string
          time-zone?
+         universal-time->ctime-string
          universal-time->global-decoded-time
          universal-time->global-time-string
          universal-time->local-decoded-time