From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 22 Mar 2000 17:44:42 +0000 (+0000)
Subject: Distinguish between local and global ctime() strings.
X-Git-Tag: 20090517-FFI~4164
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=b9d128695bce3a472c5b2bb67392da0edebb1327;p=mit-scheme.git

Distinguish between local and global ctime() strings.
---

diff --git a/v7/src/runtime/datime.scm b/v7/src/runtime/datime.scm
index 31a423893..7cf163702 100644
--- 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)))
 
diff --git a/v7/src/runtime/runtime.pkg b/v7/src/runtime/runtime.pkg
index fe56ae250..f5fdaaadb 100644
--- 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))