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

Contents of /src/clx/package.lisp

Parent Directory Parent Directory | Revision Log Revision Log


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

  ViewVC Help
Powered by ViewVC 1.1.5