From 6bea0bb1c129bf64b377a3593ad238d93cb50ba8 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 15 Jul 1988 08:44:58 +0000
Subject: [PATCH] Add starbase graphics primitives as option package.
---
v7/src/runtime/option.scm | 5 +++--
v7/src/runtime/runtime.pkg | 33 ++++++++++++++++++++++++++++++++-
v7/src/runtime/version.scm | 4 ++--
v8/src/runtime/runtime.pkg | 33 ++++++++++++++++++++++++++++++++-
4 files changed, 69 insertions(+), 6 deletions(-)
diff --git a/v7/src/runtime/option.scm b/v7/src/runtime/option.scm
index 1587d2870..03466fdbd 100644
--- 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 d5066ba4a..cabd2e776 100644
--- 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 05a646293..006fb6186 100644
--- 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 d8af7f64c..2268d7c4e 100644
--- 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 ())
--
2.25.1