From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 8 Apr 1999 05:01:33 +0000 (+0000)
Subject: Implement remaining time-representation conversions.
X-Git-Tag: 20090517-FFI~4565
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=911d26b60bf791101fe5a50299ed33ba2df950f6;p=mit-scheme.git

Implement remaining time-representation conversions.
---

diff --git a/v7/src/runtime/datime.scm b/v7/src/runtime/datime.scm
index c020e3c62..19dfb9af1 100644
--- 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 988d42722..a1117c6ab 100644
--- 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 db773755b..19929eeac 100644
--- 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