scx/scheme/xlib/xlib-packages.scm

(define-structure xlib-display xlib-display-interface
  (open	scheme
	signals  ;; for error
	external-calls
	xlib-internal-types)
  (files display))

(define-structure xlib-window xlib-window-interface
  (open	scheme
	signals ;; for error	
	external-calls
	receiving
	xlib-internal-types
	xlib-helper
	xlib-graphics ;; for clear-window
	finite-types ;; for define-enumerated-type
	)
  (files window))


(define-structure xlib-drawable xlib-drawable-interface
  (open	scheme
	external-calls
	xlib-internal-types
	xlib-window
	xlib-pixmap)
  (files drawable))


(define-structure xlib-color xlib-color-interface
  (open	scheme
	signals  ;; for error
	external-calls
	xlib-internal-types
	xlib-helper)
  (files color))


(define-structure xlib-colormap xlib-colormap-interface
  (open	scheme
	external-calls
	finite-types
	bitwise
	signals
	list-lib
	xlib-internal-types)
  (files colormap))


(define-structure xlib-pixel xlib-pixel-interface
  (open	scheme
	external-calls
	xlib-internal-types)
  (files pixel))


(define-structure xlib-gcontext xlib-gcontext-interface
  (open	scheme
	signals  ;; for error
	external-calls
	receiving
	finite-types enum-sets
	xlib-internal-types)
  (files gcontext))


(define-structure xlib-pixmap xlib-pixmap-interface
  (open scheme
	signals  ;; for error
	external-calls
	xlib-internal-types)
  (files pixmap)) ;;...

(define-structure xlib-graphics xlib-graphics-interface
  (open scheme
	external-calls
	xlib-internal-types
	list-lib ;; for fold-right
	finite-types)
  (files graphics))

(define-structures ((xlib-event xlib-event-interface)
		    (xlib-event-internal xlib-event-internal-interface))
  (open scsh-level-0 ;; for port->channel
	scheme
	external-calls
	threads  ;; for sleep
	ports locks  ;; for locking the port
	channel-i/o ;; for wait-for-channel
	interrupts
	finite-types define-record-types
	xlib-internal-types)
  (files event event-types))

(define-structure xlib-sync-x-events xlib-sync-x-events-interface
  (open scheme
	placeholders
	define-record-types
	threads
	xlib-event)
  (files sync-event))

(define-structure xlib-font xlib-font-interface
  (open scheme
	signals  ;; for error
	external-calls
	xlib-internal-types
	xlib-helper
	bitwise  ;; for bitwise-and, arithmetix-shift
	)
  (files font))

(define-structure xlib-text xlib-text-interface
  (open scheme
	signals  ;; for error
	external-calls
	ascii    ;; for char->ascii etc.
	xlib-internal-types
	xlib-helper)
  (files text))

(define-structure xlib-property xlib-property-interface
  (open scheme
	ascii
	finite-types
	external-calls
	signals
	xlib-internal-types
	xlib-helper)
  (files property))

(define-structure xlib-cursor xlib-cursor-interface
  (open scheme
	external-calls
	xlib-internal-types
	xlib-helper)
  (files cursor))

(define-structure xlib-wm xlib-wm-interface
  (open scheme
	external-calls
	xlib-internal-types
	signals ;; for error
	xlib-property ;; get-property and change-property
	finite-types
	xlib-helper)
  (files wm))

(define-structure xlib-client xlib-client-interface
  (open scheme
	external-calls
	xlib-internal-types
	xlib-display ;; for check-screen-number
	xlib-window ; for window-change-alist->vector
	signals ;; for error
	finite-types ;; for define-enumerated-type
	list-lib ;; for filter
	xlib-helper)
  (files client))

(define-structure xlib-key xlib-key-interface
  (open scheme
	external-calls
	xlib-internal-types)
  (files key))

(define-structure xlib-error xlib-error-interface
  (open scheme
	external-calls
	placeholders
	define-record-types
	finite-types
	xlib-internal-types)
  (files error))

(define-structure xlib-extension xlib-extension-interface
  (open scheme
	external-calls
	xlib-internal-types)
  (files extension))

(define-structure xlib-utility xlib-utility-interface
  (open scheme
	external-calls
	receiving
	xlib-internal-types
	xlib-display
	xlib-property)
  (files utility))

(define-structure xlib-grab xlib-grab-interface
  (open scheme
	external-calls
	finite-types
	xlib-internal-types)
  (files grab))

(define-structure xlib-visual xlib-visual-interface
  (open scheme
	external-calls
	finite-types ;; for enumerated types
	xlib-internal-types)
  (files visual))

(define-structure xlib-region xlib-region-interface
  (open scheme
	external-calls
	xlib-internal-types)
  (files region))

(define-structure xlib-types xlib-types-interface
  (open scheme
	finite-types
	define-record-types
	xlib-internal-types))

;; all together

(define-structure xlib xlib-interface
  (open xlib-types
	xlib-display
	xlib-pixmap
	xlib-window
	xlib-drawable
	xlib-color
	xlib-colormap
	xlib-pixel
	xlib-gcontext
	xlib-graphics
	xlib-event
	xlib-font
	xlib-text
	xlib-property
	xlib-cursor
	xlib-wm
	xlib-client
	xlib-key
	xlib-error
	xlib-extension
	xlib-utility
	xlib-grab
	xlib-visual
	xlib-region
	xlib-sync-x-events
	)
  (optimize auto-integrate))