Source file tablet_v2_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 Zwp_tablet_manager_v2 = struct
  type t = [`Zwp_tablet_manager_v2]
  type _ Metadata.ty += T : [`Zwp_tablet_manager_v2] Metadata.ty
  type versions = [`V1]
  let interface = "zwp_tablet_manager_v2"
  let version = 1l
  
  let requests = function
    | 0 -> "get_tablet_seat", ["tablet_seat", `New_ID (Some "zwp_tablet_seat_v2"); "seat", `Object (Some "wl_seat")]
    | 1 -> "destroy", []
    | i -> Proxy.unknown_request i, []
  
  let events = function
    | i -> Proxy.unknown_event i, []
  
end
let () = Iface_reg.register (module Zwp_tablet_manager_v2)

module Zwp_tablet_seat_v2 = struct
  type t = [`Zwp_tablet_seat_v2]
  type _ Metadata.ty += T : [`Zwp_tablet_seat_v2] Metadata.ty
  type versions = [`V1]
  let interface = "zwp_tablet_seat_v2"
  let version = 1l
  
  let requests = function
    | 0 -> "destroy", []
    | i -> Proxy.unknown_request i, []
  
  let events = function
    | 0 -> "tablet_added", ["id", `New_ID (Some "zwp_tablet_v2")]
    | 1 -> "tool_added", ["id", `New_ID (Some "zwp_tablet_tool_v2")]
    | 2 -> "pad_added", ["id", `New_ID (Some "zwp_tablet_pad_v2")]
    | i -> Proxy.unknown_event i, []
  
end
let () = Iface_reg.register (module Zwp_tablet_seat_v2)

module Zwp_tablet_tool_v2 = struct
  type t = [`Zwp_tablet_tool_v2]
  type _ Metadata.ty += T : [`Zwp_tablet_tool_v2] Metadata.ty
  type versions = [`V1]
  let interface = "zwp_tablet_tool_v2"
  let version = 1l
  
  (** A physical tool type.
      
      Describes the physical type of a tool. The physical type of a tool
      generally defines its base usage.
      
      The mouse tool represents a mouse-shaped tool that is not a relative
      device but bound to the tablet's surface, providing absolute
      coordinates.
      
      The lens tool is a mouse-shaped tool with an attached lens to
      provide precision focus. *)
  module Type = struct
    type t =
      | Pen : t
      | Eraser : t
      | Brush : t
      | Pencil : t
      | Airbrush : t
      | Finger : t
      | Mouse : t
      | Lens : t
    
    let to_int32 = function
      | Pen -> 320l
      | Eraser -> 321l
      | Brush -> 322l
      | Pencil -> 323l
      | Airbrush -> 324l
      | Finger -> 325l
      | Mouse -> 326l
      | Lens -> 327l
    
    let of_int32 = function
      | 320l -> Pen
      | 321l -> Eraser
      | 322l -> Brush
      | 323l -> Pencil
      | 324l -> Airbrush
      | 325l -> Finger
      | 326l -> Mouse
      | 327l -> Lens
      | x -> Fmt.failwith "Invalid type enum value %ld" x
  end
  
  
  (** Capability flags for a tool.
      
      Describes extra capabilities on a tablet.
      
      Any tool must provide x and y values, extra axes are
      device-specific. *)
  module Capability = struct
    type t =
      | Tilt : t
      | Pressure : t
      | Distance : t
      | Rotation : t
      | Slider : t
      | Wheel : t
    
    let to_int32 = function
      | Tilt -> 1l
      | Pressure -> 2l
      | Distance -> 3l
      | Rotation -> 4l
      | Slider -> 5l
      | Wheel -> 6l
    
    let of_int32 = function
      | 1l -> Tilt
      | 2l -> Pressure
      | 3l -> Distance
      | 4l -> Rotation
      | 5l -> Slider
      | 6l -> Wheel
      | x -> Fmt.failwith "Invalid capability enum value %ld" x
  end
  
  
  (** Physical button state.
      
      Describes the physical state of a button that produced the button event. *)
  module Button_state = struct
    type t =
      | Released : t
      | Pressed : t
    
    let to_int32 = function
      | Released -> 0l
      | Pressed -> 1l
    
    let of_int32 = function
      | 0l -> Released
      | 1l -> Pressed
      | x -> Fmt.failwith "Invalid button_state enum value %ld" x
  end
  
  
  module Error = struct
    type t =
      | Role : t
    
    let to_int32 = function
      | Role -> 0l
    
    let of_int32 = function
      | 0l -> Role
      | x -> Fmt.failwith "Invalid error enum value %ld" x
  end
  
  let requests = function
    | 0 -> "set_cursor", ["serial", `Uint; "surface", `Object (Some "wl_surface"); "hotspot_x", `Int; "hotspot_y", `Int]
    | 1 -> "destroy", []
    | i -> Proxy.unknown_request i, []
  
  let events = function
    | 0 -> "type", ["tool_type", `Uint]
    | 1 -> "hardware_serial", ["hardware_serial_hi", `Uint; "hardware_serial_lo", `Uint]
    | 2 -> "hardware_id_wacom", ["hardware_id_hi", `Uint; "hardware_id_lo", `Uint]
    | 3 -> "capability", ["capability", `Uint]
    | 4 -> "done", []
    | 5 -> "removed", []
    | 6 -> "proximity_in", ["serial", `Uint; "tablet", `Object (Some "zwp_tablet_v2");
                            "surface", `Object (Some "wl_surface")]
    | 7 -> "proximity_out", []
    | 8 -> "down", ["serial", `Uint]
    | 9 -> "up", []
    | 10 -> "motion", ["x", `Fixed; "y", `Fixed]
    | 11 -> "pressure", ["pressure", `Uint]
    | 12 -> "distance", ["distance", `Uint]
    | 13 -> "tilt", ["tilt_x", `Fixed; "tilt_y", `Fixed]
    | 14 -> "rotation", ["degrees", `Fixed]
    | 15 -> "slider", ["position", `Int]
    | 16 -> "wheel", ["degrees", `Fixed; "clicks", `Int]
    | 17 -> "button", ["serial", `Uint; "button", `Uint; "state", `Uint]
    | 18 -> "frame", ["time", `Uint]
    | i -> Proxy.unknown_event i, []
  
