Add jbuild file for gpumon interface

Signed-off-by: Rob Hoes <[email protected]>

Author: robhoes

gpumon/jbuild

@@ -0,0 +1,56 @@
+(* -*- tuareg -*- *)
+#require "unix"
+
+let flags = function
+  | [] -> ""
+  | pkgs ->
+    let cmd = "ocamlfind ocamlc -verbose" ^ (
+        List.fold_left (fun acc pkg -> acc ^ " -package " ^ pkg) "" pkgs
+      ) in
+    let ic = Unix.open_process_in
+        (cmd ^ " | grep -oEe '-ppx? (\"([^\"\\]|\\.)+\"|\\w+)'")
+    in
+    let rec go ic acc =
+      try go ic (acc ^ " " ^ input_line ic) with End_of_file -> close_in ic; acc
+    in
+    go ic ""
+
+let coverage_rewriter =
+  let is_coverage = try Unix.getenv "BISECT_ENABLE" = "YES" with Not_found -> false in
+  if is_coverage then
+    "(preprocess (pps (bisect_ppx -conditional)))"
+  else
+    ""
+
+let rewriters_camlp4 = ["rpclib.idl -syntax camlp4o"]
+let rewriters_ppx = ["ppx_deriving_rpc"; "ppx_sexp_conv"]
+
+let () = Printf.ksprintf Jbuild_plugin.V1.send {|
+(jbuild_version 1)
+
+(library
+ ((name xapi_gpumon_interface)
+  (public_name xcp.gpumon.interface)
+  (modules (gpumon_interface))
+  (flags (:standard -w -39 %s))
+  (libraries
+   (rpclib
+    threads
+    xcp))
+  (wrapped false)
+  %s))
+
+(library
+ ((name xapi_gpumon)
+  (public_name xcp.gpumon)
+  (modules (:standard \ gpumon_interface))
+  (flags (:standard -w -39-33 %s))
+  (libraries
+   (rpclib
+    threads
+    xcp
+    xapi_gpumon_interface))
+  (wrapped false)
+  %s))
+
+|} (flags rewriters_camlp4) coverage_rewriter (flags rewriters_ppx) coverage_rewriter