Add Gpumon CLI tool for debugging

Signed-off-by: Akanksha Mathur <[email protected]>

Author: Akanksha Mathur

gpumon/gpumon_cli.ml

@@ -0,0 +1,22 @@
+
+(* Gpumon CLI *)
+
+module Cmds = Gpumon_interface.RPC_API(Cmdlinergen.Gen ())
+
+let version_str description =
+  let maj,min,mic = description.Idl.Interface.version in
+  Printf.sprintf "%d.%d.%d" maj min mic
+
+let default_cmd =
+  let doc = String.concat "" [
+      "A CLI for the GPU monitoring API. This allows scripting of the gpumon daemon ";
+      "for testing and debugging. This tool is not intended to be used as an ";
+      "end user tool"] in
+  Cmdliner.Term.(ret (const (fun _ -> `Help (`Pager, None)) $ const ())),
+  Cmdliner.Term.info "gpumon_cli" ~version:(version_str Cmds.description) ~doc
+
+let cli () =
+  let rpc = Gpumon_client.rpc in
+  Cmdliner.Term.eval_choice default_cmd (List.map (fun t -> t rpc) (Cmds.implementation ()))
+
+let _ = cli ()