Source file drm_client.ml

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

[@@@ocaml.warning "-27"]
open struct
  module Imports = struct
    include Drm_proto
    include Wayland.Wayland_proto
  end
  
  module Proxy = Wayland.Proxy
  module Msg = Wayland.Msg
  module Fixed = Wayland.Fixed
  module Iface_reg = Wayland.Iface_reg
  module S = Wayland.S
end


module Wl_drm = struct
  type 'v t = ([`Wl_drm], 'v, [`Client]) Proxy.t
  module Error = Drm_proto.Wl_drm.Error
  
  module Format = Drm_proto.Wl_drm.Format
  
  module Capability = Drm_proto.Wl_drm.Capability
  
  (** {2 Version 1} *)
  
  let create_planar_buffer (_t:([< `V1 | `V2] as 'v) t) (id:([`Wl_buffer], 'v, [`Client]) #Proxy.Handler.t) ~name ~width ~height ~format ~offset0 ~stride0 ~offset1 ~stride1 ~offset2 ~stride2 =
    let __id = Proxy.spawn _t id in
    let _msg = Proxy.alloc _t ~op:2 ~ints:11 ~strings:[] ~arrays:[] in
    Msg.add_int _msg (Proxy.id __id);
    Msg.add_int _msg name;
    Msg.add_int _msg width;
    Msg.add_int _msg height;
    Msg.add_int _msg format;
    Msg.add_int _msg offset0;
    Msg.add_int _msg stride0;
    Msg.add_int _msg offset1;
    Msg.add_int _msg stride1;
    Msg.add_int _msg offset2;
    Msg.add_int _msg stride2;
    Proxy.send _t _msg;
    __id
  
  let create_buffer (_t:([< `V1 | `V2] as 'v) t) (id:([`Wl_buffer], 'v, [`Client]) #Proxy.Handler.t) ~name ~width ~height ~stride ~format =
    let __id = Proxy.spawn _t id in
    let _msg = Proxy.alloc _t ~op:1 ~ints:6 ~strings:[] ~arrays:[] in
    Msg.add_int _msg (Proxy.id __id);
    Msg.add_int _msg name;
    Msg.add_int _msg width;
    Msg.add_int _msg height;
    Msg.add_int _msg stride;
    Msg.add_int _msg format;
    Proxy.send _t _msg;
    __id
  
  let authenticate (_t:([< `V1 | `V2] as 'v) t) ~id =
    let _msg = Proxy.alloc _t ~op:0 ~ints:1 ~strings:[] ~arrays:[] in
    Msg.add_int _msg id;
    Proxy.send _t _msg
  
  
  (** {2 Version 2} *)
  
  let create_prime_buffer (_t:([< `V2] as 'v) t) (id:([`Wl_buffer], 'v, [`Client]) #Proxy.Handler.t) ~name ~width ~height ~format ~offset0 ~stride0 ~offset1 ~stride1 ~offset2 ~stride2 =
    let __id = Proxy.spawn _t id in
    let _msg = Proxy.alloc _t ~op:3 ~ints:11 ~strings:[] ~arrays:[] in
    Msg.add_int _msg (Proxy.id __id);
    Msg.add_fd _msg name;
    Msg.add_int _msg width;
    Msg.add_int _msg height;
    Msg.add_int _msg format;
    Msg.add_int _msg offset0;
    Msg.add_int _msg stride0;
    Msg.add_int _msg offset1;
    Msg.add_int _msg stride1;
    Msg.add_int _msg offset2;
    Msg.add_int _msg stride2;
    Proxy.send _t _msg;
    __id
  
  (**/**)
  class virtual ['v] _handlers_unsafe = object (_self : (_, 'v, _) #Proxy.Handler.t)
    method user_data = S.No_data
    method metadata = (module Drm_proto.Wl_drm)
    method max_version = 2l
    
    method private virtual on_device : [> ] t -> name:string -> unit
    
    method private virtual on_format : [> ] t -> format:int32 -> unit
    
    method private virtual on_authenticated : [> ] t -> unit
    
    method private virtual on_capabilities : [> ] t -> value:int32 -> unit
    
    
    method dispatch (_proxy : 'v t) _msg =
      let _proxy = Proxy.cast_version _proxy in
      match Msg.op _msg with
      | 0 ->
        let name = Msg.get_string _msg in
        _self#on_device _proxy ~name
      | 1 ->
        let format = Msg.get_int _msg in
        _self#on_format _proxy ~format
      | 2 ->
        _self#on_authenticated _proxy 
      | 3 ->
        let value = Msg.get_int _msg in
        _self#on_capabilities _proxy ~value
      | _ -> assert false
  end
  (**/**)
  
  (** {2 Handlers}
      Note: Servers will always want to use [v1].
   *)
  
  
  (** Handler for a proxy with version >= 1. *)
  class virtual ['v] v1 = object (_ : (_, 'v, _) #Proxy.Service_handler.t)
    (**/**)
    inherit [[< `V1 | `V2] as 'v] _handlers_unsafe
    (**/**)
    method private virtual on_device : [> `V1 | `V2] t -> name:string -> unit
    
    
    method private virtual on_format : [> `V1 | `V2] t -> format:int32 -> unit
    
    
    method private virtual on_authenticated : [> `V1 | `V2] t -> unit
    
    
    method private virtual on_capabilities : [> `V1 | `V2] t -> value:int32 -> unit
    
    
    method min_version = 1l
    method bind_version : [`V1] = `V1
  end
  
  (** Handler for a proxy with version >= 2. *)
  class virtual ['v] v2 = object (_ : (_, 'v, _) #Proxy.Service_handler.t)
    (**/**)
    inherit [[< `V2] as 'v] _handlers_unsafe
    (**/**)
    method private virtual on_device : [> `V2] t -> name:string -> unit
    
    
    method private virtual on_format : [> `V2] t -> format:int32 -> unit
    
    
    method private virtual on_authenticated : [> `V2] t -> unit
    
    
    method private virtual on_capabilities : [> `V2] t -> value:int32 -> unit
    
    
    method min_version = 2l
    method bind_version : [`V2] = `V2
  end
end