From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 23 Apr 1995 05:24:18 +0000 (+0000)
Subject: Implement conversions between file time and universal time.
X-Git-Tag: 20090517-FFI~6406
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=d17b5fd44d98286ccbc3525a8c0b1ae1c5eadb8e;p=mit-scheme.git

Implement conversions between file time and universal time.
---

diff --git a/v7/src/runtime/dosprm.scm b/v7/src/runtime/dosprm.scm
index d20d43452..384bf5132 100644
--- 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 ece0a3419..a1f3a98aa 100644
--- 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 d66444ec4..e8921c027 100644
--- 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)