package wayland

  1. Overview
  2. Docs
Pure OCaml Wayland protocol library

Install

Dune Dependency

Authors

Maintainers

Sources

wayland-1.1.tbz
sha256=cdeca72c7ff949cbd0fb4d1e1141e4cf7aa75368db7ced4667dd4404e0fbec2c
sha512=815a0987a184615df39e0acfb912fbdd7ba2a1ae1e65267d9eeac6a63afe9d205c4d3c335b92f770227ecc93cd88f8e65e84328cd3dc17523b5eb42676e032ee

doc/src/wayland.protocols/linux_dmabuf_unstable_v1_proto.ml.html

Source file linux_dmabuf_unstable_v1_proto.ml

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
(* 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_linux_dmabuf_v1 = struct
  type t = [`Zwp_linux_dmabuf_v1]
  type _ Metadata.ty += T : [`Zwp_linux_dmabuf_v1] Metadata.ty
  type versions = [`V1 | `V2 | `V3 | `V4]
  let interface = "zwp_linux_dmabuf_v1"
  let version = 4l
  
  let requests = function
    | 0 -> "destroy", []
    | 1 -> "create_params", ["params_id", `New_ID (Some "zwp_linux_buffer_params_v1")]
    | 2 -> "get_default_feedback", ["id", `New_ID (Some "zwp_linux_dmabuf_feedback_v1")]
    | 3 -> "get_surface_feedback", ["id", `New_ID (Some "zwp_linux_dmabuf_feedback_v1");
                                    "surface", `Object (Some "wl_surface")]
    | i -> Proxy.unknown_request i, []
  
  let events = function
    | 0 -> "format", ["format", `Uint]
    | 1 -> "modifier", ["format", `Uint; "modifier_hi", `Uint; "modifier_lo", `Uint]
    | i -> Proxy.unknown_event i, []
  
end
let () = Iface_reg.register (module Zwp_linux_dmabuf_v1)

module Zwp_linux_buffer_params_v1 = struct
  type t = [`Zwp_linux_buffer_params_v1]
  type _ Metadata.ty += T : [`Zwp_linux_buffer_params_v1] Metadata.ty
  type versions = [`V1 | `V2 | `V3 | `V4]
  let interface = "zwp_linux_buffer_params_v1"
  let version = 4l
  
  module Error = struct
    type t =
      | Already_used : t
      | Plane_idx : t
      | Plane_set : t
      | Incomplete : t
      | Invalid_format : t
      | Invalid_dimensions : t
      | Out_of_bounds : t
      | Invalid_wl_buffer : t
    
    let to_int32 = function
      | Already_used -> 0l
      | Plane_idx -> 1l
      | Plane_set -> 2l
      | Incomplete -> 3l
      | Invalid_format -> 4l
      | Invalid_dimensions -> 5l
      | Out_of_bounds -> 6l
      | Invalid_wl_buffer -> 7l
    
    let of_int32 = function
      | 0l -> Already_used
      | 1l -> Plane_idx
      | 2l -> Plane_set
      | 3l -> Incomplete
      | 4l -> Invalid_format
      | 5l -> Invalid_dimensions
      | 6l -> Out_of_bounds
      | 7l -> Invalid_wl_buffer
      | x -> Fmt.failwith "Invalid error enum value %ld" x
  end
  
  
  module Flags = struct
    type t = int32
    
    let y_invert = 1l
    
    let interlaced = 2l
    
    let bottom_first = 4l
    
    let to_int32 = Fun.id
    let of_int32 = Fun.id
  end
  
  let requests = function
    | 0 -> "destroy", []
    | 1 -> "add", ["fd", `FD; "plane_idx", `Uint; "offset", `Uint; "stride", `Uint; "modifier_hi", `Uint;
                   "modifier_lo", `Uint]
    | 2 -> "create", ["width", `Int; "height", `Int; "format", `Uint; "flags", `Uint]
    | 3 -> "create_immed", ["buffer_id", `New_ID (Some "wl_buffer"); "width", `Int; "height", `Int; "format", `Uint;
                            "flags", `Uint]
    | i -> Proxy.unknown_request i, []
  
  let events = function
    | 0 -> "created", ["buffer", `New_ID (Some "wl_buffer")]
    | 1 -> "failed", []
    | i -> Proxy.unknown_event i, []
  
end
let () = Iface_reg.register (module Zwp_linux_buffer_params_v1)

module Zwp_linux_dmabuf_feedback_v1 = struct
  type t = [`Zwp_linux_dmabuf_feedback_v1]
  type _ Metadata.ty += T : [`Zwp_linux_dmabuf_feedback_v1] Metadata.ty
  type versions = [`V1 | `V2 | `V3 | `V4]
  let interface = "zwp_linux_dmabuf_feedback_v1"
  let version = 4l
  
  module Tranche_flags = struct
    type t = int32
    
    let scanout = 1l
    
    let to_int32 = Fun.id
    let of_int32 = Fun.id
  end
  
  let requests = function
    | 0 -> "destroy", []
    | i -> Proxy.unknown_request i, []
  
  let events = function
    | 0 -> "done", []
    | 1 -> "format_table", ["fd", `FD; "size", `Uint]
    | 2 -> "main_device", ["device", `Array]
    | 3 -> "tranche_done", []
    | 4 -> "tranche_target_device", ["device", `Array]
    | 5 -> "tranche_formats", ["indices", `Array]
    | 6 -> "tranche_flags", ["flags", `Uint]
    | i -> Proxy.unknown_event i, []
  
end
let () = Iface_reg.register (module Zwp_linux_dmabuf_feedback_v1)
OCaml

Innovation. Community. Security.