From eccb1ae24bfa37217a27b333701a992f93fe5ff0 Mon Sep 17 00:00:00 2001
From: Mark Friedman <edu/mit/csail/zurich/markf>
Date: Tue, 26 Nov 1991 20:11:34 +0000
Subject: [PATCH] Support for Bochser mode.

---
 v7/src/edwin/decls.scm |  4 +++-
 v7/src/edwin/edwin.ldr |  6 +++++-
 v7/src/edwin/edwin.pkg | 43 ++++++++++++++++++++++++++++++++++++++++--
 3 files changed, 49 insertions(+), 4 deletions(-)

diff --git a/v7/src/edwin/decls.scm b/v7/src/edwin/decls.scm
index 3489ebc7a..57a6c6641 100644
--- 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 882a5f85a..75ca0b38f 100644
--- 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 9e57764d7..36f627dd3 100644
--- 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
-- 
2.25.1