oxenstored: Switch to ocaml-evtchn-unix-minimal

This drops the lwt dependency

Signed-off-by: Andrii Sultanov <[email protected]>

dune-project

@@ -27,6 +27,6 @@
 (package
  (name oxenstored)
  (synopsis "Oxenstored")
- (depends dune-site lwt lwt-dllist ounit2)
+ (depends dune-site ounit2)
  (sites
   (lib plugins)))

oxenstored.opam

@@ -9,8 +9,6 @@ bug-reports: "https://github.com/xapi-project/oxenstored/issues"
 depends: [
   "dune" {>= "3.15"}
   "dune-site"
-  "lwt"
-  "lwt-dllist"
   "ounit2"
   "odoc" {with-doc}
 ]

oxenstored/dune

@@ -5,7 +5,7 @@
   (:standard \ syslog configure))
  (flags
   (:standard -w -52))
- (libraries unix xenbus xen-evtchn xen-evtchn-unix
+ (libraries unix xenbus xen-evtchn xen-evtchn-unix-minimal
             xengnt xenmmap syslog xsdglue
             dune-site dune-site.plugins))
 

oxenstored/event.ml

@@ -40,7 +40,7 @@ let init ?fd ?domexc_port () =
   in
   {handle; domexc}
 
-let fd eventchn = Unix_activations.fd eventchn.handle
+let fd eventchn = Unix_activations_minimal.fd eventchn.handle
 
 let bind_interdomain eventchn domid port =
   Xeneventchn.bind_interdomain eventchn.handle domid port
@@ -49,11 +49,11 @@ let unbind eventchn port = Xeneventchn.unbind eventchn.handle port
 
 let notify eventchn port = Xeneventchn.notify eventchn.handle port
 
-let pending eventchn = Unix_activations.pending eventchn.handle
+let pending eventchn = Unix_activations_minimal.pending eventchn.handle
 
 let unmask eventchn port = Xeneventchn.unmask eventchn.handle port
 
 let dump e chan =
   Printf.fprintf chan "evtchn-dev,%d,%d\n"
-    (Utils.FD.to_int @@ Unix_activations.fd e.handle)
+    (Utils.FD.to_int @@ Unix_activations_minimal.fd e.handle)
     (Xeneventchn.to_int e.domexc)