Support for Bochser mode.

diff --git a/v7/src/edwin/decls.scm b/v7/src/edwin/decls.scm
index 3489ebc7a37fa744f53d5b5db42bcdf7c6b4ad31..57a6c6641b312cd6a23e9dbee800e59247fecace 100644 (file)
--- a/v7/src/edwin/decls.scm
+++ b/v7/src/edwin/decls.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/decls.scm,v 1.27 1991/10/25 00:03:03 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/decls.scm,v 1.28 1991/11/26 20:10:33 markf Exp $
 
 Copyright (c) 1989-91 Massachusetts Institute of Technology
 
@@ -110,6 +110,8 @@ MIT in each case. |#
                "autold"
                "autosv"
                "basic"
+               "bochser"
+               "bochsmod"
                "bufcom"
                "bufinp"
                "bufmnu"

diff --git a/v7/src/edwin/edwin.ldr b/v7/src/edwin/edwin.ldr
index 882a5f85ae52060e3b54659e86ec3db673c79191..75ca0b38fd29aa99c35a0f123bb1fc664d48c6d3 100644 (file)
--- a/v7/src/edwin/edwin.ldr
+++ b/v7/src/edwin/edwin.ldr
@@ -1,5 +1,5 @@
 ;;; -*-Scheme-*-
-;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/edwin.ldr,v 1.19 1991/11/26 08:03:04 cph Exp $
+;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/edwin.ldr,v 1.20 1991/11/26 20:10:15 markf Exp $
 ;;; program to load package contents
 ;;; **** This program (unlike most .ldr files) is not generated by a program.
 
@@ -122,4 +122,8 @@
     (load "modefs" environment)
     (load "rename" environment)
     (load "loadef" environment)
+    (let ((env (->environment '(EDWIN BOCSHER))))
+      (load "bochser" env)
+      (load "bochsmod" env)
+      ((access initialize-bochser-mode! env)))    
     ))

diff --git a/v7/src/edwin/edwin.pkg b/v7/src/edwin/edwin.pkg
index 9e57764d7dc59d2fdf4dedf9a9a41fe473215d94..36f627dd351fba0a8c770a3deb5eb1e60c9c7760 100644 (file)
--- a/v7/src/edwin/edwin.pkg
+++ b/v7/src/edwin/edwin.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/edwin.pkg,v 1.68 1991/11/26 08:03:08 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/edwin.pkg,v 1.69 1991/11/26 20:11:34 markf Exp $
 
 Copyright (c) 1989-91 Massachusetts Institute of Technology
 
@@ -976,4 +976,43 @@ MIT in each case. |#
          edwin-command$repl
          edwin-mode$inferior-debugger
          edwin-mode$inferior-repl
-         start-inferior-repl!))
\ No newline at end of file
+         start-inferior-repl!))
+
+(define-package (edwin bochser)
+  (files "bochser"
+        "bochsmod")
+  (parent (edwin))
+  (export (edwin)
+         edwin-command$bochser-mode
+         edwin-mode$bochser
+         edwin-variable$bochs
+         edwin-variable$bochsmod-internal-bochs-table
+         edwin-variable$bochsmod-bindings-buffer
+         edwin-variable$bochsmod-bochs-buffer
+         edwin-variable$bochsmod-default-scheme-environment
+         edwin-variable$bochsmod-default-syntax-table
+         edwin-variable$bochsmod-current-environment-bochs
+         edwin-variable$bochsmod-smart-windows
+         edwin-variable$bochsmod-show-bindings
+         edwin-variable$bochsmod-create-env-buffers?
+         edwin-variable$bochsmod-buffers-in-screens?
+         edwin-command$bochsmod-open-bochs-before-point
+         edwin-command$bochsmod-open-bochs-before-mouse-point
+         edwin-command$bochsmod-close-bochs-before-point
+         edwin-command$bochsmod-close-bochs-before-mouse-point
+         edwin-command$bochsmod-close-bochs-around-point
+         edwin-command$bochsmod-close-bochs-around-mouse-point
+         edwin-command$bochsmod-extract-code
+         edwin-command$bochsmod-kill-buffer
+         edwin-command$bochsmod-delete-window
+         edwin-command$bochsmod-delete-other-windows
+         edwin-command$bochsmod-switch-to-buffer
+         edwin-command$down-bochs
+         edwin-command$backward-down-bochs
+         edwin-command$up-bochs
+         edwin-command$backward-up-bochs
+         edwin-command$bochsmod-attach-bindings
+         edwin-variable$bindings-window-fraction)
+  (import (runtime debugger-utilities)
+         show-environment-bindings)
+  (initialization (initialize-bochser-mode!)))
\ No newline at end of file