From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 6 Jan 1995 00:39:50 +0000 (+0000)
Subject: Add OS-specific definitions for EOL and EOF markers.
X-Git-Tag: 20090517-FFI~6819
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=023dfbfe1948b571421ece3655506ed998fcaaf0;p=mit-scheme.git

Add OS-specific definitions for EOL and EOF markers.
---

diff --git a/v7/src/runtime/dosprm.scm b/v7/src/runtime/dosprm.scm
index ab70332b8..9791b405b 100644
--- 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 6876e6c99..fffd48cff 100644
--- 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 a2f36673a..709433183 100644
--- 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)
 
 (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 a8139e500..730884e48 100644
--- 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)
 
 ;;; Queues after-restart daemon to clean up environment space