From 911d26b60bf791101fe5a50299ed33ba2df950f6 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 8 Apr 1999 05:01:33 +0000
Subject: [PATCH] Implement remaining time-representation conversions.

---
 v7/src/runtime/datime.scm  | 8 +++++++-
 v7/src/runtime/runtime.pkg | 4 +++-
 v8/src/runtime/runtime.pkg | 4 +++-
 3 files changed, 13 insertions(+), 3 deletions(-)

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
-- 
2.25.1