From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 22 Mar 2000 17:36:03 +0000 (+0000)
Subject: Procedures that handle ISO C ctime() strings have been moved to the
X-Git-Tag: 20090517-FFI~4166
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=56d81d49d9f61323f249338d67de641f06df9b7d;p=mit-scheme.git

Procedures that handle ISO C ctime() strings have been moved to the
runtime system.
---

diff --git a/v7/src/edwin/rmail.scm b/v7/src/edwin/rmail.scm
index a428b2953..b885edd6d 100644
--- a/v7/src/edwin/rmail.scm
+++ b/v7/src/edwin/rmail.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: rmail.scm,v 1.66 2000/01/27 15:38:52 cph Exp $
+;;; $Id: rmail.scm,v 1.67 2000/03/22 17:36:03 cph Exp $
 ;;;
 ;;; Copyright (c) 1991-2000 Massachusetts Institute of Technology
 ;;;
@@ -1576,7 +1576,7 @@ buffer visiting that file."
 	       (fetch-first-field "from" start (header-end start end)))
 	      "unknown")
 	  " "
-	  (universal-time->unix-ctime (get-universal-time))
+	  (universal-time->ctime-string (get-universal-time))
 	  "\n")
 	 start)))
     (define-variable-local-value! buffer
@@ -1601,25 +1601,6 @@ buffer visiting that file."
        (let ((addresses (rfc822-strip-quoted-names field)))
 	 (and (not (null? addresses))
 	      (car addresses)))))
-
-(define (universal-time->unix-ctime time)
-  (decoded-time->unix-ctime (universal-time->local-decoded-time time)))
-
-(define (decoded-time->unix-ctime dt)
-  (string-append
-   (day-of-week/short-string (decoded-time/day-of-week dt))
-   " "
-   (month/short-string (decoded-time/month dt))
-   " "
-   (string-pad-left (number->string (decoded-time/day dt)) 2)
-   " "
-   (string-pad-left (number->string (decoded-time/hour dt)) 2 #\0)
-   ":"
-   (string-pad-left (number->string (decoded-time/minute dt)) 2 #\0)
-   ":"
-   (string-pad-left (number->string (decoded-time/second dt)) 2 #\0)
-   " "
-   (number->string (decoded-time/year dt))))
 
 ;;;; Editing