Implement conversions between file time and universal time.

diff --git a/v7/src/runtime/dosprm.scm b/v7/src/runtime/dosprm.scm
index d20d434520406b817e5491c4905f5bcea37c265d..384bf5132cb7e3d101c2c2f8e696f79973e2457a 100644 (file)
--- a/v7/src/runtime/dosprm.scm
+++ b/v7/src/runtime/dosprm.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: dosprm.scm,v 1.28 1995/04/23 05:18:58 cph Exp $
+$Id: dosprm.scm,v 1.29 1995/04/23 05:24:13 cph Exp $
 
 Copyright (c) 1992-95 Massachusetts Institute of Technology
 
@@ -268,11 +268,10 @@ MIT in each case. |#
 (define file-time->string
   (ucode-primitive file-time->string 1))
 
-(define (decode-file-time time)
-  (decode-universal-time time))
-
-(define (encode-file-time dt)
-  (encode-universal-time dt))
+(define (decode-file-time time) (decode-universal-time time))
+(define (encode-file-time dt) (encode-universal-time dt))
+(define (file-time->universal-time time) time)
+(define (universal-time->file-time time) time)
 
 (define dos/user-home-directory user-home-directory)
 (define dos/current-user-name current-user-name)

diff --git a/v7/src/runtime/os2prm.scm b/v7/src/runtime/os2prm.scm
index ece0a34193dd1819903a7eac18bbbc98fa8dc497..a1f3a98aa3378d9baa4769584e11f40ad03dfca6 100644 (file)
--- a/v7/src/runtime/os2prm.scm
+++ b/v7/src/runtime/os2prm.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: os2prm.scm,v 1.15 1995/04/23 05:10:07 cph Exp $
+$Id: os2prm.scm,v 1.16 1995/04/23 05:24:01 cph Exp $
 
 Copyright (c) 1994-95 Massachusetts Institute of Technology
 
@@ -156,6 +156,12 @@ MIT in each case. |#
          64 (decoded-time/minute dt))
        32 (quotient (decoded-time/second dt) 2))))
 
+(define (file-time->universal-time time)
+  (encode-universal-time (decode-file-time time)))
+
+(define (universal-time->file-time time)
+  (encode-file-time (decode-universal-time time)))
+
 (define (file-attributes filename)
   ((ucode-primitive file-info 1)
    (->namestring (merge-pathnames filename))))

diff --git a/v7/src/runtime/unxprm.scm b/v7/src/runtime/unxprm.scm
index d66444ec443c09601a6124b223a193f0ea8ebdf1..e8921c02778efed137f89298e0a3f08ef153365c 100644 (file)
--- a/v7/src/runtime/unxprm.scm
+++ b/v7/src/runtime/unxprm.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: unxprm.scm,v 1.37 1995/04/23 05:19:06 cph Exp $
+$Id: unxprm.scm,v 1.38 1995/04/23 05:24:18 cph Exp $
 
 Copyright (c) 1988-95 Massachusetts Institute of Technology
 
@@ -233,11 +233,10 @@ MIT in each case. |#
 (define-integrable file-time->string
   (ucode-primitive file-time->string 1))
 
-(define (decode-file-time time)
-  (decode-universal-time time))
-
-(define (encode-file-time dt)
-  (encode-universal-time dt))
+(define (decode-file-time time) (decode-universal-time time))
+(define (encode-file-time dt) (encode-universal-time dt))
+(define (file-time->universal-time time) time)
+(define (universal-time->file-time time) time)
 
 (define unix/user-home-directory user-home-directory)
 (define unix/current-home-directory current-home-directory)