From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 9 Apr 1995 22:58:09 +0000 (+0000)
Subject: Make OS-independent binding for file-time->string.
X-Git-Tag: 20090517-FFI~6484
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=db2b257830b67060ea14ff9190a5d077cbc1ceb1;p=mit-scheme.git

Make OS-independent binding for file-time->string.
---

diff --git a/v7/src/runtime/dosprm.scm b/v7/src/runtime/dosprm.scm
index 402be6a4f..db85d5c3f 100644
--- a/v7/src/runtime/dosprm.scm
+++ b/v7/src/runtime/dosprm.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: dosprm.scm,v 1.26 1995/04/09 22:32:00 cph Exp $
+$Id: dosprm.scm,v 1.27 1995/04/09 22:57:55 cph Exp $
 
 Copyright (c) 1992-95 Massachusetts Institute of Technology
 
@@ -265,12 +265,13 @@ MIT in each case. |#
   (or (get-environment-variable "HOME")
       (user-home-directory (current-user-name))))
 
+(define file-time->string
+  (ucode-primitive file-time->string 1))
+
 (define dos/user-home-directory user-home-directory)
 (define dos/current-user-name current-user-name)
 (define dos/current-home-directory current-home-directory)
-
-(define dos/file-time->string
-  (ucode-primitive file-time->string 1))
+(define dos/file-time->string file-time->string)
 
 (define (file-touch filename)
   ((ucode-primitive file-touch 1)
diff --git a/v7/src/runtime/os2prm.scm b/v7/src/runtime/os2prm.scm
index 031c0268c..608f67763 100644
--- a/v7/src/runtime/os2prm.scm
+++ b/v7/src/runtime/os2prm.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: os2prm.scm,v 1.8 1995/04/09 22:32:10 cph Exp $
+$Id: os2prm.scm,v 1.9 1995/04/09 22:57:49 cph Exp $
 
 Copyright (c) 1994-95 Massachusetts Institute of Technology
 
@@ -104,7 +104,7 @@ MIT in each case. |#
    access-time
    modification-time))
 
-(define (os2/file-time->string time)
+(define (file-time->string time)
   (let* ((twosecs (remainder time 32))
 	 (time    (quotient  time 32))
 	 (minutes (remainder time 64))
@@ -131,9 +131,6 @@ MIT in each case. |#
 		   " "
 		   (number->string (+ 1980 year)))))
 
-(define (os2/current-file-time)
-  (call-with-temporary-file-pathname file-modification-time))
-
 (define (file-attributes filename)
   ((ucode-primitive file-info 1)
    (->namestring (merge-pathnames filename))))
diff --git a/v7/src/runtime/sfile.scm b/v7/src/runtime/sfile.scm
index 48abe2cfd..9ebf80054 100644
--- a/v7/src/runtime/sfile.scm
+++ b/v7/src/runtime/sfile.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: sfile.scm,v 14.16 1995/02/07 23:56:33 cph Exp $
+$Id: sfile.scm,v 14.17 1995/04/09 22:57:42 cph Exp $
 
 Copyright (c) 1988-95 Massachusetts Institute of Technology
 
@@ -146,4 +146,7 @@ MIT in each case. |#
      (lambda ()
        (vector-set! objects slot
 		    (delete! filename (vector-ref objects slot)))
-       ((ucode-primitive set-fixed-objects-vector! 1) objects)))))
\ No newline at end of file
+       ((ucode-primitive set-fixed-objects-vector! 1) objects)))))
+
+(define (current-file-time)
+  (call-with-temporary-file-pathname file-modification-time))
\ No newline at end of file
diff --git a/v7/src/runtime/unxprm.scm b/v7/src/runtime/unxprm.scm
index 711234f49..a10b4c3e8 100644
--- a/v7/src/runtime/unxprm.scm
+++ b/v7/src/runtime/unxprm.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: unxprm.scm,v 1.34 1995/04/09 22:32:18 cph Exp $
+$Id: unxprm.scm,v 1.35 1995/04/09 22:58:09 cph Exp $
 
 Copyright (c) 1988-95 Massachusetts Institute of Technology
 
@@ -230,9 +230,13 @@ MIT in each case. |#
 (define-integrable current-user-name
   (ucode-primitive current-user-name 0))
 
+(define-integrable file-time->string
+  (ucode-primitive file-time->string 1))
+
 (define unix/user-home-directory user-home-directory)
 (define unix/current-home-directory current-home-directory)
 (define unix/current-user-name current-user-name)
+(define unix/file-time->string file-time->string)
 
 (define-integrable unix/current-uid
   (ucode-primitive current-uid 0))
@@ -240,9 +244,6 @@ MIT in each case. |#
 (define-integrable unix/current-gid
   (ucode-primitive current-gid 0))
 
-(define-integrable unix/file-time->string
-  (ucode-primitive file-time->string 1))
-
 (define (unix/uid->string uid)
   (or ((ucode-primitive uid->string 1) uid)
       (number->string uid 10)))