end
let () = Iface_reg.register (module Zwp_tablet_tool_v2)

module Zwp_tablet_v2 = struct
  type t = [`Zwp_tablet_v2]
  type _ Metadata.ty += T : [`Zwp_tablet_v2] Metadata.ty
  type versions = [`V1]
  let interface = "zwp_tablet_v2"
  let version = 1l
  
  let requests = function
    | 0 -> "destroy", []
    | i -> Proxy.unknown_request i, []
  
  let events = function
    | 0 -> "name", ["name", `String]
    | 1 -> "id", ["vid", `Uint; "pid", `Uint]
    | 2 -> "path", ["path", `String]
    | 3 -> "done", []
    | 4 -> "removed", []
    | i -> Proxy.unknown_event i, []
  
end
let () = Iface_reg.register (module Zwp_tablet_v2)

module Zwp_tablet_pad_ring_v2 = struct
  type t = [`Zwp_tablet_pad_ring_v2]
  type _ Metadata.ty += T : [`Zwp_tablet_pad_ring_v2] Metadata.ty
  type versions = [`V1]
  let interface = "zwp_tablet_pad_ring_v2"
  let version = 1l
  
  (** Ring axis source.
      
      Describes the source types for ring events. This indicates to the
      client how a ring event was physically generated; a client may
      adjust the user interface accordingly. For example, events
      from a "finger" source may trigger kinetic scrolling. *)
  module Source = struct
    type t =
      | Finger : t
    
    let to_int32 = function
      | Finger -> 1l
    
    let of_int32 = function
      | 1l -> Finger
      | x -> Fmt.failwith "Invalid source enum value %ld" x
  end
  
  let requests = function
    | 0 -> "set_feedback", ["description", `String; "serial", `Uint]
    | 1 -> "destroy", []
    | i -> Proxy.unknown_request i, []
  
  let events = function
    | 0 -> "source", ["source", `Uint]
    | 1 -> "angle", ["degrees", `Fixed]
    | 2 -> "stop", []
    | 3 -> "frame", ["time", `Uint]
    | i -> Proxy.unknown_event i, []
  
end
let () = Iface_reg.register (module Zwp_tablet_pad_ring_v2)

module Zwp_tablet_pad_strip_v2 = struct
  type t = [`Zwp_tablet_pad_strip_v2]
  type _ Metadata.ty += T : [`Zwp_tablet_pad_strip_v2] Metadata.ty
  type versions = [`V1]
  let interface = "zwp_tablet_pad_strip_v2"
  let version = 1l
  
  (** Strip axis source.
      
      Describes the source types for strip events. This indicates to the
      client how a strip event was physically generated; a client may
      adjust the user interface accordingly. For example, events
      from a "finger" source may trigger kinetic scrolling. *)
  module Source = struct
    type t =
      | Finger : t
    
    let to_int32 = function
      | Finger -> 1l
    
    let of_int32 = function
      | 1l -> Finger
      | x -> Fmt.failwith "Invalid source enum value %ld" x
  end
  
  let requests = function
    | 0 -> "set_feedback", ["description", `String; "serial", `Uint]
    | 1 -> "destroy", []
    | i -> Proxy.unknown_request i, []
  
  let events = function
    | 0 -> "source", ["source", `Uint]
    | 1 -> "position", ["position", `Uint]
    | 2 -> "stop", []
    | 3 -> "frame", ["time", `Uint]
    | i -> Proxy.unknown_event i, []
  
end
let () = Iface_reg.register (module Zwp_tablet_pad_strip_v2)

module Zwp_tablet_pad_group_v2 = struct
  type t = [`Zwp_tablet_pad_group_v2]
  type _ Metadata.ty += T : [`Zwp_tablet_pad_group_v2] Metadata.ty
  type versions = [`V1]
  let interface = "zwp_tablet_pad_group_v2"
  let version = 1l
  
  let requests = function
    | 0 -> "destroy", []
    | i -> Proxy.unknown_request i, []
  
  let events = function
    | 0 -> "buttons", ["buttons", `Array]
    | 1 -> "ring", ["ring", `New_ID (Some "zwp_tablet_pad_ring_v2")]
    | 2 -> "strip", ["strip", `New_ID (Some "zwp_tablet_pad_strip_v2")]
    | 3 -> "modes", ["modes", `Uint]
    | 4 -> "done", []
    | 5 -> "mode_switch", ["time", `Uint; "serial", `Uint; "mode", `Uint]
    | i -> Proxy.unknown_event i, []
  
end
let () = Iface_reg.register (module Zwp_tablet_pad_group_v2)

module Zwp_tablet_pad_v2 = struct
  type t = [`Zwp_tablet_pad_v2]
  type _ Metadata.ty += T : [`Zwp_tablet_pad_v2] Metadata.ty
  type versions = [`V1]
  let interface = "zwp_tablet_pad_v2"
  let version = 1l
  
  (** Physical button state.
      
      Describes the physical state of a button that caused the button
      event. *)
  module Button_state = struct
    type t =
      | Released : t
      | Pressed : t
    
    let to_int32 = function
      | Released -> 0l
      | Pressed -> 1l
    
    let of_int32 = function
      | 0l -> Released
      | 1l -> Pressed
      | x -> Fmt.failwith "Invalid button_state enum value %ld" x
  end
  
  let requests = function
    | 0 -> "set_feedback", ["button", `Uint; "description", `String; "serial", `Uint]
    | 1 -> "destroy", []
    | i -> Proxy.unknown_request i, []
  
  let events = function
    | 0 -> "group", ["pad_group", `New_ID (Some "zwp_tablet_pad_group_v2")]
    | 1 -> "path", ["path", `String]
    | 2 -> "buttons", ["buttons", `Uint]
    | 3 -> "done", []
    | 4 -> "button", ["time", `Uint; "button", `Uint; "state", `Uint]
    | 5 -> "enter", ["serial", `Uint; "tablet", `Object (Some "zwp_tablet_v2"); "surface", `Object (Some "wl_surface")]
    | 6 -> "leave", ["serial", `Uint; "surface", `Object (Some "wl_surface")]
    | 7 -> "removed", []
    | i -> Proxy.unknown_event i, []
  
end
let () = Iface_reg.register (module Zwp_tablet_pad_v2)