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

Contents of /src/clx/package.lisp

Parent Directory Parent Directory | Revision Log Revision Log


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

  ViewVC Help
Powered by ViewVC 1.1.5