Implement remaining time-representation conversions.

diff --git a/v7/src/runtime/datime.scm b/v7/src/runtime/datime.scm
index c020e3c623e1b2e942210e345408d6c13ce9f09a..19dfb9af14f5e76325c3fb2d2e1a641b3aeefd22 100644 (file)
--- a/v7/src/runtime/datime.scm
+++ b/v7/src/runtime/datime.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: datime.scm,v 14.20 1999/04/07 21:46:13 cph Exp $
+$Id: datime.scm,v 14.21 1999/04/08 05:00:59 cph Exp $
 
 Copyright (c) 1988-1999 Massachusetts Institute of Technology
 
@@ -260,6 +260,12 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
                                      n)))
                           (string->time-zone (list-ref tokens 4)))))))
 
+(define (string->universal-time string)
+  (decoded-time->universal-time (string->decoded-time string)))
+
+(define (string->file-time string)
+  (decoded-time->file-time (string->decoded-time string)))
+
 (define (time-zone->string tz)
   (if (not (time-zone? tz))
       (error:wrong-type-argument tz "time zone" 'TIME-ZONE->STRING))

diff --git a/v7/src/runtime/runtime.pkg b/v7/src/runtime/runtime.pkg
index 988d427225a090542034c745274bac2fb8366f13..a1117c6ab4b851f7b9053cca4c1b60a24d207a67 100644 (file)
--- a/v7/src/runtime/runtime.pkg
+++ b/v7/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: runtime.pkg,v 14.323 1999/04/07 04:09:16 cph Exp $
+$Id: runtime.pkg,v 14.324 1999/04/08 05:01:04 cph Exp $
 
 Copyright (c) 1988-1999 Massachusetts Institute of Technology
 
@@ -504,6 +504,8 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
          month/max-days
          month/short-string
          string->decoded-time
+         string->file-time
+         string->universal-time
          time-zone->string
          time-zone?
          universal-time->global-decoded-time

diff --git a/v8/src/runtime/runtime.pkg b/v8/src/runtime/runtime.pkg
index db773755b949b6d67108215d2d19f49c984d1709..19929eeac48a6a8a289f61dd7723462fd1820778 100644 (file)
--- a/v8/src/runtime/runtime.pkg
+++ b/v8/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: runtime.pkg,v 14.328 1999/04/07 04:09:04 cph Exp $
+$Id: runtime.pkg,v 14.329 1999/04/08 05:01:33 cph Exp $
 
 Copyright (c) 1988-1999 Massachusetts Institute of Technology
 
@@ -506,6 +506,8 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
          month/max-days
          month/short-string
          string->decoded-time
+         string->file-time
+         string->universal-time
          time-zone->string
          time-zone?
          universal-time->global-decoded-time