Distinguish between local and global ctime() strings.

diff --git a/v7/src/runtime/datime.scm b/v7/src/runtime/datime.scm
index 31a423893133bced351442f3ba49f0f72d86d30e..7cf163702febf7a59b36309437ab0a8a69b9225d 100644 (file)
--- a/v7/src/runtime/datime.scm
+++ b/v7/src/runtime/datime.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: datime.scm,v 14.24 2000/03/22 17:37:02 cph Exp $
+$Id: datime.scm,v 14.25 2000/03/22 17:44:39 cph Exp $
 
 Copyright (c) 1988-2000 Massachusetts Institute of Technology
 
@@ -346,15 +346,21 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
                                 (+ 1900 n)
                                 n)))))))
 
-(define (universal-time->ctime-string time)
+(define (universal-time->local-ctime-string time)
   (decoded-time->ctime-string (universal-time->local-decoded-time time)))
 
+(define (universal-time->global-ctime-string time)
+  (decoded-time->ctime-string (universal-time->global-decoded-time time)))
+
 (define (ctime-string->universal-time string)
   (decoded-time->universal-time (ctime-string->decoded-time string)))
 
-(define (file-time->ctime-string time)
+(define (file-time->local-ctime-string time)
   (decoded-time->ctime-string (file-time->local-decoded-time time)))
 
+(define (file-time->global-ctime-string time)
+  (decoded-time->ctime-string (file-time->global-decoded-time time)))
+
 (define (ctime-string->file-time string)
   (decoded-time->file-time (ctime-string->decoded-time string)))
 \f

diff --git a/v7/src/runtime/runtime.pkg b/v7/src/runtime/runtime.pkg
index fe56ae2500487e5f7a38ab8b4f7a62db2e43aac2..f5fdaaadbf282fe23595d896b340ead08ae3f031 100644 (file)
--- a/v7/src/runtime/runtime.pkg
+++ b/v7/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: runtime.pkg,v 14.337 2000/03/22 17:35:25 cph Exp $
+$Id: runtime.pkg,v 14.338 2000/03/22 17:44:42 cph Exp $
 
 Copyright (c) 1988-2000 Massachusetts Institute of Technology
 
@@ -508,8 +508,9 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
          decoded-time/zone
          encode-universal-time
          epoch
-         file-time->ctime-string
+         file-time->global-ctime-string
          file-time->global-time-string
+         file-time->local-ctime-string
          file-time->local-time-string
          file-time->string
          get-decoded-time
@@ -528,9 +529,10 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
          string->universal-time
          time-zone->string
          time-zone?
-         universal-time->ctime-string
+         universal-time->global-ctime-string
          universal-time->global-decoded-time
          universal-time->global-time-string
+         universal-time->local-ctime-string
          universal-time->local-decoded-time
          universal-time->local-time-string
          universal-time->string))