Source file viewporter_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 Wp_viewporter = struct
  type t = [`Wp_viewporter]
  type _ Metadata.ty += T : [`Wp_viewporter] Metadata.ty
  type versions = [`V1]
  let interface = "wp_viewporter"
  let version = 1l
  
  module Error = struct
    type t =
      | Viewport_exists : t
    
    let to_int32 = function
      | Viewport_exists -> 0l
    
    let of_int32 = function
      | 0l -> Viewport_exists
      | x -> Fmt.failwith "Invalid error enum value %ld" x
  end
  
  let requests = function
    | 0 -> "destroy", []
    | 1 -> "get_viewport", ["id", `New_ID (Some "wp_viewport"); "surface", `Object (Some "wl_surface")]
    | i -> Proxy.unknown_request i, []
  
  let events = function
    | i -> Proxy.unknown_event i, []
  
end
let () = Iface_reg.register (module Wp_viewporter)

module Wp_viewport = struct
  type t = [`Wp_viewport]
  type _ Metadata.ty += T : [`Wp_viewport] Metadata.ty
  type versions = [`V1]
  let interface = "wp_viewport"
  let version = 1l
  
  module Error = struct
    type t =
      | Bad_value : t
      | Bad_size : t
      | Out_of_buffer : t
      | No_surface : t
    
    let to_int32 = function
      | Bad_value -> 0l
      | Bad_size -> 1l
      | Out_of_buffer -> 2l
      | No_surface -> 3l
    
    let of_int32 = function
      | 0l -> Bad_value
      | 1l -> Bad_size
      | 2l -> Out_of_buffer
      | 3l -> No_surface
      | x -> Fmt.failwith "Invalid error enum value %ld" x
  end
  
  let requests = function
    | 0 -> "destroy", []
    | 1 -> "set_source", ["x", `Fixed; "y", `Fixed; "width", `Fixed; "height", `Fixed]
    | 2 -> "set_destination", ["width", `Int; "height", `Int]
    | i -> Proxy.unknown_request i, []
  
  let events = function
    | i -> Proxy.unknown_event i, []
  
end
let () = Iface_reg.register (module Wp_viewport)