From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 14 Mar 1991 04:29:29 +0000 (+0000)
Subject: Add support to send SIGHUP (hangup) signal to subprocesses.
X-Git-Tag: 20090517-FFI~10855
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=97fbf77aefe2d63db1d5b040ed093c421fb86ed9;p=mit-scheme.git

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 1024ae053..2f0a30cca 100644
--- 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)))
 
 ;;;; File Copying
 
diff --git a/v7/src/runtime/process.scm b/v7/src/runtime/process.scm
index 58e06d5cd..723cf1445 100644
--- 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 a589e3fa0..644565118 100644
--- 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 19214384d..9f6ab26d1 100644
--- 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 1db325435..bfb359375 100644
--- 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