Arrange xcb bindings properly

2026-07-26 09:48:54 +01:00
parent 9b33f9617a
commit 837d457b10
11 changed files with 395 additions and 104 deletions
@@ -0,0 +1,15 @@
+open Ctypes
+open Foreign
+
+module Void = struct
+  type t
+
+  let typ : t structure typ = structure "xcb_void_cookie_t"
+  let sequence = field typ "sequence" uint32_t
+  let () = seal typ
+
+  let _xcb_change_window_attributes_checked =
+    foreign "xcb_change_window_attributes_checked"
+      (ptr Connection.typ @-> uint32_t @-> uint32_t @-> ptr uint32_t
+     @-> returning typ)
+end