;;;; SPDX-FileCopyrightText: 2023 Vasilij Schneidermann <mail@vasilij.de>
;;;;
;;;; SPDX-License-Identifier: MIT

(module (xcb types)
    (connection? make-connection
     connection-connected? connection-connected?-set!
     connection-host connection-host-set!
     connection-display connection-display-set!
     connection-screen connection-screen-set!
     connection-type connection-type-set!
     connection-socket connection-socket-set!
     connection-remote connection-remote-set!
     connection-in connection-in-set!
     connection-out connection-out-set!
     connection-setup connection-setup-set!
     connection-xid connection-xid-set!
     xid? make-xid
     xid-last xid-last-set! xid-base xid-base-set!
     xid-max xid-max-set! xid-inc xid-inc-set!)

(import scheme)
(import (chicken base))

(define-record xid last base max inc)

(define-record connection
  connected? host display screen type socket remote in out setup
  xid)

)