Source file drm_proto.ml

(* This file was generated automatically by wayland-scanner-ocaml *)

open struct
  module Proxy = Wayland.Proxy
  module Iface_reg = Wayland.Iface_reg
  module Metadata = Wayland.Metadata
end

module Wl_drm = struct
  type t = [`Wl_drm]
  type _ Metadata.ty += T : [`Wl_drm] Metadata.ty
  type versions = [`V1 | `V2]
  let interface = "wl_drm"
  let version = 2l
  
  module Error = struct
    type t =
      | Authenticate_fail : t
      | Invalid_format : t
      | Invalid_name : t
    
    let to_int32 = function
      | Authenticate_fail -> 0l
      | Invalid_format -> 1l
      | Invalid_name -> 2l
    
    let of_int32 = function
      | 0l -> Authenticate_fail
      | 1l -> Invalid_format
      | 2l -> Invalid_name
      | x -> Fmt.failwith "Invalid error enum value %ld" x
  end
  
  
  module Format = struct
    type t =
      | C8 : t
      | Rgb332 : t
      | Bgr233 : t
      | Xrgb4444 : t
      | Xbgr4444 : t
      | Rgbx4444 : t
      | Bgrx4444 : t
      | Argb4444 : t
      | Abgr4444 : t
      | Rgba4444 : t
      | Bgra4444 : t
      | Xrgb1555 : t
      | Xbgr1555 : t
      | Rgbx5551 : t
      | Bgrx5551 : t
      | Argb1555 : t
      | Abgr1555 : t
      | Rgba5551 : t
      | Bgra5551 : t
      | Rgb565 : t
      | Bgr565 : t
      | Rgb888 : t
      | Bgr888 : t
      | Xrgb8888 : t
      | Xbgr8888 : t
      | Rgbx8888 : t
      | Bgrx8888 : t
      | Argb8888 : t
      | Abgr8888 : t
      | Rgba8888 : t
      | Bgra8888 : t
      | Xrgb2101010 : t
      | Xbgr2101010 : t
      | Rgbx1010102 : t
      | Bgrx1010102 : t
      | Argb2101010 : t
      | Abgr2101010 : t
      | Rgba1010102 : t
      | Bgra1010102 : t
      | Yuyv : t
      | Yvyu : t
      | Uyvy : t
      | Vyuy : t
      | Ayuv : t
      | Xyuv8888 : t
      | Nv12 : t
      | Nv21 : t
      | Nv16 : t
      | Nv61 : t
      | Yuv410 : t
      | Yvu410 : t
      | Yuv411 : t
      | Yvu411 : t
      | Yuv420 : t
      | Yvu420 : t
      | Yuv422 : t
      | Yvu422 : t
      | Yuv444 : t
      | Yvu444 : t
      | Abgr16f : t
      | Xbgr16f : t
    
    let to_int32 = function
      | C8 -> 538982467l
      | Rgb332 -> 943867730l
      | Bgr233 -> 944916290l
      | Xrgb4444 -> 842093144l
      | Xbgr4444 -> 842089048l
      | Rgbx4444 -> 842094674l
      | Bgrx4444 -> 842094658l
      | Argb4444 -> 842093121l
      | Abgr4444 -> 842089025l
      | Rgba4444 -> 842088786l
      | Bgra4444 -> 842088770l
      | Xrgb1555 -> 892424792l
      | Xbgr1555 -> 892420696l
      | Rgbx5551 -> 892426322l
      | Bgrx5551 -> 892426306l
      | Argb1555 -> 892424769l
      | Abgr1555 -> 892420673l
      | Rgba5551 -> 892420434l
      | Bgra5551 -> 892420418l
      | Rgb565 -> 909199186l
      | Bgr565 -> 909199170l
      | Rgb888 -> 875710290l
      | Bgr888 -> 875710274l
      | Xrgb8888 -> 875713112l
      | Xbgr8888 -> 875709016l
      | Rgbx8888 -> 875714642l
      | Bgrx8888 -> 875714626l
      | Argb8888 -> 875713089l
      | Abgr8888 -> 875708993l
      | Rgba8888 -> 875708754l
      | Bgra8888 -> 875708738l
      | Xrgb2101010 -> 808669784l
      | Xbgr2101010 -> 808665688l
      | Rgbx1010102 -> 808671314l
      | Bgrx1010102 -> 808671298l
      | Argb2101010 -> 808669761l
      | Abgr2101010 -> 808665665l
      | Rgba1010102 -> 808665426l
      | Bgra1010102 -> 808665410l
      | Yuyv -> 1448695129l
      | Yvyu -> 1431918169l
      | Uyvy -> 1498831189l
      | Vyuy -> 1498765654l
      | Ayuv -> 1448433985l
      | Xyuv8888 -> 1448434008l
      | Nv12 -> 842094158l
      | Nv21 -> 825382478l
      | Nv16 -> 909203022l
      | Nv61 -> 825644622l
      | Yuv410 -> 961959257l
      | Yvu410 -> 961893977l
      | Yuv411 -> 825316697l
      | Yvu411 -> 825316953l
      | Yuv420 -> 842093913l
      | Yvu420 -> 842094169l
      | Yuv422 -> 909202777l
      | Yvu422 -> 909203033l
      | Yuv444 -> 875713881l
      | Yvu444 -> 875714137l
      | Abgr16f -> 1211384385l
      | Xbgr16f -> 1211384408l
    
    let of_int32 = function
      | 538982467l -> C8
      | 943867730l -> Rgb332
      | 944916290l -> Bgr233
      | 842093144l -> Xrgb4444
      | 842089048l -> Xbgr4444
      | 842094674l -> Rgbx4444
      | 842094658l -> Bgrx4444
      | 842093121l -> Argb4444
      | 842089025l -> Abgr4444
      | 842088786l -> Rgba4444
      | 842088770l -> Bgra4444
      | 892424792l -> Xrgb1555
      | 892420696l -> Xbgr1555
      | 892426322l -> Rgbx5551
      | 892426306l -> Bgrx5551
      | 892424769l -> Argb1555
      | 892420673l -> Abgr1555
      | 892420434l -> Rgba5551
      | 892420418l -> Bgra5551
      | 909199186l -> Rgb565
      | 909199170l -> Bgr565
      | 875710290l -> Rgb888
      | 875710274l -> Bgr888
      | 875713112l -> Xrgb8888
      | 875709016l -> Xbgr8888
      | 875714642l -> Rgbx8888
      | 875714626l -> Bgrx8888
      | 875713089l -> Argb8888
      | 875708993l -> Abgr8888
      | 875708754l -> Rgba8888
      | 875708738l -> Bgra8888
      | 808669784l -> Xrgb2101010
      | 808665688l -> Xbgr2101010
      | 808671314l -> Rgbx1010102
      | 808671298l -> Bgrx1010102
      | 808669761l -> Argb2101010
      | 808665665l -> Abgr2101010
      | 808665426l -> Rgba1010102
      | 808665410l -> Bgra1010102
      | 1448695129l -> Yuyv
      | 1431918169l -> Yvyu
      | 1498831189l -> Uyvy
      | 1498765654l -> Vyuy
      | 1448433985l -> Ayuv
      | 1448434008l -> Xyuv8888
      | 842094158l -> Nv12
      | 825382478l -> Nv21
      | 909203022l -> Nv16
      | 825644622l -> Nv61
      | 961959257l -> Yuv410
      | 961893977l -> Yvu410
      | 825316697l -> Yuv411
      | 825316953l -> Yvu411
      | 842093913l -> Yuv420
      | 842094169l -> Yvu420
      | 909202777l -> Yuv422
      | 909203033l -> Yvu422
      | 875713881l -> Yuv444
      | 875714137l -> Yvu444
      | 1211384385l -> Abgr16f
      | 1211384408l -> Xbgr16f
      | x -> Fmt.failwith "Invalid format enum value %ld" x
  end
  
  
  (** Wl_drm capability bitmask.
      
      Bitmask of capabilities. *)
  module Capability = struct
    type t =
      | Prime : t
    
    let to_int32 = function
      | Prime -> 1l
    
    let of_int32 = function
      | 1l -> Prime
      | x -> Fmt.failwith "Invalid capability enum value %ld" x
  end
  
  let requests = function
    | 0 -> "authenticate", ["id", `Uint]
    | 1 -> "create_buffer", ["id", `New_ID (Some "wl_buffer"); "name", `Uint; "width", `Int; "height", `Int;
                             "stride", `Uint; "format", `Uint]
    | 2 -> "create_planar_buffer", ["id", `New_ID (Some "wl_buffer"); "name", `Uint; "width", `Int; "height", `Int;
                                    "format", `Uint; "offset0", `Int; "stride0", `Int; "offset1", `Int;
                                    "stride1", `Int; "offset2", `Int; "stride2", `Int]
    | 3 -> "create_prime_buffer", ["id", `New_ID (Some "wl_buffer"); "name", `FD; "width", `Int; "height", `Int;
                                   "format", `Uint; "offset0", `Int; "stride0", `Int; "offset1", `Int; "stride1", `Int;
                                   "offset2", `Int; "stride2", `Int]
    | i -> Proxy.unknown_request i, []
  
  let events = function
    | 0 -> "device", ["name", `String]
    | 1 -> "format", ["format", `Uint]
    | 2 -> "authenticated", []
    | 3 -> "capabilities", ["value", `Uint]
    | i -> Proxy.unknown_event i, []
  
end
let () = Iface_reg.register (module Wl_drm)