From b2565c2511ec72b3898a7af09c35855187181073 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Thu, 22 Jun 1989 23:51:02 +0000 Subject: [PATCH] Installation of new graphics operations. This requires support available as of microcode version 10.85. Documentation to follow shortly. --- v7/src/runtime/make.scm | 4 ++- v7/src/runtime/option.scm | 7 ++-- v7/src/runtime/runtime.pkg | 67 ++++++++++++++++++++++++++++---------- v7/src/runtime/version.scm | 4 +-- v8/src/runtime/make.scm | 4 ++- v8/src/runtime/runtime.pkg | 67 ++++++++++++++++++++++++++++---------- 6 files changed, 110 insertions(+), 43 deletions(-) diff --git a/v7/src/runtime/make.scm b/v7/src/runtime/make.scm index a10700214..aafc42230 100644 --- a/v7/src/runtime/make.scm +++ b/v7/src/runtime/make.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/make.scm,v 14.12 1989/05/21 17:17:56 jinx Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/make.scm,v 14.13 1989/06/22 23:50:49 cph Rel $ Copyright (c) 1988, 1989 Massachusetts Institute of Technology @@ -377,6 +377,8 @@ MIT in each case. |# (RUNTIME DEBUGGER) (RUNTIME) + (RUNTIME X-GRAPHICS) + (RUNTIME STARBASE-GRAPHICS) ;; Emacs -- last because it grabs the kitchen sink. (RUNTIME EMACS-INTERFACE) )) diff --git a/v7/src/runtime/option.scm b/v7/src/runtime/option.scm index 64a08a3dd..2814c1332 100644 --- a/v7/src/runtime/option.scm +++ b/v7/src/runtime/option.scm @@ -1,8 +1,8 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/option.scm,v 14.3 1988/07/15 09:16:06 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/option.scm,v 14.4 1989/06/22 23:50:53 cph Rel $ -Copyright (c) 1988 Massachusetts Institute of Technology +Copyright (c) 1988, 1989 Massachusetts Institute of Technology This material was developed by the Scheme project at the Massachusetts Institute of Technology, Department of Electrical Engineering and @@ -63,4 +63,5 @@ MIT in each case. |# (define options '((FORMAT ((RUNTIME FORMAT) (INITIALIZE-PACKAGE!) "format")) - (STARBASE ((RUNTIME STARBASE-GRAPHICS) (INITIALIZE-PACKAGE!) "Sgraph")))) \ No newline at end of file + (STARBASE + ((RUNTIME OLD-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 253e35587..a521f2bbd 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.39 1989/06/09 16:51:34 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/runtime.pkg,v 14.40 1989/06/22 23:50:57 cph Exp $ Copyright (c) 1988, 1989 Massachusetts Institute of Technology @@ -1479,7 +1479,54 @@ MIT in each case. |# scode-walker?) (initialization (initialize-package!))) +(define-package (runtime graphics) + (files "graphics") + (parent ()) + (export () + graphics-bind-drawing-mode + graphics-bind-line-style + graphics-clear + graphics-close + graphics-coordinate-limits + graphics-device-coordinate-limits + graphics-disable-buffering + graphics-drag-cursor + graphics-draw-line + graphics-draw-point + graphics-draw-text + graphics-enable-buffering + graphics-erase-point + graphics-flush + graphics-move-cursor + graphics-operation + graphics-reset-clip-rectangle + graphics-set-clip-rectangle + graphics-set-coordinate-limits + graphics-set-drawing-mode + graphics-set-line-style + graphics-type-available? + make-graphics-device + make-graphics-device-type)) + +(define-package (runtime x-graphics) + (files "x11graph") + (parent ()) + (export () + x-close-all-displays + x-close-display + x-geometry-string + x-graphics-device-type + x-open-display) + (initialization (initialize-package!))) + (define-package (runtime starbase-graphics) + (files "starbase") + (parent ()) + (export () + starbase-graphics-device-type) + (initialization (initialize-package!))) + +(define-package (runtime old-starbase-graphics) (file-case options ((load) "Sgraph") (else)) @@ -1498,23 +1545,7 @@ MIT in each case. |# set-graphics-drawing-mode set-graphics-line-style with-graphics-drawing-mode - with-graphics-line-style - 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 - x11-graphics-initialize - x11-graphics-close) + with-graphics-line-style) (initialization (initialize-package!))) (define-package (runtime state-space) diff --git a/v7/src/runtime/version.scm b/v7/src/runtime/version.scm index dcdb1164b..16dcfdabd 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.45 1989/06/09 16:51:44 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/version.scm,v 14.46 1989/06/22 23:51:02 cph Rel $ Copyright (c) 1988, 1989 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 45)) + (add-identification! "Runtime" 14 46)) (define microcode-system) diff --git a/v8/src/runtime/make.scm b/v8/src/runtime/make.scm index 22fcaf41e..552ff8744 100644 --- a/v8/src/runtime/make.scm +++ b/v8/src/runtime/make.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/make.scm,v 14.12 1989/05/21 17:17:56 jinx Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/make.scm,v 14.13 1989/06/22 23:50:49 cph Rel $ Copyright (c) 1988, 1989 Massachusetts Institute of Technology @@ -377,6 +377,8 @@ MIT in each case. |# (RUNTIME DEBUGGER) (RUNTIME) + (RUNTIME X-GRAPHICS) + (RUNTIME STARBASE-GRAPHICS) ;; Emacs -- last because it grabs the kitchen sink. (RUNTIME EMACS-INTERFACE) )) diff --git a/v8/src/runtime/runtime.pkg b/v8/src/runtime/runtime.pkg index 674f2c456..9320a8174 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.39 1989/06/09 16:51:34 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/runtime.pkg,v 14.40 1989/06/22 23:50:57 cph Exp $ Copyright (c) 1988, 1989 Massachusetts Institute of Technology @@ -1479,7 +1479,54 @@ MIT in each case. |# scode-walker?) (initialization (initialize-package!))) +(define-package (runtime graphics) + (files "graphics") + (parent ()) + (export () + graphics-bind-drawing-mode + graphics-bind-line-style + graphics-clear + graphics-close + graphics-coordinate-limits + graphics-device-coordinate-limits + graphics-disable-buffering + graphics-drag-cursor + graphics-draw-line + graphics-draw-point + graphics-draw-text + graphics-enable-buffering + graphics-erase-point + graphics-flush + graphics-move-cursor + graphics-operation + graphics-reset-clip-rectangle + graphics-set-clip-rectangle + graphics-set-coordinate-limits + graphics-set-drawing-mode + graphics-set-line-style + graphics-type-available? + make-graphics-device + make-graphics-device-type)) + +(define-package (runtime x-graphics) + (files "x11graph") + (parent ()) + (export () + x-close-all-displays + x-close-display + x-geometry-string + x-graphics-device-type + x-open-display) + (initialization (initialize-package!))) + (define-package (runtime starbase-graphics) + (files "starbase") + (parent ()) + (export () + starbase-graphics-device-type) + (initialization (initialize-package!))) + +(define-package (runtime old-starbase-graphics) (file-case options ((load) "Sgraph") (else)) @@ -1498,23 +1545,7 @@ MIT in each case. |# set-graphics-drawing-mode set-graphics-line-style with-graphics-drawing-mode - with-graphics-line-style - 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 - x11-graphics-initialize - x11-graphics-close) + with-graphics-line-style) (initialization (initialize-package!))) (define-package (runtime state-space) -- 2.25.1