(define :enumeration :syntax)
(define :display :value)
(define :x-error :value)

(define-interface xlib-internal-interface
  (export
   display:after-function set-display:after-function!

   (queued-mode :enumeration)
   events-queued events-pending
   wait-event
   event-ready?
   next-event peek-event
   ))

(define-interface xlib-interface
  (export
   ;; display.scm ****************************************************
   display? display:connection-number display:protocol-version
   display:protocol-revision display:server-vendor display:image-byte-order
   display:bitmap-unit display:bitmap-pad display:bitmap-bit-order
   display:vendor-release display:queue-length display:name
   display:default-screen display:screens display-message-inport

   (byte-order :syntax) byte-order?
   (bit-order :syntax) bit-order?

   screen-format? screen-format:depth screen-format:bits-per-pixel
   screen-format:scanline-pad

   screen?
   screen:display screen:root-window screen:width screen:height
   screen:width-mm screen:height-mm screen:number screen:root-depth
   screen:default-visual screen:default-gc screen:default-colormap
   screen:white-pixel screen:black-pixel screen:max-maps
   screen:min-maps screen:does-backing-store screen:does-save-unders?
   screen:event-mask

   open-display
   close-display

   none parent-relative copy-from-parent pointer-window input-focus
   pointer-root any-property-type any-key all-temporary
   current-time no-symbol all-planes

   display:last-request-read
   default-root-window
   next-request
   synchronize
   default-after-function
   set-after-function!
   display-flush
   display-sync
   display-no-op
   display-select-input

   ;; window.scm *****************************************************
   create-window
   create-simple-window

   change-window-attributes
   (bit-gravity :syntax) bit-gravity?
   (win-gravity :syntax) win-gravity?
   (backing-store :syntax) backing-store?
   (set-window-attribute :syntax) set-window-attribute?
   (make-set-window-attribute-alist :syntax)
   set-window-background-pixmap! set-window-background-pixel!
   set-window-border-pixmap! set-window-border-pixel!
   set-window-bit-gravity! set-window-gravity!
   set-window-backing-store! set-window-backing-planes!
   set-window-backing-pixel! set-window-save-under!
   set-window-event-mask! set-window-do-not-propagate-mask!
   set-window-override-redirect! set-window-colormap!
   set-window-cursor!

   configure-window
   (stack-mode :syntax) stack-mode?
   (window-change :syntax) window-change?
   (make-window-change-alist :syntax)
   set-window-x! set-window-y! set-window-width! set-window-height!
   set-window-border-width! set-window-sibling! set-window-stack-mode!
   move-window resize-window move-resize-window

   get-window-attributes
   (map-state :syntax) map-state?
   (window-class :syntax) window-class?
   window-attributes? window-attribute:x
   window-attribute:y window-attribute:width
   window-attribute:height window-attribute:border-width
   window-attribute:depth window-attribute:visual
   window-attribute:root window-attribute:class
   window-attribute:bit-gravity window-attribute:gravity
   window-attribute:backing-store window-attribute:backing-planes
   window-attribute:backing-pixel window-attribute:save-under
   window-attribute:colormap window-attribute:map-installed
   window-attribute:map-state window-attribute:all-event-masks
   window-attribute:your-event-mask window-attribute:do-not-propagate-mask
   window-attribute:override-redirect window-attribute:screen

   get-geometry
   window-x window-y
   window-width window-height
   window-border-width window-depth

   map-window map-raised map-subwindows
   unmap-window unmap-subwindows

   destroy-window destroy-subwindows

   raise-window lower-window
   (circulate-direction :syntax)
   circulate-direction?
   circulate-subwindows
   circulate-subwindows-up
   circulate-subwindows-down

   restack-windows
   clear-area
   clear-window
   query-tree
   window-root
   window-parent
   window-children
   translate-coordinates
   query-pointer-root
   query-pointer-state
   query-pointer

   ;; colormap.scm ***************************************************
   make-color color? color:pixel set-color:pixel!
   color:red set-color:red! color:green set-color:green!
   color:blue set-color:blue!
   
   (colormap-state :syntax) colormap-state?
   (colormap-alloc :syntax) colormap-alloc?
   create-colormap
   copy-colormap-and-free
   free-colormap
   
   alloc-color! alloc-color alloc-named-color/exact
   alloc-named-color alloc-color-cells/planes alloc-color-cells
   alloc-color-planes
   
   free-colors query-colors! query-colors
   query-color! query-color lookup-color
   parse-color

   store-colors store-color store-named-color

   ;; cursor.scm *****************************************************
   create-pixmap-cursor create-glyph-cursor create-font-cursor
   define-cursor undefine-cursor free-cursor
   recolor-cursor
   ((xc-X-cursor xc-arrow xc-based-arrow-down xc-based-arrow-up
     xc-boat xc-bogosity xc-bottom-left-corner xc-bottom-right-corner
     xc-bottom-side xc-bottom-tee xc-box-spiral xc-center-ptr
     xc-circle xc-clock xc-coffee-mug xc-cross xc-cross-reverse
     xc-crosshair xc-diamond-cross xc-dot xc-dotbox xc-double-arrow
     xc-draft-large xc-draft-small xc-draped-box xc-exchange
     xc-fleur xc-gobbler xc-gumby xc-hand1 xc-hand2 xc-heart
     xc-icon xc-iron-cross xc-left-ptr xc-left-side xc-left-tee
     xc-leftbutton xc-ll-angle xc-lr-angle xc-man xc-middlebutton
     xc-mouse xc-pencil xc-pirate xc-plus xc-question-arrow
     xc-right-ptr xc-right-side xc-right-tee xc-rightbutton
     xc-rtl-logo xc-sailboat xc-sb-down-arrow xc-sb-h-double-arrow
     xc-sb-left-arrow xc-sb-right-arrow xc-sb-up-arrow
     xc-sb-v-double-arrow xc-shuttle xc-sizing xc-spider xc-spraycan
     xc-star xc-target xc-tcross xc-top-left-arrow xc-top-left-corner
     xc-top-right-corner xc-top-side xc-top-tee xc-trek xc-ul-angle
     xc-umbrella xc-ur-angle xc-watch xc-xterm) :number)
   
   ;; error.scm ******************************************************
   x-error? x-error:display x-error:serial x-error:code
   x-error:major-opcode x-error:minor-opcode x-error:resource-id
   x-error:text

   (error-code :syntax) error-code?
   use-x-error-warnings!
   use-x-error-queue!

   x-error-queue? x-error-queue:this
   empty-x-error-queue?
   next-x-error-queue

   ((set-error-handler!) (proc ((proc (:display :x-error) :value))
			       (proc (:display :x-error) :value)))
   get-error-text
   get-error-database-text

   ((set-fatal-error-handler!) (proc ((proc (:display) :value))
				     (proc (:display) :value)))

   ;; sync-event.scm *************************************************
   init-sync-x-events
   sync-x-event? sync-x-event-event
   next-sync-x-event
   most-recent-sync-x-event

   call-with-event-channel

   ;; event-types.scm ************************************************
   (event-type :enumeration)
   (event-mask :syntax)
   any-event-type
   any-event-serial
   any-event-send-event?
   any-event-display
   any-event-window

   create-key-event
   key-event?
   key-event-type
   key-event-serial
   key-event-send-event?
   key-event-display
   key-event-window
   key-event-root
   key-event-subwindow
   key-event-time
   key-event-x
   key-event-y
   key-event-x-root
   key-event-y-root
   key-event-state
   key-event-keycode
   key-event-same-screen?
   
   create-button-event
   button-event?
   button-event-type
   button-event-serial
   button-event-send-event?
   button-event-display
   button-event-window
   button-event-root
   button-event-subwindow
   button-event-time
   button-event-x
   button-event-y
   button-event-x-root
   button-event-y-root
   button-event-state
   button-event-button
   button-event-same-screen?

   create-motion-event
   motion-event?
   motion-event-type
   motion-event-serial
   motion-event-send-event?
   motion-event-display
   motion-event-window
   motion-event-root
   motion-event-subwindow
   motion-event-time
   motion-event-x
   motion-event-y
   motion-event-x-root
   motion-event-y-root
   motion-event-state
   motion-event-is-hint?
   motion-event-same-screen?
   
   create-crossing-event
   crossing-event?
   crossing-event-type
   crossing-event-serial
   crossing-event-send-event?
   crossing-event-display
   crossing-event-window
   crossing-event-root
   crossing-event-subwindow
   crossing-event-time
   crossing-event-x
   crossing-event-y
   crossing-event-x-root
   crossing-event-y-root
   crossing-event-mode
   crossing-event-detail
   crossing-event-same-screen?
   crossing-event-focus?
   crossing-event-state
   
   create-focus-change-event
   focus-change-event?
   focus-change-event-type
   focus-change-event-serial
   focus-change-event-send-event?
   focus-change-event-display
   focus-change-event-window
   focus-change-event-mode
   focus-change-event-detail
   
   create-expose-event
   expose-event?
   expose-event-type
   expose-event-serial
   expose-event-send-event?
   expose-event-display
   expose-event-window
   expose-event-x
   expose-event-y
   expose-event-width
   expose-event-height
   expose-event-count

   create-graphics-expose-event
   graphics-expose-event?
   graphics-expose-event-type
   graphics-expose-event-serial
   graphics-expose-event-send-event?
   graphics-expose-event-display
   graphics-expose-event-drawable
   graphics-expose-event-x
   graphics-expose-event-y
   graphics-expose-event-width
   graphics-expose-event-height
   graphics-expose-event-major-code
   graphics-expose-event-minor-code

   create-no-expose-event
   no-expose-event?
   no-expose-event-type
   no-expose-event-serial
   no-expose-event-send-event?
   no-expose-event-display
   no-expose-event-drawable
   no-expose-event-major-code
   no-expose-event-minor-code

   create-visibility-event
   visibility-event?
   visibility-event-type
   visibility-event-serial
   visibility-event-send-event?
   visibility-event-display
   visibility-event-window
   visibility-event-state

   create-create-window-event
   create-window-event?
   create-window-event-type
   create-window-event-serial
   create-window-event-send-event?
   create-window-event-display
   create-window-event-parent
   create-window-event-window
   create-window-event-x
   create-window-event-y
   create-window-event-width
   create-window-event-height
   create-window-event-border-width
   create-window-event-override-redirect?

   create-destroy-window-event
   destroy-window-event?
   destroy-window-event-type
   destroy-window-event-serial
   destroy-window-event-send-event?
   destroy-window-event-display
   destroy-window-event-event
   destroy-window-event-window

   create-unmap-event
   unmap-event?
   unmap-event-type
   unmap-event-serial
   unmap-event-send-event?
   unmap-event-display
   unmap-event-event
   unmap-event-window
   unmap-event-from-configure?
   
   create-map-event
   map-event?
   map-event-type
   map-event-serial
   map-event-send-event?
   map-event-display
   map-event-event
   map-event-window
   map-event-override-redirect?
   
   create-map-request-event
   map-request-event?
   map-request-event-type
   map-request-event-serial
   map-request-event-send-event?
   map-request-event-display
   map-request-event-parent
   map-request-event-window

   create-reparent-event
   reparent-event?
   reparent-event-type
   reparent-event-serial
   reparent-event-send-event?
   reparent-event-display
   reparent-event-event
   reparent-event-window
   reparent-event-parent
   reparent-event-x
   reparent-event-y
   reparent-event-override-redirect?
   
   create-configure-event
   configure-event?
   configure-event-type
   configure-event-serial
   configure-event-send-event?
   configure-event-display
   configure-event-event
   configure-event-window
   configure-event-x
   configure-event-y
   configure-event-width
   configure-event-height
   configure-event-border-width
   configure-event-above
   configure-event-override-redirect?

   create-gravity-event
   gravity-event?
   gravity-event-type
   gravity-event-serial
   gravity-event-send-event?
   gravity-event-display
   gravity-event-event
   gravity-event-window
   gravity-event-x
   gravity-event-y
   
   create-resize-request-event
   resize-request-event?
   resize-request-event-type
   resize-request-event-serial
   resize-request-event-send-event?
   resize-request-event-display
   resize-request-event-window
   resize-request-event-width
   resize-request-event-height
   
   create-configure-request-event
   configure-request-event?
   configure-request-event-type
   configure-request-event-serial
   configure-request-event-send-event?
   configure-request-event-display
   configure-request-event-parent
   configure-request-event-window
   configure-request-event-window-change-alist

   create-circulate-event
   circulate-event?
   circulate-event-type
   circulate-event-serial
   circulate-event-send-event?
   circulate-event-display
   circulate-event-event
   circulate-event-window
   circulate-event-place

   create-circulate-request-event
   circulate-request-event?
   circulate-request-event-type
   circulate-request-event-serial
   circulate-request-event-send-event?
   circulate-request-event-display
   circulate-request-event-parent
   circulate-request-event-window
   circulate-request-event-place
   
   create-property-event
   property-event?
   property-event-type
   property-event-serial
   property-event-send-event?
   property-event-display
   property-event-window
   property-event-atom
   property-event-time
   property-event-state

   create-selection-clear-event
   selection-clear-event?
   selection-clear-event-type
   selection-clear-event-serial
   selection-clear-event-send-event?
   selection-clear-event-display
   selection-clear-event-window
   selection-clear-event-selection
   selection-clear-event-time

   create-selection-request-event
   selection-request-event?
   selection-request-event-type
   selection-request-event-serial
   selection-request-event-send-event?
   selection-request-event-display
   selection-request-event-owner
   selection-request-event-requestor
   selection-request-event-selection
   selection-request-event-target
   selection-request-event-property
   selection-request-event-time

   create-selection-event
   selection-event?
   selection-event-type
   selection-event-serial
   selection-event-send-event?
   selection-event-display
   selection-event-requestor
   selection-event-selection
   selection-event-target
   selection-event-property
   selection-event-time

   create-colormap-event
   colormap-event?
   colormap-event-type
   colormap-event-serial
   colormap-event-send-event?
   colormap-event-display
   colormap-event-window
   colormap-event-colormap
   colormap-event-new?
   colormap-event-state

   create-client-message-event
   client-message-event?
   client-message-event-type
   client-message-event-serial
   client-message-event-send-event?
   client-message-event-display
   client-message-event-window
   client-message-event-property
   
   create-mapping-event
   mapping-event?
   mapping-event-type
   mapping-event-serial
   mapping-event-send-event?
   mapping-event-display
   mapping-event-window
   mapping-event-request
   mapping-event-first-keycode
   mapping-event-count

   create-keymap-event
   keymap-event?
   keymap-event-type
   keymap-event-serial
   keymap-event-send-event?
   keymap-event-display
   keymap-event-bit-vector

   ;; event.scm ******************************************************
   get-motion-events
   send-event

   ;; font.scm *******************************************************
   (font-direction :syntax) font-direction?

   char-struct? char-struct:lbearing char-struct:rbearing
   char-struct:width char-struct:ascent char-struct:descent
   char-struct:attributes

   font-struct? font-struct:cpointer font-struct:fid font-struct:direction
   font-struct:min-char-or-byte2 font-struct:max-char-or-byte2
   font-struct:min-byte1 font-struct:max-byte1 font-struct:all-char-exist?
   font-struct:default-char font-struct:properties font-struct:min-bounds
   font-struct:max-bounds font-struct:per-char font-struct:ascent
   font-struct:descent

   load-font unload-font
   query-font load-query-font
   free-font
   get-font-property
   list-fonts list-fonts-with-info
   set-font-path get-font-path

   ;; gcontext.scm ***************************************************
   gc?
   (gc-function :syntax) gc-function?
   (line-style :syntax) line-style?
   (cap-style :syntax) cap-style?
   (join-style :syntax) join-style?
   (fill-style :syntax) fill-style?
   (fill-rule :syntax) fill-rule?
   (subwindow-mode :syntax) subwindow-mode?
   (arc-mode :syntax) arc-mode?
   (gc-value :syntax) gc-value?
   (make-gc-value-alist :syntax)
   all-gc-values 
   (gc-value-set :syntax) gc-value-set? make-gc-value-set

   create-gc copy-gc! copy-gc

   change-gc
   set-gc-function! set-gc-plane-mask! set-gc-foreground!
   set-gc-background! set-gc-line-width! set-gc-line-style!
   set-gc-cap-style! set-gc-join-style! set-gc-fill-style!
   set-gc-fill-rule! set-gc-arc-mode! set-gc-tile! set-gc-stipple!
   set-gc-ts-x-origin! set-gc-ts-y-origin! set-gc-font!
   set-gc-subwindow-mode! set-gc-graphics-exposures!
   set-gc-clip-x-origin! set-gc-clip-y-origin! set-gc-clip-mask!
   set-gc-dash-offset! set-gc-dashes!

   get-gc-values
   gc-gc-function gc-plane-mask gc-foreground gc-background
   gc-line-width gc-line-style gc-cap-style gc-join-style
   gc-fill-style gc-fill-rule gc-arc-mode gc-tile gc-stipple
   gc-ts-x-origin gc-ts-y-origin gc-font gc-subwindow-mode
   gc-graphics-exposures gc-clip-x-origin gc-clip-y-origin
   gc-clip-mask gc-dash-offset gc-dashes

   free-gc
   gcontext-from-gc

   set-line-attributes!
   set-dashes!
   set-clip-origin
   (rectangle-ordering :syntax) rectangle-ordering?
   set-clip-rectangles!

   query-best-cursor
   query-best-tile
   query-best-stipple

   ;; grab.scm *******************************************************
   (grab-mode :syntax) grab-mode?
   (grab-status :syntax) grab-status?
   grab-pointer ungrab-pointer
   change-active-pointer-grab
   (state :syntax) state?
   (state-set :syntax) state-set? make-state-set
   (button :syntax) button?
   grab-button ungrab-button
   grab-keyboard ungrab-keyboard
   grab-key ungrab-key
   (event-mode :syntax) event-mode?
   allow-events
   grab-server ungrab-server

   ;; graphics.scm ***************************************************
   copy-area copy-plane

   draw-point draw-points
   draw-line draw-lines
   (coord-mode :syntax) coord-mode?

   draw-segments make-segment segment?
   segment:x1 set-segment:x1! segment:y1 set-segment:y1!
   segment:x2 set-segment:x2! segment:y2 set-segment:y2!

   draw-rectangle
   draw-rectangles make-rectangle rectangle?
   rectangle:x set-rectangle:x! rectangle:y set-rectangle:y!
   rectangle:width set-rectangle:width! rectangle:height
   set-rectangle:height!

   draw-arc
   draw-arcs make-arc arc? arc:x set-arc:x! arc:y set-arc:y!
   arc:width set-arc:width! arc:height set-arc:height! arc:angle1
   set-arc:angle1! arc:angle2 set-arc:angle2!

   fill-rectangle fill-rectangles
   (polygon-shape :syntax) polygon-shape?
   fill-polygon
   fill-arc fill-arcs

   bounds
   grow-rectangle
   move/resize-rectangle

   ;; key.scm ********************************************************
   change-keyboard-mapping get-keyboard-mapping
   display-keycodes
   set-modifier-mapping get-modifier-mapping
   string->keysym keysym->string
   keycode->keysym keysym->keycode
   convert-case convert-to-lowercase convert-to-uppercase
   lookup-keysym
   refresh-keyboard-mapping
   lookup-string/keysym lookup-string rebind-keysym

   ;; pixmap.scm *****************************************************
   create-pixmap free-pixmap
   read-bitmap-file write-bitmap-file
   create-bitmap-from-data create-pixmap-from-bitmap-data

   ;; property.scm ***************************************************
   make-property property? property:type set-property:type!
   property:format set-property:format!
   property:data set-property:data!
   intern-atom intern-atoms
   get-atom-name get-atom-names
   list-properties
   rotate-window-properties
   delete-property
   get-window-property
   (change-property-mode :syntax) change-property-mode?
   change-property
   get-full-window-property
   string->string-list
   set-selection-owner get-selection-owner
   convert-selection

   ;; text.scm *******************************************************
   draw-image-string draw-image-string-16
   make-text-item text-item? text-item:string text-item:delta text-item:font
   (make-text-items :syntax)
   draw-text draw-text-16
   text-extents text-extents-16

   ;; visual.scm *****************************************************
   visual?
   (visual-class :syntax) visual-class?
   visual-info? visual-info:visual
   visual-info:visualid set-visual-info:visualid!
   visual-info:screen-number set-visual-info:screen-number!
   visual-info:depth set-visual-info:depth!
   visual-info:class set-visual-info:class!
   visual-info:red-mask set-visual-info:red-mask!
   visual-info:green-mask set-visual-info:green-mask!
   visual-info:blue-mask set-visual-info:blue-mask!
   visual-info:bits-per-rgb set-visual-info:bits-per-rgb!
   visual-info:colormap-size set-visual-info:colormap-size!
   empty-visual-info
   get-visual-infos
   match-visual-info
   visualid-from-visual

   ;; wm.scm *********************************************************
   reparent-window
   install-colormap uninstall-colormap
   list-installed-colormaps
   set-input-focus
   (revert-to :syntax) revert-to?
   get-input-focus get-input-focus-window
   general-warp-pointer warp-pointer warp-pointer-relative
   bell
   set-access-control
   change-save-set (save-set :syntax) save-set?
   (close-down-mode :syntax) close-down-mode?
   set-close-down-mode
   kill-client
   get-pointer-mapping
   set-pointer-mapping

   ;; client.scm *****************************************************
   iconify-window
   withdraw-window
   reconfigure-wm-window
   get-wm-command set-wm-command!
   get-wm-protocols set-wm-protocols!
   get-wm-class set-wm-class!
   (initial-state :syntax) initial-state?
   (wm-hint :syntax) wm-hint?
   (make-wm-hint-alist :syntax)
   get-wm-hints set-wm-hints!
   get-transient-for set-transient-for!
   get-text-property set-text-property!
   property->string-list string-list->property
   get-wm-name set-wm-name!
   get-wm-icon-name set-wm-icon-name!
   get-wm-client-machine set-wm-client-machine!
   (size-hint :syntax) size-hint?
   (make-size-hint-alist :syntax)
   get-wm-normal-hints set-wm-normal-hints!
   make-icon-size icon-size?
   icon-size:min-width set-icon-size:min-width!
   icon-size:min-height set-icon-size:min-height!
   icon-size:max-width set-icon-size:max-width!
   icon-size:max-height set-icon-size:max-height!
   icon-size:width-inc set-icon-size:width-inc!
   icon-size:height-inc set-icon-size:height-inc!
   get-icon-sizes set-icon-sizes!

   ;; utility.scm ****************************************************
   xlib-release-4-or-later?
   xlib-release-5-or-later?
   xlib-release-6-or-later?
   get-default
   resource-manager-string
   parse-geometry
   store-buffer store-bytes fetch-buffer fetch-bytes rotate-buffers
   
   ))