From: Jason Wilson Date: Mon, 16 Aug 1993 09:50:12 +0000 (+0000) Subject: Added hooks so that the new emacs debugger that I'm writing can load X-Git-Tag: 20090517-FFI~8059 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=b26bce8465893131480d67bcb229e0e11de0161e;p=mit-scheme.git Added hooks so that the new emacs debugger that I'm writing can load in after the console ports have already been made. --- 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)