Arrange xcb bindings properly

src/xcb/types.ml

@@ -1,45 +0,0 @@
-open Ctypes
-open Foreign
-
-type connection
-type screen
-type screen_iterator
-type setup
-type window = Unsigned.UInt32.t
-type void_cookie
-type generic_error
-
-let generic_error : generic_error structure typ =
-  structure "xcb_generic_error_t"
-
-let void_cookie : void_cookie structure typ = structure "xcb_void_cookie_t"
-let sequence = field void_cookie "sequence" uint32_t
-let () = seal void_cookie
-let screen : screen structure typ = structure "xcb_screen_t"
-let root = field screen "root" uint32_t
-let default_colormap = field screen "default_colormap" uint32_t
-let white_pixel = field screen "white_pixel" uint32_t
-let black_pixel = field screen "black_pixel" uint32_t
-let current_input_masks = field screen "current_input_masks" uint32_t
-let width_in_pixels = field screen "width_in_pixels" uint16_t
-let height_in_pixels = field screen "height_in_pixels" uint16_t
-let width_in_millimeters = field screen "width_in_millimeters" uint16_t
-let height_in_millimeters = field screen "height_in_millimeters" uint16_t
-let min_installed_maps = field screen "min_installed_maps" uint16_t
-let max_installed_maps = field screen "max_installed_maps" uint16_t
-let root_visual = field screen "root_visual" uint32_t
-let backing_stores = field screen "backing_stores" uint8_t
-let save_unders = field screen "save_unders" uint8_t
-let root_depth = field screen "root_depth" uint8_t
-let allowed_depths_len = field screen "allowed_depths_len" uint8_t
-let () = seal screen
-
-let screen_iterator : screen_iterator structure typ =
-  structure "xcb_screen_iterator_t"
-
-let data = field screen_iterator "data" (ptr screen)
-let rem = field screen_iterator "rem" int
-let index = field screen_iterator "index" int
-let () = seal screen_iterator
-let setup : setup structure typ = structure "xcb_setup_t"
-let connection : connection structure typ = structure "xcb_connection_t"