fix build on linux

1 files changed, 51 insertions, 0 deletions

diff --git a/lib/Wayland/Protocols/RiverLayerShellV1/Requests.lean b/lib/Wayland/Protocols/RiverLayerShellV1/Requests.lean
new file mode 100644
index 0000000..8e7dc9f
--- /dev/null
+++ b/lib/Wayland/Protocols/RiverLayerShellV1/Requests.lean
@@ -0,0 +1,51 @@
+import Wayland.Display
+import Wayland.Protocols.RiverLayerShellV1.Resolved
+import Wayland.Protocols.RiverWindowManagementV1.Header
+
+namespace Wayland.Protocols
+
+variable {σ : Type} {ι : InterfaceName} [iface : ResolvedInterface ι]
+
+def RiverLayerShellV1.destroy
+    (ω : RiverLayerShellV1)
+    : DisplayM σ Unit :=
+  ω.send do
+    return 0
+
+def RiverLayerShellV1.getOutput
+    (ω : RiverLayerShellV1)
+    (output : RiverOutputV1)
+    : DisplayM σ RiverLayerShellOutputV1 :=
+  ω.sendConstructor do
+    ArgumentMarshaller.marshalAnyObject .none
+    Marshallable.marshal .object output
+    return 1
+
+def RiverLayerShellV1.getSeat
+    (ω : RiverLayerShellV1)
+    (seat : RiverSeatV1)
+    : DisplayM σ RiverLayerShellSeatV1 :=
+  ω.sendConstructor do
+    ArgumentMarshaller.marshalAnyObject .none
+    Marshallable.marshal .object seat
+    return 2
+
+def RiverLayerShellOutputV1.destroy
+    (ω : RiverLayerShellOutputV1)
+    : DisplayM σ Unit :=
+  ω.send do
+    return 0
+
+def RiverLayerShellOutputV1.setDefault
+    (ω : RiverLayerShellOutputV1)
+    : DisplayM σ Unit :=
+  ω.send do
+    return 1
+
+def RiverLayerShellSeatV1.destroy
+    (ω : RiverLayerShellSeatV1)
+    : DisplayM σ Unit :=
+  ω.send do
+    return 0
+
+end Wayland.Protocols
\ No newline at end of file