Added OS_tty_map_interrupt_char to request interrupt character when

the interrupt is taken by Scheme.

diff --git a/v7/src/microcode/ostty.c b/v7/src/microcode/ostty.c
index 47b55516e782e7f19313f5ee0419e0736cfce1f6..9d6e95c82578f800e826e9f3dd5ec88535ff480d 100644 (file)
--- a/v7/src/microcode/ostty.c
+++ b/v7/src/microcode/ostty.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/ostty.c,v 1.1 1990/06/20 19:36:51 cph Rel $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/ostty.c,v 1.2 1992/02/27 18:56:52 mhwu Exp $
 
 Copyright (c) 1990 Massachusetts Institute of Technology
 
@@ -53,7 +53,12 @@ DEFUN_VOID (OS_tty_next_interrupt_char)
   if (next_interrupt_char == '\0')
     error_external_return ();
   {
-    cc_t result = next_interrupt_char;
+    /* The interrupt character is mapped here. This provides a
+       chance for OS's which have only one interrupt character
+       and can't do I/O during an interrupt to request the
+       interrupt character in a safe place.
+     */
+    cc_t result = OS_tty_map_interrupt_char(next_interrupt_char);
     next_interrupt_char = '\0';
     return (result);
   }

diff --git a/v7/src/microcode/ostty.h b/v7/src/microcode/ostty.h
index 33db9b756ea67808b6aa5d9eb1d2c070cdd58392..a0c8a8e21fbb4983b92e0d161c71d30e0ab89b0f 100644 (file)
--- a/v7/src/microcode/ostty.h
+++ b/v7/src/microcode/ostty.h
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/ostty.h,v 1.2 1990/11/05 11:55:06 cph Rel $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/ostty.h,v 1.3 1992/02/27 18:53:26 mhwu Exp $
 
 Copyright (c) 1990 Massachusetts Institute of Technology
 
@@ -44,5 +44,6 @@ extern unsigned int EXFUN (OS_tty_y_size, (void));
 extern CONST char * EXFUN (OS_tty_command_beep, (void));
 extern CONST char * EXFUN (OS_tty_command_clear, (void));
 extern cc_t EXFUN (OS_tty_next_interrupt_char, (void));
+extern cc_t EXFUN (OS_tty_map_interrupt_char, (cc_t));
 
 #endif /* SCM_OSTTY_H */

diff --git a/v7/src/microcode/uxsig.c b/v7/src/microcode/uxsig.c
index aac2f7bcc4188f665daa0e272d3b58cdbf9ffeda..a97d6ba2510dd69d30d2f9ab778fb42fb5d4ed51 100644 (file)
--- a/v7/src/microcode/uxsig.c
+++ b/v7/src/microcode/uxsig.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/uxsig.c,v 1.21 1992/02/04 04:15:02 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/uxsig.c,v 1.22 1992/02/27 18:54:43 mhwu Exp $
 
 Copyright (c) 1990-92 Massachusetts Institute of Technology
 
@@ -695,6 +695,15 @@ DEFUN_VOID (UX_initialize_signals)
 \f
 /* Interactive Interrupt Handler */
 
+/* Under Unix, the interrupt char is NOT requested when the interrupt is
+   taken.
+ */
+cc_t
+DEFUN (OS_tty_map_interrupt_char, (int_char), cc_t int_char)
+{
+  return int_char;
+}
+
 static void EXFUN (print_interactive_help, (void));
 static void EXFUN (print_interrupt_chars, (void));
 static void EXFUN (examine_memory, (void));