Define new operations: CLOSE-INPUT, CLOSE-OUTPUT, INPUT-OPEN?,

OUTPUT-OPEN?, and WRITE-CHARS.

diff --git a/v7/src/runtime/runtime.pkg b/v7/src/runtime/runtime.pkg
index 3fa03546e24d1bccdf0fd267b86f650f7186f19c..5a81bd4cf62f2f7a31496618087cf4db85bbc5a8 100644 (file)
--- a/v7/src/runtime/runtime.pkg
+++ b/v7/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: runtime.pkg,v 14.269 1996/04/24 04:17:28 cph Exp $
+$Id: runtime.pkg,v 14.270 1996/05/14 00:53:56 cph Exp $
 
 Copyright (c) 1988-96 Massachusetts Institute of Technology
 
@@ -815,10 +815,12 @@ MIT in each case. |#
          operation/input-blocking-mode
          operation/input-buffer-size
          operation/input-channel
+         operation/input-open?
          operation/input-terminal-mode
          operation/output-blocking-mode
          operation/output-buffer-size
          operation/output-channel
+         operation/output-open?
          operation/output-terminal-mode
          operation/set-input-blocking-mode
          operation/set-input-buffer-size
@@ -832,6 +834,8 @@ MIT in each case. |#
          operation/char-ready?
          operation/chars-remaining
          operation/close
+         operation/close-input
+         operation/close-output
          operation/discard-char
          operation/discard-chars
          operation/eof?
@@ -839,10 +843,12 @@ MIT in each case. |#
          operation/input-blocking-mode
          operation/input-buffer-size
          operation/input-channel
+         operation/input-open?
          operation/input-terminal-mode
          operation/output-blocking-mode
          operation/output-buffer-size
          operation/output-channel
+         operation/output-open?
          operation/output-terminal-mode
          operation/peek-char
          operation/read-char
@@ -856,6 +862,7 @@ MIT in each case. |#
          operation/set-output-buffer-size
          operation/set-output-terminal-mode
          operation/write-char
+         operation/write-chars
          operation/write-string
          operation/write-substring)
   (initialization (initialize-package!)))
@@ -1746,6 +1753,7 @@ MIT in each case. |#
          output-buffer/size
          output-buffer/write-char-block
          output-buffer/write-string-block
+         output-buffer/write-substring
          output-buffer/write-substring-block
          set-channel-port!)
   (export (runtime file-i/o-port)