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.
#| -*-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
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
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
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
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 ())
#| -*-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
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
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
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
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 ())
projects / mit-scheme.git / commitdiff