/[cmucl]/src/clx/package.lisp
ViewVC logotype

Contents of /src/clx/package.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (hide annotations)
Thu Nov 7 16:58:19 1991 UTC (22 years, 5 months ago) by ram
Branch: MAIN
CLX R5 changes.
1 ram 1.1 ;;; -*- Mode: LISP; Syntax: Common-lisp; Base: 10; Lowercase: Yes; -*-
2    
3     ;;; Copyright 1990 Massachusetts Institute of Technology, Cambridge,
4     ;;; Massachusetts. All Rights Reserved.
5     ;;;
6     ;;; Permission to use, copy, modify, and distribute this software and its
7     ;;; documentation for any purpose and without fee is hereby granted, provided
8     ;;; that the above copyright notice appear in all copies and that both that
9     ;;; copyright notice and this permission notice appear in supporting
10     ;;; documentation, and that the name MIT not be used in advertising or
11     ;;; publicity pertaining to distribution of the software without specific,
12     ;;; written prior permission.
13    
14     ;;; The CLtL way
15    
16     #-clx-ansi-common-lisp
17     (lisp:in-package :xlib :use '(:lisp))
18    
19     #+(and (or kcl ibcl) (not clx-ansi-common-lisp))
20     (shadow
21     '(
22     rational
23     ))
24    
25     #+(and lispm (not clx-ansi-common-lisp))
26     (import
27     '(
28     sys:arglist
29     sys:with-stack-list
30     sys:with-stack-list*
31     ))
32    
33     #+(and Genera (not clx-ansi-common-lisp))
34     (import
35     '(
36     future-common-lisp:print-unreadable-object
37     future-common-lisp:with-standard-io-syntax
38     sys:array-register
39     zwei:indentation
40     ))
41    
42     #+(and lcl3.0 (not clx-ansi-common-lisp))
43     (import
44     '(
45     lcl:arglist
46     lcl:dynamic-extent
47     lcl:type-error
48     lucid::type-error-datum
49     lucid::type-error-expected-type
50     ))
51    
52     #+(and excl (not clx-ansi-common-lisp))
53     (import
54     '(
55     excl::arglist
56     excl::dynamic-extent
57     excl::type-error
58     excl::type-error-datum
59     excl::type-error-expected-type
60     ))
61    
62     #+(and allegro (not clx-ansi-common-lisp))
63     (import
64     '(
65     excl::without-interrupts
66     ))
67    
68     #-clx-ansi-common-lisp
69     (export
70     '(
71     *version* access-control access-error access-hosts
72     activate-screen-saver add-access-host add-resource add-to-save-set
73     alist alloc-color alloc-color-cells alloc-color-planes alloc-error
74     allow-events angle arc-seq array-index atom-error atom-name
75     bell bit-gravity bitmap bitmap-format bitmap-format-lsb-first-p
76     bitmap-format-p bitmap-format-pad bitmap-format-unit bitmap-image
77     boole-constant boolean card16 card29 card32 card8
78     card8->char change-active-pointer-grab change-keyboard-control
79     change-keyboard-mapping change-pointer-control change-property
80     char->card8 char-ascent char-attributes char-descent
81     char-left-bearing char-right-bearing char-width character->keysyms
82     character-in-map-p circulate-window-down circulate-window-up clear-area
83     close-display close-down-mode close-font closed-display color
84     color-blue color-green color-p color-red color-rgb colormap
85     colormap-display colormap-equal colormap-error colormap-id colormap-p
86     colormap-plist colormap-visual-info connection-failure convert-selection
87     copy-area copy-colormap-and-free copy-gcontext copy-gcontext-components
88     copy-image copy-plane create-colormap create-cursor
89     create-gcontext create-glyph-cursor create-image create-pixmap
90     create-window cursor cursor-display cursor-equal cursor-error
91     cursor-id cursor-p cursor-plist cut-buffer declare-event decode-core-error
92     default-error-handler default-keysym-index default-keysym-translate
93     define-error define-extension define-gcontext-accessor
94     define-keysym define-keysym-set delete-property delete-resource
95     destroy-subwindows destroy-window device-busy device-event-mask
96     device-event-mask-class discard-current-event discard-font-info display
97     display-after-function display-authorization-data display-authorization-name
98     display-bitmap-format display-byte-order display-default-screen
99     display-display display-error-handler display-finish-output
100     display-force-output display-host display-image-lsb-first-p
101     display-invoke-after-function display-keycode-range display-max-keycode
102     display-max-request-length display-min-keycode display-motion-buffer-size
103     display-nscreens display-p display-pixmap-formats display-plist
104     display-protocol-major-version display-protocol-minor-version
105     display-protocol-version display-release-number
106     display-report-asynchronous-errors display-resource-id-base
107     display-resource-id-mask display-roots display-vendor
108     display-vendor-name display-xdefaults display-xid draw-arc
109     draw-arcs draw-direction draw-glyph draw-glyphs draw-image-glyph
110     draw-image-glyphs draw-line draw-lines draw-point draw-points
111     draw-rectangle draw-rectangles draw-segments drawable
112     drawable-border-width drawable-depth drawable-display drawable-equal
113     drawable-error drawable-height drawable-id drawable-p
114     drawable-plist drawable-root drawable-width drawable-x drawable-y
115     error-key event-case event-cond event-handler event-key
116     event-listen event-mask event-mask-class extension-opcode
117     find-atom font font-all-chars-exist-p font-ascent
118     font-default-char font-descent font-direction font-display
119     font-equal font-error font-id font-max-byte1 font-max-byte2
120     font-max-char font-min-byte1 font-min-byte2 font-min-char
121     font-name font-p font-path font-plist font-properties
122     font-property fontable force-gcontext-changes free-colormap
123     free-colors free-cursor free-gcontext free-pixmap gcontext
124     gcontext-arc-mode gcontext-background
125     gcontext-cache-p gcontext-cap-style
126     gcontext-clip-mask gcontext-clip-ordering gcontext-clip-x
127     gcontext-clip-y gcontext-dash-offset gcontext-dashes gcontext-display
128     gcontext-equal gcontext-error gcontext-exposures gcontext-fill-rule
129     gcontext-fill-style gcontext-font gcontext-foreground gcontext-function
130     gcontext-id gcontext-join-style gcontext-key gcontext-line-style
131     gcontext-line-width gcontext-p gcontext-plane-mask gcontext-plist
132     gcontext-stipple gcontext-subwindow-mode gcontext-tile gcontext-ts-x
133     gcontext-ts-y get-external-event-code get-image get-property
134     get-raw-image get-resource get-search-resource get-search-table
135     get-standard-colormap get-wm-class global-pointer-position grab-button
136     grab-key grab-keyboard grab-pointer grab-server grab-status
137     icon-sizes iconify-window id-choice-error illegal-request-error
138     image image-blue-mask image-depth image-green-mask image-height
139     image-name image-pixmap image-plist image-red-mask image-width
140     image-x image-x-hot image-x-p image-xy image-xy-bitmap-list
141     image-xy-p image-y-hot image-z image-z-bits-per-pixel image-z-p
142     image-z-pixarray implementation-error input-focus install-colormap
143     installed-colormaps int16 int32 int8 intern-atom invalid-font
144     keyboard-control keyboard-mapping keycode->character keycode->keysym
145     keysym keysym->character keysym->keycodes keysym-in-map-p
146     keysym-set kill-client kill-temporary-clients length-error
147     list-extensions list-font-names list-fonts list-properties
148     lookup-color lookup-error make-color make-event-handlers
149     make-event-keys make-event-mask make-resource-database make-state-keys
150     make-state-mask make-wm-hints make-wm-size-hints map-resource
151     map-subwindows map-window mapping-notify mask16 mask32
152     match-error max-char-ascent max-char-attributes max-char-descent
153     max-char-left-bearing max-char-right-bearing max-char-width
154     merge-resources min-char-ascent min-char-attributes min-char-descent
155     min-char-left-bearing min-char-right-bearing min-char-width
156     missing-parameter modifier-key modifier-mapping modifier-mask
157     motion-events name-error no-operation open-display open-font
158     pixarray pixel pixmap pixmap-display pixmap-equal
159     pixmap-error pixmap-format pixmap-format-bits-per-pixel
160     pixmap-format-depth pixmap-format-p pixmap-format-scanline-pad
161     pixmap-id pixmap-p pixmap-plist point-seq pointer-control
162     pointer-event-mask pointer-event-mask-class pointer-mapping
163     pointer-position process-event put-image put-raw-image
164     query-best-cursor query-best-stipple query-best-tile query-colors
165     query-extension query-keymap query-pointer query-tree queue-event
166     read-bitmap-file read-resources recolor-cursor rect-seq
167     remove-access-host remove-from-save-set reparent-window repeat-seq
168     reply-length-error reply-timeout request-error reset-screen-saver
169     resource-database resource-database-timestamp resource-error
170     resource-id resource-key rgb-colormaps rgb-val root-resources
171     rotate-cut-buffers rotate-properties screen screen-backing-stores
172     screen-black-pixel screen-default-colormap screen-depths
173     screen-event-mask-at-open screen-height screen-height-in-millimeters
174     screen-max-installed-maps screen-min-installed-maps screen-p
175     screen-plist screen-root screen-root-depth screen-root-visual
176     screen-root-visual-info screen-save-unders-p screen-saver
177     screen-white-pixel screen-width screen-width-in-millimeters seg-seq
178     selection-owner send-event sequence-error set-access-control
179     set-close-down-mode set-input-focus set-modifier-mapping
180     set-pointer-mapping set-screen-saver set-selection-owner
181     set-standard-colormap set-standard-properties set-wm-class
182     set-wm-properties set-wm-resources state-keysym-p state-mask-key
183     store-color store-colors stringable text-extents text-width
184     timestamp transient-for translate-coordinates translate-default
185     translation-function type-error undefine-keysym unexpected-reply
186     ungrab-button ungrab-key ungrab-keyboard ungrab-pointer
187     ungrab-server uninstall-colormap unknown-error unmap-subwindows
188     unmap-window value-error visual-info visual-info-bits-per-rgb
189     visual-info-blue-mask visual-info-class visual-info-colormap-entries
190     visual-info-display visual-info-green-mask visual-info-id visual-info-p
191     visual-info-plist visual-info-red-mask warp-pointer
192     warp-pointer-if-inside warp-pointer-relative warp-pointer-relative-if-inside
193     win-gravity window window-all-event-masks window-background
194     window-backing-pixel window-backing-planes window-backing-store
195     window-bit-gravity window-border window-class window-colormap
196     window-colormap-installed-p window-cursor window-display
197     window-do-not-propagate-mask window-equal window-error
198     window-event-mask window-gravity window-id window-map-state
199     window-override-redirect window-p window-plist window-priority
200     window-save-under window-visual window-visual-info with-display
201     with-event-queue with-gcontext with-server-grabbed with-state
202     withdraw-window wm-client-machine wm-colormap-windows wm-command
203     wm-hints wm-hints-flags wm-hints-icon-mask wm-hints-icon-pixmap
204     wm-hints-icon-window wm-hints-icon-x wm-hints-icon-y
205     wm-hints-initial-state wm-hints-input wm-hints-p wm-hints-window-group
206     wm-icon-name wm-name wm-normal-hints wm-protocols wm-resources
207     wm-size-hints wm-size-hints-base-height wm-size-hints-base-width
208     wm-size-hints-height wm-size-hints-height-inc wm-size-hints-max-aspect
209     wm-size-hints-max-height wm-size-hints-max-width wm-size-hints-min-aspect
210     wm-size-hints-min-height wm-size-hints-min-width wm-size-hints-p
211     wm-size-hints-user-specified-position-p wm-size-hints-user-specified-size-p
212     wm-size-hints-width wm-size-hints-width-inc wm-size-hints-win-gravity
213     wm-size-hints-x wm-size-hints-y wm-zoom-hints write-bitmap-file
214     write-resources xatom
215     ))
216    
217    
218     ;;; The ANSI Common Lisp way
219    
220     #+(and Genera clx-ansi-common-lisp)
221     (eval-when (:compile-toplevel :load-toplevel :execute)
222     (setf *readtable* si:*ansi-common-lisp-readtable*))
223    
224     #+clx-ansi-common-lisp
225     (common-lisp:in-package :common-lisp-user)
226    
227     #+clx-ansi-common-lisp
228     (defpackage xlib
229     (:use common-lisp)
230     (:size 3000)
231     #+(or kcl ibcl) (:shadow rational)
232     #+allegro (:use cltl1)
233     #+allegro (:import-from excl without-interrupts)
234     #+excl (:import-from excl arglist)
235     #+Genera (:import-from sys array-register)
236     #+Genera (:import-from zwei indentation)
237     #+lcl3.0 (:import-from lcl arglist)
238     #+lispm (:import-from lisp char-bit)
239     #+lispm (:import-from sys arglist with-stack-list with-stack-list*)
240     (:export
241     *version* access-control access-error access-hosts
242     activate-screen-saver add-access-host add-resource add-to-save-set
243     alist alloc-color alloc-color-cells alloc-color-planes alloc-error
244     allow-events angle arc-seq array-index atom-error atom-name
245     bell bit-gravity bitmap bitmap-format bitmap-format-lsb-first-p
246     bitmap-format-p bitmap-format-pad bitmap-format-unit bitmap-image
247     boole-constant boolean card16 card29 card32 card8
248     card8->char change-active-pointer-grab change-keyboard-control
249     change-keyboard-mapping change-pointer-control change-property
250     char->card8 char-ascent char-attributes char-descent
251     char-left-bearing char-right-bearing char-width character->keysyms
252     character-in-map-p circulate-window-down circulate-window-up clear-area
253     close-display close-down-mode close-font closed-display color
254     color-blue color-green color-p color-red color-rgb colormap
255     colormap-display colormap-equal colormap-error colormap-id colormap-p
256     colormap-plist colormap-visual-info connection-failure convert-selection
257     copy-area copy-colormap-and-free copy-gcontext copy-gcontext-components
258     copy-image copy-plane create-colormap create-cursor
259     create-gcontext create-glyph-cursor create-image create-pixmap
260     create-window cursor cursor-display cursor-equal cursor-error
261     cursor-id cursor-p cursor-plist cut-buffer declare-event decode-core-error
262     default-error-handler default-keysym-index default-keysym-translate
263     define-error define-extension define-gcontext-accessor
264     define-keysym define-keysym-set delete-property delete-resource
265     destroy-subwindows destroy-window device-busy device-event-mask
266     device-event-mask-class discard-current-event discard-font-info display
267     display-after-function display-authorization-data display-authorization-name
268     display-bitmap-format display-byte-order display-default-screen
269     display-display display-error-handler display-finish-output
270     display-force-output display-host display-image-lsb-first-p
271     display-invoke-after-function display-keycode-range display-max-keycode
272     display-max-request-length display-min-keycode display-motion-buffer-size
273     display-nscreens display-p display-pixmap-formats display-plist
274     display-protocol-major-version display-protocol-minor-version
275     display-protocol-version display-release-number
276     display-report-asynchronous-errors display-resource-id-base
277     display-resource-id-mask display-roots display-vendor
278     display-vendor-name display-xdefaults display-xid draw-arc
279     draw-arcs draw-direction draw-glyph draw-glyphs draw-image-glyph
280     draw-image-glyphs draw-line draw-lines draw-point draw-points
281     draw-rectangle draw-rectangles draw-segments drawable
282     drawable-border-width drawable-depth drawable-display drawable-equal
283     drawable-error drawable-height drawable-id drawable-p
284     drawable-plist drawable-root drawable-width drawable-x drawable-y
285     error-key event-case event-cond event-handler event-key
286     event-listen event-mask event-mask-class extension-opcode
287     find-atom font font-all-chars-exist-p font-ascent
288     font-default-char font-descent font-direction font-display
289     font-equal font-error font-id font-max-byte1 font-max-byte2
290     font-max-char font-min-byte1 font-min-byte2 font-min-char
291     font-name font-p font-path font-plist font-properties
292     font-property fontable force-gcontext-changes free-colormap
293     free-colors free-cursor free-gcontext free-pixmap gcontext
294     gcontext-arc-mode gcontext-background
295     gcontext-cache-p gcontext-cap-style
296     gcontext-clip-mask gcontext-clip-ordering gcontext-clip-x
297     gcontext-clip-y gcontext-dash-offset gcontext-dashes gcontext-display
298     gcontext-equal gcontext-error gcontext-exposures gcontext-fill-rule
299     gcontext-fill-style gcontext-font gcontext-foreground gcontext-function
300     gcontext-id gcontext-join-style gcontext-key gcontext-line-style
301     gcontext-line-width gcontext-p gcontext-plane-mask gcontext-plist
302     gcontext-stipple gcontext-subwindow-mode gcontext-tile gcontext-ts-x
303     gcontext-ts-y get-external-event-code get-image get-property
304     get-raw-image get-resource get-search-resource get-search-table
305     get-standard-colormap get-wm-class global-pointer-position grab-button
306     grab-key grab-keyboard grab-pointer grab-server grab-status
307     icon-sizes iconify-window id-choice-error illegal-request-error
308     image image-blue-mask image-depth image-green-mask image-height
309     image-name image-pixmap image-plist image-red-mask image-width
310     image-x image-x-hot image-x-p image-xy image-xy-bitmap-list
311     image-xy-p image-y-hot image-z image-z-bits-per-pixel image-z-p
312     image-z-pixarray implementation-error input-focus install-colormap
313     installed-colormaps int16 int32 int8 intern-atom invalid-font
314     keyboard-control keyboard-mapping keycode->character keycode->keysym
315     keysym keysym->character keysym->keycodes keysym-in-map-p
316     keysym-set kill-client kill-temporary-clients length-error
317     list-extensions list-font-names list-fonts list-properties
318     lookup-color lookup-error make-color make-event-handlers
319     make-event-keys make-event-mask make-resource-database make-state-keys
320     make-state-mask make-wm-hints make-wm-size-hints map-resource
321     map-subwindows map-window mapping-notify mask16 mask32
322     match-error max-char-ascent max-char-attributes max-char-descent
323     max-char-left-bearing max-char-right-bearing max-char-width
324     merge-resources min-char-ascent min-char-attributes min-char-descent
325     min-char-left-bearing min-char-right-bearing min-char-width
326     missing-parameter modifier-key modifier-mapping modifier-mask
327     motion-events name-error no-operation open-display open-font
328     pixarray pixel pixmap pixmap-display pixmap-equal
329     pixmap-error pixmap-format pixmap-format-bits-per-pixel
330     pixmap-format-depth pixmap-format-p pixmap-format-scanline-pad
331     pixmap-id pixmap-p pixmap-plist point-seq pointer-control
332     pointer-event-mask pointer-event-mask-class pointer-mapping
333     pointer-position process-event put-image put-raw-image
334     query-best-cursor query-best-stipple query-best-tile query-colors
335     query-extension query-keymap query-pointer query-tree queue-event
336     read-bitmap-file read-resources recolor-cursor rect-seq
337     remove-access-host remove-from-save-set reparent-window repeat-seq
338     reply-length-error reply-timeout request-error reset-screen-saver
339     resource-database resource-database-timestamp resource-error
340     resource-id resource-key rgb-colormaps rgb-val root-resources
341     rotate-cut-buffers rotate-properties screen screen-backing-stores
342     screen-black-pixel screen-default-colormap screen-depths
343     screen-event-mask-at-open screen-height screen-height-in-millimeters
344     screen-max-installed-maps screen-min-installed-maps screen-p
345     screen-plist screen-root screen-root-depth screen-root-visual
346     screen-root-visual-info screen-save-unders-p screen-saver
347     screen-white-pixel screen-width screen-width-in-millimeters seg-seq
348     selection-owner send-event sequence-error set-access-control
349     set-close-down-mode set-input-focus set-modifier-mapping
350     set-pointer-mapping set-screen-saver set-selection-owner
351     set-standard-colormap set-standard-properties set-wm-class
352     set-wm-properties set-wm-resources state-keysym-p state-mask-key
353     store-color store-colors stringable text-extents text-width
354     timestamp transient-for translate-coordinates translate-default
355     translation-function undefine-keysym unexpected-reply
356     ungrab-button ungrab-key ungrab-keyboard ungrab-pointer
357     ungrab-server uninstall-colormap unknown-error unmap-subwindows
358     unmap-window value-error visual-info visual-info-bits-per-rgb
359     visual-info-blue-mask visual-info-class visual-info-colormap-entries
360     visual-info-display visual-info-green-mask visual-info-id visual-info-p
361     visual-info-plist visual-info-red-mask warp-pointer
362     warp-pointer-if-inside warp-pointer-relative warp-pointer-relative-if-inside
363     win-gravity window window-all-event-masks window-background
364     window-backing-pixel window-backing-planes window-backing-store
365     window-bit-gravity window-border window-class window-colormap
366     window-colormap-installed-p window-cursor window-display
367     window-do-not-propagate-mask window-equal window-error
368     window-event-mask window-gravity window-id window-map-state
369     window-override-redirect window-p window-plist window-priority
370     window-save-under window-visual window-visual-info with-display
371     with-event-queue with-gcontext with-server-grabbed with-state
372     withdraw-window wm-client-machine wm-colormap-windows wm-command
373     wm-hints wm-hints-flags wm-hints-icon-mask wm-hints-icon-pixmap
374     wm-hints-icon-window wm-hints-icon-x wm-hints-icon-y
375     wm-hints-initial-state wm-hints-input wm-hints-p wm-hints-window-group
376     wm-icon-name wm-name wm-normal-hints wm-protocols wm-resources
377     wm-size-hints wm-size-hints-base-height wm-size-hints-base-width
378     wm-size-hints-height wm-size-hints-height-inc wm-size-hints-max-aspect
379     wm-size-hints-max-height wm-size-hints-max-width wm-size-hints-min-aspect
380     wm-size-hints-min-height wm-size-hints-min-width wm-size-hints-p
381     wm-size-hints-user-specified-position-p wm-size-hints-user-specified-size-p
382     wm-size-hints-width wm-size-hints-width-inc wm-size-hints-win-gravity
383     wm-size-hints-x wm-size-hints-y wm-zoom-hints write-bitmap-file
384     write-resources xatom))

  ViewVC Help
Powered by ViewVC 1.1.5