Add support to send SIGHUP (hangup) signal to subprocesses.

Use of this support requires microcode 11.68 or later (but if not used
older microcodes will work.)

diff --git a/v7/src/runtime/io.scm b/v7/src/runtime/io.scm
index 1024ae053eadaffcd6f89f2a99e03d10cbad0861..2f0a30cca60e72e191c72452b09a85840952500c 100644 (file)
--- a/v7/src/runtime/io.scm
+++ b/v7/src/runtime/io.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/io.scm,v 14.22 1991/03/11 23:48:00 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/io.scm,v 14.23 1991/03/14 04:29:03 cph Exp $
 
 Copyright (c) 1988-91 Massachusetts Institute of Technology
 
@@ -438,6 +438,9 @@ MIT in each case. |#
 
 (define (pty-master-quit channel)
   ((ucode-primitive pty-master-quit 1) (channel-descriptor channel)))
+
+(define (pty-master-hangup channel)
+  ((ucode-primitive pty-master-hangup 1) (channel-descriptor channel)))
 \f
 ;;;; File Copying
 

diff --git a/v7/src/runtime/process.scm b/v7/src/runtime/process.scm
index 58e06d5cd90aa725ac29a803825cb0b7c4e4c51d..723cf14451b868e51e678c6cedfe7b7b9eff3d80 100644 (file)
--- a/v7/src/runtime/process.scm
+++ b/v7/src/runtime/process.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/process.scm,v 1.10 1991/03/11 23:48:06 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/process.scm,v 1.11 1991/03/14 04:29:11 cph Exp $
 
 Copyright (c) 1989-91 Massachusetts Institute of Technology
 
@@ -274,6 +274,9 @@ MIT in each case. |#
 (define (subprocess-quit process)
   ((ucode-primitive process-quit 1) (subprocess-index process)))
 
+(define (subprocess-hangup process)
+  ((ucode-primitive process-hangup 1) (subprocess-index process)))
+
 (define (subprocess-stop process)
   ((ucode-primitive process-stop 1) (subprocess-index process)))
 

diff --git a/v7/src/runtime/runtime.pkg b/v7/src/runtime/runtime.pkg
index a589e3fa01ea0e9b21f4fe3618c49d815e14e782..644565118423322876250ac1e7cd0b33e517e885 100644 (file)
--- a/v7/src/runtime/runtime.pkg
+++ b/v7/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/runtime.pkg,v 14.98 1991/03/11 23:48:12 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/runtime.pkg,v 14.99 1991/03/14 04:29:17 cph Exp $
 
 Copyright (c) 1988-91 Massachusetts Institute of Technology
 
@@ -1462,7 +1462,9 @@ MIT in each case. |#
          channel-blocking
          channel-blocking?
          channel-close
+         channel-closed?
          channel-nonblocking
+         channel-open?
          channel-port
          channel-read
          channel-read-block
@@ -1496,6 +1498,7 @@ MIT in each case. |#
          make-pipe
          open-pty-master
          pty-master-continue
+         pty-master-hangup
          pty-master-interrupt
          pty-master-kill
          pty-master-quit
@@ -1952,6 +1955,7 @@ MIT in each case. |#
          subprocess-filename
          subprocess-get
          subprocess-global-status-tick
+         subprocess-hangup
          subprocess-id
          subprocess-input-channel
          subprocess-input-port

diff --git a/v7/src/runtime/version.scm b/v7/src/runtime/version.scm
index 19214384dad5c587a59191fad1c46f1fe1b4e2bd..9f6ab26d192bca6ee0b35148f1bf5b61aa511e5a 100644 (file)
--- a/v7/src/runtime/version.scm
+++ b/v7/src/runtime/version.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/version.scm,v 14.112 1991/03/11 23:48:20 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/version.scm,v 14.113 1991/03/14 04:29:29 cph Exp $
 
 Copyright (c) 1988-91 Massachusetts Institute of Technology
 
@@ -45,7 +45,7 @@ MIT in each case. |#
                     '()))
   (add-system! microcode-system)
   (add-event-receiver! event:after-restore snarf-microcode-version!)
-  (add-identification! "Runtime" 14 112))
+  (add-identification! "Runtime" 14 113))
 
 (define microcode-system)
 

diff --git a/v8/src/runtime/runtime.pkg b/v8/src/runtime/runtime.pkg
index 1db325435a010e1c27dd4073a6dc18bcdbcf10c6..bfb3593757ab1565bc7e3e06832ba404ab0d9a0c 100644 (file)
--- a/v8/src/runtime/runtime.pkg
+++ b/v8/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/runtime.pkg,v 14.98 1991/03/11 23:48:12 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/runtime.pkg,v 14.99 1991/03/14 04:29:17 cph Exp $
 
 Copyright (c) 1988-91 Massachusetts Institute of Technology
 
@@ -1462,7 +1462,9 @@ MIT in each case. |#
          channel-blocking
          channel-blocking?
          channel-close
+         channel-closed?
          channel-nonblocking
+         channel-open?
          channel-port
          channel-read
          channel-read-block
@@ -1496,6 +1498,7 @@ MIT in each case. |#
          make-pipe
          open-pty-master
          pty-master-continue
+         pty-master-hangup
          pty-master-interrupt
          pty-master-kill
          pty-master-quit
@@ -1952,6 +1955,7 @@ MIT in each case. |#
          subprocess-filename
          subprocess-get
          subprocess-global-status-tick
+         subprocess-hangup
          subprocess-id
          subprocess-input-channel
          subprocess-input-port