From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 11 Oct 1994 20:57:02 +0000 (+0000)
Subject: Add stepper to runtime system as load option.
X-Git-Tag: 20090517-FFI~7077
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=0ec3157b5bbaa928ea13117451eca9356121c4b9;p=mit-scheme.git

Add stepper to runtime system as load option.
---

diff --git a/v7/src/runtime/optiondb.scm b/v7/src/runtime/optiondb.scm
index 315dcaa2d..94633baaf 100644
--- 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))
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;
 ;; 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.
-
-(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 235e0f369..93052cbb4 100644
--- 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 235e0f369..93052cbb4 100644
--- 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