Add starbase graphics primitives as option package.

diff --git a/v7/src/runtime/option.scm b/v7/src/runtime/option.scm
index 1587d2870fb49b943655ca8877ddc74bbbce8749..03466fdbd960b0074421b62fcfa8de7af3a43e92 100644 (file)
--- a/v7/src/runtime/option.scm
+++ b/v7/src/runtime/option.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/option.scm,v 14.1 1988/07/07 16:13:08 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/option.scm,v 14.2 1988/07/15 08:44:38 cph Exp $
 
 Copyright (c) 1988 Massachusetts Institute of Technology
 
@@ -60,4 +60,5 @@ MIT in each case. |#
     name))
 
 (define options
-  '((FORMAT ((RUNTIME FORMAT) (INITIALIZE-PACKAGE!) "format"))))
\ No newline at end of file
+  '((FORMAT ((RUNTIME FORMAT) (INITIALIZE-PACKAGE!) "format"))
+    (STARBASE ((RUNTIME STARBASE-GRAPHICS) (INITIALIZE-PACKAGE!) "Sgraph"))))
\ No newline at end of file

diff --git a/v7/src/runtime/runtime.pkg b/v7/src/runtime/runtime.pkg
index d5066ba4a5bd559f2738a5bf0b51d779e15174b5..cabd2e776a9097810f26fa0213b7bfe9d1165e23 100644 (file)
--- a/v7/src/runtime/runtime.pkg
+++ b/v7/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/runtime.pkg,v 14.12 1988/07/14 07:40:46 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/runtime.pkg,v 14.13 1988/07/15 08:44:46 cph Exp $
 
 Copyright (c) 1988 Massachusetts Institute of Technology
 
@@ -1433,6 +1433,37 @@ MIT in each case. |#
          scode-walker?)
   (initialization (initialize-package!)))
 
+(define-package (runtime starbase-graphics)
+  (file-case options
+    ((load) "Sgraph")
+    (else))
+  (parent ())
+  (export ()
+         clear-graphics
+         clear-point
+         draw-line-to
+         draw-point
+         graphics-available?
+         graphics-text
+         init-graphics
+         position-pen
+         print-graphics
+         x-graphics-available?
+         x-graphics-close-display
+         x-graphics-close-window
+         x-graphics-create-raster
+         x-graphics-delete-raster
+         x-graphics-initialize
+         x-graphics-lower-window
+         x-graphics-map-window
+         x-graphics-open-display
+         x-graphics-open-window
+         x-graphics-raise-window
+         x-graphics-start-retain
+         x-graphics-stop-retain
+         x-graphics-unmap-window)
+  (initialization (initialize-package!)))
+
 (define-package (runtime state-space)
   (files "wind")
   (parent ())

diff --git a/v7/src/runtime/version.scm b/v7/src/runtime/version.scm
index 05a646293b7f4d4aa8e5fb2e4d40de3c4b252b43..006fb61862a1c90c46012ad06d1f9f41ddf7b501 100644 (file)
--- a/v7/src/runtime/version.scm
+++ b/v7/src/runtime/version.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/version.scm,v 14.11 1988/07/14 07:40:57 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/version.scm,v 14.12 1988/07/15 08:44:58 cph Exp $
 
 Copyright (c) 1988 Massachusetts Institute of Technology
 
@@ -45,7 +45,7 @@ MIT in each case. |#
                     '()))
   (add-system! microcode-system)
   (add-event-receiver! event:after-restore snarf-microcode-version!)
-  (add-identification! "Runtime" 14 11))
+  (add-identification! "Runtime" 14 12))
 
 (define microcode-system)
 

diff --git a/v8/src/runtime/runtime.pkg b/v8/src/runtime/runtime.pkg
index d8af7f64c5b6e06a65bd1b0fe13a9ee44170374a..2268d7c4e650051496c6aff66cd0a379a2fe806d 100644 (file)
--- a/v8/src/runtime/runtime.pkg
+++ b/v8/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/runtime.pkg,v 14.12 1988/07/14 07:40:46 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/runtime.pkg,v 14.13 1988/07/15 08:44:46 cph Exp $
 
 Copyright (c) 1988 Massachusetts Institute of Technology
 
@@ -1433,6 +1433,37 @@ MIT in each case. |#
          scode-walker?)
   (initialization (initialize-package!)))
 
+(define-package (runtime starbase-graphics)
+  (file-case options
+    ((load) "Sgraph")
+    (else))
+  (parent ())
+  (export ()
+         clear-graphics
+         clear-point
+         draw-line-to
+         draw-point
+         graphics-available?
+         graphics-text
+         init-graphics
+         position-pen
+         print-graphics
+         x-graphics-available?
+         x-graphics-close-display
+         x-graphics-close-window
+         x-graphics-create-raster
+         x-graphics-delete-raster
+         x-graphics-initialize
+         x-graphics-lower-window
+         x-graphics-map-window
+         x-graphics-open-display
+         x-graphics-open-window
+         x-graphics-raise-window
+         x-graphics-start-retain
+         x-graphics-stop-retain
+         x-graphics-unmap-window)
+  (initialization (initialize-package!)))
+
 (define-package (runtime state-space)
   (files "wind")
   (parent ())