Add NEWLINE line-ending.

diff --git a/v7/src/edwin/fileio.scm b/v7/src/edwin/fileio.scm
index 9ca43932fce6f8dc244a28a53fb882f6b0d8ecab..b3a5af25845e4f2283e6296969ad1ddf49b962df 100644 (file)
--- a/v7/src/edwin/fileio.scm
+++ b/v7/src/edwin/fileio.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: fileio.scm,v 1.164 2004/02/16 05:43:33 cph Exp $
+$Id: fileio.scm,v 1.165 2004/02/17 04:59:29 cph Exp $
 
 Copyright 1986,1989,1991,1992,1993,1994 Massachusetts Institute of Technology
 Copyright 1995,1997,1999,2000,2001,2002 Massachusetts Institute of Technology
@@ -216,7 +216,7 @@ of the predicates is satisfied, the file is written in the usual way."
   (call-with-input-file truename
     (lambda (port)
       (if (not (ref-variable translate-file-data-on-input group))
-         (port/set-line-ending port 'BINARY))
+         (port/set-line-ending port 'NEWLINE))
       (let ((length ((port/operation port 'LENGTH) port)))
        (bind-condition-handler (list condition-type:allocation-failure)
            (lambda (condition)
@@ -683,14 +683,14 @@ Otherwise, a message is written both before and after long file writes."
   (call-with-output-file filename
     (lambda (port)
       (if (not translate?)
-         (port/set-line-ending port 'BINARY))
+         (port/set-line-ending port 'NEWLINE))
       (group-write-to-port group start end port))))
 
 (define (group-append-to-file translate? group start end filename)
   (call-with-append-file filename
     (lambda (port)
       (if (not translate?)
-         (port/set-line-ending port 'BINARY))
+         (port/set-line-ending port 'NEWLINE))
       (group-write-to-port group start end port))))
 
 (define (group-write-to-port group start end port)

diff --git a/v7/src/runtime/genio.scm b/v7/src/runtime/genio.scm
index bb4c1c20aae1c522a14a08026cbcfe1859a96596..392ecbc5d0e23ed877ffe36fad719fe61f4759f9 100644 (file)
--- a/v7/src/runtime/genio.scm
+++ b/v7/src/runtime/genio.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: genio.scm,v 1.22 2004/02/16 05:36:36 cph Exp $
+$Id: genio.scm,v 1.23 2004/02/17 04:59:29 cph Exp $
 
 Copyright 1991,1993,1995,1996,1999,2002 Massachusetts Institute of Technology
 Copyright 2003,2004 Massachusetts Institute of Technology
@@ -1269,16 +1269,18 @@ USA.
 \f
 ;;;; Normalizers
 
-(define-normalizer 'BINARY
+(define-normalizer 'NEWLINE
   (lambda (ib)
     (decode-char ib)))
 
-(define-denormalizer 'BINARY
+(define-denormalizer 'NEWLINE
   (lambda (ob char)
     (encode-char ob char)))
 
-(define-normalizer 'LF 'BINARY)
-(define-denormalizer 'LF 'BINARY)
+(define-normalizer 'LF 'NEWLINE)
+(define-denormalizer 'LF 'NEWLINE)
+(define-normalizer 'BINARY 'NEWLINE)
+(define-denormalizer 'BINARY 'NEWLINE)
 
 (define-normalizer 'CR
   (lambda (ib)