Add stepper to runtime system as load option.

diff --git a/v7/src/runtime/optiondb.scm b/v7/src/runtime/optiondb.scm
index 315dcaa2d0f665cdb40fe3d548dbb7538b219d77..94633baaf9b5d0baf140e830d71f469dffc00808 100644 (file)
--- a/v7/src/runtime/optiondb.scm
+++ b/v7/src/runtime/optiondb.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: optiondb.scm,v 1.1 1994/10/03 17:31:32 adams Exp $
+$Id: optiondb.scm,v 1.2 1994/10/11 20:57:02 cph Exp $
 
 Copyright (c) 1994 Massachusetts Institute of Technology
 
@@ -31,6 +31,9 @@ there shall be no use of the name of the Massachusetts Institute of
 Technology nor of any adaptation thereof in any advertising,
 promotional, or sales literature without prior written consent from
 MIT in each case. |#
+
+(declare (usual-integrations))
+\f
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;
 ;; This file contains Scheme code to define a set of load options.  Each
@@ -57,8 +60,6 @@ MIT in each case. |#
 ;;   supplied for every user of your architecture at your site).  If
 ;;   not specified, or is #F, then this file is the last options
 ;;   database that is searched.
-\f
-(declare (usual-integrations))
 
 ;; Standard load options are defined like this:
 
@@ -71,11 +72,13 @@ MIT in each case. |#
  (lambda (spec)
    (define-load-option (car spec) (apply standard-option-loader (cdr spec))))
  '((FORMAT      (RUNTIME FORMAT)     (INITIALIZE-PACKAGE!) "format")
-   (COMPRESS    (RUNTIME COMPRESS)   #F "cpress")
+   (COMPRESS    (RUNTIME COMPRESS)   #F                    "cpress")
    (HASH-TABLE  (RUNTIME HASH-TABLE) (INITIALIZE-PACKAGE!) "hashtb")
-   (RB-TREE     (RUNTIME RB-TREE)    #F "rbtree")
-   (WT-TREE     (RUNTIME WT-TREE)    #F "wttree")
-   (SUBPROCESS  (RUNTIME SUBPROCESS) (INITIALIZE-PACKAGE!) "process")))
+   (RB-TREE     (RUNTIME RB-TREE)    #F                    "rbtree")
+   (WT-TREE     (RUNTIME WT-TREE)    #F                    "wttree")
+   (SUBPROCESS  (RUNTIME SUBPROCESS) (INITIALIZE-PACKAGE!) "process")
+   (STEPPER     (RUNTIME STEPPER)    #F                    "ystep")
+   ))
 
 (define-load-option 'DOSPROCESS
-  (standard-option-loader '() #F "dosproc"))
+  (standard-option-loader '() #F "dosproc"))
\ No newline at end of file

diff --git a/v7/src/runtime/runtime.pkg b/v7/src/runtime/runtime.pkg
index 235e0f369e8d9d71d2dd2c62a52cc91a87b160b2..93052cbb4d4e430f569cbce8ef37ac0a8d241d90 100644 (file)
--- a/v7/src/runtime/runtime.pkg
+++ b/v7/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: runtime.pkg,v 14.234 1994/10/03 17:27:17 adams Exp $
+$Id: runtime.pkg,v 14.235 1994/10/11 20:54:26 cph Exp $
 
 Copyright (c) 1988-1994 Massachusetts Institute of Technology
 
@@ -2670,4 +2670,20 @@ MIT in each case. |#
   (parent ())
   (export ()
          apropos
-         apropos-list))
\ No newline at end of file
+         apropos-list))
+
+(define-package (runtime stepper)
+  (file-case options
+    ((load) "ystep")
+    (else))
+  (parent ())
+  (export ()
+         step
+         step-form
+         step-n
+         step-over
+         step-proceed
+         step-quit
+         step-run
+         step-until
+         step-until-visibly))
\ No newline at end of file

diff --git a/v8/src/runtime/runtime.pkg b/v8/src/runtime/runtime.pkg
index 235e0f369e8d9d71d2dd2c62a52cc91a87b160b2..93052cbb4d4e430f569cbce8ef37ac0a8d241d90 100644 (file)
--- a/v8/src/runtime/runtime.pkg
+++ b/v8/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: runtime.pkg,v 14.234 1994/10/03 17:27:17 adams Exp $
+$Id: runtime.pkg,v 14.235 1994/10/11 20:54:26 cph Exp $
 
 Copyright (c) 1988-1994 Massachusetts Institute of Technology
 
@@ -2670,4 +2670,20 @@ MIT in each case. |#
   (parent ())
   (export ()
          apropos
-         apropos-list))
\ No newline at end of file
+         apropos-list))
+
+(define-package (runtime stepper)
+  (file-case options
+    ((load) "ystep")
+    (else))
+  (parent ())
+  (export ()
+         step
+         step-form
+         step-n
+         step-over
+         step-proceed
+         step-quit
+         step-run
+         step-until
+         step-until-visibly))
\ No newline at end of file