Add autoloaded stepper support. Requires corresponding support in

runtime system.

diff --git a/v7/src/edwin/decls.scm b/v7/src/edwin/decls.scm
index 21a6baf4b8f1a22f5888a8d4a575edcb5335372f..0c04355c6de96b03fa589057a216d330eeb44ced 100644 (file)
--- a/v7/src/edwin/decls.scm
+++ b/v7/src/edwin/decls.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: decls.scm,v 1.50 1994/03/08 20:32:54 cph Exp $
+$Id: decls.scm,v 1.51 1994/10/12 00:31:13 cph Exp $
 
 Copyright (c) 1989-94 Massachusetts Institute of Technology
 
@@ -145,6 +145,7 @@ MIT in each case. |#
                "ed-ffi"
                "editor"
                "evlcom"
+               "eystep"
                "filcom"
                "fileio"
                "fill"

diff --git a/v7/src/edwin/ed-ffi.scm b/v7/src/edwin/ed-ffi.scm
index 35c1bd6996795c1269b62d1c54291db88fb3545b..f5a2758a8f2b7eae9be0c6676217fc940c63d176 100644 (file)
--- a/v7/src/edwin/ed-ffi.scm
+++ b/v7/src/edwin/ed-ffi.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: ed-ffi.scm,v 1.33 1994/03/08 20:33:02 cph Exp $
+$Id: ed-ffi.scm,v 1.34 1994/10/12 00:30:59 cph Exp $
 
 Copyright (c) 1990-94 Massachusetts Institute of Technology
 
@@ -127,6 +127,8 @@ of that license should have been included along with this file.
               edwin-syntax-table)
     ("evlcom"  (edwin)
               edwin-syntax-table)
+    ("eystep"  (edwin stepper)
+              edwin-syntax-table)
     ("filcom"  (edwin)
               edwin-syntax-table)
     ("fileio"  (edwin)

diff --git a/v7/src/edwin/edwin.pkg b/v7/src/edwin/edwin.pkg
index 19ba3fd3fd15b3c0f686ce08522fc75ebbb3e8c4..efe7e337ba0f39007d7a1902f42b64772e72ddf5 100644 (file)
--- a/v7/src/edwin/edwin.pkg
+++ b/v7/src/edwin/edwin.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: edwin.pkg,v 1.151 1994/10/11 23:10:21 cph Exp $
+$Id: edwin.pkg,v 1.152 1994/10/12 00:30:50 cph Exp $
 
 Copyright (c) 1989-1994 Massachusetts Institute of Technology
 
@@ -1317,4 +1317,40 @@ MIT in each case. |#
   (import (runtime debugger-utilities)
          show-environment-bindings)
   (initialization (initialize-bochser-mode!)))
-|#
\ No newline at end of file
+|#
+\f
+(define-package (edwin stepper)
+  (files "eystep")
+  (parent (edwin))
+  (export (edwin)
+         edwin-command$step-defun
+         edwin-command$step-expression
+         edwin-command$step-last-sexp
+         edwin-command$stepper-contract
+         edwin-command$stepper-expand
+         edwin-command$stepper-run
+         edwin-command$stepper-step
+         edwin-command$stepper-step-over
+         edwin-command$stepper-step-until
+         edwin-command$stepper-step-until-visibly
+         edwin-command$stepper-summary
+         edwin-mode$stepper)
+  (import (runtime debugger)
+         debugger-pp)
+  (import (runtime stepper)
+         step-output
+         step-output-final-result
+         step-output-initialize
+         stepper-last-event
+         stepper-root-node
+         ynode-children
+         ynode-contract!
+         ynode-doesnt-need-redisplay!
+         ynode-exp
+         ynode-expand!
+         ynode-hidden-children?
+         ynode-needs-redisplay?
+         ynode-result
+         ynode-type
+         ynode-value-node)
+  (initialization (initialize-package!)))
\ No newline at end of file

diff --git a/v7/src/edwin/loadef.scm b/v7/src/edwin/loadef.scm
index 1f1c6a57fa2771356cca61ada4904db7617fdc2f..960f4e42d92fa7c82de6a99c232e96e37f71ab52 100644 (file)
--- a/v7/src/edwin/loadef.scm
+++ b/v7/src/edwin/loadef.scm
@@ -1,8 +1,8 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;    $Id: loadef.scm,v 1.25 1993/09/30 19:22:54 bal Exp $
+;;;    $Id: loadef.scm,v 1.26 1994/10/12 00:30:42 cph Exp $
 ;;;
-;;;    Copyright (c) 1986, 1989-1993 Massachusetts Institute of Technology
+;;;    Copyright (c) 1986, 1989-94 Massachusetts Institute of Technology
 ;;;
 ;;;    This material was developed by the Scheme project at the
 ;;;    Massachusetts Institute of Technology, Department of
@@ -205,6 +205,18 @@ variable's value is #F, the text is printed using LPR-COMMAND."
 
 (define-autoload-command 'sort-columns 'SORT
   "Sort lines by the text in a range of columns.")
+
+(define-library 'STEPPER
+  '("eystep" (EDWIN STEPPER)))
+
+(define-autoload-command 'step-expression 'STEPPER
+  "Single-step an expression.")
+
+(define-autoload-command 'step-last-sexp 'STEPPER
+  "Single-step the expression preceding point.")
+
+(define-autoload-command 'step-defun 'STEPPER
+  "Single-step the definition that the point is in or before.")
 \f
 ;;;; DOS-specific commands
 
@@ -225,4 +237,4 @@ variable's value is #F, the text is printed using LPR-COMMAND."
        'DOSSHELL
        "Major mode for executing DOS commands.")
       (define-autoload-command 'shell 'DOSSHELL
-       "Run an inferior pseudo shell, with I/O through buffer *shell*.")))
+       "Run an inferior pseudo shell, with I/O through buffer *shell*.")))
\ No newline at end of file

diff --git a/v7/src/edwin/schmod.scm b/v7/src/edwin/schmod.scm
index cb54151d9479af1250a4b56c28eb8de9d90cd704..ebd4f82386ff0f704e6354c2814b1d0790f49460 100644 (file)
--- a/v7/src/edwin/schmod.scm
+++ b/v7/src/edwin/schmod.scm
@@ -1,8 +1,8 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;    $Id: schmod.scm,v 1.36 1993/12/17 00:09:14 cph Exp $
+;;;    $Id: schmod.scm,v 1.37 1994/10/12 00:30:25 cph Exp $
 ;;;
-;;;    Copyright (c) 1986, 1989-93 Massachusetts Institute of Technology
+;;;    Copyright (c) 1986, 1989-94 Massachusetts Institute of Technology
 ;;;
 ;;;    This material was developed by the Scheme project at the
 ;;;    Massachusetts Institute of Technology, Department of
@@ -117,6 +117,7 @@ The following commands evaluate Scheme expressions:
 (define-key 'scheme #\m-g 'undefined)
 (define-key 'scheme #\m-o 'eval-current-buffer)
 (define-key 'scheme #\m-q 'undefined)
+(define-key 'scheme #\m-s 'step-defun)
 (define-key 'scheme #\m-z 'eval-defun)
 (define-key 'scheme #\c-m-q 'indent-sexp)
 (define-key 'scheme #\c-m-z 'eval-region)