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

Contents of /src/clx/package.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.8.14.1 - (hide annotations)
Wed Jun 17 15:46:26 2009 UTC (4 years, 10 months ago) by rtoy
Branch: portable-clx-branch
CVS Tags: portable-clx-import-2009-06-16
Changes since 1.8: +4 -108 lines
Import portable clx version from Christophe Rhodes darcs repository as
of 2009-06-16.

This is an exact copy of the code.  It is intended updates of
portable-clx go on the portable-clx-branch and should be merged to the
main branch as needed.  This should make it easier to do any
CMUCL-specific changes that aren't in portable-clx.

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

  ViewVC Help
Powered by ViewVC 1.1.5