From: Chris Hanson Date: Sat, 2 Feb 2008 18:21:30 +0000 (+0000) Subject: Conditionally defined OS/2 packages. X-Git-Tag: 20090517-FFI~346 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=35b1c954b07f2cae6b891936ea5f9bf3400c3c5b;p=mit-scheme.git Conditionally defined OS/2 packages. --- diff --git a/v7/src/runtime/runtime.pkg b/v7/src/runtime/runtime.pkg index 6ad89b360..a5ad67bdf 100644 --- a/v7/src/runtime/runtime.pkg +++ b/v7/src/runtime/runtime.pkg @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: runtime.pkg,v 14.642 2008/02/02 17:59:58 cph Exp $ +$Id: runtime.pkg,v 14.643 2008/02/02 18:21:30 cph Exp $ Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, @@ -3463,9 +3463,6 @@ USA. make-graphics-device make-graphics-device-type) (export (runtime x-graphics) - make-image-type) - (export (runtime os2-graphics) - graphics-device/buffer? make-image-type)) (define-package (runtime x-graphics) @@ -3602,443 +3599,449 @@ USA. starbase-graphics-device-type) (initialization (initialize-package!))) -(define-package (runtime os2-graphics) - (file-case os-type - ((os/2) "os2graph" "os2ctype") - (else)) - (parent (runtime)) - (export () - os2-console/color? - os2-console/get-font-metrics - os2-console/get-frame-position - os2-console/get-frame-size - os2-console/get-pel-size - os2-console/get-size - os2-console/set-colors! - os2-console/set-font! - os2-console/set-frame-position! - os2-console/set-pel-size! - os2-console/set-size! - os2-graphics-device-type - os2-image/set-colormap - os2/define-color - os2/find-color) - (initialization (initialize-package!))) - -(define-package (runtime os2-window-primitives) - (file-case os-type - ((os/2) "os2winp") - (else)) - (parent (runtime)) - (export (runtime os2-graphics) - bbo_and - bbo_ignore - bbo_no_color_info - bbo_or - bbo_pal_colors - 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_color_bitcount - caps_color_cursor_support - caps_color_index - caps_color_planes - caps_color_table_support - caps_colors - caps_coltabl_realize - caps_coltabl_rgb_8 - caps_coltabl_rgb_8_plus - caps_coltabl_true_mix - caps_cosmetic_wideline_support - caps_dev_windowing_support - caps_device_font_sim - caps_device_fonts - caps_device_polyset_points - caps_device_windowing - 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_tech_postscript - caps_tech_raster_camera - caps_tech_raster_display - caps_tech_raster_printer - caps_tech_unknown - caps_tech_vector_plotter - caps_technology - 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 - command-event/code - cursor_flash - cursor_frame - cursor_halftone - cursor_solid - event-type - event-type:button - event-type:close - event-type:command - event-type:focus - event-type:help - event-type:key - event-type:paint - event-type:resize - event-type:visibility - event-wid - fcf_acceltable - fcf_autoicon - fcf_border - fcf_dlgborder - fcf_hidebutton - fcf_hidemax - fcf_horzscroll - fcf_icon - fcf_maxbutton - fcf_menu - fcf_minbutton - fcf_minmax - fcf_mousealign - fcf_nobytealign - fcf_nomovewithowner - fcf_screenalign - fcf_shellposition - fcf_sizeborder - fcf_standard - fcf_sysmenu - fcf_sysmodal - fcf_tasklist - fcf_titlebar - fcf_vertscroll - fid_client - fid_horzscroll - fid_menu - fid_minmax - fid_sysmenu - fid_titlebar - fid_vertscroll - 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 - help-event/code - hwnd_desktop - idi_graphics - 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 - mia_checked - mia_disabled - mia_framed - mia_hilited - mia_nodismiss - mis_bitmap - mis_break - mis_breakseparator - mis_buttonseparator - mis_group - mis_help - mis_multmenu - mis_ownerdraw - mis_separator - mis_single - mis_static - mis_submenu - mis_syscommand - mis_text - mit_end - mit_error - mit_first - mit_last - mit_memerror - mit_none - ms_actionbar - ms_conditionalcascade - ms_titlebutton - ms_verticalflip - nullhandle - number-of-event-types - os2menu-create - os2menu-destroy - os2menu-get-item-attributes - os2menu-insert-item - os2menu-n-items - os2menu-nth-item - os2menu-remove-item - os2menu-set-item-attributes - os2pm-synchronize - os2ps-bitblt - os2ps-clear - os2ps-create-bitmap - os2ps-create-memory-ps - os2ps-destroy-bitmap - os2ps-destroy-memory-ps - os2ps-draw-point - os2ps-get-bitmap - os2ps-get-bitmap-bits - os2ps-get-bitmap-parameters - os2ps-get-font-metrics - os2ps-line - os2ps-move-graphics-cursor - os2ps-poly-line - os2ps-poly-line-disjoint - os2ps-query-capabilities - os2ps-query-capability - os2ps-reset-clip-rectangle - os2ps-set-bitmap - os2ps-set-bitmap-bits - os2ps-set-clip-rectangle - os2ps-set-colors - os2ps-set-font - os2ps-set-line-type - os2ps-set-mix - os2ps-text-width - os2ps-write - os2win-activate - os2win-beep - os2win-close - os2win-close-event-qid - os2win-console-wid - os2win-desktop-height - os2win-desktop-width - os2win-destroy-pointer - os2win-event-ready? - os2win-focus? - os2win-frame-handle - os2win-get-event - os2win-get-frame-size - os2win-get-pos - os2win-get-size - os2win-invalidate - os2win-load-pointer - os2win-move-cursor - os2win-open - os2win-open-event-qid - os2win-ps - os2win-scroll - os2win-set-grid - os2win-set-icon - os2win-set-pos - os2win-set-size - os2win-set-state - os2win-set-title - os2win-shape-cursor - os2win-show - os2win-show-cursor - os2win-update-frame - paint-event/xh - paint-event/xl - paint-event/yh - paint-event/yl - resize-event/height - resize-event/width - rop_dstinvert - rop_mergecopy - rop_mergepaint - rop_notsrccopy - rop_notsrcerase - rop_one - rop_patcopy - rop_patinvert - rop_patpaint - rop_srcand - rop_srccopy - rop_srcerase - rop_srcinvert - rop_srcpaint - rop_zero - set-event-wid! - 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 - )) +(os-type-case + ((os/2) + (define-package (runtime os2-graphics) + (file-case os-type + ((os/2) "os2graph" "os2ctype") + (else)) + (parent (runtime)) + (import (runtime graphics) + graphics-device/buffer? + make-image-type) + (export () + os2-console/color? + os2-console/get-font-metrics + os2-console/get-frame-position + os2-console/get-frame-size + os2-console/get-pel-size + os2-console/get-size + os2-console/set-colors! + os2-console/set-font! + os2-console/set-frame-position! + os2-console/set-pel-size! + os2-console/set-size! + os2-graphics-device-type + os2-image/set-colormap + os2/define-color + os2/find-color) + (initialization (initialize-package!))) + + (define-package (runtime os2-window-primitives) + (file-case os-type + ((os/2) "os2winp") + (else)) + (parent (runtime)) + (export (runtime os2-graphics) + bbo_and + bbo_ignore + bbo_no_color_info + bbo_or + bbo_pal_colors + 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_color_bitcount + caps_color_cursor_support + caps_color_index + caps_color_planes + caps_color_table_support + caps_colors + caps_coltabl_realize + caps_coltabl_rgb_8 + caps_coltabl_rgb_8_plus + caps_coltabl_true_mix + caps_cosmetic_wideline_support + caps_dev_windowing_support + caps_device_font_sim + caps_device_fonts + caps_device_polyset_points + caps_device_windowing + 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_tech_postscript + caps_tech_raster_camera + caps_tech_raster_display + caps_tech_raster_printer + caps_tech_unknown + caps_tech_vector_plotter + caps_technology + 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 + command-event/code + cursor_flash + cursor_frame + cursor_halftone + cursor_solid + event-type + event-type:button + event-type:close + event-type:command + event-type:focus + event-type:help + event-type:key + event-type:paint + event-type:resize + event-type:visibility + event-wid + fcf_acceltable + fcf_autoicon + fcf_border + fcf_dlgborder + fcf_hidebutton + fcf_hidemax + fcf_horzscroll + fcf_icon + fcf_maxbutton + fcf_menu + fcf_minbutton + fcf_minmax + fcf_mousealign + fcf_nobytealign + fcf_nomovewithowner + fcf_screenalign + fcf_shellposition + fcf_sizeborder + fcf_standard + fcf_sysmenu + fcf_sysmodal + fcf_tasklist + fcf_titlebar + fcf_vertscroll + fid_client + fid_horzscroll + fid_menu + fid_minmax + fid_sysmenu + fid_titlebar + fid_vertscroll + 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 + help-event/code + hwnd_desktop + idi_graphics + 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 + mia_checked + mia_disabled + mia_framed + mia_hilited + mia_nodismiss + mis_bitmap + mis_break + mis_breakseparator + mis_buttonseparator + mis_group + mis_help + mis_multmenu + mis_ownerdraw + mis_separator + mis_single + mis_static + mis_submenu + mis_syscommand + mis_text + mit_end + mit_error + mit_first + mit_last + mit_memerror + mit_none + ms_actionbar + ms_conditionalcascade + ms_titlebutton + ms_verticalflip + nullhandle + number-of-event-types + os2menu-create + os2menu-destroy + os2menu-get-item-attributes + os2menu-insert-item + os2menu-n-items + os2menu-nth-item + os2menu-remove-item + os2menu-set-item-attributes + os2pm-synchronize + os2ps-bitblt + os2ps-clear + os2ps-create-bitmap + os2ps-create-memory-ps + os2ps-destroy-bitmap + os2ps-destroy-memory-ps + os2ps-draw-point + os2ps-get-bitmap + os2ps-get-bitmap-bits + os2ps-get-bitmap-parameters + os2ps-get-font-metrics + os2ps-line + os2ps-move-graphics-cursor + os2ps-poly-line + os2ps-poly-line-disjoint + os2ps-query-capabilities + os2ps-query-capability + os2ps-reset-clip-rectangle + os2ps-set-bitmap + os2ps-set-bitmap-bits + os2ps-set-clip-rectangle + os2ps-set-colors + os2ps-set-font + os2ps-set-line-type + os2ps-set-mix + os2ps-text-width + os2ps-write + os2win-activate + os2win-beep + os2win-close + os2win-close-event-qid + os2win-console-wid + os2win-desktop-height + os2win-desktop-width + os2win-destroy-pointer + os2win-event-ready? + os2win-focus? + os2win-frame-handle + os2win-get-event + os2win-get-frame-size + os2win-get-pos + os2win-get-size + os2win-invalidate + os2win-load-pointer + os2win-move-cursor + os2win-open + os2win-open-event-qid + os2win-ps + os2win-scroll + os2win-set-grid + os2win-set-icon + os2win-set-pos + os2win-set-size + os2win-set-state + os2win-set-title + os2win-shape-cursor + os2win-show + os2win-show-cursor + os2win-update-frame + paint-event/xh + paint-event/xl + paint-event/yh + paint-event/yl + resize-event/height + resize-event/width + rop_dstinvert + rop_mergecopy + rop_mergepaint + rop_notsrccopy + rop_notsrcerase + rop_one + rop_patcopy + rop_patinvert + rop_patpaint + rop_srcand + rop_srccopy + rop_srcerase + rop_srcinvert + rop_srcpaint + rop_zero + set-event-wid! + 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")