Conditionally defined OS/2 packages.
authorChris Hanson <org/chris-hanson/cph>
Sat, 2 Feb 2008 18:21:30 +0000 (18:21 +0000)
committerChris Hanson <org/chris-hanson/cph>
Sat, 2 Feb 2008 18:21:30 +0000 (18:21 +0000)
v7/src/runtime/runtime.pkg

index 6ad89b360445b65810c26b44a4b652ab43499c20..a5ad67bdf2d02cd0c6d30da637bf58bc75a00090 100644 (file)
@@ -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")