From b26bce8465893131480d67bcb229e0e11de0161e Mon Sep 17 00:00:00 2001 From: Jason Wilson Date: Mon, 16 Aug 1993 09:50:12 +0000 Subject: [PATCH] Added hooks so that the new emacs debugger that I'm writing can load in after the console ports have already been made. --- v7/src/runtime/ttyio.scm | 13 +++++++++---- 1 file changed, 9 insertions(+), 4 deletions(-) diff --git a/v7/src/runtime/ttyio.scm b/v7/src/runtime/ttyio.scm index 5e11b0439..e0528cd14 100644 --- a/v7/src/runtime/ttyio.scm +++ b/v7/src/runtime/ttyio.scm @@ -1,8 +1,8 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/ttyio.scm,v 1.2 1991/11/26 07:07:11 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/ttyio.scm,v 1.3 1993/08/16 09:50:12 jawilson Exp $ -Copyright (c) 1991 Massachusetts Institute of Technology +Copyright (c) 1991-93 Massachusetts Institute of Technology This material was developed by the Scheme project at the Massachusetts Institute of Technology, Department of Electrical Engineering and @@ -37,9 +37,14 @@ MIT in each case. |# (declare (usual-integrations)) +(define hook/read-char) +(define hook/peek-char) + (define (initialize-package!) (let ((input-channel (tty-input-channel)) (output-channel (tty-output-channel))) + (set! hook/read-char operation/read-char) + (set! hook/peek-char operation/peek-char) (set! the-console-port (make-i/o-port `((BEEP ,operation/beep) @@ -58,9 +63,9 @@ MIT in each case. |# (OUTPUT-BUFFER-SIZE ,operation/output-buffer-size) (OUTPUT-CHANNEL ,operation/output-channel) (OUTPUT-TERMINAL-MODE ,operation/output-terminal-mode) - (PEEK-CHAR ,operation/peek-char) + (PEEK-CHAR ,(lambda (port) (hook/peek-char port))) (PRINT-SELF ,operation/print-self) - (READ-CHAR ,operation/read-char) + (READ-CHAR ,(lambda (port) (hook/read-char port))) (READ-FINISH ,operation/read-finish) (SET-INPUT-BLOCKING-MODE ,operation/set-input-blocking-mode) (SET-INPUT-BUFFER-SIZE ,operation/set-input-buffer-size) -- 2.25.1