import virt-top-1.0.8-32.el8

2019-08-01 14:43:50 -04:00 · 2019-08-01 14:43:50 -04:00 · ce962f931c
commit ce962f931c
26 changed files with 26121 additions and 0 deletions
--- a/.gitignore
+++ b/.gitignore
@ -0,0 +1,2 @@
+SOURCES/processcsv.py.pod
+SOURCES/virt-top-1.0.8.tar.gz
--- a/.virt-top.metadata
+++ b/.virt-top.metadata
@ -0,0 +1,2 @@
+31254fa2ab496eb18f7112733e418ee3c24761b7 SOURCES/processcsv.py.pod
+97d524405e9ac7fa86ff4410c1f7e10811a70bd1 SOURCES/virt-top-1.0.8.tar.gz
--- a/SOURCES/0001-Disable-warning-about-immutable-strings-for-OCaml-4..patch
+++ b/SOURCES/0001-Disable-warning-about-immutable-strings-for-OCaml-4..patch
@ -0,0 +1,50 @@
+From 0e47961395eec78b1ee9f6ae48520f1d95d84fdf Mon Sep 17 00:00:00 2001
+From: "Richard W.M. Jones" <rjones@redhat.com>
+Date: Sat, 2 Aug 2014 17:37:21 +0100
+Subject: [PATCH 01/20] Disable warning about immutable strings (for OCaml
+ 4.02).
+
+---
+ Makefile.in          | 2 +-
+ virt-top/Makefile.in | 6 +++---
+ 2 files changed, 4 insertions(+), 4 deletions(-)
+
+diff --git a/Makefile.in b/Makefile.in
+index 32e0b66..b310e58 100644
+--- a/Makefile.in
+++ b/Makefile.in
+@@ -1,5 +1,5 @@
+ # virt-top
+-# Copyright (C) 2007-2009 Red Hat Inc., Richard W.M. Jones
+# Copyright (C) 2007-2014 Red Hat Inc., Richard W.M. Jones
+ #
+ # This library is free software; you can redistribute it and/or
+ # modify it under the terms of the GNU Lesser General Public
+diff --git a/virt-top/Makefile.in b/virt-top/Makefile.in
+index 5aa0c35..98e6647 100755
+--- a/virt-top/Makefile.in
+++ b/virt-top/Makefile.in
+@@ -1,5 +1,5 @@
+ # virt-top
+-# Copyright (C) 2007-2009 Red Hat Inc., Richard W.M. Jones
+# Copyright (C) 2007-2014 Red Hat Inc., Richard W.M. Jones
+ #
+ # This program is free software; you can redistribute it and/or modify
+ # it under the terms of the GNU General Public License as published by
+@@ -64,11 +64,11 @@ OBJS		+= virt_top_main.cmo
+ 
+ XOBJS		:= $(OBJS:.cmo=.cmx)
+ 
+-OCAMLCFLAGS	:= -g -warn-error A
+OCAMLCFLAGS	:= -g -warn-error A-3
+ OCAMLCLIBS	:= -linkpkg
+ 
+ OCAMLOPTPACKAGES := $(OCAMLCPACKAGES)
+-OCAMLOPTFLAGS	:= -warn-error A
+OCAMLOPTFLAGS	:= -warn-error A-3
+ OCAMLOPTLIBS	:= $(OCAMLCLIBS)
+ 
+ BYTE_TARGETS	:= virt-top
+-- 
+2.19.0.rc0
+
--- a/SOURCES/0002-Move-upstream-translations-from-Tranifex-to-Zanata.patch
+++ b/SOURCES/0002-Move-upstream-translations-from-Tranifex-to-Zanata.patch
@ -0,0 +1,167 @@
+From 6ea4275b0d9f6d40b8d4a35f78928e71d830d721 Mon Sep 17 00:00:00 2001
+From: "Richard W.M. Jones" <rjones@redhat.com>
+Date: Sat, 21 Feb 2015 17:27:59 +0000
+Subject: [PATCH 02/20] Move upstream translations from Tranifex to Zanata.
+
+This is at the request of the Fedora localization team.
+For further information see:
+
+https://www.redhat.com/archives/libguestfs/2015-February/msg00168.html
+---
+ po/zanata-pull.sh |  30 +++++++++++++
+ po/zanata.xml     | 106 ++++++++++++++++++++++++++++++++++++++++++++++
+ 2 files changed, 136 insertions(+)
+ create mode 100755 po/zanata-pull.sh
+ create mode 100644 po/zanata.xml
+
+diff --git a/po/zanata-pull.sh b/po/zanata-pull.sh
+new file mode 100755
+index 0000000..d051b7a
+--- /dev/null
+++ b/po/zanata-pull.sh
+@@ -0,0 +1,30 @@
+#!/bin/bash -
+# Pull translations from Zanata.
+# Copyright (C) 2011-2015 Red Hat Inc.
+#
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, write to the Free Software
+# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
+
+set -e
+
+echo zanata po pull
+zanata po pull
+
+# Remove PO files that have no translations in them.
+for f in *.po; do
+  if ! grep -q '^msgstr "[^"]' $f; then
+    echo rm $f
+    rm $f
+  fi
+done
+diff --git a/po/zanata.xml b/po/zanata.xml
+new file mode 100644
+index 0000000..64810f9
+--- /dev/null
+++ b/po/zanata.xml
+@@ -0,0 +1,106 @@
+<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
+<config xmlns="http://zanata.org/namespace/config/">
+  <url>https://fedora.zanata.org</url>
+  <project>virt-top</project>
+  <project-version>master</project-version>
+  <project-type>gettext</project-type>
+
+  <locales>
+    <locale>sq</locale>
+    <locale>ar</locale>
+    <locale>as</locale>
+    <locale>ast</locale>
+    <locale>bal</locale>
+    <locale>eu</locale>
+    <locale>bn</locale>
+    <locale>bn-IN</locale>
+    <locale>brx</locale>
+    <locale>bs</locale>
+    <locale>br</locale>
+    <locale>bg</locale>
+    <locale>ca</locale>
+    <locale>zh-CN</locale>
+    <locale>zh-HK</locale>
+    <locale>zh-TW</locale>
+    <locale>kw</locale>
+    <locale>kw-GB</locale>
+    <locale>cs</locale>
+    <locale>da</locale>
+    <locale>nl</locale>
+    <locale>en-GB</locale>
+    <locale>eo</locale>
+    <locale>et</locale>
+    <locale>fi</locale>
+    <locale>fr</locale>
+    <locale>gl</locale>
+    <locale>ka</locale>
+    <locale>de</locale>
+    <locale>el</locale>
+    <locale>gu</locale>
+    <locale>he</locale>
+    <locale>hi</locale>
+    <locale>hu</locale>
+    <locale>is</locale>
+    <locale>id</locale>
+    <locale>ia</locale>
+    <locale>it</locale>
+    <locale>ja</locale>
+    <locale>kn</locale>
+    <locale>kk</locale>
+    <locale>km</locale>
+    <locale>ky</locale>
+    <locale>ko</locale>
+    <locale>lt</locale>
+    <locale>nds</locale>
+    <locale>mk</locale>
+    <locale>mai</locale>
+    <locale>ms</locale>
+    <locale>ml</locale>
+    <locale>mr</locale>
+    <locale>mn</locale>
+    <locale>ne</locale>
+    <locale>nb</locale>
+    <locale>nn</locale>
+    <locale>or</locale>
+    <locale>pa</locale>
+    <locale>fa</locale>
+    <locale>pl</locale>
+    <locale>pt</locale>
+    <locale>pt-BR</locale>
+    <locale>ro</locale>
+    <locale>ru</locale>
+    <locale>sr</locale>
+    <locale>sr@latin</locale>
+    <locale>si</locale>
+    <locale>sk</locale>
+    <locale>sl</locale>
+    <locale>es</locale>
+    <locale>sv</locale>
+    <locale>tg</locale>
+    <locale>ta</locale>
+    <locale>te</locale>
+    <locale>bo</locale>
+    <locale>tr</locale>
+    <locale>uk</locale>
+    <locale>ur</locale>
+    <locale>wba</locale>
+    <locale>cy</locale>
+    <locale>lv</locale>
+    <locale>kw@uccor</locale>
+    <locale>kw@kkcor</locale>
+    <locale>af</locale>
+    <locale>am</locale>
+    <locale>be</locale>
+    <locale>hr</locale>
+    <locale>de-CH</locale>
+    <locale>th</locale>
+    <locale>vi</locale>
+    <locale>zu</locale>
+    <locale>ilo</locale>
+    <locale>nso</locale>
+    <locale>tw</locale>
+    <locale>yo</locale>
+    <locale>anp</locale>
+  </locales>
+
+</config>
+-- 
+2.19.0.rc0
+
--- a/SOURCES/0003-Update-translations-from-Zanata.patch
+++ b/SOURCES/0003-Update-translations-from-Zanata.patch
--- a/SOURCES/0004-build-Add-g-flag-to-ocamlopt.patch
+++ b/SOURCES/0004-build-Add-g-flag-to-ocamlopt.patch
@ -0,0 +1,26 @@
+From 4a2d0ccd91f07d0a2009e8553a29fcf4cf752ba3 Mon Sep 17 00:00:00 2001
+From: "Richard W.M. Jones" <rjones@redhat.com>
+Date: Mon, 4 Jan 2016 11:48:40 -0500
+Subject: [PATCH 04/20] build: Add -g flag to ocamlopt.
+
+Modern ocamlopt supports the -g flag fine (very old versions did not).
+---
+ virt-top/Makefile.in | 2 +-
+ 1 file changed, 1 insertion(+), 1 deletion(-)
+
+diff --git a/virt-top/Makefile.in b/virt-top/Makefile.in
+index 98e6647..e149b26 100755
+--- a/virt-top/Makefile.in
+++ b/virt-top/Makefile.in
+@@ -68,7 +68,7 @@ OCAMLCFLAGS	:= -g -warn-error A-3
+ OCAMLCLIBS	:= -linkpkg
+ 
+ OCAMLOPTPACKAGES := $(OCAMLCPACKAGES)
+-OCAMLOPTFLAGS	:= -warn-error A-3
+OCAMLOPTFLAGS	:= $(OCAMLCFLAGS)
+ OCAMLOPTLIBS	:= $(OCAMLCLIBS)
+ 
+ BYTE_TARGETS	:= virt-top
+-- 
+2.19.0.rc0
+
--- a/SOURCES/0005-Rename-source-directory-and-files.patch
+++ b/SOURCES/0005-Rename-source-directory-and-files.patch
@ -0,0 +1,719 @@
+From b7c3ef13cbd9c9cd49005a32ffb70faf6f5bbe8c Mon Sep 17 00:00:00 2001
+From: "Richard W.M. Jones" <rjones@redhat.com>
+Date: Mon, 31 Oct 2016 12:01:40 +0000
+Subject: [PATCH 05/20] Rename source directory and files.
+
+This renames the source directory from virt-top to src/ and removes
+the unnecessary virt_top_* prefix from many source files.
+
+This is entirely refactoring and makes no functional change.
+
+Also this fixes the MANIFEST file and removes old Transifex
+configuration, fixing commit defe5bdd4a32e0206a786d279e0f9cfc238e5e17.
+---
+ .gitignore                                    | 72 ++++++++-----------
+ .tx/config                                    |  8 ---
+ ChangeLog                                     | 30 ++++++++
+ MANIFEST                                      | 41 +++++++----
+ Makefile.in                                   | 15 ++--
+ README                                        |  2 +-
+ configure.ac                                  | 29 ++++----
+ src/.depend                                   | 20 ++++++
+ {virt-top => src}/Makefile.in                 | 18 ++---
+ {virt-top => src}/README                      | 22 +++---
+ virt-top/virt_top_main.ml => src/main.ml      |  4 +-
+ .../opt_calendar1.ml                          |  4 +-
+ .../opt_calendar2.ml                          |  4 +-
+ virt-top/virt_top_csv.ml => src/opt_csv.ml    |  6 +-
+ virt-top/virt_top_xml.ml => src/opt_xml.ml    |  4 +-
+ virt-top/virt_top.ml => src/top.ml            |  8 +--
+ virt-top/virt_top.mli => src/top.mli          |  0
+ virt-top/virt_top_utils.ml => src/utils.ml    |  2 +-
+ virt-top/virt_top_utils.mli => src/utils.mli  |  0
+ .../version.ml.in                             |  0
+ {virt-top => src}/virt-top.pod                |  0
+ virt-top/.depend                              | 20 ------
+ 22 files changed, 163 insertions(+), 146 deletions(-)
+ delete mode 100644 .tx/config
+ create mode 100644 src/.depend
+ rename {virt-top => src}/Makefile.in (91%)
+ rename {virt-top => src}/README (77%)
+ rename virt-top/virt_top_main.ml => src/main.ml (98%)
+ rename virt-top/virt_top_calendar1.ml => src/opt_calendar1.ml (97%)
+ rename virt-top/virt_top_calendar2.ml => src/opt_calendar2.ml (97%)
+ rename virt-top/virt_top_csv.ml => src/opt_csv.ml (94%)
+ rename virt-top/virt_top_xml.ml => src/opt_xml.ml (97%)
+ rename virt-top/virt_top.ml => src/top.ml (99%)
+ rename virt-top/virt_top.mli => src/top.mli (100%)
+ rename virt-top/virt_top_utils.ml => src/utils.ml (99%)
+ rename virt-top/virt_top_utils.mli => src/utils.mli (100%)
+ rename virt-top/virt_top_version.ml.in => src/version.ml.in (100%)
+ rename {virt-top => src}/virt-top.pod (100%)
+ delete mode 100644 virt-top/.depend
+
+diff --git a/.gitignore b/.gitignore
+index d08e9e2..e3f77e7 100644
+--- a/.gitignore
+++ b/.gitignore
+@@ -1,50 +1,36 @@
+-aclocal.m4
+-META
+-ocaml-libvirt-*.tar.gz
+-ocaml-libvirt-*.exe
+-html
+-configure
+-config.log
+-config.status
+-config.h
+-config.cache
+-Makefile
+-Make.rules
+-*/Makefile
+-autom4te.cache
+-core
+-core.*
+*.a
+*.cma
+ *.cmi
+ *.cmo
+ *.cmx
+-*.cma
+ *.cmxa
+-*.o
+-*.so
+-*.a
+-*.opt
+ *.dll
+ *.exe
+-*~
+-libvirt/libvirt_version.ml
+-examples/list_domains
+-examples/node_info
+-mlvirsh/mlvirsh
+-virt-ctrl/virt-ctrl
+-virt-top/virt-top
+-virt-df/virt-df
+-wininstaller.nsis
+*.o
+*.opt
+ *.orig
+-mlvirsh/mlvirsh_gettext.ml
+-virt-ctrl/virt_ctrl_gettext.ml
+-virt-df/virt_df_gettext.ml
+-virt-top/virt_top_gettext.ml
+-virt-top/virt_top_version.ml
+-po/*.mo
+-po/*.po.bak
+-virt-df/virt_df_lvm2_lexer.ml
+-virt-df/virt_df_lvm2_parser.ml
+-virt-df/virt_df_lvm2_parser.mli
+-virt-top-*.tar.gz
+-virt-top/virt-top.1
+-virt-top/virt-top.txt
+\ No newline at end of file
+*.so
+*~
+
+META
+Makefile
+aclocal.m4
+config.cache
+config.h
+config.log
+config.status
+configure
+core
+core.*
+html
+
+/Make.rules
+/autom4te.cache
+/po/*.mo
+/po/*.po.bak
+/src/opt_gettext.ml
+/src/version.ml
+/src/virt-top
+/src/virt-top.1
+/src/virt-top.txt
+/virt-top-*.tar.gz
+diff --git a/.tx/config b/.tx/config
+deleted file mode 100644
+index 3e17770..0000000
+--- a/.tx/config
+++ /dev/null
+@@ -1,8 +0,0 @@
+-[main]
+-host = https://www.transifex.net
+-
+-[virttop.virttoppot]
+-file_filter = po/<lang>.po
+-source_file = po/virt-top.pot
+-source_lang = en
+-
+diff --git a/ChangeLog b/ChangeLog
+index 8daca45..1b3999a 100644
+--- a/ChangeLog
+++ b/ChangeLog
+@@ -1,3 +1,33 @@
+2016-10-31  Richard W.M. Jones  <rjones@redhat.com>
+
+	Rename source directory and files.
+	This renames the source directory from virt-top to src/ and removes
+	the unnecessary virt_top_* prefix from many source files.
+
+	This is entirely refactoring and makes no functional change.
+
+	Also this fixes the MANIFEST file and removes old Transifex
+	configuration, fixing commit defe5bdd4a32e0206a786d279e0f9cfc238e5e17.
+
+2016-01-04  Richard W.M. Jones  <rjones@redhat.com>
+
+	build: Add -g flag to ocamlopt.
+	Modern ocamlopt supports the -g flag fine (very old versions did not).
+
+2015-02-21  Richard W.M. Jones  <rjones@redhat.com>
+
+	Update translations from Zanata.
+
+	Move upstream translations from Tranifex to Zanata.
+	This is at the request of the Fedora localization team.
+	For further information see:
+
+	https://www.redhat.com/archives/libguestfs/2015-February/msg00168.html
+
+2014-08-02  Richard W.M. Jones  <rjones@redhat.com>
+
+	Disable warning about immutable strings (for OCaml 4.02).
+
+ 2012-10-12  Richard W.M. Jones  <rjones@redhat.com>
+ 
+ 	Version 1.0.8.
+diff --git a/MANIFEST b/MANIFEST
+index c5958d7..2cf377f 100644
+--- a/MANIFEST
+++ b/MANIFEST
+@@ -14,12 +14,17 @@ Make.rules.in
+ MANIFEST
+ m4/ocaml.m4
+ po/as.po
+po/ca.po
+ po/de.po
+ po/es.po
+po/eu.po
+ po/fr.po
+ po/gu.po
+po/hu.po
+po/id.po
+ po/it.po
+ po/ja.po
+po/ka.po
+ po/kn.po
+ po/LINGUAS
+ po/Makefile.in
+@@ -27,30 +32,36 @@ po/ml.po
+ po/mr.po
+ po/nl.po
+ po/or.po
+po/pa.po
+ po/pl.po
+ po/pt_BR.po
+ po/pt.po
+ po/POTFILES
+ po/ru.po
+po/sr.po
+po/sv.po
+ po/te.po
+po/tg.po
+po/tr.po
+ po/uk.po
+ po/virt-top.pot
+po/zanata-pull.sh
+po/zanata.xml
+ po/zh_CN.po
+ po/zh_TW.po
+ README
+ TODO
+-.tx/config
+-virt-top/.depend
+-virt-top/Makefile.in
+-virt-top/README
+-virt-top/virt-top.pod
+-virt-top/virt_top.ml
+-virt-top/virt_top.mli
+-virt-top/virt_top_calendar1.ml
+-virt-top/virt_top_calendar2.ml
+-virt-top/virt_top_csv.ml
+-virt-top/virt_top_main.ml
+-virt-top/virt_top_utils.ml
+-virt-top/virt_top_utils.mli
+-virt-top/virt_top_version.ml.in
+-virt-top/virt_top_xml.ml
+src/.depend
+src/Makefile.in
+src/README
+src/main.ml
+src/opt_calendar1.ml
+src/opt_calendar2.ml
+src/opt_csv.ml
+src/opt_xml.ml
+src/top.ml
+src/top.mli
+src/utils.ml
+src/utils.mli
+src/version.ml.in
+src/virt-top.pod
+diff --git a/Makefile.in b/Makefile.in
+index b310e58..d0aec17 100644
+--- a/Makefile.in
+++ b/Makefile.in
+@@ -22,25 +22,22 @@ INSTALL		= @INSTALL@
+ 
+ MAKENSIS	= @MAKENSIS@
+ 
+-SUBDIRS		= virt-top
+SUBDIRS		= src
+ 
+ all opt depend install:
+-	for d in $(SUBDIRS); do \
+-	  $(MAKE) -C $$d $@; \
+-	  if [ $$? -ne 0 ]; then exit 1; fi; \
+-	done
+	$(MAKE) -C src $@
+ 
+ clean:
+ 	for d in . $(SUBDIRS); do \
+ 	  (cd $$d; rm -f *.cmi *.cmo *.cmx *.cma *.cmxa *.o *.a *.so *.opt *~ *.dll *.exe core); \
+ 	done
+-	rm -f virt-top/virt-top
+	rm -f src/virt-top
+ 
+ distclean: clean
+ 	rm -f config.h config.log config.status configure
+ 	rm -rf autom4te.cache
+ 	rm -f Makefile
+-	rm -f virt-top/Makefile
+	rm -f src/Makefile
+ 
+ # Distribution.
+ 
+@@ -51,8 +48,8 @@ dist: ChangeLog
+ 	tar -cf - -T MANIFEST | tar -C $(PACKAGE)-$(VERSION) -xf -
+ 	$(INSTALL) -m 0755 configure $(PACKAGE)-$(VERSION)/
+ 	$(INSTALL) -m 0644 aclocal.m4 $(PACKAGE)-$(VERSION)/
+-	$(INSTALL) -m 0644 virt-top/virt-top.1 $(PACKAGE)-$(VERSION)/virt-top/
+-	$(INSTALL) -m 0644 virt-top/virt-top.txt $(PACKAGE)-$(VERSION)/virt-top/
+	$(INSTALL) -m 0644 src/virt-top.1 $(PACKAGE)-$(VERSION)/src/
+	$(INSTALL) -m 0644 src/virt-top.txt $(PACKAGE)-$(VERSION)/src/
+ 	tar zcf $(PACKAGE)-$(VERSION).tar.gz $(PACKAGE)-$(VERSION)
+ 	rm -rf $(PACKAGE)-$(VERSION)
+ 	ls -l $(PACKAGE)-$(VERSION).tar.gz
+diff --git a/README b/README
+index 5a8bc87..d97fa62 100644
+--- a/README
+++ b/README
+@@ -1,7 +1,7 @@
+ virt-top
+ ----------------------------------------------------------------------
+ 
+-Copyright (C) 2007-2012 Richard W.M. Jones, Red Hat Inc.
+Copyright (C) 2007-2016 Richard W.M. Jones, Red Hat Inc.
+ http://et.redhat.com/~rjones/virt-top/
+ http://libvirt.org/ocaml/
+ http://libvirt.org/
+diff --git a/configure.ac b/configure.ac
+index 0d41cda..ad65465 100644
+--- a/configure.ac
+++ b/configure.ac
+@@ -84,26 +84,24 @@ AC_CHECK_PROG(MSGFMT,msgfmt,msgfmt)
+ 
+ dnl Write gettext modules for the programs.
+ dnl http://www.le-gall.net/sylvain+violaine/documentation/ocaml-gettext/html/reference-manual/ch03s04.html
+-for d in virt-top; do
+-    f=`echo $d | tr - _`_gettext.ml
+-    AC_MSG_NOTICE([creating $d/$f])
+-    rm -f $d/$f
+-    echo "(* This file is generated automatically by ./configure. *)" > $d/$f
+-    if test "x$OCAML_PKG_gettext" != "xno"; then
+-        # Gettext module is available, so use it.
+-        cat <<EOT >>$d/$f
+AC_MSG_NOTICE([creating src/opt_gettext.ml])
+rm -f src/opt_gettext.ml
+echo "(* This file is generated automatically by ./configure. *)" > src/opt_gettext.ml
+if test "x$OCAML_PKG_gettext" != "xno"; then
+    # Gettext module is available, so use it.
+    cat <<EOT >>src/opt_gettext.ml
+ module Gettext = Gettext.Program (
+   struct
+-    let textdomain = "$d"
+    let textdomain = "virt-top"
+     let codeset = None
+     let dir = None
+     let dependencies = [[]]
+   end
+ ) (GettextStub.Native)
+ EOT
+-    else
+-        # No gettext module is available, so fake the translation functions.
+-        cat <<EOT >>$d/$f
+else
+    # No gettext module is available, so fake the translation functions.
+    cat <<EOT >>src/opt_gettext.ml
+ module Gettext = struct
+   external s_ : string -> string = "%identity"
+   external f_ : ('a -> 'b, 'c, 'd) format -> ('a -> 'b, 'c, 'd) format
+@@ -115,8 +113,7 @@ module Gettext = struct
+     = fun s p n -> if n = 1 then s else p
+ end
+ EOT
+-    fi
+-done
+fi
+ 
+ dnl Summary.
+ echo "------------------------------------------------------------"
+@@ -128,7 +125,7 @@ AC_CONFIG_HEADERS([config.h])
+ AC_CONFIG_FILES([Makefile
+ 	Make.rules
+ 	po/Makefile
+-	virt-top/Makefile
+-	virt-top/virt_top_version.ml
+	src/Makefile
+	src/version.ml
+ 	])
+ AC_OUTPUT
+diff --git a/src/.depend b/src/.depend
+new file mode 100644
+index 0000000..5325c54
+--- /dev/null
+++ b/src/.depend
+@@ -0,0 +1,20 @@
+main.cmo: top.cmi opt_gettext.cmo
+main.cmx: top.cmx opt_gettext.cmx
+opt_calendar1.cmo: top.cmi opt_gettext.cmo
+opt_calendar1.cmx: top.cmx opt_gettext.cmx
+opt_calendar2.cmo: top.cmi opt_gettext.cmo
+opt_calendar2.cmx: top.cmx opt_gettext.cmx
+opt_csv.cmo: top.cmi opt_gettext.cmo
+opt_csv.cmx: top.cmx opt_gettext.cmx
+opt_gettext.cmo:
+opt_gettext.cmx:
+opt_xml.cmo: top.cmi opt_gettext.cmo
+opt_xml.cmx: top.cmx opt_gettext.cmx
+top.cmi:
+top.cmo: version.cmo utils.cmi opt_gettext.cmo top.cmi
+top.cmx: version.cmx utils.cmx opt_gettext.cmx top.cmi
+utils.cmi:
+utils.cmo: opt_gettext.cmo utils.cmi
+utils.cmx: opt_gettext.cmx utils.cmi
+version.cmo:
+version.cmx:
+diff --git a/virt-top/Makefile.in b/src/Makefile.in
+similarity index 91%
+rename from virt-top/Makefile.in
+rename to src/Makefile.in
+index e149b26..d29f2e8 100755
+--- a/virt-top/Makefile.in
+++ b/src/Makefile.in
+@@ -39,28 +39,28 @@ OCAMLCPACKAGES  += -package gettext-stub
+ endif
+ 
+ OBJS		:= \
+-		   virt_top_version.cmo \
+-		   virt_top_gettext.cmo \
+-		   virt_top_utils.cmo \
+-		   virt_top.cmo
+		   version.cmo \
+		   opt_gettext.cmo \
+		   utils.cmo \
+		   top.cmo
+ ifneq ($(OCAML_PKG_xml_light),no)
+-OBJS		+= virt_top_xml.cmo
+OBJS		+= opt_xml.cmo
+ OCAMLCPACKAGES	+= -package xml-light
+ endif
+ ifneq ($(OCAML_PKG_csv),no)
+-OBJS		+= virt_top_csv.cmo
+OBJS		+= opt_csv.cmo
+ OCAMLCPACKAGES	+= -package csv
+ endif
+ ifneq ($(OCAML_PKG_calendar),no)
+ ifeq ($(is_calendar2),no)
+-OBJS		+= virt_top_calendar1.cmo
+OBJS		+= opt_calendar1.cmo
+ OCAMLCPACKAGES	+= -package calendar
+ else
+-OBJS		+= virt_top_calendar2.cmo
+OBJS		+= opt_calendar2.cmo
+ OCAMLCPACKAGES	+= -package calendar
+ endif
+ endif
+-OBJS		+= virt_top_main.cmo
+OBJS		+= main.cmo
+ 
+ XOBJS		:= $(OBJS:.cmo=.cmx)
+ 
+diff --git a/virt-top/README b/src/README
+similarity index 77%
+rename from virt-top/README
+rename to src/README
+index b594f95..47382a5 100755
+--- a/virt-top/README
+++ b/src/README
+@@ -1,11 +1,11 @@
+ The code is structured into these files:
+ 
+-  virt_top_utils.mli / virt_top_utils.ml
+  utils.mli, utils.ml
+ 
+     String functions and other small utility functions.  This is
+     included directly into virt_top.ml.
+ 
+-  virt_top.mli / virt_top.ml
+  top.mli, top.ml
+ 
+     This is the virt-top program.
+ 
+@@ -22,7 +22,11 @@ The code is structured into these files:
+     The function 'main_loop' runs the main loop and has sub-functions
+     to deal with keypresses, help screens and so on.
+ 
+-  virt_top_xml.ml
+  opt_gettext.ml
+    A generated file which adds gettext support if ocaml-gettext
+    was found at configure time, or else stubs it out.
+
+  opt_xml.ml
+ 
+     Any code which needs the optional xml-light library goes
+     in here.  Mainly for parsing domain XML descriptions to get
+@@ -31,21 +35,21 @@ The code is structured into these files:
+     The reason for having it in a separate file is so that we
+     don't depend on xml-light.
+ 
+-  virt_top_csv.ml
+  opt_csv.ml
+ 
+     Any code which needs the optional ocaml-csv library goes
+     in here.  This implements the --csv command line option.
+ 
+-  virt_top_calendar.ml
+  opt_calendar1.ml, opt_calendar2.ml
+ 
+     Any code which needs the optional ocaml-calendar library
+-    goes in here.  This implements the --end-time command line
+-    option.
+    (v1 or v2) goes in here.  This implements the --end-time
+    command line option.
+ 
+-  virt_top_main.ml
+  main.ml
+ 
+     This is just a small bit of code to glue the modules together
+-    Virt_top + Virt_top_xml? + Virt_top_csv? + Virt_top_calendar?
+    Top + Opt_xml? + Opt_csv? + Opt_calendar{1,2}?
+ 
+ The man-page is generated from the single file:
+ 
+diff --git a/virt-top/virt_top_main.ml b/src/main.ml
+similarity index 98%
+rename from virt-top/virt_top_main.ml
+rename to src/main.ml
+index e8c4425..34d13c8 100644
+--- a/virt-top/virt_top_main.ml
+++ b/src/main.ml
+@@ -21,8 +21,8 @@
+ 
+ open Curses
+ 
+-open Virt_top_gettext.Gettext
+-open Virt_top
+open Opt_gettext.Gettext
+open Top
+ 
+ (* Note: make sure we catch any exceptions and clean up the display.
+  *
+diff --git a/virt-top/virt_top_calendar1.ml b/src/opt_calendar1.ml
+similarity index 97%
+rename from virt-top/virt_top_calendar1.ml
+rename to src/opt_calendar1.ml
+index 534465c..2c459fe 100755
+--- a/virt-top/virt_top_calendar1.ml
+++ b/src/opt_calendar1.ml
+@@ -22,9 +22,9 @@
+ open Printf
+ open ExtString
+ 
+-open Virt_top_gettext.Gettext ;;
+open Opt_gettext.Gettext ;;
+ 
+-Virt_top.parse_date_time :=
+Top.parse_date_time :=
+ fun time ->
+   let cal : Calendar.t =
+     if String.starts_with time "+" then ( (* +something *)
+diff --git a/virt-top/virt_top_calendar2.ml b/src/opt_calendar2.ml
+similarity index 97%
+rename from virt-top/virt_top_calendar2.ml
+rename to src/opt_calendar2.ml
+index cc82eec..fd93704 100755
+--- a/virt-top/virt_top_calendar2.ml
+++ b/src/opt_calendar2.ml
+@@ -24,9 +24,9 @@ open CalendarLib
+ open Printf
+ open ExtString
+ 
+-open Virt_top_gettext.Gettext ;;
+open Opt_gettext.Gettext ;;
+ 
+-Virt_top.parse_date_time :=
+Top.parse_date_time :=
+ fun time ->
+   let cal : Calendar.t =
+     if String.starts_with time "+" then ( (* +something *)
+diff --git a/virt-top/virt_top_csv.ml b/src/opt_csv.ml
+similarity index 94%
+rename from virt-top/virt_top_csv.ml
+rename to src/opt_csv.ml
+index e048856..6c3b2be 100644
+--- a/virt-top/virt_top_csv.ml
+++ b/src/opt_csv.ml
+@@ -19,16 +19,16 @@
+    This file contains all code which requires CSV support.
+ *)
+ 
+-open Virt_top_gettext.Gettext
+open Opt_gettext.Gettext
+ 
+ (* Output channel, or None if CSV output not enabled. *)
+ let chan = ref None ;;
+ 
+-Virt_top.csv_start :=
+Top.csv_start :=
+   fun filename ->
+     chan := Some (open_out filename) ;;
+ 
+-Virt_top.csv_write :=
+Top.csv_write :=
+   fun row ->
+     match !chan with
+     | None -> ()			(* CSV output not enabled. *)
+diff --git a/virt-top/virt_top_xml.ml b/src/opt_xml.ml
+similarity index 97%
+rename from virt-top/virt_top_xml.ml
+rename to src/opt_xml.ml
+index ab291d3..bb83780 100644
+--- a/virt-top/virt_top_xml.ml
+++ b/src/opt_xml.ml
+@@ -21,13 +21,13 @@
+ 
+ open ExtList
+ 
+-open Virt_top_gettext.Gettext
+open Opt_gettext.Gettext
+ 
+ module C = Libvirt.Connect
+ module D = Libvirt.Domain
+ module N = Libvirt.Network ;;
+ 
+-Virt_top.parse_device_xml :=
+Top.parse_device_xml :=
+ fun id dom ->
+   try
+     let xml = D.get_xml_desc dom in
+diff --git a/virt-top/virt_top.ml b/src/top.ml
+similarity index 99%
+rename from virt-top/virt_top.ml
+rename to src/top.ml
+index 0aae24e..38658c6 100644
+--- a/virt-top/virt_top.ml
+++ b/src/top.ml
+@@ -21,8 +21,8 @@ open Printf
+ open ExtList
+ open Curses
+ 
+-open Virt_top_gettext.Gettext
+-open Virt_top_utils
+open Opt_gettext.Gettext
+open Utils
+ 
+ module C = Libvirt.Connect
+ module D = Libvirt.Domain
+@@ -159,7 +159,7 @@ let start_up () =
+   and set_end_time time = end_time := Some ((!parse_date_time) time)
+   and display_version () =
+     printf "virt-top %s ocaml-libvirt %s\n"
+-      Virt_top_version.version Libvirt_version.version;
+      Version.version Libvirt_version.version;
+     exit 0
+   in
+   let argspec = Arg.align [
+@@ -1723,7 +1723,7 @@ and show_help (_, _, _, _, _, _, hostname,
+   (* Banner at the top of the screen. *)
+   let banner =
+     sprintf (f_"virt-top %s ocaml-libvirt %s libvirt %d.%d.%d by Red Hat")
+-      Virt_top_version.version
+      Version.version
+       Libvirt_version.version
+       libvirt_major libvirt_minor libvirt_release in
+   let banner = pad cols banner in
+diff --git a/virt-top/virt_top.mli b/src/top.mli
+similarity index 100%
+rename from virt-top/virt_top.mli
+rename to src/top.mli
+diff --git a/virt-top/virt_top_utils.ml b/src/utils.ml
+similarity index 99%
+rename from virt-top/virt_top_utils.ml
+rename to src/utils.ml
+index c5dc97d..3dc637d 100644
+--- a/virt-top/virt_top_utils.ml
+++ b/src/utils.ml
+@@ -21,7 +21,7 @@
+ 
+ open Printf
+ 
+-open Virt_top_gettext.Gettext
+open Opt_gettext.Gettext
+ 
+ module C = Libvirt.Connect
+ module D = Libvirt.Domain
+diff --git a/virt-top/virt_top_utils.mli b/src/utils.mli
+similarity index 100%
+rename from virt-top/virt_top_utils.mli
+rename to src/utils.mli
+diff --git a/virt-top/virt_top_version.ml.in b/src/version.ml.in
+similarity index 100%
+rename from virt-top/virt_top_version.ml.in
+rename to src/version.ml.in
+diff --git a/virt-top/virt-top.pod b/src/virt-top.pod
+similarity index 100%
+rename from virt-top/virt-top.pod
+rename to src/virt-top.pod
+diff --git a/virt-top/.depend b/virt-top/.depend
+deleted file mode 100644
+index 46099b7..0000000
+--- a/virt-top/.depend
+++ /dev/null
+@@ -1,20 +0,0 @@
+-virt_top_calendar1.cmo: virt_top_gettext.cmo virt_top.cmi
+-virt_top_calendar1.cmx: virt_top_gettext.cmx virt_top.cmx
+-virt_top_calendar2.cmo: virt_top_gettext.cmo virt_top.cmi
+-virt_top_calendar2.cmx: virt_top_gettext.cmx virt_top.cmx
+-virt_top.cmi:
+-virt_top.cmo: virt_top_version.cmo virt_top_utils.cmi virt_top_gettext.cmo virt_top.cmi
+-virt_top.cmx: virt_top_version.cmx virt_top_utils.cmx virt_top_gettext.cmx virt_top.cmi
+-virt_top_csv.cmo: virt_top_gettext.cmo virt_top.cmi
+-virt_top_csv.cmx: virt_top_gettext.cmx virt_top.cmx
+-virt_top_gettext.cmo:
+-virt_top_gettext.cmx:
+-virt_top_main.cmo: virt_top_gettext.cmo virt_top.cmi
+-virt_top_main.cmx: virt_top_gettext.cmx virt_top.cmx
+-virt_top_utils.cmi:
+-virt_top_utils.cmo: virt_top_gettext.cmo virt_top_utils.cmi
+-virt_top_utils.cmx: virt_top_gettext.cmx virt_top_utils.cmi
+-virt_top_version.cmo:
+-virt_top_version.cmx:
+-virt_top_xml.cmo: virt_top_gettext.cmo virt_top.cmi
+-virt_top_xml.cmx: virt_top_gettext.cmx virt_top.cmx
+-- 
+2.19.0.rc0
+
--- a/SOURCES/0006-Enable-same-warnings-as-libguestfs.patch
+++ b/SOURCES/0006-Enable-same-warnings-as-libguestfs.patch
@ -0,0 +1,34 @@
+From 5500a027ad231eb5bb16e36efee72b48cfac9528 Mon Sep 17 00:00:00 2001
+From: "Richard W.M. Jones" <rjones@redhat.com>
+Date: Mon, 27 Mar 2017 12:21:48 +0100
+Subject: [PATCH 06/20] Enable same warnings as libguestfs.
+
+In particular 'warning 3' was still enabled before, meaning that the
+code would fail with newer OCaml compilers:
+
+  File "top.ml", line 377, characters 12-25:
+  Warning 3: deprecated: String.create
+  Use Bytes.create instead.
+
+Since we want to continue using old OCaml for now, don't enable
+this warning.
+---
+ src/Makefile.in | 2 +-
+ 1 file changed, 1 insertion(+), 1 deletion(-)
+
+diff --git a/src/Makefile.in b/src/Makefile.in
+index d29f2e8..d744fd7 100755
+--- a/src/Makefile.in
+++ b/src/Makefile.in
+@@ -64,7 +64,7 @@ OBJS		+= main.cmo
+ 
+ XOBJS		:= $(OBJS:.cmo=.cmx)
+ 
+-OCAMLCFLAGS	:= -g -warn-error A-3
+OCAMLCFLAGS	:= -g -warn-error CDEFLMPSUVYZX-3
+ OCAMLCLIBS	:= -linkpkg
+ 
+ OCAMLOPTPACKAGES := $(OCAMLCPACKAGES)
+-- 
+2.19.0.rc0
+
--- a/SOURCES/0007-Remove-x-executable-permission-on-several-source-fil.patch
+++ b/SOURCES/0007-Remove-x-executable-permission-on-several-source-fil.patch
@ -0,0 +1,48 @@
+From 8cd690d0b8a5343d8731145b95931ec7aaa2db35 Mon Sep 17 00:00:00 2001
+From: "Richard W.M. Jones" <rjones@redhat.com>
+Date: Mon, 27 Mar 2017 12:25:19 +0100
+Subject: [PATCH 07/20] Remove +x (executable) permission on several source
+ files.
+
+Not sure why it was there, but it was incorrect.
+---
+ src/Makefile.in      | 0
+ src/README           | 0
+ src/opt_calendar1.ml | 0
+ src/opt_calendar2.ml | 0
+ src/top.mli          | 0
+ src/utils.mli        | 0
+ src/virt-top.pod     | 0
+ 7 files changed, 0 insertions(+), 0 deletions(-)
+ mode change 100755 => 100644 src/Makefile.in
+ mode change 100755 => 100644 src/README
+ mode change 100755 => 100644 src/opt_calendar1.ml
+ mode change 100755 => 100644 src/opt_calendar2.ml
+ mode change 100755 => 100644 src/top.mli
+ mode change 100755 => 100644 src/utils.mli
+ mode change 100755 => 100644 src/virt-top.pod
+
+diff --git a/src/Makefile.in b/src/Makefile.in
+old mode 100755
+new mode 100644
+diff --git a/src/README b/src/README
+old mode 100755
+new mode 100644
+diff --git a/src/opt_calendar1.ml b/src/opt_calendar1.ml
+old mode 100755
+new mode 100644
+diff --git a/src/opt_calendar2.ml b/src/opt_calendar2.ml
+old mode 100755
+new mode 100644
+diff --git a/src/top.mli b/src/top.mli
+old mode 100755
+new mode 100644
+diff --git a/src/utils.mli b/src/utils.mli
+old mode 100755
+new mode 100644
+diff --git a/src/virt-top.pod b/src/virt-top.pod
+old mode 100755
+new mode 100644
+-- 
+2.19.0.rc0
+
--- a/SOURCES/0008-Refresh-HACKING-file.patch
+++ b/SOURCES/0008-Refresh-HACKING-file.patch
@ -0,0 +1,95 @@
+From cc9f1f9d8f17e8ac5a6a73af830c132d916fd6e0 Mon Sep 17 00:00:00 2001
+From: "Richard W.M. Jones" <rjones@redhat.com>
+Date: Mon, 27 Mar 2017 12:30:01 +0100
+Subject: [PATCH 08/20] Refresh HACKING file.
+
+Fixes commit b7c3ef13cbd9c9cd49005a32ffb70faf6f5bbe8c.
+---
+ HACKING | 72 ++-------------------------------------------------------
+ 1 file changed, 2 insertions(+), 70 deletions(-)
+
+diff --git a/HACKING b/HACKING
+index bce40a9..3cd266b 100644
+--- a/HACKING
+++ b/HACKING
+@@ -7,75 +7,7 @@ General OCaml advice:
+ 
+ (2) Emacs users: use tuareg-mode for editing OCaml.
+ 
+-(3) http://www.ocaml-tutorial.org/
+(3) https://realworldocaml.org/ is the definitive book which is also
+    available online in full.
+ 
+ (4) http://camltastic.blogspot.com/2008/08/3-things-that-will-confuse-you-when.html
+-
+-The code is structured into these files:
+-
+-  virt_top_utils.mli / virt_top_utils.ml
+-
+-    String functions and other small utility functions.  This is
+-    included directly into virt_top.ml.
+-
+-  virt_top_version.ml
+-
+-    The version number (automatically generated by configure).
+-
+-  virt_top.mli / virt_top.ml
+-
+-    This is the virt-top program.
+-
+-    The two interesting functions are called 'collect' and 'redraw'.
+-
+-    'collect' collects all the information about domains, etc.
+-
+-    'redraw' updates the display on each frame.
+-
+-    Another interesting function is 'start_up' which handles all
+-    start-up stuff, eg. command line arguments, connecting to the
+-    hypervisor, enabling curses.
+-
+-    The function 'main_loop' runs the main loop and has sub-functions
+-    to deal with keypresses, help screens and so on.
+-
+-  virt_top_xml.ml
+-
+-    Any code which needs the optional xml-light library goes
+-    in here.  Mainly for parsing domain XML descriptions to get
+-    the list of block devices and network interfaces.
+-
+-    The reason for having it in a separate file is so that we
+-    don't depend on xml-light.
+-
+-  virt_top_csv.ml
+-
+-    Any code which needs the optional ocaml-csv library goes
+-    in here.  This implements the --csv command line option.
+-
+-  virt_top_calendar1.ml
+-  virt_top_calendar2.ml
+-
+-    Any code which needs the optional ocaml-calendar library
+-    goes in here.  This implements the --end-time command line
+-    option.  Note there are two incompatible versions of the
+-    ocaml-calendar library, which is why we have two
+-    implementations.  The Makefile works out which one to use.
+-
+-  virt_top_gettext.ml
+-
+-    Gettext interaction (this is generated by ./configure).
+-
+-  virt_top_main.ml
+-
+-    This is just a small bit of code to glue the modules above
+-    together.
+-
+-The man-page is generated from the single file:
+-
+-  virt-top.pod
+-
+-which generates (using perldoc) the following:
+-
+-  virt-top.1
+-  virt-top.txt
+-- 
+2.19.0.rc0
+
--- a/SOURCES/0009-Fix-po-POTFILES-for-new-location-of-source-files.patch
+++ b/SOURCES/0009-Fix-po-POTFILES-for-new-location-of-source-files.patch
@ -0,0 +1,34 @@
+From 1b4980da40000a34ec987f83824dd69454c4e8e4 Mon Sep 17 00:00:00 2001
+From: "Richard W.M. Jones" <rjones@redhat.com>
+Date: Mon, 27 Mar 2017 12:33:22 +0100
+Subject: [PATCH 09/20] Fix po/POTFILES for new location of source files.
+
+Fixes commit b7c3ef13cbd9c9cd49005a32ffb70faf6f5bbe8c.
+---
+ po/POTFILES | 16 +++++++++-------
+ 1 file changed, 9 insertions(+), 7 deletions(-)
+
+diff --git a/po/POTFILES b/po/POTFILES
+index 55bb82d..70d62d5 100644
+--- a/po/POTFILES
+++ b/po/POTFILES
+@@ -1,7 +1,9 @@
+-../virt-top/virt_top_calendar1.ml
+-../virt-top/virt_top_calendar2.ml
+-../virt-top/virt_top_csv.ml
+-../virt-top/virt_top_main.ml
+-../virt-top/virt_top.ml
+-../virt-top/virt_top_utils.ml
+-../virt-top/virt_top_xml.ml
+../src/main.ml
+../src/opt_calendar1.ml
+../src/opt_calendar2.ml
+../src/opt_csv.ml
+../src/opt_gettext.ml
+../src/opt_xml.ml
+../src/top.ml
+../src/utils.ml
+../src/version.ml
+-- 
+2.19.0.rc0
+
--- a/SOURCES/0010-Update-PO-files.patch
+++ b/SOURCES/0010-Update-PO-files.patch
--- a/SOURCES/0011-Remove-support-for-OCaml-Calendar-v1.patch
+++ b/SOURCES/0011-Remove-support-for-OCaml-Calendar-v1.patch
@ -0,0 +1,203 @@
+From effd1ec5897a2cac6e897ae7bce72f6b1e617b90 Mon Sep 17 00:00:00 2001
+From: "Richard W.M. Jones" <rjones@redhat.com>
+Date: Mon, 27 Mar 2017 12:41:21 +0100
+Subject: [PATCH 11/20] Remove support for OCaml Calendar v1.
+
+Calendar v2 was released in 2008 (9 years ago!), thus remove support
+for v1.
+
+This was already broken by commit dc0e217390132f7e76a4d9c0a8a81a9556d19081
+so it likely didn't work anyway.
+---
+ MANIFEST                                  |  3 +-
+ configure.ac                              |  6 ---
+ po/POTFILES                               |  3 +-
+ src/.depend                               |  6 +--
+ src/Makefile.in                           |  7 +--
+ src/README                                |  8 ++--
+ src/{opt_calendar2.ml => opt_calendar.ml} |  0
+ src/opt_calendar1.ml                      | 56 -----------------------
+ 8 files changed, 9 insertions(+), 80 deletions(-)
+ rename src/{opt_calendar2.ml => opt_calendar.ml} (100%)
+ delete mode 100644 src/opt_calendar1.ml
+
+diff --git a/MANIFEST b/MANIFEST
+index 2cf377f..26e87b2 100644
+--- a/MANIFEST
+++ b/MANIFEST
+@@ -55,8 +55,7 @@ src/.depend
+ src/Makefile.in
+ src/README
+ src/main.ml
+-src/opt_calendar1.ml
+-src/opt_calendar2.ml
+src/opt_calendar.ml
+ src/opt_csv.ml
+ src/opt_xml.ml
+ src/top.ml
+diff --git a/configure.ac b/configure.ac
+index ad65465..c9c7e34 100644
+--- a/configure.ac
+++ b/configure.ac
+@@ -57,12 +57,7 @@ dnl Check for optional OCaml packages.
+ AC_CHECK_OCAML_PKG(gettext)
+ AC_CHECK_OCAML_PKG(xml-light)
+ AC_CHECK_OCAML_PKG(csv)
+-
+-dnl Need to check which version of calendar is installed.
+ AC_CHECK_OCAML_PKG(calendar)
+-if test "x$OCAML_PKG_calendar" != "xno"; then
+-    AC_CHECK_OCAML_MODULE(is_calendar2,calendar,[CalendarLib.Date],[+$OCAML_PKG_calendar])
+-fi
+ 
+ AC_SUBST(OCAML_PKG_unix)
+ AC_SUBST(OCAML_PKG_extlib)
+@@ -71,7 +66,6 @@ AC_SUBST(OCAML_PKG_gettext)
+ AC_SUBST(OCAML_PKG_xml_light)
+ AC_SUBST(OCAML_PKG_csv)
+ AC_SUBST(OCAML_PKG_calendar)
+-AC_SUBST(is_calendar2)
+ 
+ dnl Check for optional perldoc (for building manual pages).
+ AC_CHECK_PROG(HAVE_PERLDOC,perldoc,perldoc)
+diff --git a/po/POTFILES b/po/POTFILES
+index 70d62d5..b826a2a 100644
+--- a/po/POTFILES
+++ b/po/POTFILES
+@@ -1,6 +1,5 @@
+ ../src/main.ml
+-../src/opt_calendar1.ml
+-../src/opt_calendar2.ml
+../src/opt_calendar.ml
+ ../src/opt_csv.ml
+ ../src/opt_gettext.ml
+ ../src/opt_xml.ml
+diff --git a/src/.depend b/src/.depend
+index 5325c54..f487c18 100644
+--- a/src/.depend
+++ b/src/.depend
+@@ -1,9 +1,7 @@
+ main.cmo: top.cmi opt_gettext.cmo
+ main.cmx: top.cmx opt_gettext.cmx
+-opt_calendar1.cmo: top.cmi opt_gettext.cmo
+-opt_calendar1.cmx: top.cmx opt_gettext.cmx
+-opt_calendar2.cmo: top.cmi opt_gettext.cmo
+-opt_calendar2.cmx: top.cmx opt_gettext.cmx
+opt_calendar.cmo: top.cmi opt_gettext.cmo
+opt_calendar.cmx: top.cmx opt_gettext.cmx
+ opt_csv.cmo: top.cmi opt_gettext.cmo
+ opt_csv.cmx: top.cmx opt_gettext.cmx
+ opt_gettext.cmo:
+diff --git a/src/Makefile.in b/src/Makefile.in
+index d744fd7..ae896cb 100644
+--- a/src/Makefile.in
+++ b/src/Makefile.in
+@@ -52,13 +52,8 @@ OBJS		+= opt_csv.cmo
+ OCAMLCPACKAGES	+= -package csv
+ endif
+ ifneq ($(OCAML_PKG_calendar),no)
+-ifeq ($(is_calendar2),no)
+-OBJS		+= opt_calendar1.cmo
+OBJS		+= opt_calendar.cmo
+ OCAMLCPACKAGES	+= -package calendar
+-else
+-OBJS		+= opt_calendar2.cmo
+-OCAMLCPACKAGES	+= -package calendar
+-endif
+ endif
+ OBJS		+= main.cmo
+ 
+diff --git a/src/README b/src/README
+index 47382a5..8aa2348 100644
+--- a/src/README
+++ b/src/README
+@@ -40,16 +40,16 @@ The code is structured into these files:
+     Any code which needs the optional ocaml-csv library goes
+     in here.  This implements the --csv command line option.
+ 
+-  opt_calendar1.ml, opt_calendar2.ml
+  opt_calendar.ml
+ 
+     Any code which needs the optional ocaml-calendar library
+-    (v1 or v2) goes in here.  This implements the --end-time
+-    command line option.
+    (v2) goes in here.  This implements the --end-time command
+    line option.
+ 
+   main.ml
+ 
+     This is just a small bit of code to glue the modules together
+-    Top + Opt_xml? + Opt_csv? + Opt_calendar{1,2}?
+    Top + Opt_xml? + Opt_csv? + Opt_calendar?
+ 
+ The man-page is generated from the single file:
+ 
+diff --git a/src/opt_calendar2.ml b/src/opt_calendar.ml
+similarity index 100%
+rename from src/opt_calendar2.ml
+rename to src/opt_calendar.ml
+diff --git a/src/opt_calendar1.ml b/src/opt_calendar1.ml
+deleted file mode 100644
+index 2c459fe..0000000
+--- a/src/opt_calendar1.ml
+++ /dev/null
+@@ -1,56 +0,0 @@
+-(* 'top'-like tool for libvirt domains.
+-   (C) Copyright 2007-2009 Richard W.M. Jones, Red Hat Inc.
+-   http://libvirt.org/
+-
+-   This program is free software; you can redistribute it and/or modify
+-   it under the terms of the GNU General Public License as published by
+-   the Free Software Foundation; either version 2 of the License, or
+-   (at your option) any later version.
+-
+-   This program is distributed in the hope that it will be useful,
+-   but WITHOUT ANY WARRANTY; without even the implied warranty of
+-   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+-   GNU General Public License for more details.
+-
+-   You should have received a copy of the GNU General Public License
+-   along with this program; if not, write to the Free Software
+-   Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+-
+-   This file contains all code which requires ocaml-calendar < 2.0
+-*)
+-
+-open Printf
+-open ExtString
+-
+-open Opt_gettext.Gettext ;;
+-
+-Top.parse_date_time :=
+-fun time ->
+-  let cal : Calendar.t =
+-    if String.starts_with time "+" then ( (* +something *)
+-      let period = String.sub time 1 (String.length time - 1) in
+-      let period =
+-	if String.contains period ':' then ( (* +HH:MM:SS *)
+-	  let t = Printer.TimePrinter.from_string period in
+-	  let hh = Time.hour t and mm = Time.minute t and ss = Time.second t in
+-	  Calendar.Period.make 0 0 0 hh mm ss
+-	) else				(* +seconds *)
+-	  Calendar.Period.second (int_of_string period) in
+-      (* Add it as an offset from the current time. *)
+-      Calendar.add (Calendar.now ()) period
+-    ) else (
+-      if String.contains time '-' then	(* YYYY-MM-DD HH:MM:SS *)
+-	Printer.CalendarPrinter.from_string time
+-      else (				(* HH:MM:SS *)
+-	let time = Printer.TimePrinter.from_string time in
+-	Calendar.create (Date.today ()) time
+-      )
+-    ) in
+-
+-  eprintf "end time: %s\n" (Printer.CalendarPrinter.to_string cal);
+-
+-  (* Convert to a time_t.  Note that we compare this against
+-   * Unix.gettimeofday in the main module, so this must be returned as
+-   * plain seconds from 1970 with no timezone adjustment.  (RHBZ#637964)
+-   *)
+-  Calendar.to_unixfloat cal
+-- 
+2.19.0.rc0
+
--- a/SOURCES/0012-src-Fix-some-comments-which-referred-to-the-old-file.patch
+++ b/SOURCES/0012-src-Fix-some-comments-which-referred-to-the-old-file.patch
@ -0,0 +1,76 @@
+From 3e9ed9c0fe49c3d4e4a8e467d521f676769c485a Mon Sep 17 00:00:00 2001
+From: "Richard W.M. Jones" <rjones@redhat.com>
+Date: Mon, 27 Mar 2017 13:06:18 +0100
+Subject: [PATCH 12/20] src: Fix some comments which referred to the old
+ filenames.
+
+Fixes commit b7c3ef13cbd9c9cd49005a32ffb70faf6f5bbe8c.
+---
+ src/top.ml  | 8 ++++----
+ src/top.mli | 6 +++---
+ 2 files changed, 7 insertions(+), 7 deletions(-)
+
+diff --git a/src/top.ml b/src/top.ml
+index 38658c6..f50e6a8 100644
+--- a/src/top.ml
+++ b/src/top.ml
+@@ -30,13 +30,13 @@ module N = Libvirt.Network
+ 
+ let rcfile = ".virt-toprc"
+ 
+-(* Hook for XML support (see virt_top_xml.ml). *)
+(* Hook for XML support (see [opt_xml.ml]). *)
+ let parse_device_xml : (int -> [>`R] D.t -> string list * string list) ref =
+   ref (
+     fun _ _ -> [], []
+   )
+ 
+-(* Hooks for CSV support (see virt_top_csv.ml). *)
+(* Hooks for CSV support (see [opt_csv.ml]). *)
+ let csv_start : (string -> unit) ref =
+   ref (
+     fun _ -> failwith (s_"virt-top was compiled without support for CSV files")
+@@ -46,7 +46,7 @@ let csv_write : (string list -> unit) ref =
+     fun _ -> ()
+   )
+ 
+-(* Hook for calendar support (see virt_top_calendar.ml). *)
+(* Hook for calendar support (see [opt_calendar.ml]). *)
+ let parse_date_time : (string -> float) ref =
+   ref (
+     fun _ ->
+@@ -345,7 +345,7 @@ OPTIONS" in
+ 
+   (* This tuple of static information is called 'setup' in other parts
+    * of this program, and is passed to other functions such as redraw and
+-   * main_loop.  See virt_top_main.ml.
+   * main_loop.  See [main.ml].
+    *)
+   (conn,
+    !batch_mode, !script_mode, !csv_enabled, !stream_mode, (* immutable modes *)
+diff --git a/src/top.mli b/src/top.mli
+index 3ad0718..b0953dd 100644
+--- a/src/top.mli
+++ b/src/top.mli
+@@ -17,15 +17,15 @@
+    Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+ *)
+ 
+-(* Hook for virt_top_xml to override (if present). *)
+(* Hook for [Opt_xml] to override (if present). *)
+ val parse_device_xml :
+   (int -> [ `R ] Libvirt.Domain.t -> string list * string list) ref
+ 
+-(* Hooks for virt_top_csv to override (if present). *)
+(* Hooks for [Opt_csv] to override (if present). *)
+ val csv_start : (string -> unit) ref
+ val csv_write : (string list -> unit) ref
+ 
+-(* Hook for virt_top_calendar to override (if present). *)
+(* Hook for [Opt_calendar] to override (if present). *)
+ val parse_date_time : (string -> float) ref
+ 
+ type setup =
+-- 
+2.19.0.rc0
+
--- a/SOURCES/0013-Split-up-huge-Top-module-into-smaller-modules.patch
+++ b/SOURCES/0013-Split-up-huge-Top-module-into-smaller-modules.patch
--- a/SOURCES/0014-Move-block_in_bytes-entirely-to-the-presentation-lay.patch
+++ b/SOURCES/0014-Move-block_in_bytes-entirely-to-the-presentation-lay.patch
@ -0,0 +1,211 @@
+From 431dbd98bad6e3635b4d0885bf33dd3e759ca35d Mon Sep 17 00:00:00 2001
+From: "Richard W.M. Jones" <rjones@redhat.com>
+Date: Mon, 27 Mar 2017 21:22:52 +0100
+Subject: [PATCH 14/20] Move block_in_bytes entirely to the presentation layer.
+
+Simplifies and updates commit dbef8dd3bf00417e75a12c851b053e49c9e1a79e.
+---
+ src/collect.ml       | 19 +++----------------
+ src/collect.mli      |  6 +-----
+ src/csv_output.ml    | 14 ++++++++++----
+ src/csv_output.mli   |  2 +-
+ src/redraw.ml        | 10 +++++++---
+ src/stream_output.ml | 14 ++++++++++----
+ src/top.ml           |  4 ++--
+ 7 files changed, 34 insertions(+), 35 deletions(-)
+
+diff --git a/src/collect.ml b/src/collect.ml
+index f856067..448ce8c 100644
+--- a/src/collect.ml
+++ b/src/collect.ml
+@@ -57,12 +57,8 @@ and rd_active = {
+   (* The following are since the last slice, or None if cannot be calc'd: *)
+   rd_block_rd_reqs : int64 option;      (* Number of block device read rqs. *)
+   rd_block_wr_reqs : int64 option;      (* Number of block device write rqs. *)
+-  rd_block_rd_bytes : int64 option;   (* Number of bytes block device read *)
+-  rd_block_wr_bytes : int64 option;   (* Number of bytes block device write *)
+-  (* _info fields includes the number considering --block_in_bytes option *)
+-  rd_block_rd_info : int64 option;    (* Block device read info for user *)
+-  rd_block_wr_info : int64 option;    (* Block device read info for user *)
+-
+  rd_block_rd_bytes : int64 option;     (* Number of bytes block device read *)
+  rd_block_wr_bytes : int64 option;     (* Number of bytes block device write *)
+   rd_net_rx_bytes : int64 option;	(* Number of bytes received. *)
+   rd_net_tx_bytes : int64 option;	(* Number of bytes transmitted. *)
+ }
+@@ -114,7 +110,7 @@ let last_pcpu_usages = Hashtbl.create 13
+ let clear_pcpu_display_data () =
+   Hashtbl.clear last_pcpu_usages
+ 
+-let collect (conn, _, _, _, _, node_info, _, _) block_in_bytes =
+let collect (conn, _, _, _, _, node_info, _, _) =
+   (* Number of physical CPUs (some may be disabled). *)
+   let nr_pcpus = C.maxcpus_of_node_info node_info in
+ 
+@@ -178,7 +174,6 @@ let collect (conn, _, _, _, _, node_info, _, _) block_in_bytes =
+                       rd_mem_bytes = 0L; rd_mem_percent = 0L;
+ 		      rd_block_rd_reqs = None; rd_block_wr_reqs = None;
+                       rd_block_rd_bytes = None; rd_block_wr_bytes = None;
+-                      rd_block_rd_info = None; rd_block_wr_info = None;
+ 		      rd_net_rx_bytes = None; rd_net_tx_bytes = None;
+ 		    })
+ 	  with
+@@ -256,14 +251,6 @@ let collect (conn, _, _, _, _, node_info, _, _) block_in_bytes =
+                     rd_block_rd_bytes = Some read_bytes;
+                     rd_block_wr_bytes = Some write_bytes;
+          } in
+-         let rd = { rd with
+-                    rd_block_rd_info =
+-                      if block_in_bytes then
+-                        rd.rd_block_rd_bytes else rd.rd_block_rd_reqs;
+-                    rd_block_wr_info =
+-                      if block_in_bytes then
+-                        rd.rd_block_wr_bytes else rd.rd_block_wr_reqs;
+-         } in
+ 	 name, Active rd
+       (* For all other domains we can't calculate it, so leave as None. *)
+       | rd -> rd
+diff --git a/src/collect.mli b/src/collect.mli
+index 440859b..9ad3dcb 100644
+--- a/src/collect.mli
+++ b/src/collect.mli
+@@ -48,10 +48,6 @@ and rd_active = {
+   rd_block_wr_reqs : int64 option;      (* Number of block device write rqs. *)
+   rd_block_rd_bytes : int64 option;     (* Number of bytes block device read *)
+   rd_block_wr_bytes : int64 option;     (* Number of bytes block device write *)
+-  (* _info fields includes the number considering --block_in_bytes option *)
+-  rd_block_rd_info : int64 option;      (* Block device read info for user *)
+-  rd_block_wr_info : int64 option;      (* Block device read info for user *)
+-
+   rd_net_rx_bytes : int64 option;	(* Number of bytes received. *)
+   rd_net_tx_bytes : int64 option;	(* Number of bytes transmitted. *)
+ }
+@@ -75,7 +71,7 @@ type pcpu_stats = {
+   rd_pcpu_pcpus_cpu_time : float array
+ }
+ 
+-val collect : Types.setup -> bool -> stats
+val collect : Types.setup -> stats
+ (** Collect statistics. *)
+ 
+ val collect_pcpu : stats -> pcpu_stats
+diff --git a/src/csv_output.ml b/src/csv_output.ml
+index 9496ca8..f23d673 100644
+--- a/src/csv_output.ml
+++ b/src/csv_output.ml
+@@ -56,6 +56,7 @@ let write_csv_header (csv_cpu, csv_mem, csv_block, csv_net) block_in_bytes =
+ (* Write summary data to CSV file. *)
+ let append_csv (_, _, _, _, _, node_info, hostname, _) (* setup *)
+                (csv_cpu, csv_mem, csv_block, csv_net)
+               block_in_bytes
+                { rd_doms = doms;
+                  rd_printable_time = printable_time;
+                  rd_nr_pcpus = nr_pcpus; rd_total_cpu = total_cpu;
+@@ -104,10 +105,15 @@ let append_csv (_, _, _, _, _, node_info, hostname, _) (* setup *)
+         (if csv_mem then [
+             Int64.to_string rd.rd_mem_bytes; Int64.to_string rd.rd_mem_percent
+          ] else []) @
+-	(if csv_block then [
+-	   string_of_int64_option rd.rd_block_rd_info;
+-	   string_of_int64_option rd.rd_block_wr_info;
+-	 ] else []) @
+	(if csv_block then
+           if block_in_bytes then [
+	     string_of_int64_option rd.rd_block_rd_bytes;
+	     string_of_int64_option rd.rd_block_wr_bytes;
+	   ] else [
+	     string_of_int64_option rd.rd_block_rd_reqs;
+	     string_of_int64_option rd.rd_block_wr_reqs;
+           ]
+         else []) @
+ 	(if csv_net then [
+ 	   string_of_int64_option rd.rd_net_rx_bytes;
+ 	   string_of_int64_option rd.rd_net_tx_bytes;
+diff --git a/src/csv_output.mli b/src/csv_output.mli
+index d5eab0f..4064be5 100644
+--- a/src/csv_output.mli
+++ b/src/csv_output.mli
+@@ -24,4 +24,4 @@ val csv_write : (string list -> unit) ref
+ 
+ val write_csv_header : bool * bool * bool * bool -> bool -> unit
+ 
+-val append_csv : Types.setup -> bool * bool * bool * bool -> Collect.stats -> unit
+val append_csv : Types.setup -> bool * bool * bool * bool -> bool -> Collect.stats -> unit
+diff --git a/src/redraw.ml b/src/redraw.ml
+index 9ce889b..0403158 100644
+--- a/src/redraw.ml
+++ b/src/redraw.ml
+@@ -155,8 +155,12 @@ let redraw display_mode sort_order
+ 	| (name, Active rd) :: doms ->
+ 	   if lineno < lines then (
+ 	     let state = show_state rd.rd_info.D.state in
+-	     let rd_req = Show.int64_option rd.rd_block_rd_info in
+-	     let wr_req = Show.int64_option rd.rd_block_wr_info in
+	     let rd_info =
+               if block_in_bytes then Show.int64_option rd.rd_block_rd_bytes
+               else Show.int64_option rd.rd_block_rd_reqs in
+	     let wr_info =
+               if block_in_bytes then Show.int64_option rd.rd_block_wr_bytes
+               else Show.int64_option rd.rd_block_wr_reqs in
+ 	     let rx_bytes = Show.int64_option rd.rd_net_rx_bytes in
+ 	     let tx_bytes = Show.int64_option rd.rd_net_tx_bytes in
+ 	     let percent_cpu = Show.percent rd.rd_percent_cpu in
+@@ -166,7 +170,7 @@ let redraw display_mode sort_order
+ 
+ 	     let line =
+                sprintf "%5d %c %s %s %s %s %s %s %s %s"
+-		       rd.rd_domid state rd_req wr_req rx_bytes tx_bytes
+		       rd.rd_domid state rd_info wr_info rx_bytes tx_bytes
+ 		       percent_cpu percent_mem time name in
+ 	     let line = pad cols line in
+ 	     mvaddstr lineno 0 line;
+diff --git a/src/stream_output.ml b/src/stream_output.ml
+index bf7b114..c3af99b 100644
+--- a/src/stream_output.ml
+++ b/src/stream_output.ml
+@@ -59,10 +59,16 @@ let append_stream (_, _, _, _, _, node_info, hostname, _) (* setup *)
+   let dump_domain = fun name rd
+   -> begin
+     let state = Screen.show_state rd.rd_info.D.state in
+-         let rd_req = if rd.rd_block_rd_info = None then "   0"
+-                      else Show.int64_option rd.rd_block_rd_info in
+-         let wr_req = if rd.rd_block_wr_info = None then "   0"
+-                      else Show.int64_option rd.rd_block_wr_info in
+         let rd_req =
+           if rd.rd_block_rd_reqs = None then "   0"
+           else
+             if block_in_bytes then Show.int64_option rd.rd_block_rd_bytes
+             else Show.int64_option rd.rd_block_rd_reqs in
+         let wr_req =
+           if rd.rd_block_wr_reqs = None then "   0"
+           else
+             if block_in_bytes then Show.int64_option rd.rd_block_wr_bytes
+             else Show.int64_option rd.rd_block_wr_reqs in
+     let rx_bytes = if rd.rd_net_rx_bytes = None then "   0"
+     else Show.int64_option rd.rd_net_rx_bytes in
+     let tx_bytes = if rd.rd_net_tx_bytes = None then "   0"
+diff --git a/src/top.ml b/src/top.ml
+index 204f3b6..e2a93d6 100644
+--- a/src/top.ml
+++ b/src/top.ml
+@@ -319,7 +319,7 @@ let rec main_loop ((_, batch_mode, script_mode, csv_enabled, stream_mode, _, _,
+ 
+   while not !quit do
+     (* Collect stats. *)
+-    let state = collect setup !block_in_bytes in
+    let state = collect setup in
+     let pcpu_display =
+       if !display_mode = PCPUDisplay then Some (collect_pcpu state)
+       else None in
+@@ -331,7 +331,7 @@ let rec main_loop ((_, batch_mode, script_mode, csv_enabled, stream_mode, _, _,
+ 
+     (* Update CSV file. *)
+     if csv_enabled then
+-      Csv_output.append_csv setup csv_flags state;
+      Csv_output.append_csv setup csv_flags !block_in_bytes state;
+ 
+     (* Append to stream output file. *)
+     if stream_mode then
+-- 
+2.19.0.rc0
+
--- a/SOURCES/0015-Remove-unused-variable-is_calendar2.patch
+++ b/SOURCES/0015-Remove-unused-variable-is_calendar2.patch
@ -0,0 +1,25 @@
+From 4f3794d5718249238a74b614a6b486465bc4315d Mon Sep 17 00:00:00 2001
+From: "Richard W.M. Jones" <rjones@redhat.com>
+Date: Tue, 28 Mar 2017 13:09:54 +0100
+Subject: [PATCH 15/20] Remove unused variable is_calendar2.
+
+Fixes commit effd1ec5897a2cac6e897ae7bce72f6b1e617b90.
+---
+ src/Makefile.in | 1 -
+ 1 file changed, 1 deletion(-)
+
+diff --git a/src/Makefile.in b/src/Makefile.in
+index 64f431e..6a13bef 100644
+--- a/src/Makefile.in
+++ b/src/Makefile.in
+@@ -29,7 +29,6 @@ OCAML_PKG_curses    = @OCAML_PKG_curses@
+ OCAML_PKG_xml_light = @OCAML_PKG_xml_light@
+ OCAML_PKG_csv	    = @OCAML_PKG_csv@
+ OCAML_PKG_calendar  = @OCAML_PKG_calendar@
+-is_calendar2	    = @is_calendar2@
+ OCAML_PKG_gettext   = @OCAML_PKG_gettext@
+ 
+ OCAMLCPACKAGES	:= -package unix,extlib,curses,str,libvirt
+-- 
+2.19.0.rc0
+
--- a/SOURCES/0016-Use-virConnectGetAllDomainStats-API-to-collect-domai.patch
+++ b/SOURCES/0016-Use-virConnectGetAllDomainStats-API-to-collect-domai.patch
@ -0,0 +1,343 @@
+From c513d05fd4e85953701b1023bef71af62613cf79 Mon Sep 17 00:00:00 2001
+From: "Richard W.M. Jones" <rjones@redhat.com>
+Date: Tue, 28 Mar 2017 13:30:07 +0100
+Subject: [PATCH 16/20] Use virConnectGetAllDomainStats API to collect domain
+ stats (RHBZ#1422795).
+
+This is much faster than using the basic libvirt APIs to collect
+stats for each domain individually.
+
+Note this will not work unless you have the latest ocaml-libvirt
+package which includes this new API binding.
+---
+ src/collect.ml  | 242 +++++++++++++++++++++++++++++++++++-------------
+ src/collect.mli |   1 +
+ src/utils.ml    |   6 ++
+ src/utils.mli   |   3 +
+ 4 files changed, 190 insertions(+), 62 deletions(-)
+
+diff --git a/src/collect.ml b/src/collect.ml
+index 448ce8c..a1e50a1 100644
+--- a/src/collect.ml
+++ b/src/collect.ml
+@@ -38,6 +38,7 @@ let parse_device_xml : (int -> [>`R] D.t -> string list * string list) ref =
+ type rd_domain = Inactive | Active of rd_active
+ and rd_active = {
+   rd_domid : int;			(* Domain ID. *)
+  rd_domuuid : Libvirt.uuid;            (* Domain UUID. *)
+   rd_dom : [`R] D.t;			(* Domain object. *)
+   rd_info : D.info;			(* Domain CPU info now. *)
+   rd_block_stats : (string * D.block_stats) list;
+@@ -110,6 +111,16 @@ let last_pcpu_usages = Hashtbl.create 13
+ let clear_pcpu_display_data () =
+   Hashtbl.clear last_pcpu_usages
+ 
+(* What to get from virConnectGetAllDomainStats. *)
+let what = [
+  D.StatsState; D.StatsCpuTotal; D.StatsBalloon; D.StatsVcpu;
+  D.StatsInterface; D.StatsBlock
+]
+(* Which domains to get.  Empty list means return all domains:
+ * active, inactive, persistent, transient etc.
+ *)
+let who = []
+
+ let collect (conn, _, _, _, _, node_info, _, _) =
+   (* Number of physical CPUs (some may be disabled). *)
+   let nr_pcpus = C.maxcpus_of_node_info node_info in
+@@ -129,72 +140,179 @@ let collect (conn, _, _, _, _, node_info, _, _) =
+ 
+   (* Get the domains.  Match up with their last_info (if any). *)
+   let doms =
+-    (* Active domains. *)
+-    let n = C.num_of_domains conn in
+-    let ids =
+-      if n > 0 then Array.to_list (C.list_domains conn n)
+-      else [] in
+-    let doms =
+-      List.filter_map (
+-	fun id ->
+-	  try
+-	    let dom = D.lookup_by_id conn id in
+-	    let name = D.get_name dom in
+-	    let blkdevs, netifs = get_devices id dom in
+    let doms = D.get_all_domain_stats conn what who in
+    let doms = Array.to_list doms in
+    List.map (
+      fun { D.dom_uuid = uuid; D.params = params } ->
+        let nr_params = Array.length params in
+        let get_param name =
+          let rec loop i =
+            if i = nr_params then None
+            else if fst params.(i) = name then Some (snd params.(i))
+            else loop (i+1)
+          in
+          loop 0
+        in
+        let get_param_int name default =
+          match get_param name with
+          | None -> None
+          | Some (D.TypedFieldInt32 i)
+          | Some (D.TypedFieldUInt32 i) -> Some (Int32.to_int i)
+          | Some (D.TypedFieldInt64 i)
+          | Some (D.TypedFieldUInt64 i) -> Some (Int64.to_int i)
+          | _ -> default
+        in
+        let get_param_int64 name default =
+          match get_param name with
+          | None -> None
+          | Some (D.TypedFieldInt32 i)
+          | Some (D.TypedFieldUInt32 i) -> Some (Int64.of_int32 i)
+          | Some (D.TypedFieldInt64 i)
+          | Some (D.TypedFieldUInt64 i) -> Some i
+          | _ -> default
+        in
+ 
+-	    (* Get current CPU, block and network stats. *)
+-	    let info = D.get_info dom in
+-	    let block_stats =
+-	      try List.map (fun dev -> dev, D.block_stats dom dev) blkdevs
+-	      with
+-	      | Libvirt.Not_supported "virDomainBlockStats"
+-	      | Libvirt.Virterror _ -> [] in
+-	    let interface_stats =
+-	      try List.map (fun dev -> dev, D.interface_stats dom dev) netifs
+-	      with
+-	      | Libvirt.Not_supported "virDomainInterfaceStats"
+-	      | Libvirt.Virterror _ -> [] in
+        let dom = D.lookup_by_uuid conn uuid in
+        let id = D.get_id dom in
+        let name = D.get_name dom in
+        let state = get_param_int "state.state" None in
+ 
+-	    let prev_info, prev_block_stats, prev_interface_stats =
+-	      try
+-		let prev_info, prev_block_stats, prev_interface_stats =
+-		  Hashtbl.find last_info id in
+-		Some prev_info, prev_block_stats, prev_interface_stats
+-	      with Not_found -> None, [], [] in
+        if state = Some 5 (* VIR_DOMAIN_SHUTOFF *) then
+          (name, Inactive)
+        else (
+          (* Active domain. *)
+ 
+-	    Some (name,
+-                  Active {
+-		      rd_domid = id; rd_dom = dom; rd_info = info;
+-		      rd_block_stats = block_stats;
+-		      rd_interface_stats = interface_stats;
+-		      rd_prev_info = prev_info;
+-		      rd_prev_block_stats = prev_block_stats;
+-		      rd_prev_interface_stats = prev_interface_stats;
+-		      rd_cpu_time = 0.; rd_percent_cpu = 0.;
+-                      rd_mem_bytes = 0L; rd_mem_percent = 0L;
+-		      rd_block_rd_reqs = None; rd_block_wr_reqs = None;
+-                      rd_block_rd_bytes = None; rd_block_wr_bytes = None;
+-		      rd_net_rx_bytes = None; rd_net_tx_bytes = None;
+-		    })
+-	  with
+-	    Libvirt.Virterror _ -> None (* ignore transient error *)
+-      ) ids in
+          (* Synthesize a D.info struct out of the data we have
+           * from virConnectGetAllDomainStats.  Doing this is an
+           * artifact from the old APIs we used to use to fetch
+           * stats, we could simplify here, and also return the
+           * RSS memory. XXX
+           *)
+          let state =
+            match state with
+            | None | Some 0 -> D.InfoNoState
+            | Some 1 -> D.InfoRunning
+            | Some 2 -> D.InfoBlocked
+            | Some 3 -> D.InfoPaused
+            | Some 4 -> D.InfoShutdown
+            | Some 5 -> D.InfoShutoff
+            | Some 6 -> D.InfoCrashed
+            | Some 7 -> D.InfoPaused (* XXX really VIR_DOMAIN_PMSUSPENDED *)
+            | _ -> D.InfoNoState in
+          let memory =
+            match get_param_int64 "balloon.current" None with
+            | None -> 0_L
+            | Some m -> m in
+          let nr_virt_cpu =
+            match get_param_int "vcpu.current" None with
+            | None -> 1
+            | Some v -> v in
+          let cpu_time =
+            (* NB: libvirt does not return cpu.time for non-root domains. *)
+            match get_param_int64 "cpu.time" None with
+            | None -> 0_L
+            | Some ns -> ns in
+          let info = {
+            D.state = state;
+            max_mem = -1_L; (* not used anywhere in virt-top *)
+            memory = memory;
+            nr_virt_cpu = nr_virt_cpu;
+            cpu_time = cpu_time
+          } in
+ 
+-    (* Inactive domains. *)
+-    let doms_inactive =
+-      try
+-	let n = C.num_of_defined_domains conn in
+-	let names =
+-	  if n > 0 then Array.to_list (C.list_defined_domains conn n)
+-	  else [] in
+-	List.map (fun name -> name, Inactive) names
+-      with
+-      (* Ignore transient errors, in particular errors from
+-       * num_of_defined_domains if it cannot contact xend.
+-       *)
+-      | Libvirt.Virterror _ -> [] in
+          let nr_block_devs =
+            match get_param_int "block.count" None with
+            | None -> 0
+            | Some i -> i in
+          let block_stats =
+            List.map (
+              fun i ->
+              let dev =
+                match get_param (sprintf "block.%d.name" i) with
+                | None -> sprintf "blk%d" i
+                | Some (D.TypedFieldString s) -> s
+                | _ -> assert false in
+              dev, {
+                D.rd_req =
+                  (match get_param_int64 (sprintf "block.%d.rd.reqs" i) None
+                   with None -> 0_L | Some v -> v);
+                rd_bytes =
+                  (match get_param_int64 (sprintf "block.%d.rd.bytes" i) None
+                   with None -> 0_L | Some v -> v);
+                wr_req =
+                  (match get_param_int64 (sprintf "block.%d.wr.reqs" i) None
+                   with None -> 0_L | Some v -> v);
+                wr_bytes =
+                  (match get_param_int64 (sprintf "block.%d.wr.bytes" i) None
+                   with None -> 0_L | Some v -> v);
+                errs = 0_L
+              }
+            ) (range 0 (nr_block_devs-1)) in
+ 
+-    doms @ doms_inactive in
+          let nr_interface_devs =
+            match get_param_int "net.count" None with
+            | None -> 0
+            | Some i -> i in
+          let interface_stats =
+            List.map (
+              fun i ->
+              let dev =
+                match get_param (sprintf "net.%d.name" i) with
+                | None -> sprintf "net%d" i
+                | Some (D.TypedFieldString s) -> s
+                | _ -> assert false in
+              dev, {
+                D.rx_bytes =
+                  (match get_param_int64 (sprintf "net.%d.rx.bytes" i) None
+                   with None -> 0_L | Some v -> v);
+                rx_packets =
+                  (match get_param_int64 (sprintf "net.%d.rx.pkts" i) None
+                   with None -> 0_L | Some v -> v);
+                rx_errs =
+                  (match get_param_int64 (sprintf "net.%d.rx.errs" i) None
+                   with None -> 0_L | Some v -> v);
+                rx_drop =
+                  (match get_param_int64 (sprintf "net.%d.rx.drop" i) None
+                   with None -> 0_L | Some v -> v);
+                tx_bytes =
+                  (match get_param_int64 (sprintf "net.%d.tx.bytes" i) None
+                   with None -> 0_L | Some v -> v);
+                tx_packets =
+                  (match get_param_int64 (sprintf "net.%d.tx.pkts" i) None
+                   with None -> 0_L | Some v -> v);
+                tx_errs =
+                  (match get_param_int64 (sprintf "net.%d.tx.errs" i) None
+                   with None -> 0_L | Some v -> v);
+                tx_drop =
+                  (match get_param_int64 (sprintf "net.%d.tx.drop" i) None
+                   with None -> 0_L | Some v -> v);
+              }
+            ) (range 0 (nr_interface_devs-1)) in
+
+	  let prev_info, prev_block_stats, prev_interface_stats =
+	    try
+	      let prev_info, prev_block_stats, prev_interface_stats =
+		Hashtbl.find last_info uuid in
+	      Some prev_info, prev_block_stats, prev_interface_stats
+	    with Not_found -> None, [], [] in
+
+	  (name,
+           Active {
+	     rd_domid = id; rd_domuuid = uuid; rd_dom = dom;
+             rd_info = info;
+	     rd_block_stats = block_stats;
+	     rd_interface_stats = interface_stats;
+	     rd_prev_info = prev_info;
+	     rd_prev_block_stats = prev_block_stats;
+	     rd_prev_interface_stats = prev_interface_stats;
+	     rd_cpu_time = 0.; rd_percent_cpu = 0.;
+             rd_mem_bytes = 0L; rd_mem_percent = 0L;
+	     rd_block_rd_reqs = None; rd_block_wr_reqs = None;
+             rd_block_rd_bytes = None; rd_block_wr_bytes = None;
+	     rd_net_rx_bytes = None; rd_net_tx_bytes = None;
+	   })
+        )
+    ) doms in
+ 
+   (* Calculate the CPU time (ns) and %CPU used by each domain. *)
+   let doms =
+@@ -329,7 +447,7 @@ let collect (conn, _, _, _, _, node_info, _, _) =
+     function
+     | (_, Active rd) ->
+        let info = rd.rd_info, rd.rd_block_stats, rd.rd_interface_stats in
+-       Hashtbl.add last_info rd.rd_domid info
+       Hashtbl.add last_info rd.rd_domuuid info
+     | _ -> ()
+   ) doms;
+ 
+diff --git a/src/collect.mli b/src/collect.mli
+index 9ad3dcb..3c5492f 100644
+--- a/src/collect.mli
+++ b/src/collect.mli
+@@ -27,6 +27,7 @@ val parse_device_xml :
+ type rd_domain = Inactive | Active of rd_active
+ and rd_active = {
+   rd_domid : int;			(* Domain ID. *)
+  rd_domuuid : Libvirt.uuid;            (* Domain UUID. *)
+   rd_dom : [`R] Libvirt.Domain.t;       (* Domain object. *)
+   rd_info : Libvirt.Domain.info;        (* Domain CPU info now. *)
+   rd_block_stats : (string * Libvirt.Domain.block_stats) list;
+diff --git a/src/utils.ml b/src/utils.ml
+index 5fcc905..4332ff7 100644
+--- a/src/utils.ml
+++ b/src/utils.ml
+@@ -32,6 +32,12 @@ let (/^) = Int64.div
+ (* failwithf is a printf-like version of failwith. *)
+ let failwithf fs = ksprintf failwith fs
+ 
+let rec range a b =
+  if a <= b then
+    a :: range (a+1) b
+  else
+    []
+
+ (* Input a whole file as a list of lines. *)
+ let input_all_lines chan =
+   let lines = ref [] in
+diff --git a/src/utils.mli b/src/utils.mli
+index 6e81215..3c966f8 100644
+--- a/src/utils.mli
+++ b/src/utils.mli
+@@ -25,6 +25,9 @@ val (//) : string -> string -> string
+ (* failwithf is a printf-like version of failwith. *)
+ val failwithf : ('a, unit, string, 'b) format4 -> 'a
+ 
+(* Return the list of integers [a..b] (inclusive). *)
+val range : int -> int -> int list
+
+ (* Read a configuration file as a list of (lineno, key, value) pairs.
+  * If the config file is missing this returns an empty list.
+  *)
+-- 
+2.19.0.rc0
+
--- a/SOURCES/0017-chmod-x-COPYING-files.patch
+++ b/SOURCES/0017-chmod-x-COPYING-files.patch
@ -0,0 +1,21 @@
+From 20c078bead38fd9e413660d4d8fdc3fd4f76edf7 Mon Sep 17 00:00:00 2001
+From: "Richard W.M. Jones" <rjones@redhat.com>
+Date: Tue, 28 Mar 2017 14:36:07 +0100
+Subject: [PATCH 17/20] chmod -x COPYING* files.
+
+---
+ COPYING     | 0
+ COPYING.LIB | 0
+ 2 files changed, 0 insertions(+), 0 deletions(-)
+ mode change 100755 => 100644 COPYING
+ mode change 100755 => 100644 COPYING.LIB
+
+diff --git a/COPYING b/COPYING
+old mode 100755
+new mode 100644
+diff --git a/COPYING.LIB b/COPYING.LIB
+old mode 100755
+new mode 100644
+-- 
+2.19.0.rc0
+
--- a/SOURCES/0018-Fixes-for-safe-string-in-OCaml-4.06.patch
+++ b/SOURCES/0018-Fixes-for-safe-string-in-OCaml-4.06.patch
@ -0,0 +1,42 @@
+From a58c90e04e5b54f8c6a67b09a93cfc33402cf398 Mon Sep 17 00:00:00 2001
+From: "Richard W.M. Jones" <rjones@redhat.com>
+Date: Sat, 18 Nov 2017 12:01:34 +0000
+Subject: [PATCH 18/20] Fixes for -safe-string in OCaml 4.06.
+
+---
+ src/top.ml | 13 ++++++++-----
+ 1 file changed, 8 insertions(+), 5 deletions(-)
+
+diff --git a/src/top.ml b/src/top.ml
+index e2a93d6..d4f7697 100644
+--- a/src/top.ml
+++ b/src/top.ml
+@@ -296,17 +296,20 @@ let millisleep n =
+  *)
+ let get_string maxlen =
+   ignore (echo ());
+-  let str = String.create maxlen in
+-  let ok = getstr str in (* Safe because binding calls getnstr. *)
+  let str = Bytes.create maxlen in
+  (* Safe because binding calls getnstr.  However the unsafe cast
+   * to string is required because ocaml-curses needs to be fixed.
+   *)
+  let ok = getstr (Obj.magic str) in
+   ignore (noecho ());
+   if not ok then ""
+   else (
+     (* Chop at first '\0'. *)
+     try
+-      let i = String.index str '\000' in
+-      String.sub str 0 i
+      let i = Bytes.index str '\000' in
+      Bytes.sub_string str 0 i
+     with
+-      Not_found -> str (* it is full maxlen bytes *)
+      Not_found -> Bytes.to_string str (* it is full maxlen bytes *)
+   )
+ 
+ (* Main loop. *)
+-- 
+2.19.0.rc0
+
--- a/SOURCES/0019-Link-with-fPIC-runtime.patch
+++ b/SOURCES/0019-Link-with-fPIC-runtime.patch
@ -0,0 +1,32 @@
+From 18a751d8c26548bb090ff05e30ccda3092e3373b Mon Sep 17 00:00:00 2001
+From: "Richard W.M. Jones" <rjones@redhat.com>
+Date: Sat, 18 Nov 2017 12:01:49 +0000
+Subject: [PATCH 19/20] Link with -fPIC runtime.
+
+---
+ src/Makefile.in | 5 ++++-
+ 1 file changed, 4 insertions(+), 1 deletion(-)
+
+diff --git a/src/Makefile.in b/src/Makefile.in
+index 6a13bef..03c6362 100644
+--- a/src/Makefile.in
+++ b/src/Makefile.in
+@@ -84,11 +84,14 @@ all: $(BYTE_TARGETS)
+ opt: $(OPT_TARGETS)
+ 
+ virt-top: $(OBJS)
+-	ocamlfind ocamlc $(OCAMLCPACKAGES) $(OCAMLCFLAGS) $(OCAMLCLIBS) -o $@ $^
+	ocamlfind ocamlc $(OCAMLCPACKAGES) $(OCAMLCFLAGS) $(OCAMLCLIBS) \
+	  -runtime-variant _pic \
+	  -o $@ $^
+ 
+ virt-top.opt: $(XOBJS)
+ 	ocamlfind ocamlopt \
+ 	  $(OCAMLOPTPACKAGES) $(OCAMLOPTFLAGS) $(OCAMLOPTLIBS) \
+	  -runtime-variant _pic \
+ 	  -o $@ $^
+ 
+ # Manual page.
+-- 
+2.19.0.rc0
+
--- a/SOURCES/0020-build-Pass-through-CFLAGS-and-LDFLAGS-to-ocaml-compi.patch
+++ b/SOURCES/0020-build-Pass-through-CFLAGS-and-LDFLAGS-to-ocaml-compi.patch
@ -0,0 +1,58 @@
+From 15f0601f39b2aa477e6f1f2558575f98b873a193 Mon Sep 17 00:00:00 2001
+From: "Richard W.M. Jones" <rjones@redhat.com>
+Date: Thu, 20 Sep 2018 13:47:34 +0100
+Subject: [PATCH 20/20] build: Pass through CFLAGS and LDFLAGS to ocaml
+ compiler (RHBZ#1630636).
+
+---
+ configure.ac    | 4 ++++
+ src/Makefile.in | 6 ++----
+ 2 files changed, 6 insertions(+), 4 deletions(-)
+
+diff --git a/configure.ac b/configure.ac
+index c9c7e34..a8e757c 100644
+--- a/configure.ac
+++ b/configure.ac
+@@ -76,6 +76,10 @@ AC_CHECK_PROG(OCAML_GETTEXT,ocaml-gettext,ocaml-gettext)
+ dnl Check for msgfmt tool.
+ AC_CHECK_PROG(MSGFMT,msgfmt,msgfmt)
+ 
+dnl Substitute CFLAGS and LDFLAGS if set.
+AC_SUBST([CFLAGS])
+AC_SUBST([LDFLAGS])
+
+ dnl Write gettext modules for the programs.
+ dnl http://www.le-gall.net/sylvain+violaine/documentation/ocaml-gettext/html/reference-manual/ch03s04.html
+ AC_MSG_NOTICE([creating src/opt_gettext.ml])
+diff --git a/src/Makefile.in b/src/Makefile.in
+index 03c6362..ba4eb1d 100644
+--- a/src/Makefile.in
+++ b/src/Makefile.in
+@@ -64,8 +64,8 @@ OBJS		+= main.cmo
+ 
+ XOBJS		:= $(OBJS:.cmo=.cmx)
+ 
+-OCAMLCFLAGS	:= -g -warn-error CDEFLMPSUVYZX-3
+-OCAMLCLIBS	:= -linkpkg
+OCAMLCFLAGS	:= -g -warn-error CDEFLMPSUVYZX-3 -ccopt '@CFLAGS@'
+OCAMLCLIBS	:= -linkpkg -runtime-variant _pic -cclib '@LDFLAGS@'
+ 
+ OCAMLOPTPACKAGES := $(OCAMLCPACKAGES)
+ OCAMLOPTFLAGS	:= $(OCAMLCFLAGS)
+@@ -85,13 +85,11 @@ opt: $(OPT_TARGETS)
+ 
+ virt-top: $(OBJS)
+ 	ocamlfind ocamlc $(OCAMLCPACKAGES) $(OCAMLCFLAGS) $(OCAMLCLIBS) \
+-	  -runtime-variant _pic \
+ 	  -o $@ $^
+ 
+ virt-top.opt: $(XOBJS)
+ 	ocamlfind ocamlopt \
+ 	  $(OCAMLOPTPACKAGES) $(OCAMLOPTFLAGS) $(OCAMLOPTLIBS) \
+-	  -runtime-variant _pic \
+ 	  -o $@ $^
+ 
+ # Manual page.
+-- 
+2.19.0.rc0
+
--- a/SOURCES/processcsv.py
+++ b/SOURCES/processcsv.py
@ -0,0 +1,65 @@
+#!/usr/bin/python3
+#
+# https://bugzilla.redhat.com/show_bug.cgi?id=665817
+#
+# Usage:
+#
+#   virt-top --csv data.csv
+#   processcsv.py < data.csv
+#
+# Note this OVERWRITES the following files in the current directory:
+#
+#   global.csv         # all the global data
+#   domain<NN>.csv     # data for domain ID <NN> (multiple files)
+
+import sys
+import csv
+
+rows = csv.reader (sys.stdin)
+
+# Get the header row.
+header = next(rows)
+
+# Find the index of the 'Hostname' and 'Time' cols (usually first two).
+hostname_i = header.index ("Hostname")
+time_i = header.index ("Time")
+
+# Find the index of the 'Domain ID' column (i) and the number of
+# columns per domain (w).
+i = header.index ("Domain ID")
+w = len (header) - i
+
+dom_header = header[i:i+w]
+dom_header.insert (0, "Hostname")
+dom_header.insert (1, "Time")
+
+gfile = open ("global.csv", "w")
+gfile_writer = csv.writer (gfile)
+gfile_writer.writerow (header[0:i])
+
+dfiles = dict()
+
+# Process all the remaining data rows.
+for data in rows:
+    # Global data is columns 0..i-1
+    gfile_writer.writerow (data[0:i])
+
+    hostname = data[hostname_i]
+    time = data[time_i]
+
+    # For each domain ...
+    for j in range(i,len(data),w):
+        dom = data[j:j+w]
+        domid = dom[0]
+
+        if domid in dfiles:
+            dfile_writer = dfiles[domid]
+        else:
+            dfile = open ("domain%s.csv" % domid, "w")
+            dfile_writer = csv.writer (dfile)
+            dfile_writer.writerow (dom_header)
+            dfiles[domid] = dfile_writer
+
+        dom.insert (0, hostname)
+        dom.insert (1, time)
+        dfile_writer.writerow (dom)
--- a/SOURCES/virt-top-1.0.4-processcsv-documentation.patch
+++ b/SOURCES/virt-top-1.0.4-processcsv-documentation.patch
@ -0,0 +1,25 @@
+--- virt-top-1.0.4.old/virt-top/virt-top.pod	2011-08-11 14:30:30.560493914 +0100
+++ virt-top-1.0.4/virt-top/virt-top.pod	2011-08-11 14:34:00.934495607 +0100
+@@ -123,6 +123,22 @@
+ 
+  virt-top --csv >(split -d -l 1000 - output.csv.)
+ 
+RHEL provides a short Python script called C<processcsv.py> which
+can be used to post-process the CSV output.  Run it like this:
+
+ virt-top --csv data.csv
+ processcsv.py < data.csv
+
+This creates or I<overwrites> the following files in the current
+directory:
+
+ global.csv
+ domain<NNN>.csv
+
+C<global.csv> will contain the global data.  One
+C<domainE<lt>NNNE<gt>.csv> file will also be created for each domain
+with ID C<NNN>, containing the per-domain data.
+
+ =item B<--no-csv-cpu>
+ 
+ Disable domain CPU stats in CSV output.
--- a/SOURCES/virt-top-aarch64.patch
+++ b/SOURCES/virt-top-aarch64.patch
--- a/SPECS/virt-top.spec
+++ b/SPECS/virt-top.spec
@ -0,0 +1,423 @@
+%global opt %(test -x %{_bindir}/ocamlopt && echo 1 || echo 0)
+%global debug_package %{nil}
+
+Name:           virt-top
+Version:        1.0.8
+Release:        32%{?dist}
+Summary:        Utility like top(1) for displaying virtualization stats
+License:        GPLv2+
+
+URL:            http://people.redhat.com/~rjones/virt-top/
+Source0:        http://people.redhat.com/~rjones/virt-top/files/%{name}-%{version}.tar.gz
+
+# Post-process output of CSV file (RHBZ#665817, RHBZ#912020).
+Source1:        processcsv.py
+Source2:        processcsv.py.pod
+
+Patch0:         virt-top-1.0.4-processcsv-documentation.patch
+
+# All upstream patches since 1.0.8.
+Patch0001:      0001-Disable-warning-about-immutable-strings-for-OCaml-4..patch
+Patch0002:      0002-Move-upstream-translations-from-Tranifex-to-Zanata.patch
+Patch0003:      0003-Update-translations-from-Zanata.patch
+Patch0004:      0004-build-Add-g-flag-to-ocamlopt.patch
+Patch0005:      0005-Rename-source-directory-and-files.patch
+Patch0006:      0006-Enable-same-warnings-as-libguestfs.patch
+Patch0007:      0007-Remove-x-executable-permission-on-several-source-fil.patch
+Patch0008:      0008-Refresh-HACKING-file.patch
+Patch0009:      0009-Fix-po-POTFILES-for-new-location-of-source-files.patch
+Patch0010:      0010-Update-PO-files.patch
+Patch0011:      0011-Remove-support-for-OCaml-Calendar-v1.patch
+Patch0012:      0012-src-Fix-some-comments-which-referred-to-the-old-file.patch
+Patch0013:      0013-Split-up-huge-Top-module-into-smaller-modules.patch
+Patch0014:      0014-Move-block_in_bytes-entirely-to-the-presentation-lay.patch
+Patch0015:      0015-Remove-unused-variable-is_calendar2.patch
+Patch0016:      0016-Use-virConnectGetAllDomainStats-API-to-collect-domai.patch
+Patch0017:      0017-chmod-x-COPYING-files.patch
+Patch0018:      0018-Fixes-for-safe-string-in-OCaml-4.06.patch
+Patch0019:      0019-Link-with-fPIC-runtime.patch
+Patch0020:      0020-build-Pass-through-CFLAGS-and-LDFLAGS-to-ocaml-compi.patch
+
+# Update configure for aarch64 (bz #926701)
+Patch9999:      virt-top-aarch64.patch
+
+# The patches touch configure.ac:
+BuildRequires:  autoconf
+
+BuildRequires:  ocaml >= 3.10.2
+BuildRequires:  ocaml-ocamldoc
+BuildRequires:  ocaml-findlib-devel
+# Need the ncurses / ncursesw (--enable-widec) fix.
+BuildRequires:  ocaml-curses-devel >= 1.0.3-7
+BuildRequires:  ocaml-extlib-devel
+BuildRequires:  ocaml-xml-light-devel
+BuildRequires:  ocaml-csv-devel
+BuildRequires:  ocaml-calendar-devel
+# Need support for virDomainGetCPUStats (fixed in 0.6.1.2)
+# and virConnectGetAllDomainStats (post-0.6.1.4).
+BuildRequires:  ocaml-libvirt-devel >= 0.6.1.4-15
+
+# Tortuous list of BRs for gettext.
+BuildRequires:  ocaml-gettext-devel >= 0.3.3
+BuildRequires:  ocaml-fileutils-devel
+# For msgfmt:
+BuildRequires:  gettext
+
+# Non-OCaml BRs.
+BuildRequires:  libvirt-devel
+BuildRequires:  perl-interpreter
+BuildRequires:  perl(Pod::Perldoc)
+BuildRequires:  gawk
+
+
+%description
+virt-top is a 'top(1)'-like utility for showing stats of virtualized
+domains.  Many keys and command line options are the same as for
+ordinary 'top'.
+
+It uses libvirt so it is capable of showing stats across a variety of
+different virtualization systems.
+
+
+%prep
+%setup -q
+
+%if 0%{?rhel} >= 6
+%patch0 -p1
+%endif
+
+%patch0001 -p1
+%patch0002 -p1
+%patch0003 -p1
+%patch0004 -p1
+%patch0005 -p1
+%patch0006 -p1
+%patch0007 -p1
+%patch0008 -p1
+%patch0009 -p1
+%patch0010 -p1
+%patch0011 -p1
+%patch0012 -p1
+%patch0013 -p1
+%patch0014 -p1
+%patch0015 -p1
+%patch0016 -p1
+%patch0017 -p1
+%patch0018 -p1
+%patch0019 -p1
+%patch0020 -p1
+
+# Update configure for aarch64 (bz #926701)
+%patch9999 -p1
+autoconf
+
+
+%build
+%configure
+make all
+%if %opt
+make opt
+strip src/virt-top.opt
+%endif
+
+# Build translations.
+make -C po
+
+# Force rebuild of man page.
+rm -f src/virt-top.1
+make -C src virt-top.1
+
+%if 0%{?rhel} >= 6
+# Build processcsv.py.1.
+pod2man -c "Virtualization Support" --release "%{name}-%{version}" \
+  %{SOURCE2} > processcsv.py.1
+%endif
+
+
+%install
+make DESTDIR=$RPM_BUILD_ROOT install
+
+# Install translations.
+mkdir -p $RPM_BUILD_ROOT%{_datadir}/locale
+make -C po install PODIR="$RPM_BUILD_ROOT%{_datadir}/locale"
+%find_lang %{name}
+
+# Install virt-top manpage by hand for now.
+mkdir -p $RPM_BUILD_ROOT%{_mandir}/man1
+install -m 0644 src/virt-top.1 $RPM_BUILD_ROOT%{_mandir}/man1
+
+%if 0%{?rhel} >= 6
+# Install processcsv.py.
+install -m 0755 %{SOURCE1} $RPM_BUILD_ROOT%{_bindir}
+
+# Install processcsv.py(1).
+install -m 0644 processcsv.py.1 $RPM_BUILD_ROOT%{_mandir}/man1/
+%endif
+
+
+%files -f %{name}.lang
+%doc COPYING README TODO ChangeLog
+%{_bindir}/virt-top
+%{_mandir}/man1/virt-top.1*
+%if 0%{?rhel} >= 6
+%{_bindir}/processcsv.py
+%{_mandir}/man1/processcsv.py.1*
+%endif
+
+
+%changelog
+* Tue Oct 16 2018 Richard W.M. Jones <rjones@redhat.com> - 1.0.8-32
+- Add upstream patch to pass CFLAGS/LDFLAGS to final binary
+  resolves: rhbz#1630636
+
+* Wed Aug 01 2018 Charalampos Stratakis <cstratak@redhat.com> - 1.0.8-31
+- Rebuild for platform-python
+
+* Wed Mar 28 2018 Richard W.M. Jones <rjones@redhat.com> - 1.0.8-30
+- Modify processcsv.py for Python 3.
+
+* Fri Feb 09 2018 Fedora Release Engineering <releng@fedoraproject.org> - 1.0.8-29
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_28_Mass_Rebuild
+
+* Sat Nov 18 2017 Richard W.M. Jones <rjones@redhat.com> - 1.0.8-28
+- OCaml 4.06.0 rebuild.
+
+* Wed Aug 09 2017 Richard W.M. Jones <rjones@redhat.com> - 1.0.8-27
+- OCaml 4.05.0 rebuild.
+
+* Thu Aug 03 2017 Fedora Release Engineering <releng@fedoraproject.org> - 1.0.8-26
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_27_Binutils_Mass_Rebuild
+
+* Thu Jul 27 2017 Fedora Release Engineering <releng@fedoraproject.org> - 1.0.8-25
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_27_Mass_Rebuild
+
+* Tue Jun 27 2017 Richard W.M. Jones <rjones@redhat.com> - 1.0.8-24
+- OCaml 4.04.2 rebuild.
+
+* Sat May 13 2017 Richard W.M. Jones <rjones@redhat.com> - 1.0.8-23
+- OCaml 4.04.1 rebuild.
+
+* Tue Mar 28 2017 Richard W.M. Jones <rjones@redhat.com> - 1.0.8-22
+- Include all upstream patches since 1.0.8 was released.
+- BR ocaml-libvirt with virConnectGetAllDomainStats API.
+- Remove execstack hack, no longer needed on any arch.
+
+* Sat Feb 11 2017 Fedora Release Engineering <releng@fedoraproject.org> - 1.0.8-21
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_26_Mass_Rebuild
+
+* Wed Nov 09 2016 Dan Horák <dan@danny.cz> - 1.0.8-20
+- remove ExcludeArch
+
+* Sat Nov 05 2016 Richard W.M. Jones <rjones@redhat.com> - 1.0.8-19
+- Rebuild for OCaml 4.04.0.
+- Kill further instances of -warn-error.
+
+* Fri Feb 05 2016 Fedora Release Engineering <releng@fedoraproject.org> - 1.0.8-18
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_24_Mass_Rebuild
+
+* Tue Jul 28 2015 Richard W.M. Jones <rjones@redhat.com> - 1.0.8-17
+- OCaml 4.02.3 rebuild.
+
+* Wed Jun 24 2015 Richard W.M. Jones <rjones@redhat.com> - 1.0.8-16
+- ocaml-4.02.2 final rebuild.
+
+* Thu Jun 18 2015 Richard W.M. Jones <rjones@redhat.com> - 1.0.8-15
+- ocaml-4.02.2 rebuild.
+
+* Tue Feb 17 2015 Richard W.M. Jones <rjones@redhat.com> - 1.0.8-14
+- ocaml-4.02.1 rebuild.
+
+* Sun Aug 31 2014 Richard W.M. Jones <rjones@redhat.com> - 1.0.8-13
+- ocaml-4.02.0 final rebuild.
+
+* Sat Aug 23 2014 Richard W.M. Jones <rjones@redhat.com> - 1.0.8-12
+- ocaml-4.02.0+rc1 rebuild.
+
+* Mon Aug 18 2014 Fedora Release Engineering <rel-eng@lists.fedoraproject.org> - 1.0.8-11
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_21_22_Mass_Rebuild
+
+* Sat Aug 02 2014 Richard W.M. Jones <rjones@redhat.com> - 1.0.8-10
+- ocaml-4.02.0-0.8.git10e45753.fc22 rebuild.
+
+* Sat Aug 02 2014 Richard W.M. Jones <rjones@redhat.com> - 1.0.8-9
+- Do not warn about immutable strings.
+
+* Sun Jun 08 2014 Fedora Release Engineering <rel-eng@lists.fedoraproject.org> - 1.0.8-8
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_21_Mass_Rebuild
+
+* Mon Aug 05 2013 Richard W.M. Jones <rjones@redhat.com> - 1.0.8-7
+- Bump and rebuild.
+
+* Mon Jul 29 2013 Richard W.M. Jones <rjones@redhat.com> - 1.0.8-6
+- Include processcsv.py script and man page, but on RHEL only
+  (RHBZ#665817, RHBZ#912020)
+- Clear executable stack flag on PPC, PPC64 (RHBZ#605124).
+
+* Fri Jun 28 2013 Cole Robinson <crobinso@redhat.com> - 1.0.8-5
+- Update configure for aarch64 (bz #926701)
+
+* Fri Feb 15 2013 Fedora Release Engineering <rel-eng@lists.fedoraproject.org> - 1.0.8-4
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_19_Mass_Rebuild
+
+* Fri Dec 14 2012 Richard W.M. Jones <rjones@redhat.com> - 1.0.8-3
+- Rebuild for OCaml 4.00.1.
+
+* Fri Oct 12 2012 Richard W.M. Jones <rjones@redhat.com> - 1.0.8-2
+- New upstream version 1.0.8.
+- Requires tiny change to ocaml-libvirt, hence dep bump.
+- Clean up the spec file.
+- Remove explicit BR ocaml-camomile (not used AFAIK).
+
+* Sun Jul 22 2012 Fedora Release Engineering <rel-eng@lists.fedoraproject.org> - 1.0.7-3
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_18_Mass_Rebuild
+
+* Fri Mar 23 2012 Richard W.M. Jones <rjones@redhat.com> - 1.0.7-2
+- Require fixed ocaml-libvirt.
+
+* Tue Mar  6 2012 Richard W.M. Jones <rjones@redhat.com> - 1.0.7-1
+- New upstream version 1.0.7.
+- Includes true physical CPU reporting (when libvirt supports this).
+
+* Sat Jan 14 2012 Fedora Release Engineering <rel-eng@lists.fedoraproject.org> - 1.0.6-2
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_17_Mass_Rebuild
+
+* Fri Aug 12 2011 Richard W.M. Jones <rjones@redhat.com> - 1.0.6-1
+- New upstream version 1.0.6.
+
+* Mon Feb 07 2011 Fedora Release Engineering <rel-eng@lists.fedoraproject.org> - 1.0.5-2
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_15_Mass_Rebuild
+
+* Thu Jan  6 2011 Richard W.M. Jones <rjones@redhat.com> - 1.0.5-1
+- New upstream version 1.0.5.
+- Rebuild against OCaml 3.12.0.
+- Project website moved to people.redhat.com.
+- Remove upstream patches.
+
+* Wed Dec 30 2009 Richard W.M. Jones <rjones@redhat.com> - 1.0.4-3
+- Force rebuild against latest ocaml-gettext 0.3.3 (RHBZ#508197#c10).
+
+* Mon Oct  5 2009 Richard W.M. Jones <rjones@redhat.com> - 1.0.4-2
+- New upstream release 1.0.4.
+- Includes new translations (RHBZ#493799).
+- Overall hardware memory is now displayed in CSV file (RHBZ#521785).
+- Several fixes to Japanese support (RHBZ#508197).
+- Japanese PO file also has bogus plural forms.
+- Additional BR on gettext (for msgfmt).
+
+* Sun Jul 26 2009 Fedora Release Engineering <rel-eng@lists.fedoraproject.org> - 1.0.3-5
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_12_Mass_Rebuild
+
+* Thu Apr 16 2009 S390x secondary arch maintainer <fedora-s390x@lists.fedoraproject.org>
+- ExcludeArch sparc64, s390, s390x as we don't have OCaml on those archs
+  (added sparc64 per request from the sparc maintainer)
+
+* Wed Feb 25 2009 Fedora Release Engineering <rel-eng@lists.fedoraproject.org> - 1.0.3-4
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_11_Mass_Rebuild
+
+* Wed Nov 26 2008 Richard W.M. Jones <rjones@redhat.com> - 1.0.3-3
+- Rebuild for OCaml 3.11.0+rc1.
+
+* Tue Oct 21 2008 Richard W.M. Jones <rjones@redhat.com> - 1.0.3-2
+- Fix incorrect sources file.
+- Remove bogus Plural-Forms line from zh_CN PO file.
+
+* Tue Oct 21 2008 Richard W.M. Jones <rjones@redhat.com> - 1.0.3-1
+- New upstream version 1.0.3.
+
+* Mon May 19 2008 Richard W.M. Jones <rjones@redhat.com> - 1.0.1-2
+- Use RPM percent-configure.
+- Add list of BRs for gettext.
+- Use find_lang to find PO files.
+- Comment out the OCaml dependency generator.  Not a library so not
+  needed.
+
+* Thu May  1 2008 Richard W.M. Jones <rjones@redhat.com> - 1.0.1-1
+- New upstream release 1.0.1.
+- Don't BR ocaml-gettext-devel, it's not used at the moment.
+- Don't gzip the manpage, it happens automatically.
+- Add BR libvirt-devel.
+- Remove spurious executable bit on COPYING.
+
+* Thu Apr 17 2008 Richard W.M. Jones <rjones@redhat.com> - 1.0.0-2
+- New upstream release 1.0.0.
+- Force rebuild of manpage.
+
+* Tue Mar 18 2008 Richard W.M. Jones <rjones@redhat.com> - 0.4.1.1-1
+- New upstream release 0.4.1.1.
+- Move configure to build section.
+- Pass RPM_OPT_FLAGS.
+
+* Tue Mar  4 2008 Richard W.M. Jones <rjones@redhat.com> - 0.4.1.0-2
+- Fix source URL.
+- Install virt-df manpage.
+
+* Tue Mar  4 2008 Richard W.M. Jones <rjones@redhat.com> - 0.4.1.0-1
+- New upstream release 0.4.1.0.
+- Upstream now requires ocaml-dbus >= 0.06, ocaml-lablgtk >= 2.10.0,
+  ocaml-dbus-devel.
+- Enable virt-df.
+
+* Sat Mar  1 2008 Richard W.M. Jones <rjones@redhat.com> - 0.4.0.3-3
+- Rebuild for ppc64.
+
+* Wed Feb 13 2008 Richard W.M. Jones <rjones@redhat.com> - 0.4.0.3-2
+- Add BR gtk2-devel
+
+* Tue Feb 12 2008 Richard W.M. Jones <rjones@redhat.com> - 0.4.0.3-1
+- New upstream version 0.4.0.3.
+- Rebuild for OCaml 3.10.1.
+
+* Tue Nov 20 2007 Richard W.M. Jones <rjones@redhat.com> - 0.3.3.4-1
+- New upstream release 0.3.3.4.
+- Upstream website is now http://libvirt.org/ocaml/
+
+* Fri Oct 19 2007 Richard W.M. Jones <rjones@redhat.com> - 0.3.3.0-2
+- Mistake: BR is ocaml-calendar-devel.
+
+* Fri Oct 19 2007 Richard W.M. Jones <rjones@redhat.com> - 0.3.3.0-1
+- New upstream release 0.3.3.0.
+- Added support for virt-df, but disabled it by default.
+- +BR ocaml-calendar.
+
+* Mon Sep 24 2007 Richard W.M. Jones <rjones@redhat.com> - 0.3.2.8-1
+- New upstream release 0.3.2.8.
+
+* Thu Sep 20 2007 Richard W.M. Jones <rjones@redhat.com> - 0.3.2.7-1
+- New upstream release 0.3.2.7.
+- Ship the upstream ChangeLog file.
+
+* Thu Sep  6 2007 Richard W.M. Jones <rjones@redhat.com> - 0.3.2.6-2
+- Force dependency on ocaml >= 3.10.0-7 which has fixed requires/provides
+  scripts.
+
+* Thu Sep  6 2007 Richard W.M. Jones <rjones@redhat.com> - 0.3.2.6-1
+- New upstream version 0.3.2.6.
+
+* Wed Aug 29 2007 Richard W.M. Jones <rjones@redhat.com> - 0.3.2.5-1
+- New upstream version 0.3.2.5.
+- Keep TODO out of the main package, but add (renamed) TODO.libvirt and
+  TODO.virt-top to the devel and virt-top packages respectively.
+- Add BR gawk.
+
+* Thu Aug 23 2007 Richard W.M. Jones <rjones@redhat.com> - 0.3.2.4-1
+- New upstream version 0.3.2.4.
+
+* Thu Aug 23 2007 Richard W.M. Jones <rjones@redhat.com> - 0.3.2.3-2
+- build_* macros so we can choose what subpackages to build.
+
+* Thu Aug 23 2007 Richard W.M. Jones <rjones@redhat.com> - 0.3.2.3-1
+- Upstream version 0.3.2.3.
+- Add missing BR libvirt-devel.
+
+* Wed Aug 22 2007 Richard W.M. Jones <rjones@redhat.com> - 0.3.2.2-1
+- Upstream version 0.3.2.2.
+
+* Wed Aug 22 2007 Richard W.M. Jones <rjones@redhat.com> - 0.3.2.1-2
+- Fix unclosed if-statement in spec file.
+
+* Wed Aug 22 2007 Richard W.M. Jones <rjones@redhat.com> - 0.3.2.1-1
+- Upstream version 0.3.2.1.
+- Put HTML documentation in -devel package.
+
+* Mon Aug  6 2007 Richard W.M. Jones <rjones@redhat.com> - 0.3.1.2-1
+- Initial RPM release.