Add OS-specific definitions for EOL and EOF markers.

diff --git a/v7/src/runtime/dosprm.scm b/v7/src/runtime/dosprm.scm
index ab70332b8c9e890cbcd5fa61609ff513130431c9..9791b405bd6431eec43038ae7a1604d155b853f2 100644 (file)
--- a/v7/src/runtime/dosprm.scm
+++ b/v7/src/runtime/dosprm.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Id: dosprm.scm,v 1.23 1994/12/19 21:00:54 cph Exp $
+$Id: dosprm.scm,v 1.24 1995/01/06 00:39:44 cph Exp $
 
-Copyright (c) 1992-94 Massachusetts Institute of Technology
+Copyright (c) 1992-95 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -283,6 +283,15 @@ MIT in each case. |#
   ((ucode-primitive directory-delete 1)
    (->namestring (merge-pathnames name))))
 
+(define (os/default-end-of-line-translation)
+  "\r\n")
+
+(define (os/default-end-of-file-marker/input)
+  #f)
+
+(define (os/default-end-of-file-marker/output)
+  #f)
+
 (define (initialize-system-primitives!)
   (let ((reset!
         (lambda ()

diff --git a/v7/src/runtime/dospth.scm b/v7/src/runtime/dospth.scm
index 6876e6c998f85dc40588afebaa6642bafa379c1a..fffd48cffe5e6d3520020c474dd9d63c97ecfffe 100644 (file)
--- a/v7/src/runtime/dospth.scm
+++ b/v7/src/runtime/dospth.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Id: dospth.scm,v 1.20 1994/12/19 21:10:45 cph Exp $
+$Id: dospth.scm,v 1.21 1995/01/06 00:39:50 cph Exp $
 
-Copyright (c) 1992-94 Massachusetts Institute of Technology
+Copyright (c) 1992-95 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -359,21 +359,18 @@ MIT in each case. |#
 
 (define (default/dos/end-of-line-string pathname)
   pathname                             ; ignored
-  "\r\n")
-
-;; Scheme understands files that end in ^Z, but does not create them
+  (os/default-end-of-line-translation))
 
 (define (dos/end-of-file-marker/input pathname)
   (hook/dos/end-of-file-marker/input pathname))
 
 (define (default/dos/end-of-file-marker/input pathname)
   pathname                             ; ignored
-  #\Call                               ; ^Z
-  )
+  (os/default-end-of-file-marker/input))
 
 (define (dos/end-of-file-marker/output pathname)
   (hook/dos/end-of-file-marker/output pathname))
 
 (define (default/dos/end-of-file-marker/output pathname)
   pathname                             ; ignored
-  #f)
\ No newline at end of file
+  (os/default-end-of-file-marker/output))
\ No newline at end of file

diff --git a/v7/src/runtime/os2prm.scm b/v7/src/runtime/os2prm.scm
index a2f36673a3dfd4e072bc1c3469f47e2bc8003cc0..709433183719f87d09e64b266bfae6f6d6f203be 100644 (file)
--- a/v7/src/runtime/os2prm.scm
+++ b/v7/src/runtime/os2prm.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: os2prm.scm,v 1.2 1994/12/19 21:08:01 cph Exp $
+$Id: os2prm.scm,v 1.3 1995/01/06 00:39:38 cph Exp $
 
 Copyright (c) 1994 Massachusetts Institute of Technology
 
@@ -213,6 +213,15 @@ MIT in each case. |#
 ;; These two aliases are needed by the DOS pathname parser.
 (define dos/current-home-directory os2/current-home-directory)
 (define dos/user-home-directory os2/user-home-directory)
+
+(define (os/default-end-of-line-translation)
+  "\r\n")
+
+(define (os/default-end-of-file-marker/input)
+  #f)
+
+(define (os/default-end-of-file-marker/output)
+  #f)
 \f
 (define (initialize-system-primitives!)
   (discard-select-registry-result-vectors!)
@@ -304,4 +313,4 @@ MIT in each case. |#
            (vector-ref os2/select-result-values result))))))
 
 (define os2/select-result-values
-  '#(INPUT-AVAILABLE #F INTERRUPT))
\ No newline at end of file
+  '#(INPUT-AVAILABLE #F INTERRUPT PROCESS-STATUS-CHANGE))
\ No newline at end of file

diff --git a/v7/src/runtime/unxprm.scm b/v7/src/runtime/unxprm.scm
index a8139e5002316bdfe4024eefea51268876ca8acd..730884e48da572301b94eed417c8a6c039b9eebf 100644 (file)
--- a/v7/src/runtime/unxprm.scm
+++ b/v7/src/runtime/unxprm.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Id: unxprm.scm,v 1.31 1994/11/20 05:12:40 cph Exp $
+$Id: unxprm.scm,v 1.32 1995/01/06 00:39:31 cph Exp $
 
-Copyright (c) 1988-94 Massachusetts Institute of Technology
+Copyright (c) 1988-95 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -279,6 +279,15 @@ MIT in each case. |#
 (define (delete-directory name)
   ((ucode-primitive directory-delete 1)
    (->namestring (pathname-as-directory (merge-pathnames name)))))
+
+(define (os/default-end-of-line-translation)
+  #f)
+
+(define (os/default-end-of-file-marker/input)
+  #f)
+
+(define (os/default-end-of-file-marker/output)
+  #f)
 \f
 ;;; Queues after-restart daemon to clean up environment space