From: Chris Hanson Date: Fri, 6 Jan 1995 00:49:03 +0000 (+0000) Subject: Add OS/2 graphics. Conditionalize loading of other graphics support X-Git-Tag: 20090517-FFI~6814 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=f9bf30815f998a62728b722dbd1749cfe88feed7;p=mit-scheme.git Add OS/2 graphics. Conditionalize loading of other graphics support so that only the support needed for the operating system is loaded. Thus, unix systems won't load OS/2 graphics, and OS/2 systems won't load X graphics. --- diff --git a/v7/src/runtime/runtime.pkg b/v7/src/runtime/runtime.pkg index 95c268d5e..7d440f7fc 100644 --- a/v7/src/runtime/runtime.pkg +++ b/v7/src/runtime/runtime.pkg @@ -1,8 +1,8 @@ #| -*-Scheme-*- -$Id: runtime.pkg,v 14.239 1994/12/19 21:03:43 cph Exp $ +$Id: runtime.pkg,v 14.240 1995/01/06 00:49:03 cph Exp $ -Copyright (c) 1988-94 Massachusetts Institute of Technology +Copyright (c) 1988-95 Massachusetts Institute of Technology This material was developed by the Scheme project at the Massachusetts Institute of Technology, Department of Electrical Engineering and @@ -683,6 +683,7 @@ MIT in each case. |# open-i/o-file open-input-file open-output-file + pathname-newline-translation with-input-from-binary-file with-input-from-file with-output-to-binary-file @@ -2200,10 +2201,20 @@ MIT in each case. |# image/width image? make-graphics-device - make-graphics-device-type)) + make-graphics-device-type) + (export (runtime x-graphics) + register-graphics-device-type + make-image-type + image/create) + (export (runtime starbase-graphics) + register-graphics-device-type) + (export (runtime os2-graphics) + register-graphics-device-type)) (define-package (runtime x-graphics) - (files "x11graph") + (file-case os-type + ((unix) "x11graph") + (else)) (parent ()) (export () create-x-colormap @@ -2240,6 +2251,7 @@ MIT in each case. |# x-graphics/clear x-graphics/close-display x-graphics/close-window + x-graphics/color? x-graphics/coordinate-limits x-graphics/copy-area x-graphics/device-coordinate-limits @@ -2299,21 +2311,321 @@ MIT in each case. |# x-image/set-pixel x-image/width x-image?) - (import (runtime graphics) - register-graphics-device-type - make-image-type - image/create) (initialization (initialize-package!))) (define-package (runtime starbase-graphics) - (files "starbase") + (file-case os-type + ((unix) "starbase") + (else)) (parent ()) (export () starbase-graphics-device-type) - (import (runtime graphics) - register-graphics-device-type) (initialization (initialize-package!))) +(define-package (runtime os2-graphics) + (file-case os-type + ((os/2) "os2graph") + (else)) + (parent ()) + (export () + os2-graphics-device-type) + (initialization (initialize-package!))) + +(define-package (runtime os2-window-primitives) + (file-case os-type + ((os/2) "os2winp") + (else)) + (parent ()) + (export (runtime os2-graphics) + button-event-type:click + button-event-type:double-click + button-event-type:down + button-event-type:up + button-event/flags + button-event/number + button-event/type + button-event/x + button-event/y + caps_additional_graphics + caps_background_mix_support + caps_bitmap_formats + caps_bm_and + caps_bm_desttransparent + caps_bm_general_boolean + caps_bm_leavealone + caps_bm_or + caps_bm_overpaint + caps_bm_srctransparent + caps_bm_xor + caps_byte_align_not_required + caps_byte_align_recommended + caps_byte_align_required + caps_char_height + caps_char_width + caps_clip_fills + caps_colors + caps_color_bitcount + caps_color_cursor_support + caps_color_index + caps_color_planes + caps_color_table_support + caps_coltabl_realize + caps_coltabl_rgb_8 + caps_coltabl_rgb_8_plus + caps_coltabl_true_mix + caps_cosmetic_wideline_support + caps_device_fonts + caps_device_font_sim + caps_device_polyset_points + caps_device_windowing + caps_dev_windowing_support + caps_direct_fill + caps_driver_version + caps_enhanced_fontmetrics + caps_family + caps_fm_and + caps_fm_general_boolean + caps_fm_leavealone + caps_fm_or + caps_fm_overpaint + caps_fm_xor + caps_font_image_default + caps_font_outline_default + caps_foreground_mix_support + caps_graphics_char_height + caps_graphics_char_width + caps_graphics_kerning_support + caps_graphics_subset + caps_graphics_vector_subset + caps_graphics_version + caps_height ;pels + caps_height_in_chars + caps_horizontal_font_res + caps_horizontal_resolution + caps_io_caps + caps_io_dummy + caps_io_supports_io + caps_io_supports_ip + caps_io_supports_op + caps_linewidth_thick + caps_marker_height + caps_marker_width + caps_mouse_buttons + caps_palette_manager + caps_phys_colors + caps_raster_banding + caps_raster_bitblt + caps_raster_bitblt_scaling + caps_raster_caps + caps_raster_flood_fill + caps_raster_fonts + caps_raster_set_pel + caps_rebuild_fills + caps_scaled_default_markers + caps_small_char_height + caps_small_char_width + caps_technology + caps_tech_postscript + caps_tech_raster_camera + caps_tech_raster_display + caps_tech_raster_printer + caps_tech_unknown + caps_tech_vector_plotter + caps_transform_support + caps_vdd_ddb_transfer + caps_vertical_font_res + caps_vertical_resolution + caps_vio_loadable_fonts + caps_width ;pels + caps_width_in_chars + caps_window_byte_alignment + cursor_flash + cursor_frame + cursor_halftone + cursor_solid + event-type + event-type:button + event-type:close + event-type:focus + event-type:key + event-type:paint + event-type:resize + event-type:visibility + event-wid + fm_and + fm_default + fm_invert + fm_leavealone + fm_masksrcnot + fm_mergenotsrc + fm_mergesrcnot + fm_notcopysrc + fm_notmasksrc + fm_notmergesrc + fm_notxorsrc + fm_one + fm_or + fm_overpaint + fm_subtract + fm_xor + fm_zero + focus-event/gained? + font-metrics/descender + font-metrics/height + font-metrics/width + kc_alt + kc_char + kc_composite + kc_ctrl + kc_deadkey + kc_invalidchar + kc_invalidcomp + kc_keyup + kc_lonekey + kc_none + kc_prevdown + kc_scancode + kc_shift + kc_toggle + kc_virtualkey + key-event/code + key-event/flags + key-event/repeat + linetype_alternate + linetype_dashdot + linetype_dashdoubledot + linetype_default + linetype_dot + linetype_doubledot + linetype_invisible + linetype_longdash + linetype_shortdash + linetype_solid + number-of-event-types + os2win-activate + os2win-beep + os2win-clear + os2win-close + os2win-close-event-qid + os2win-console-wid + os2win-desktop-height + os2win-desktop-width + os2win-event-ready? + os2win-focus? + os2win-get-event + os2win-get-pos + os2win-get-size + os2win-invalidate + os2win-line + os2win-move-cursor + os2win-move-graphics-cursor + os2win-open + os2win-open-1 + os2win-open-event-qid + os2win-poly-line + os2win-poly-line-disjoint + os2win-query-capabilities + os2win-query-capability + os2win-scroll + os2win-set-colors + os2win-set-font + os2win-set-grid + os2win-set-line-type + os2win-set-pos + os2win-set-size + os2win-set-state + os2win-set-title + os2win-shape-cursor + os2win-show + os2win-show-cursor + os2win-write + paint-event/xh + paint-event/xl + paint-event/yh + paint-event/yl + resize-event/height + resize-event/width + virtual-key-supremum + visibility-event/shown? + vk_alt + vk_altgraf + vk_backspace + vk_backtab + vk_break + vk_button1 + vk_button2 + vk_button3 + vk_capslock + vk_clear + vk_ctrl + vk_delete + vk_down + vk_end + vk_enddrag + vk_enter + vk_ereof + vk_esc + vk_f1 + vk_f10 + vk_f11 + vk_f12 + vk_f13 + vk_f14 + vk_f15 + vk_f16 + vk_f17 + vk_f18 + vk_f19 + vk_f2 + vk_f20 + vk_f21 + vk_f22 + vk_f23 + vk_f24 + vk_f3 + vk_f4 + vk_f5 + vk_f6 + vk_f7 + vk_f8 + vk_f9 + vk_home + vk_insert + vk_left + vk_newline + vk_numlock + vk_pa1 + vk_pagedown + vk_pageup + vk_pause + vk_printscrn + vk_right + vk_scrllock + vk_shift + vk_space + vk_sysrq + vk_tab + vk_up + window-state:activate + window-state:bottom + window-state:deactivate + window-state:hide + window-state:maximize + window-state:minimize + window-state:restore + window-state:show + window-state:top + ws_animate + ws_clipchildren + ws_clipsiblings + ws_disabled + ws_maximized + ws_minimized + ws_parentclip + ws_savebits + ws_syncpaint + ws_visible)) + (define-package (runtime state-space) (files "wind") (parent ()) diff --git a/v8/src/runtime/runtime.pkg b/v8/src/runtime/runtime.pkg index 95c268d5e..7d440f7fc 100644 --- a/v8/src/runtime/runtime.pkg +++ b/v8/src/runtime/runtime.pkg @@ -1,8 +1,8 @@ #| -*-Scheme-*- -$Id: runtime.pkg,v 14.239 1994/12/19 21:03:43 cph Exp $ +$Id: runtime.pkg,v 14.240 1995/01/06 00:49:03 cph Exp $ -Copyright (c) 1988-94 Massachusetts Institute of Technology +Copyright (c) 1988-95 Massachusetts Institute of Technology This material was developed by the Scheme project at the Massachusetts Institute of Technology, Department of Electrical Engineering and @@ -683,6 +683,7 @@ MIT in each case. |# open-i/o-file open-input-file open-output-file + pathname-newline-translation with-input-from-binary-file with-input-from-file with-output-to-binary-file @@ -2200,10 +2201,20 @@ MIT in each case. |# image/width image? make-graphics-device - make-graphics-device-type)) + make-graphics-device-type) + (export (runtime x-graphics) + register-graphics-device-type + make-image-type + image/create) + (export (runtime starbase-graphics) + register-graphics-device-type) + (export (runtime os2-graphics) + register-graphics-device-type)) (define-package (runtime x-graphics) - (files "x11graph") + (file-case os-type + ((unix) "x11graph") + (else)) (parent ()) (export () create-x-colormap @@ -2240,6 +2251,7 @@ MIT in each case. |# x-graphics/clear x-graphics/close-display x-graphics/close-window + x-graphics/color? x-graphics/coordinate-limits x-graphics/copy-area x-graphics/device-coordinate-limits @@ -2299,21 +2311,321 @@ MIT in each case. |# x-image/set-pixel x-image/width x-image?) - (import (runtime graphics) - register-graphics-device-type - make-image-type - image/create) (initialization (initialize-package!))) (define-package (runtime starbase-graphics) - (files "starbase") + (file-case os-type + ((unix) "starbase") + (else)) (parent ()) (export () starbase-graphics-device-type) - (import (runtime graphics) - register-graphics-device-type) (initialization (initialize-package!))) +(define-package (runtime os2-graphics) + (file-case os-type + ((os/2) "os2graph") + (else)) + (parent ()) + (export () + os2-graphics-device-type) + (initialization (initialize-package!))) + +(define-package (runtime os2-window-primitives) + (file-case os-type + ((os/2) "os2winp") + (else)) + (parent ()) + (export (runtime os2-graphics) + button-event-type:click + button-event-type:double-click + button-event-type:down + button-event-type:up + button-event/flags + button-event/number + button-event/type + button-event/x + button-event/y + caps_additional_graphics + caps_background_mix_support + caps_bitmap_formats + caps_bm_and + caps_bm_desttransparent + caps_bm_general_boolean + caps_bm_leavealone + caps_bm_or + caps_bm_overpaint + caps_bm_srctransparent + caps_bm_xor + caps_byte_align_not_required + caps_byte_align_recommended + caps_byte_align_required + caps_char_height + caps_char_width + caps_clip_fills + caps_colors + caps_color_bitcount + caps_color_cursor_support + caps_color_index + caps_color_planes + caps_color_table_support + caps_coltabl_realize + caps_coltabl_rgb_8 + caps_coltabl_rgb_8_plus + caps_coltabl_true_mix + caps_cosmetic_wideline_support + caps_device_fonts + caps_device_font_sim + caps_device_polyset_points + caps_device_windowing + caps_dev_windowing_support + caps_direct_fill + caps_driver_version + caps_enhanced_fontmetrics + caps_family + caps_fm_and + caps_fm_general_boolean + caps_fm_leavealone + caps_fm_or + caps_fm_overpaint + caps_fm_xor + caps_font_image_default + caps_font_outline_default + caps_foreground_mix_support + caps_graphics_char_height + caps_graphics_char_width + caps_graphics_kerning_support + caps_graphics_subset + caps_graphics_vector_subset + caps_graphics_version + caps_height ;pels + caps_height_in_chars + caps_horizontal_font_res + caps_horizontal_resolution + caps_io_caps + caps_io_dummy + caps_io_supports_io + caps_io_supports_ip + caps_io_supports_op + caps_linewidth_thick + caps_marker_height + caps_marker_width + caps_mouse_buttons + caps_palette_manager + caps_phys_colors + caps_raster_banding + caps_raster_bitblt + caps_raster_bitblt_scaling + caps_raster_caps + caps_raster_flood_fill + caps_raster_fonts + caps_raster_set_pel + caps_rebuild_fills + caps_scaled_default_markers + caps_small_char_height + caps_small_char_width + caps_technology + caps_tech_postscript + caps_tech_raster_camera + caps_tech_raster_display + caps_tech_raster_printer + caps_tech_unknown + caps_tech_vector_plotter + caps_transform_support + caps_vdd_ddb_transfer + caps_vertical_font_res + caps_vertical_resolution + caps_vio_loadable_fonts + caps_width ;pels + caps_width_in_chars + caps_window_byte_alignment + cursor_flash + cursor_frame + cursor_halftone + cursor_solid + event-type + event-type:button + event-type:close + event-type:focus + event-type:key + event-type:paint + event-type:resize + event-type:visibility + event-wid + fm_and + fm_default + fm_invert + fm_leavealone + fm_masksrcnot + fm_mergenotsrc + fm_mergesrcnot + fm_notcopysrc + fm_notmasksrc + fm_notmergesrc + fm_notxorsrc + fm_one + fm_or + fm_overpaint + fm_subtract + fm_xor + fm_zero + focus-event/gained? + font-metrics/descender + font-metrics/height + font-metrics/width + kc_alt + kc_char + kc_composite + kc_ctrl + kc_deadkey + kc_invalidchar + kc_invalidcomp + kc_keyup + kc_lonekey + kc_none + kc_prevdown + kc_scancode + kc_shift + kc_toggle + kc_virtualkey + key-event/code + key-event/flags + key-event/repeat + linetype_alternate + linetype_dashdot + linetype_dashdoubledot + linetype_default + linetype_dot + linetype_doubledot + linetype_invisible + linetype_longdash + linetype_shortdash + linetype_solid + number-of-event-types + os2win-activate + os2win-beep + os2win-clear + os2win-close + os2win-close-event-qid + os2win-console-wid + os2win-desktop-height + os2win-desktop-width + os2win-event-ready? + os2win-focus? + os2win-get-event + os2win-get-pos + os2win-get-size + os2win-invalidate + os2win-line + os2win-move-cursor + os2win-move-graphics-cursor + os2win-open + os2win-open-1 + os2win-open-event-qid + os2win-poly-line + os2win-poly-line-disjoint + os2win-query-capabilities + os2win-query-capability + os2win-scroll + os2win-set-colors + os2win-set-font + os2win-set-grid + os2win-set-line-type + os2win-set-pos + os2win-set-size + os2win-set-state + os2win-set-title + os2win-shape-cursor + os2win-show + os2win-show-cursor + os2win-write + paint-event/xh + paint-event/xl + paint-event/yh + paint-event/yl + resize-event/height + resize-event/width + virtual-key-supremum + visibility-event/shown? + vk_alt + vk_altgraf + vk_backspace + vk_backtab + vk_break + vk_button1 + vk_button2 + vk_button3 + vk_capslock + vk_clear + vk_ctrl + vk_delete + vk_down + vk_end + vk_enddrag + vk_enter + vk_ereof + vk_esc + vk_f1 + vk_f10 + vk_f11 + vk_f12 + vk_f13 + vk_f14 + vk_f15 + vk_f16 + vk_f17 + vk_f18 + vk_f19 + vk_f2 + vk_f20 + vk_f21 + vk_f22 + vk_f23 + vk_f24 + vk_f3 + vk_f4 + vk_f5 + vk_f6 + vk_f7 + vk_f8 + vk_f9 + vk_home + vk_insert + vk_left + vk_newline + vk_numlock + vk_pa1 + vk_pagedown + vk_pageup + vk_pause + vk_printscrn + vk_right + vk_scrllock + vk_shift + vk_space + vk_sysrq + vk_tab + vk_up + window-state:activate + window-state:bottom + window-state:deactivate + window-state:hide + window-state:maximize + window-state:minimize + window-state:restore + window-state:show + window-state:top + ws_animate + ws_clipchildren + ws_clipsiblings + ws_disabled + ws_maximized + ws_minimized + ws_parentclip + ws_savebits + ws_syncpaint + ws_visible)) + (define-package (runtime state-space) (files "wind") (parent ())