Upgrade virt-top version to 1.1.1. (microsoft#13001)

Author: durgajagadeesh

SPECS-EXTENDED/virt-top/0001-libvirt-Handle-VIR_DOMAIN_PMSUSPENDED-state.patch

@@ -0,0 +1,39 @@
+From 4b15ee2440b0e70e3c1eb5e164ded493e2d8f0c8 Mon Sep 17 00:00:00 2001
+From: Yuya Higashi <[email protected]>
+Date: Tue, 15 Nov 2022 13:56:21 +0900
+Subject: [PATCH 1/3] virt-top: fix to explicitly disconnect from libvirtd
+
+To prevent libvirtd from printing virNetSocketReadWire I/O errors when
+the virt-top command exits, explicitly disconnect from libvirtd.
+
+Signed-off-by: Yuya Higashi <[email protected]>
+---
+ src/top.ml | 5 +++--
+ 1 file changed, 3 insertions(+), 2 deletions(-)
+
+diff --git a/src/top.ml b/src/top.ml
+index 75fbcb9..cbe655a 100644
+--- a/src/top.ml
++++ b/src/top.ml
+@@ -306,7 +306,7 @@ let get_string maxlen =
+   )
+ 
+ (* Main loop. *)
+-let rec main_loop ((_, batch_mode, script_mode, csv_enabled, stream_mode, _, _, _)
++let rec main_loop ((conn, batch_mode, script_mode, csv_enabled, stream_mode, _, _, _)
+ 		     as setup) =
+   let csv_flags = !csv_cpu, !csv_mem, !csv_block, !csv_net in
+ 
+@@ -372,7 +372,8 @@ let rec main_loop ((_, batch_mode, script_mode, csv_enabled, stream_mode, _, _,
+       if not !quit || !end_time <> None then
+ 	millisleep delay
+     )
+-  done
++  done;
++  C.close conn
+ 
+ and get_key_press setup delay =
+   (* Read the next key, waiting up to 'delay' milliseconds. *)
+-- 
+2.42.0
+

SPECS-EXTENDED/virt-top/0001-virt-top-fix-to-explicitly-disconnect-from-libvirtd.patch

@@ -0,0 +1,38 @@
+From 1d04fdfce6edea685596fbb18920799c70f1d7fa Mon Sep 17 00:00:00 2001
+From: Yuya Higashi <[email protected]>
+Date: Mon, 26 Dec 2022 09:18:15 +0900
+Subject: [PATCH 2/3] virt-top: fix to parse init-file correctly
+
+This fixes the following runtime error when parsing init-file.
+
+$ virt-top --init-file <(echo "sort id")
+Error: Invalid_argument("String.sub / Bytes.sub")
+Raised at Stdlib.invalid_arg in file "stdlib.ml", line 30, characters 20-45
+Called from Stdlib__String.sub in file "string.ml" (inlined), line 50, characters 2-23
+Called from Utils.split in file "utils.ml", line 82, characters 24-68
+Called from Utils.read_config_file.(fun) in file "utils.ml", line 114, characters 23-37
+Called from Stdlib__List.map in file "list.ml", line 92, characters 20-23
+Called from Top.start_up.try_to_read_init_file in file "top.ml", line 153, characters 17-42
+Called from Main.script_mode in file "main.ml", line 37, characters 6-17
+
+Signed-off-by: Yuya Higashi <[email protected]>
+---
+ src/utils.ml | 2 +-
+ 1 file changed, 1 insertion(+), 1 deletion(-)
+
+diff --git a/src/utils.ml b/src/utils.ml
+index 1f00803..8dfb255 100644
+--- a/src/utils.ml
++++ b/src/utils.ml
+@@ -79,7 +79,7 @@ let trim ?(test = isspace) str =
+ let split str sep =
+   try
+     let i = String.index str sep in
+-    String.sub str 0 i, String.sub str (i+1) (String.length str - 1)
++    String.sub str 0 i, String.sub str (i+1) (String.length str - i - 1)
+   with
+     Not_found -> str, ""
+ 
+-- 
+2.42.0
+

SPECS-EXTENDED/virt-top/0002-virt-top-fix-to-parse-init-file-correctly.patch

@@ -0,0 +1,33 @@
+From dd205eeae9fb06ac113884e4c9e9f3a90eef7554 Mon Sep 17 00:00:00 2001
+From: "Richard W.M. Jones" <[email protected]>
+Date: Mon, 27 Nov 2023 14:09:04 +0000
+Subject: [PATCH 3/3] src: Include <libxml/parser.h>
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+libxml2 2.12.1 failed with this error:
+
+xml-c.c:92:9: warning: implicit declaration of function ‘xmlReadMemory’; did you mean ‘xmlInitMemory’? [-Wimplicit-function-declaration]
+   92 |   doc = xmlReadMemory (String_val (xmlv), caml_string_length (xmlv),
+      |         ^~~~~~~~~~~~~
+      |         xmlInitMemory
+---
+ src/xml-c.c | 1 +
+ 1 file changed, 1 insertion(+)
+
+diff --git a/src/xml-c.c b/src/xml-c.c
+index 72042bf..6c546b9 100644
+--- a/src/xml-c.c
++++ b/src/xml-c.c
+@@ -28,6 +28,7 @@
+ #include <caml/memory.h>
+ #include <caml/mlvalues.h>
+ 
++#include <libxml/parser.h>
+ #include <libxml/xpath.h>
+ #include <libxml/xpathInternals.h>
+ 
+-- 
+2.42.0
+

SPECS-EXTENDED/virt-top/0003-src-Include-libxml-parser.h.patch

@@ -1,7 +1,5 @@
 {
  "Signatures": {
-  "processcsv.py": "2176eb136d0c9fa60369a563767d69c1de5e4e22f72465fb42f8279d375dd34e",
-  "processcsv.py.pod": "d8c6be480cfb20cab5f0c4e8390b0093cc8e08aec5a8328260aa7728a5914dd0",
-  "virt-top-1.0.9.tar.gz": "d615e63821cbf0bd5e4cdc1c315450dcd32cf188ee36a30fd52e85df3b7cb491"
+  "virt-top-1.1.1.tar.gz": "6cdd98d2334f4061f8dac5d157178102f9dd8a929fadf87e85d773235044042a"
  }
-}
+}